137
procedure TWizardForm.FormActivate(Sender: TObject);
begin
{adotable1.Close;
adotable1.Open;
adotable2.Close;
adotable2.Open;
adotable3.Close;
adotable3.Open; }
end;
procedure TWizardForm.BitBtn4Click(Sender: TObject);
begin
form6.SpinEdit1.Value:= SpinEdit1.Value;
form6.BitBtn4Click(Sender);
end;
procedure TWizardForm.BitBtn5Click(Sender: TObject);
begin
form6.BitBtn5Click(Sender);
end;
procedure TWizardForm.BitBtn6Click(Sender: TObject);
begin
form6.BitBtn6Click(Sender);
end;
procedure TWizardForm.Button1Click(Sender: TObject);
begin
DBGrid1.SelectedRows.Clear;
end;
138
procedure TWizardForm.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
if (was_insert) then
if MessageDlg('Сохранить изменения ? ', mtConfirmation,
[mbOk, mbCancel], 0) = mrCancel then
begin
Form6.ADOTable1.Delete;
CanClose := true; end
else
CanClose := true;
ProgressBar1.StepBy(100);
end;
procedure TWizardForm.chkClick(Sender: TObject);
begin
Form6.BitBtn2Click(Sender);
end;
end.
Процедура 9
procedure TForm9.BitBtn3Click(Sender: TObject);
begin
ADOTable1.MoveBy(1);
end;
procedure TForm9.BitBtn2Click(Sender: TObject);
begin
ADOTable1.MoveBy(1);
139
end;
procedure TForm9.BitBtn4Click(Sender: TObject); // загрузка картинки в базу
begin
if OpenPictureDialog1.Execute then
begin
DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
ADOtable1.Edit;
TBLOBField(ADOtable1.FieldByName('Фото')).LoadFromFile(OpenPictureDialog1.Fil
eName);
ADOtable1.Post;
pre.Close;
post.Close;
pre.Open;
pre.Locate('Код',ADOTable1DSDesigner.AsString,[]) ;
pre.MoveBy(1);
post.Open;
post.Locate('Код',ADOTable1DSDesigner.AsString,[]) ;
post.MoveBy(1);
end;
end;
procedure TForm9.BitBtn5Click(Sender: TObject); // загрузка картинки в базу
begin
if OpenPictureDialog1.Execute then
begin
DBImage4.Picture.LoadFromFile(OpenPictureDialog1.FileName);
ADOtable1.Edit;
TBLOBField(ADOtable1.FieldByName('Штрих
код')).LoadFromFile(OpenPictureDialog1.FileName);
ADOtable1.Post;
140
end;
end;
procedure TForm9.BitBtn6Click(Sender: TObject);
begin
form7.show; // редактировать перечень типов
end;
procedure TForm9.ADOTable1BeforePost(DataSet: TDataSet);
begin
if (Length(dbedit3.Text)=0) then
// dbedit3.Text:='18';
ADOTable1DSDesigner10.Value:=18 ; // ндс по причине умолчанию
end;
end.
procedure Button3Click(Sender: TObject);
// procedure Button4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
141
procedure N15Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Sotrudniki, Klienti, Tovarooborot, Prodagi, TipiTovara, Statistika, Assortimen,
Wizard, Postavshiki, Upakovka, VidiProdag;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject); // в создании формы выполнится
142
var
Icon: TIcon;
BMP: TBitmap;
begin
end;
procedure TForm1.ADOTable1DSDesigner3SetText(Sender: TField;
// в выборе конкретного экземпляра нужно убрать из его названия символ :
изаписать в поле
// а в базу записать его код
const Text: String);
var a:integer;
begin
if text='' then begin Sender.AsInteger := 1 ; exit; end;
a:= Pos(':', text) ;
if a<=0 then begin Sender.AsInteger := 1 ; exit; end
else
Sender.AsInteger:=StrToInt( Copy(text,1, a1) );
//перечитать таблицу
end;
143
procedure TForm1.Button3Click(Sender: TObject); // вызовем редактирование
begin
form4.show;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form5.show;
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); //
вопрос о закрытии программы
begin
if MessageDlg('Закрыть программу ? ', mtConfirmation,
[mbOk, mbCancel], 0) = mrCancel then
CanClose := False else
end;
/////
//Далее идут вызовы других форм по причине нажатию на элементы руководства
//////
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form2.show;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
form4.show;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
form5.show;
144
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
form6.show;
end;
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
form8.show;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
form4.show;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
form2.show;
end;
procedure TForm1.N11Click(Sender: TObject);
begin
form9.show;
end;
procedure TForm1.N12Click(Sender: TObject);
begin
form6.show;
end;
145
procedure TForm1.N14Click(Sender: TObject);
begin
form10.show;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
Form4.BitBtn2Click(Sender);
end;
procedure TForm1.N9Click(Sender: TObject);
begin
//form5.show;
Form5.BitBtn6Click(Sender);
end;
procedure TForm1.N10Click(Sender: TObject);
begin
Form10.BitBtn2Click(Sender);
end;
procedure TForm1.N15Click(Sender: TObject);
begin
wizardform.show;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
form2.BitBtn2Click(Sender);
end;
146
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
form10.show;
end;
procedure TForm1.N16Click(Sender: TObject);
begin
form5.Rvproject1.Execute;
end;
procedure TForm1.N17Click(Sender: TObject);
begin
form5.show;
end;
procedure TForm1.BitBtn7Click(Sender: TObject);
begn
form9.show;
end;
procedure TForm1.N20Click(Sender: TObject);
begin
form12.show;
end;
procedure TForm1.N19Click(Sender: TObject);
begin
form7.show;
end;
procedure TForm1.N21Click(Sender: TObject);
begin