Конрольная работа по "Программированию"

    procedure BitBtn8Click(Sender: TObject);

    procedure BitBtn14Click(Sender: TObject);

    procedure BitBtn7Click(Sender: TObject);

    procedure BitBtn12Click(Sender: TObject);

    procedure BitBtn5Click(Sender: TObject);

    procedure BitBtn11Click(Sender: TObject);

    procedure BitBtn4Click(Sender: TObject);

    procedure Panel1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure ListBox1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

uses Unit2;

 

{$R *.dfm}

 

procedure TForm1.FormCreate(Sender: TObject);

Var s: String;

begin

 

  s:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source="';

  s:=s+ExtractFilePath(Application.ExeName)+'Base';

  s:=s+'\База.mdb";Persist Security Info=False';

 

  Form1.ADOConnection1.ConnectionString:=s;

  Form1.ADOConnection1.Connected:=True;

 

  Form1.ADOTable1.Active:=True;

 

  Form1.ADOTable2.Active:=True;

 

end;

 

procedure TForm1.BitBtn9Click(Sender: TObject);

begin

 

  Form1.ListBox1.Visible:=False;

  Form1.ADOTable1.Append;

 

end;

 

procedure TForm1.BitBtn15Click(Sender: TObject);

begin

 

  Form1.ListBox1.Visible:=False;

  Form1.ADOTable2.Append;

 

end;

 

procedure TForm1.BitBtn10Click(Sender: TObject);

begin

 

  Form1.ListBox1.Visible:=False;

  Form1.ADOTable1.Delete;

 

end;

 

procedure TForm1.BitBtn16Click(Sender: TObject);

begin

 

  Form1.ListBox1.Visible:=False;

  Form1.ADOTable2.Delete;

 

end;

 

procedure TForm1.BitBtn6Click(Sender: TObject);

begin

 

  Form1.ListBox1.Visible:=False;

  Form1.ADOTable1.First;

 

end;

 

procedure TForm1.BitBtn13Click(Sender: TObject);

begin

 

  Form1.ListBox1.Visible:=False;

  Form1.ADOTable2.First;

 

end;

 

procedure TForm1.BitBtn8Click(Sender: TObject);

begin

 

  Form1.ListBox1.Visible:=False;

  Form1.ADOTable1.Last;

 

end;

 

procedure TForm1.BitBtn14Click(Sender: TObject);

begin

 

  Form1.ListBox1.Visible:=False;

  Form1.ADOTable2.Last;

 

end;

 

procedure TForm1.BitBtn7Click(Sender: TObject);

begin

 

  Form1.ListBox1.Visible:=False;

  Form1.ADOTable1.Next;

 

end;

 

procedure TForm1.BitBtn12Click(Sender: TObject);

begin

 

  Form1.ListBox1.Visible:=False;

  Form1.ADOTable2.Next;

 

end;

 

procedure TForm1.BitBtn5Click(Sender: TObject);

begin

 

  Form1.ListBox1.Visible:=False;

  Form1.ADOTable1.Prior;

 

end;

 

procedure TForm1.BitBtn11Click(Sender: TObject);

begin

 

  Form1.ListBox1.Visible:=False;

  Form1.ADOTable2.Prior;

 

end;

 

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

 

  Form1.ListBox1.Visible:=True;

 

end;

 

procedure TForm1.Panel1Click(Sender: TObject);

begin

 

  Form1.ListBox1.Visible:=False;

  Form1.ListBox1.Visible:=False;

 

end;

 

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

 

  Form1.ListBox1.Visible:=False;

  Form2.ADOQuery1.Active:=False;

  Form2.Edit1.Clear;

  Form2.ComboBox1.ItemIndex:=-1;

  Form2.ShowModal;

 

end;

 

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

 

  Form1.ListBox1.Visible:=False;

 

end;

 

procedure TForm1.ListBox1Click(Sender: TObject);

begin

 

  If ListBox1.ItemIndex=0 Then

  Begin

    Form1.ADOTable1.Sort:='Наименование';

    Form1.ListBox1.Visible:=False;

  End;

 

    If ListBox1.ItemIndex=1 Then

  Begin

    Form1.ADOTable1.Sort:='Фирма_изготовитель';

    Form1.ListBox1.Visible:=False;

  End;

 

  If ListBox1.ItemIndex=2 Then

  Begin

    Form1.ADOTable1.Sort:='Цена_комплекта';

    Form1.ListBox1.Visible:=False;

  End;

 

  If ListBox1.ItemIndex=3 Then

  Begin

    Form1.ADOTable2.Sort:='Дата_продажи';

    Form1.ListBox1.Visible:=False;

  End;