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

 

  If ListBox1.ItemIndex=4 Then

  Begin

    Form1.ADOTable2.Sort:='Количество_на_складе';

    Form1.ListBox1.Visible:=False;

  End;

 

 

end;

 

end.

 

 

 

unit Unit2;

 

interface

 

uses

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

  Dialogs, DB, Grids, DBGrids, StdCtrls, Buttons, XPMan, ExtCtrls, ADODB;

 

type

  TForm2 = class(TForm)

    Panel1: TPanel;

    XPManifest1: TXPManifest;

    ComboBox1: TComboBox;

    Edit1: TEdit;

    BitBtn1: TBitBtn;

    Label1: TLabel;

    DBGrid1: TDBGrid;

    DataSource1: TDataSource;

    ADOQuery1: TADOQuery;

    procedure BitBtn1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form2: TForm2;

 

implementation

 

uses Unit1;

 

{$R *.dfm}

 

procedure TForm2.BitBtn1Click(Sender: TObject);

Var s,q : String;

begin

 

  s:=Form2.Edit1.Text;

  q:=Chr(39)+s+Chr(39);

 

  If Form2.ComboBox1.ItemIndex=0

  Then  Begin

          Form2.ADOQuery1.SQL.LoadFromFile(ExtractFilePath(application.ExeName)+'Sql\0.txt');

          Form2.ADOQuery1.SQL.Text:=Form2.ADOQuery1.SQL.Text+q;

        End;

 

  If Form2.ComboBox1.ItemIndex=1

  Then  Begin

          Form2.ADOQuery1.SQL.LoadFromFile(ExtractFilePath(application.ExeName)+'Sql\1.txt');

          Form2.ADOQuery1.SQL.Text:=Form2.ADOQuery1.SQL.Text+q;

        End;

 

  If Form2.ComboBox1.ItemIndex=2

  Then  Begin

          Form2.ADOQuery1.SQL.LoadFromFile(ExtractFilePath(application.ExeName)+'Sql\2.txt');

          Form2.ADOQuery1.SQL.Text:=Form2.ADOQuery1.SQL.Text+s;

        End;

 

  If Form2.ComboBox1.ItemIndex=3

  Then  Begin

          Form2.ADOQuery1.SQL.LoadFromFile(ExtractFilePath(application.ExeName)+'Sql\3.txt');

          Form2.ADOQuery1.SQL.Text:=Form2.ADOQuery1.SQL.Text+q;

        End;

 

  If Form2.ComboBox1.ItemIndex=4

  Then  Begin

          Form2.ADOQuery1.SQL.LoadFromFile(ExtractFilePath(application.ExeName)+'Sql\4.txt');

          Form2.ADOQuery1.SQL.Text:=Form2.ADOQuery1.SQL.Text+s;

        End;

 

  Form2.ADOQuery1.Active:=True;

 

end;

 

end.