Создание базы данных магазина спортивных товаров. Описание интерфейсной части программы. Листинг программы, страница 4

Open; // активизируем выполнение запроса

end;

end;

end;

procedure TSDIAppForm.Button6Click(Sender: TObject);

begin

combobox1.Items.clear;

with datamodule1 do

begin

vid_tov_comb.First;

while not vid_tov_comb.Eof do

begin

{*}

SDIAppForm.combobox1.Items.Add(vid_tov_comb.FieldByName('vid_tov').Value);

vid_tov_comb.Next;

end;

end;

end;

procedure TSDIAppForm.Button7Click(Sender: TObject);

begin

form2.Show;

end;

procedure TSDIAppForm.Button8Click(Sender: TObject);

var

a:string;

begin

if checkbox1.checked then

datamodule1.tovar.Filtered:=false

else

if sdiappform.combobox1.text<>'' then

begin

datamodule1.SQLQuery2.close;

datamodule1.SQLQuery2.sql.Clear;

datamodule1.SQLQuery2.SQL.add('select kod from vse_tov where vid_tov='

+chr($27)+combobox1.text+chr($27)+';');

datamodule1.SQLQuery2.Open;

str(datamodule1.SQLQuery2.FieldByName('KOD').Value,a);

datamodule1.tovar.Filter:='KOD='+chr($27)+a[2]+chr($27);

datamodule1.tovar.Filtered:=true;

end

else

showmessage('Выберите вид товаров!');

end;

procedure TSDIAppForm.Button9Click(Sender: TObject);

begin

form3.show;

end;

procedure TSDIAppForm.FileExit1Execute(Sender: TObject);

begin

Close;

end;

procedure TSDIAppForm.HelpAbout1Execute(Sender: TObject);

begin

AboutBox.ShowModal;

end;

end.

 

unit Unit1;

interface

uses

SysUtils, Classes, DBXpress, WideStrings, DB, DBClient, SimpleDS, SqlExpr,

FMTBcd;

type

TDataModule1 = class(TDataModule)

mybase: TSQLConnection;

vse_tov: TSimpleDataSet;

tovar: TSimpleDataSet;

sklad: TSimpleDataSet;

prod: TSimpleDataSet;

postavciki: TSimpleDataSet;

vse_tov_src: TDataSource;

tovar_src: TDataSource;

sklad_src: TDataSource;

prod_src: TDataSource;

postavciki_src: TDataSource;

SQLQuery1: TSQLQuery;

Sql_src: TDataSource;

SimpleDataSet1: TSimpleDataSet;

vid_tov_comb: TSimpleDataSet;

SQLQuery2: TSQLQuery;

SQLQuery3: TSQLQuery;

procedure DataModuleCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule1: TDataModule1;

MyTrans:TTransactionDesc;

implementation

{$R *.dfm}

procedure TDataModule1.DataModuleCreate(Sender: TObject);

begin

MyTrans.TransactionID:=1;

MyTrans.IsolationLevel:=xilRepeatableRead;

End;

end.

unit Unit2;

interface

uses

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

Dialogs,shellapi, StdCtrls;

type

TForm2 = class(TForm)

Button1: TButton;

ComboBox1: TComboBox;

Label1: TLabel;

Button2: TButton;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

form2.combobox1.Items.clear;

with datamodule1 do

begin

vid_tov_comb.First;

while not vid_tov_comb.Eof do

begin

{*}

form2.combobox1.Items.Add(vid_tov_comb.FieldByName('vid_tov').Value);

vid_tov_comb.Next;

end;

end;

end;

procedure TForm2.Button2Click(Sender: TObject);

var F: textFile;

h: hwnd;  //переменная описывающая динамически открываемое окно

s,c: string;

i,b:integer;

begin

if combobox1.text<>'' then

begin

assignFile(f,'C:\temp\vedom1.html'); // {*} создадим временный html-файл

rewrite(f); //Откроем его на запись

With DataModule1 do

begin

sqlquery2.Close;

sqlquery2.SQL.Clear;

sqlquery2.SQL.Add('Select * from tovar where kod =(select kod from vse_tov');

sqlquery2.SQL.Add(' where vid_tov=' + chr($27)+combobox1.Text+chr($27)+')');