Приложение б. Текст программы (листинг)

// Добавление изменение данных в корзине

implementation

uses datamodule, KlientAddMiniFrm,dockaddfrm;

{$R *.dfm}

procedure TKorzinaAdd.DBCtrlGrid1Click(Sender: TObject);

begin

dbedit4.text:=dbedit3.text;

end;

procedure TKorzinaAdd.FormCreate(Sender: TObject);

begin

dbedit4.text:=dbedit3.text;

end;

procedure TKorzinaAdd.BitBtn1Click(Sender: TObject);

var buttonSelected,i:integer;

sum:double;

begin

if datamodule1.QKorzinaFull.Modified=true then

buttonSelected := MessageDlg('Вы уверенны?данные будут сохраненны.',mtWarning, mbOKCancel, 0);

if buttonSelected=mrok then

begin

datamodule1.ADOTbSchet.Filtered:=false;

datamodule1.ADoTbTovar.Filtered:=false;

datamodule1.QKorzinaFull.Post;

datamodule1.QKorzinaFull.Active:=false;

datamodule1.QKorzinaFull.Active:=true;

for i:=1 to datamodule1.DataSourceqKorzinafull.DataSet.RecordCount do

begin

sum:=sum+datamodule1.QKorzinaFull.Fields.Fields[10].Value;

datamodule1.QKorzinaFull.Next;

end;

datamodule1.ADOTbSchet.Edit;

datamodule1.ADOTbSchet.Fields.Fields[3].Value:=sum;

datamodule1.ADOTbSchet.Post;

korzinaadd.Close;

end;

end;

procedure TKorzinaAdd.FormClose(Sender: TObject; var Action: TCloseAction);

begin

datamodule1.QKorzinaFull.cancel;

action:=cafree;

end;

procedure TKorzinaAdd.Button1Click(Sender: TObject);

begin

//2opt 3 rozn

if dbcheckbox1.Checked=true then

datamodule1.QKorzinaFull.Fields.Fields[10].Value:=datamodule1.QTovar_vidTov_edizm.Fields.Fields[2].Value*strtofloat(dbedit5.text)

else

datamodule1.QKorzinaFull.Fields.Fields[10].Value:=datamodule1.QTovar_vidTov_edizm.Fields.Fields[3].Value*strtofloat(dbedit5.text);

end;

end.;

//Добавление счетов и подсчет корзины аналагично как и все формы с добавлением

implementation

uses datamodule , DockAddmMinFrm, KorzinaAddFrm;

{$R *.dfm}

procedure TDockAdd.FormClose(Sender: TObject; var Action: TCloseAction);

begin

action:=cafree;

end;

procedure TDockAdd.BitBtn1Click(Sender: TObject);

begin

Application.CreateForm(TKorzinaAdd, KorzinaAdd);

datamodule1.QKorzinaFull.Insert;

KorzinaAdd.DBEdit2.text:=dockadd.DBEdit1.text;

KorzinaAdd.dbedit4.text:=KorzinaAdd.dbedit3.text;

end;

procedure TDockAdd.BitBtn2Click(Sender: TObject);

var s1:string;

begin

if dbedit1.Text>inttostr(0) then

begin

dbgrid2.Visible:=true;

datamodule1.Qkorz_TovarFull.Filter:='id_счет LIKE '+#39+dbedit1.Text+#39;

datamodule1.Qkorz_TovarFull.Filtered:=true;

end else

begin

showmessage('выберите значение');

dbgrid2.Visible:=false;

end;

end;

procedure TDockAdd.DBLookupListBox1Click(Sender: TObject);

begin

datamodule1.QSchet_person_otdel_Company.Filtered:=true;

//datamodule1.QSchet_person_otdel_Company.Filter:='компания.название LIKE '+#39+dblookuplistbox1.SelectedItem+#39;

end;

procedure TDockAdd.BitBtn3Click(Sender: TObject);

begin

datamodule1.ADOTbSchet.Insert;

Application.CreateForm(TDockAddMin, DockAddMin);

dockaddmin.pagecontrol1.ActivePageIndex:=0;

end;

procedure TDockAdd.BitBtn4Click(Sender: TObject);

begin

Application.CreateForm(TDockAddMin, DockAddMin);

Dockaddmin.Caption:='изменения данных о счете';

dockaddmin.pagecontrol1.ActivePageIndex:=0;

end;

procedure TDockAdd.DBCtrlGrid1Click(Sender: TObject);

begin

if dbedit1.Text>inttostr(0) then

begin

datamodule1.QKorzinaFull.Filtered:=false;

dbgrid2.Visible:=true;

datamodule1.QKorzinaFull.Filter:='id_счет LIKE '+#39+dbedit1.Text+#39;

datamodule1.QKorzinaFull.Filtered:=true;

end else

begin

showmessage('выберите значение');

dbgrid2.Visible:=false;

end;

end;

procedure TDockAdd.FormCreate(Sender: TObject);

begin

//dbgrid2.Visible:=true;

//datamodule1.Qkorz_TovarFull.Filter:='id_счет LIKE '+#39+dbedit1.Text+#39;

//datamodule1.Qkorz_TovarFull.Filtered:=true;

end;

procedure TDockAdd.BitBtn5Click(Sender: TObject);

begin

Application.CreateForm(TKorzinaAdd, KorzinaAdd);

korzinaadd.Caption:='изменения данных корзины';

datamodule1.QKorzinaFull.edit;

KorzinaAdd.DBEdit2.text:=dockadd.DBEdit1.text;

KorzinaAdd.dbedit4.text:=KorzinaAdd.dbedit3.text;

end;

end.

//Добавление клиентов Диалоговое окно.Аналогично как и все диалоговые окна с добавлением

implementation

uses datamodule , KlientAddMiniFrm;

{$R *.dfm}

procedure TDockAddMin.FormClose(Sender: TObject; var Action: TCloseAction);

begin

datamodule1.ADOTbKlient.Filtered:=false;

datamodule1.ADOTbOtdel.Filtered:=false;

datamodule1.ADOTbCompany.Filtered:=false;

datamodule1.QSchet_person_otdel_Company.Cancel;

action:=cafree;

end;

procedure TDockAddMin.BitBtn2Click(Sender: TObject);

begin

datamodule1.ADOTbOtdel.Filtered:=false;

datamodule1.ADOTbOtdel.Filter:='id_компания LIKE '+#39+inttostr(dblookuplistbox1.Keyvalue)+#39;

datamodule1.ADOTbOtdel.Filtered:=true;

pagecontrol1.Pages[1].enabled:=true;

PageControl1.Pages[0].enabled:= false;

PageControl1.Pages[0].Highlighted := true;

PageControl1.Pages[1].Highlighted := false;

pagecontrol1.ActivePageIndex:=1;

end;

procedure TDockAddMin.BitBtn3Click(Sender: TObject);

begin

datamodule1.ADOTbKlient.Filtered:=false;

datamodule1.ADOTbKlient.Filter:='id_отдел LIKE '+#39+inttostr(dblookuplistbox2.Keyvalue)+#39;

datamodule1.ADOTbKlient.Filtered:=true;

pagecontrol1.Pages[2].enabled:=true;

PageControl1.Pages[1].enabled:= false;

PageControl1.Pages[1].Highlighted := true;

PageControl1.Pages[2].Highlighted := false;

pagecontrol1.ActivePageIndex:=2;

dbedit5.Text:=dbedit4.Text;

end;

procedure TDockAddMin.BitBtn4Click(Sender: TObject);

var buttonSelected:integer;

begin

if datamodule1.ADOTbSchet.Modified=true then

buttonSelected := MessageDlg('Вы уверенны?данные будут сохраненны.',mtWarning, mbOKCancel, 0);

if buttonSelected=mrok then

begin

datamodule1.ADOTbSchet.Post;

dockaddmin.Close;

end;

end;

procedure TDockAddMin.DBCtrlGrid1Click(Sender: TObject);

begin

dbedit5.Text:=dbedit4.Text;

end;

procedure TDockAddMin.BitBtn1Click(Sender: TObject);

var sum:double;

i:integer;

begin

sum:=0;

for i:=1 to datamodule1.ADOTbKorzina.FieldCount do

sum:=sum+datamodule1.ADOTbKorzina.Fields.Fields[3].Value ;

dbedit6.Text:=floattostr(sum);

end;