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

DataModule1.ADOQuery2.Open;

DataModule1.ADOQuery2.First;

combobox1.Clear;

while not datamodule1.ADOQuery2.Eof do begin

combobox1.Items.Add(datamodule1.ADOQuery2.Fields[0].AsString);

Datamodule1.ADOQuery2.Next;

end;

Datamodule1.ADOQuery2.Close;

end;

procedure TForm6.BitBtn8Click(Sender: TObject);

begin

Form3.Show;

Form6.Close;

end;

procedure TForm6.BitBtn9Click(Sender: TObject);

begin

Edit1.Visible:=true;

CheckBox1.Visible:=true;

CheckBox2.Visible:=true;

BitBtn10.Visible:=true;

end;

procedure TForm6.BitBtn11Click(Sender: TObject);

begin

Form6.Close;

end;

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

begin

GradientRect (clBlue, clBlack, Canvas);

end;

procedure TForm6.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

GradientRect (clBlue, clBlack, Canvas);

end;

7.  Unit7 название формы Form7

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons;

type

TForm7 = class(TForm)

ComboBox1: TComboBox;

ComboBox2: TComboBox;

ComboBox3: TComboBox;

ComboBox4: TComboBox;

ComboBox5: TComboBox;

ComboBox6: TComboBox;

ComboBox7: TComboBox;

ComboBox8: TComboBox;

ComboBox9: TComboBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

BitBtn7: TBitBtn;

BitBtn8: TBitBtn;

BitBtn9: TBitBtn;

BitBtn10: TBitBtn;

Memo1: TMemo;

OpenDialog1: TOpenDialog;

FontDialog1: TFontDialog;

BitBtn11: TBitBtn;

SaveDialog1: TSaveDialog;

OpenDialog2: TOpenDialog;

BitBtn12: TBitBtn;

BitBtn13: TBitBtn;

BitBtn14: TBitBtn;

FindDialog1: TFindDialog;

procedure paint(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

procedure ComboBox3Change(Sender: TObject);

procedure ComboBox4Change(Sender: TObject);

procedure ComboBox5Change(Sender: TObject);

procedure ComboBox6Change(Sender: TObject);

procedure ComboBox7Change(Sender: TObject);

procedure ComboBox8Change(Sender: TObject);

procedure ComboBox9Change(Sender: TObject);

procedure BitBtn8Click(Sender: TObject);

procedure BitBtn11Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure BitBtn9Click(Sender: TObject);

procedure BitBtn10Click(Sender: TObject);

procedure BitBtn13Click(Sender: TObject);

procedure BitBtn12Click(Sender: TObject);

procedure BitBtn14Click(Sender: TObject);

procedure FindDialog1Find(Sender: TObject);

procedure BitBtn15Click(Sender: TObject);

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

spos: integer;

implementation

{$R *.dfm}

uses unit1, unit2, unit4,Unit3;

procedure TForm7.paint(Sender: TObject);

begin

GradientRect (clBlue, clBlack, Canvas);

end;

procedure TForm7.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 TForm7.FormActivate(Sender: TObject);

begin

Form7.Left:=330;

Form7.Top:=115;

DataModule1.ADOQuery4.Close;