Разработка программной системы «Автоматизированная записная книжка», страница 16

BitBtn12.Visible:=false;

BitBtn13.Visible:=false;

ComboBox2.Visible:=false;

GradientRect (clBlue, clBlack, Canvas);

end;

procedure TForm4.BitBtn12Click(Sender: TObject);

begin

BitBtn12.Visible:=false;

BitBtn5.Visible:=false;

BitBtn6.Visible:=false;

BitBtn9.Visible:=false;

ComboBox2.Clear;

ComboBox2.Visible:=false;

Edit1.Visible:=false;

Edit2.Visible:=false;

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit3.Visible:=false;

Label1.Visible:=false;

Label2.Visible:=false;

Label3.Visible:=false;

Label4.Visible:=false;

Label6.Visible:=false;

GradientRect (clBlue, clBlack, Canvas);

Form4.Refresh;

Label5.Visible:=true;

end;

procedure TForm4.BitBtn13Click(Sender: TObject);

begin

BitBtn10.Visible:=false;

BitBtn11.Visible:=false;

BitBtn12.Visible:=false;

BitBtn13.Visible:=false;

Edit1.Visible:=false;

Edit2.Visible:=false;

Edit3.Visible:=false;

Edit4.Visible:=false;

Label1.Visible:=false;

Label2.Visible:=false;

Label3.Visible:=false;

Label4.Visible:=false;

Label6.Visible:=false;

GradientRect (clBlue, clBlack, Canvas);

Form4.Refresh;

Label5.Visible:=true;

end; end.

5.  Unit5 название формы Form5.

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComCtrls, Buttons, Grids, DBGrids, Mask, ExtCtrls,

Calendar, Spin;

type

TForm5 = class(TForm)

BitBtn1: TBitBtn;

DBGrid1: TDBGrid;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

Label1: TLabel;

Label2: TLabel;

Edit2: TEdit;

BitBtn6: TBitBtn;

MaskEdit1: TMaskEdit;

MaskEdit2: TMaskEdit;

Edit1: TEdit;

MonthCalendar1: TMonthCalendar;

MaskEdit3: TMaskEdit;

Label3: TLabel;

BitBtn7: TBitBtn;

BitBtn8: TBitBtn;

ComboBox1: TComboBox;

BitBtn9: TBitBtn;

BitBtn10: TBitBtn;

BitBtn11: TBitBtn;

Label4: TLabel;

BitBtn12: TBitBtn;

BitBtn13: TBitBtn;

Edit3: TEdit;

BitBtn14: TBitBtn;

BitBtn15: TBitBtn;

BitBtn16: TBitBtn;

procedure FormCreate(Sender: TObject);

procedure paint(Sender: TObject);

procedure GradientRect(FromRGB, ToRGB: TColor; Canvas: TCanvas);

procedure BitBtn1Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);

procedure FormMouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure MonthCalendar1Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure BitBtn8Click(Sender: TObject);

procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;DataCol: Integer; Column: TColumn; State: TGridDrawState);

procedure BitBtn9Click(Sender: TObject);

procedure BitBtn10Click(Sender: TObject);

procedure BitBtn11Click(Sender: TObject);

procedure BitBtn12Click(Sender: TObject);

procedure BitBtn13Click(Sender: TObject);

procedure BitBtn14Click(Sender: TObject);

procedure BitBtn15Click(Sender: TObject);

procedure BitBtn16Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

n:integer;

implementation

{$R *.dfm}

uses unit1, unit2, DB;

procedure TForm5.FormCreate(Sender: TObject);

var

l: DWORD;

begin

l := GetWindowLong(Self.Handle, GWL_STYLE);

l := l and not (WS_MINIMIZEBOX);

l := l and not (WS_MAXIMIZEBOX);

l := SetWindowLong(Self.Handle, GWL_STYLE, l);

end;

procedure TForm5.paint(Sender: TObject);

begin

GradientRect (clBlue, clBlack, Canvas);

end;

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

Form5.Close;

Edit1.Visible:=false;