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

    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;

 

  If ListBox1.ItemIndex=4 Then

  Begin

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

    Form1.ListBox1.Visible:=False;

  End;

 

end;

 

 

Теперь рассмотрим вторую форму. Она предназначена для  вывода отчетов на экран. Сначала  с помощью ComboBox выбираем нужную область  поиска. Потом вводим в Edit то, что  ищем и при нажатии на кнопку Button «Поиск» выполняется следующая  процедура 

 

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;

 

Здесь нужный заранее подготовленный запрос из памяти. Запросы загружаются  посредством ADOQuery. Запрос записывается в свойство SQL. Запись запроса и  подключение (Active) происходит в процедуре (см выше).  Запросы подключаются следующей цепочкой ADOConection --- ADOQuery ----DataSource ---- DBGrid.

Все происходит аналогичным  образом, как и с другой цепочкой (см. выше). Только вместо ADOTable  используется ADOQuery. И в ADOQuery ничего не настраивается.

 

 

Использованные  SQL запросы.

 

1.

Select П.Наименование, П.Фирма_изготовитель, П.Цена_комплекта, М.Дата_продажи, М.Количество_на_складе

From Продукт П, Продажи М

Where  П.ID_продукта=М.ID_продукта and П.Наименование =

 

2.

Select  П.Фирма_изготовитель, П.Наименование, П.Цена_комплекта, М.Дата_продажи, М.Количество_на_складе

From Продукт П, Продажи М

Where  П.ID_продукта=М.ID_продукта and П.Фирма_изготовитель =

 

3.

Select П.Цена_комплекта, П.Наименование, П.Фирма_изготовитель, М.Дата_продажи, М.Количество_на_складе

From Продукт П, Продажи М

Where  П.ID_продукта=М.ID_продукта and П.Цена_комплекта =

 

4.

Select М.Дата_продажи, П.Наименование, П.Фирма_изготовитель, П.Цена_комплекта, М.Количество_на_складе

From Продукт П, Продажи М

Where  П.ID_продукта=М.ID_продукта and М.Дата_продажи =

 

5.

Select М.Количество_на_складе, П.Наименование, П.Фирма_изготовитель, П.Цена_комплекта, М.Дата_продажи

From Продукт П, Продажи  М 

Where  П.ID_продукта=М.ID_продукта and М.Количество_на_складе =

Полный листинг программы.

 

unit Unit1;

 

interface

 

uses

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

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

 

type

  TForm1 = class(TForm)

    Panel1: TPanel;

    XPManifest1: TXPManifest;

    BitBtn2: TBitBtn;

    BitBtn4: TBitBtn;

    DBGrid3: TDBGrid;

    BitBtn5: TBitBtn;

    BitBtn6: TBitBtn;

    BitBtn7: TBitBtn;

    BitBtn8: TBitBtn;

    BitBtn9: TBitBtn;

    BitBtn10: TBitBtn;

    BitBtn11: TBitBtn;

    BitBtn12: TBitBtn;

    BitBtn13: TBitBtn;

    BitBtn14: TBitBtn;

    BitBtn15: TBitBtn;

    BitBtn16: TBitBtn;

    ADOConnection1: TADOConnection;

    ADOTable1: TADOTable;

    ADOTable2: TADOTable;

    DataSource1: TDataSource;

    DataSource2: TDataSource;

    DBGrid1: TDBGrid;

    ListBox1: TListBox;

    procedure FormCreate(Sender: TObject);

    procedure BitBtn9Click(Sender: TObject);

    procedure BitBtn15Click(Sender: TObject);

    procedure BitBtn10Click(Sender: TObject);

    procedure BitBtn16Click(Sender: TObject);

    procedure BitBtn6Click(Sender: TObject);

    procedure BitBtn13Click(Sender: TObject);