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

postavchiki_grid: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

TabSheet5: TTabSheet;

DBGrid1: TDBGrid;

prod_grid: TDBGrid;

sklad_grid: TDBGrid;

tovar_grid: TDBGrid;

vid_tov_grid: TDBGrid;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBNavigator1: TDBNavigator;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBNavigator2: TDBNavigator;

Button2: TButton;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

DBEdit11: TDBEdit;

DBEdit12: TDBEdit;

DBEdit13: TDBEdit;

DBEdit14: TDBEdit;

DBNavigator3: TDBNavigator;

Button3: TButton;

DBEdit15: TDBEdit;

DBEdit16: TDBEdit;

DBEdit17: TDBEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

DBNavigator4: TDBNavigator;

Button4: TButton;

DBText1: TDBText;

DBText2: TDBText;

Button5: TButton;

Label4: TLabel;

Label5: TLabel;

DBEdit18: TDBEdit;

DBEdit19: TDBEdit;

DBEdit20: TDBEdit;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

DBNavigator5: TDBNavigator;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Button7: TButton;

Button6: TButton;

ComboBox1: TComboBox;

Button8: TButton;

Label18: TLabel;

Label19: TLabel;

CheckBox1: TCheckBox;

Button9: TButton;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

procedure FileNew1Execute(Sender: TObject);

procedure FileOpen1Execute(Sender: TObject);

procedure FileSave1Execute(Sender: TObject);

procedure FileExit1Execute(Sender: TObject);

procedure HelpAbout1Execute(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);   

private

{ Private declarations }

public

{ Public declarations }

end;

var

SDIAppForm: TSDIAppForm;

implementation

uses about, Unit1, Unit2, Unit3;

{$R *.dfm}

procedure TSDIAppForm.FileNew1Execute(Sender: TObject);

begin

{ Do nothing }

end;

procedure TSDIAppForm.FileOpen1Execute(Sender: TObject);

begin

OpenDialog.Execute;

end;

procedure TSDIAppForm.FileSave1Execute(Sender: TObject);

begin

SaveDialog.Execute;

end;

procedure TSDIAppForm.Button2Click(Sender: TObject);

begin          //нажатие на кнопку старт транзакции

with DataModule1 do

begin

mybase.StartTransaction(Mytrans);

vse_tov.ApplyUpdates(-1);

POSTAVCIKI.ApplyUpdates(-1);

tovar.ApplyUpdates(-1);

SKLAD.ApplyUpdates(-1);

prod.ApplyUpdates(-1);

mybase.Commit(MyTrans);

prod.ApplyUpdates(-1);

end;

end;

procedure TSDIAppForm.Button4Click(Sender: TObject);

var

A,b,c:integer;

d:string;

begin

if edit2.Text<>'' then

begin

val(edit2.Text,a,c);

val(dbedit16.Text,b,c);

c:=a+b;

str(c,d);

dbedit16.Text:=d

end

else

showmessage('Введите количество');

end;

procedure TSDIAppForm.Button5Click(Sender: TObject);

begin

if (dbedit15.text='') then

showmessage('укажите шифр товара')

else

begin

with datamodule1.SQLQuery1 do begin

Close; // закрыть файл-результат выполнения предыдущего запроса

SQL.Clear; // удалить текст предыдущего запроса

// записываем новый запрос в свойство SQL

SQL.Add('select tovar.nazvan,sklad.kol from tovar, sklad');

SQL.Add('where (tovar.shifr='+dbedit15.text+')and(sklad.shifr='+dbedit15.text+');');