Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Β«ΠΎΠΏΡΠΎΠ²ΡΠΉ ΡΠΊΠ»Π°Π΄Β» + ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΈΠΊΠ»Π°Π΄Π½ΠΎΠ³ΠΎ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ
Π Ρ ΠΎΠ΄Π΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ, Π±ΡΠ»ΠΈ ΠΈΠ·ΡΡΠ΅Π½Ρ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΡΠ°Π±ΠΎΡΡ ΠΎΠΏΡΠΎΠ²ΠΎΠ³ΠΎ ΡΠΊΠ»Π°Π΄Π°. Π Π°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π° Π±Π°Π·Π° Π΄Π°Π½Π½ΡΡ Π² ΡΡΠ΅Π΄Π΅ MS ACCESS. Π Π΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½Π° ΡΠΈΡΡΠ΅ΠΌΠ° Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΎΡΠ΅ΡΡΠΎΠ² ΡΠ°Π±ΠΎΡΡ ΠΎΠΏΡΠΎΠ²ΠΎΠ³ΠΎ ΡΠΊΠ»Π°Π΄Π° Π² ΡΡΠ΅Π΄Π΅ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Delphi 7. Π‘ΠΎΡΡΠ°Π²Π»Π΅Π½ΠΎ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π΄Π»Ρ ΠΏΠ΅ΡΠ²ΠΈΡΠ½ΠΎΠ³ΠΎ ΠΎΠ·Π½Π°ΠΊΠΎΠΌΠ»Π΅Π½ΠΈΡ Ρ ΡΠ°Π±ΠΎΡΠΎΠΉ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ. Π ΠΏΠ΅ΡΡΠΏΠ΅ΠΊΡΠΈΠ²Π΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΏΡΠ΅Π΄ΠΏΡΠΈΠ½ΡΡΠ° ΠΌΠΎΠ΄Π΅ΡΠ½ΠΈΠ·Π°ΡΠΈΡ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Β«ΠΎΠΏΡΠΎΠ²ΡΠΉ ΡΠΊΠ»Π°Π΄Β» + ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΈΠΊΠ»Π°Π΄Π½ΠΎΠ³ΠΎ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
Π‘ΠΎΠ΄Π΅ΡΠΆΠ°Π½ΠΈΠ΅
- ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅
- ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ Π ΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π·Π°ΠΏΡΠΎΡΠΎΠ² ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠΎΠ±ΡΡΠΈΠΉ ΠΡΠ²ΠΎΠ΄ ΠΠΈΠ±Π»ΠΈΠΎΠ³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ
- ΡΠΏΠΈΡΠΎΠΊ
Clear;
SQL.Add ('select * from zak where data_formzak = :data_form');
Parameters.ParamByName ('data_form').Value:=DateToStr (DateTimePicker2.Date);
Active := true;
end;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠΈΠ»ΡΡΡΠ°ΡΠΈΠΈ ΠΏΠΎ ΡΡΠ°ΡΡΡΡ Π·Π°ΠΊΠ°Π·Π°
procedure TscdFormOperViewBills. RadioButton11Click (Sender: TObject);
var
f:boolean;
begin
if ComboBox1. Text = '' then
begin
ShowMessage ('ΠΠ΅ Π²Π²Π΅Π΄Π΅Π½ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅');
RadioButton11.Checked :=false;
exit;
end;
if ComboBox1. ItemIndex = 0 then f := true else f := false;
with ADOQViewBills do
begin
Active := false;
SQL.Clear;
SQL.Add ('select * from zak where status = :stat');
Parameters.ParamByName ('stat').Value:=f;
Active := true;
end;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΡΠΌΠ΅Π½Ρ ΡΠΈΠ»ΡΡΡΠ°ΡΠΈΠΈ ΠΈ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΎΠΊ
procedure TscdFormOperViewBills. BitBtn1Click (Sender: TObject);
begin
RadioButton1.Checked := true;
with ADOQViewBills do
begin
Active := false;
SQL.Clear;
SQL.Add ('select * from zak order by id_zak');
Active := true;
end;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Π·Π°ΠΊΡΡΡΠΈΡ ΡΠΎΡΠΌΡ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° Π·Π°ΠΊΠ°Π·Π°
procedure TscdFormOperViewBills. BitBtn2Click (Sender: TObject);
begin
close;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΏΡΠΎΡΠΌΠΎΡΡΠ° ΡΠΏΠΈΡΠΊΠ° ΡΠΎΠ²Π°ΡΠΎΠ² Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠ³ΠΎ Π·Π°ΠΊΠ°Π·Π° (ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄ ΠΏΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅)
procedure TscdFormOperViewBills. BBillsClick (Sender: TObject);
begin
scdFormOperBills := TscdFormOperBills. Create (self);
scdFormOperBills.Show;
scdFormOperBills.ADOQStrZak.SQL.Clear;
scdFormOperBills.ADOQStrZak.SQL.Add ('select * from stroka_zak where id_zak = :kod_z');
scdFormOperBills.ADOQStrZak.Parameters.ParamByName ('kod_z').Value:=ADOQViewBills.FieldByName ('id_zak').AsInteger;
scdFormOperBills.ADOQStrZak.Active := true;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΏΡΠΎΡΠΌΠΎΡΡΠ° ΡΠΏΠΈΡΠΊΠ° ΡΠΎΠ²Π°ΡΠΎΠ² Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠ³ΠΎ Π·Π°ΠΊΠ°Π·Π° (ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄ ΠΏΠΎ Π΄Π²ΠΎΠΉΠ½ΠΎΠΌΡ ΡΠ΅Π»ΡΠΊΡ Π² ΡΠ°Π±Π»ΠΈΡΠ΅)
procedure TscdFormOperViewBills. DBGBillsDblClick (Sender: TObject);
begin
scdFormOperBills := TscdFormOperBills. Create (self);
scdFormOperBills.Show;
scdFormOperBills.ADOQStrZak.SQL.Clear;
scdFormOperBills.ADOQStrZak.SQL.Add ('select * from stroka_zak where id_zak = :kod_z');
scdFormOperBills.ADOQStrZak.Parameters.ParamByName ('kod_z').Value:=ADOQViewBills.FieldByName ('id_zak').AsInteger;
scdFormOperBills.ADOQStrZak.Active := true;
end;
ΠΠΎΠ΄ΡΠ»Ρ scdFormSprCategory
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Π·Π°ΠΊΡΡΡΠΈΡ ΡΠΎΡΠΌΡ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ° ΠΊΠ°ΡΠ΅Π³ΠΎΡΠΈΠΈ
procedure TscdFormSprCategory. FormClose (Sender: TObject;
var Action: TCloseAction);
begin
Destroy;
scdFormMain.Category.Enabled := true;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΉ
procedure TscdFormSprCategory. BitBtn3Click (Sender: TObject);
begin
if (DBEdit1.Text = '') then
begin
MessageBox (0,'ΠΠ΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π·Π°ΠΏΠΎΠ»Π½ΠΈΡΡ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ ΠΏΠΎΠ»Ρ!','ΠΠ½ΠΈΠΌΠ°Π½ΠΈΠ΅', mb_ok);
exit;
end else
DSSprCateg.DataSet.Post;
Panel2.Visible:=false;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ Π½ΠΎΠ²ΠΎΠΉ ΠΊΠ°ΡΠ΅Π³ΠΎΡΠΈΠΈ
procedure TscdFormSprCategory. BitBtn1Click (Sender: TObject);
begin
DSSprCateg.DataSet.Append;
Panel2.Visible:=true;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΠ°ΡΠ΅Π³ΠΎΡΠΈΠΈ
procedure TscdFormSprCategory. BitBtn2Click (Sender: TObject);
begin
DSSprCateg.DataSet.Edit;
Panel2.Visible:=true;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠ΄Π°Π»Π΅Π½ΠΈΡ ΠΊΠ°ΡΠ΅Π³ΠΎΡΠΈΠΈ
procedure TscdFormSprCategory. BitBtn4Click (Sender: TObject);
begin
DSSprCateg.DataSet.Delete;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ² ΠΎΡΠΌΠ΅Π½Ρ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΉ
procedure TscdFormSprCategory. BitBtn5Click (Sender: TObject);
begin
DSSprCateg.DataSet.Cancel;Panel2.Visible:=false;end;
ΠΠΎΠ΄ΡΠ»Ρ scdFormSprClnt
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Π·Π°ΠΊΡΡΡΠΈΡ ΡΠΎΡΠΌΡ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ° ΠΊΠ»ΠΈΠ΅Π½ΡΡ
procedure TscdFormSprClnt. FormClose (Sender: TObject; var Action: TCloseAction);
begin
Destroy;
scdFormMain.Client.Enabled := true;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΉ
procedure TscdFormSprClnt. BitBtn3Click (Sender: TObject);
begin
if (DBEdit1.Text = '') or (DBEdit2.Text = '') or
(DBEdit3.Text = '') or (DBEdit4.Text = '') or
(DBEdit5.Text = '') or (DBLookupComboBox1.Text = '') then
begin
MessageBox (0,'ΠΠ΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π·Π°ΠΏΠΎΠ»Π½ΠΈΡΡ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ ΠΏΠΎΠ»Ρ!','ΠΠ½ΠΈΠΌΠ°Π½ΠΈΠ΅', mb_ok);
exit;
end else
DSSpr.DataSet.Post;
Panel2.Visible:=false;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ Π½ΠΎΠ²ΠΎΠ³ΠΎ ΠΊΠ»ΠΈΠ΅Π½ΡΠ°
procedure TscdFormSprClnt. BitBtn1Click (Sender: TObject);
begin
DSSpr.DataSet.Append;
Panel2.Visible:=true;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ° ΠΊΠ»ΠΈΠ΅Π½ΡΡ
procedure TscdFormSprClnt. BitBtn2Click (Sender: TObject);
begin
DSSpr.DataSet.Edit;
Panel2.Visible:=true;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠ΄Π°Π»Π΅Π½ΠΈΡ ΠΊΠ»ΠΈΠ΅Π½ΡΠ°
procedure TscdFormSprClnt. BitBtn4Click (Sender: TObject);
begin
DSSpr.DataSet.Delete;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΡΠΌΠ΅Π½Ρ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΉ Π² ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ΅ ΠΊΠ»ΠΈΠ΅Π½ΡΡ
procedure TscdFormSprClnt. BitBtn5Click (Sender: TObject);
begin
DSSpr.DataSet.Cancel;
Panel2.Visible:=false;
end;
ΠΠΎΠ΄ΡΠ»Ρ scdFormSprCountry
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Π·Π°ΠΊΡΡΡΠΈΡ ΡΠΎΡΠΌΡ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ° ΡΡΡΠ°Π½Ρ
procedure TscdFormSprCountry. FormClose (Sender: TObject;
var Action: TCloseAction);
begin
Destroy;
scdFormMain.Country.Enabled := true;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ ΡΡΡΠ°Π½Ρ
procedure TscdFormSprCountry. BitBtn1Click (Sender: TObject);
begin
DSSprCountry.DataSet.Append;
Panel2.Visible:=true;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΡΡΠ°Π½Ρ
procedure TscdFormSprCountry. BitBtn2Click (Sender: TObject);
begin
DSSprCountry.DataSet.Edit;
Panel2.Visible:=true;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠ΄Π°Π»Π΅Π½ΠΈΡ ΡΡΡΠ°Π½Ρ
procedure TscdFormSprCountry. BitBtn3Click (Sender: TObject);
begin
DSSprCountry.DataSet.Delete;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΉ Π² ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ΅ ΡΡΡΠ°Π½Ρ
procedure TscdFormSprCountry. BitBtn4Click (Sender: TObject);
begin
if (DBEdit1.Text = '') then
begin
MessageBox (0,'ΠΠ΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π·Π°ΠΏΠΎΠ»Π½ΠΈΡΡ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ ΠΏΠΎΠ»Ρ!','ΠΠ½ΠΈΠΌΠ°Π½ΠΈΠ΅', mb_ok);
exit;
end else
DSSprCountry.DataSet.Post;
Panel2.Visible:=false;end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΡΠΌΠ΅Π½Ρ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΉ
procedure TscdFormSprCountry. BitBtn5Click (Sender: TObject);
begin
DSSprCountry.DataSet.Cancel;
Panel2.Visible:=false;
end;
ΠΠΎΠ΄ΡΠ»Ρ scdFormSprGoods
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Π·Π°ΠΊΡΡΡΠΈΡ ΡΠΎΡΠΌΡ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ° ΡΠΎΠ²Π°ΡΡ
procedure TscdFormSprGoods. FormClose (Sender: TObject;
var Action: TCloseAction);
begin
Destroy;
scdFormMain.Goods.Enabled := true;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΉ Π² ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ΅ ΡΠΎΠ²Π°ΡΡ
procedure TscdFormSprGoods. BitBtn3Click (Sender: TObject);
begin
if (DBEdit1.Text = '') or (DBEdit4.Text = '') or
(DBLookupComboBox1.Text = '') then
begin
MessageBox (0,'ΠΠ΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π·Π°ΠΏΠΎΠ»Π½ΠΈΡΡ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ ΠΏΠΎΠ»Ρ!','ΠΠ½ΠΈΠΌΠ°Π½ΠΈΠ΅', mb_ok);
exit;
end else
DSSprGoods.DataSet.Post;
Panel2.Visible:=false;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ Π½ΠΎΠ²ΠΎΠΉ Π·Π°ΠΏΠΈΡΠΈ Π² ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ ΡΠΎΠ²Π°ΡΡ
procedure TscdFormSprGoods. BitBtn1Click (Sender: TObject);
begin
DSSprGoods.DataSet.Append;
Panel2.Visible:=true;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠΈ
procedure TscdFormSprGoods. BitBtn2Click (Sender: TObject);
begin
DSSprGoods.DataSet.Edit;
Panel2.Visible:=true;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠ΄Π°Π»Π΅Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠΈ
procedure TscdFormSprGoods. BitBtn4Click (Sender: TObject);
begin
DSSprGoods.DataSet.Delete;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΡΠΌΠ΅Π½Ρ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΉ Π² ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ΅
procedure TscdFormSprGoods. BitBtn5Click (Sender: TObject);
begin
DSSprGoods.DataSet.Cancel;
Panel2.Visible:=false;
end;
ΠΠΎΠ΄ΡΠ»Ρ scdFormSprTpClnt
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Π·Π°ΠΊΡΡΡΠΈΡ ΡΠΎΡΠΌΡ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ° ΠΊΠ»ΠΈΠ΅Π½ΡΡ
procedure TscdFormSprTpClnt. FormClose (Sender: TObject;
var Action: TCloseAction);
begin
Destroy;
scdFormMain.Type_Clnt.Enabled := true;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΡ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠΈ Π² ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ΅ ΠΊΠ»ΠΈΠ΅Π½ΡΡ
procedure TscdFormSprTpClnt. BitBtn1Click (Sender: TObject);
begin
DSTpClnt.DataSet.Append;
PAdd.Visible:=true;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΉ Π² ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ
procedure TscdFormSprTpClnt. BitBtn3Click (Sender: TObject);
begin
if (DBEdit1.Text = '') or (DBEdit2.Text = '') then
begin
MessageBox (0,'ΠΠ΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π·Π°ΠΏΠΎΠ»Π½ΠΈΡΡ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ ΠΏΠΎΠ»Ρ!','ΠΠ½ΠΈΠΌΠ°Π½ΠΈΠ΅', mb_ok);
exit;
end else
DSTpClnt.DataSet.Post;
PAdd.Visible:=false;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ° ΠΊΠ»ΠΈΠ΅Π½ΡΡ
procedure TscdFormSprTpClnt. BitBtn2Click (Sender: TObject);
begin
DSTpClnt.DataSet.Edit; PAdd. Visible:=true; end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠ΄Π°Π»Π΅Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠΈ ΠΈΠ· ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ° ΠΊΠ»ΠΈΠ΅Π½ΡΡ
procedure TscdFormSprTpClnt. BitBtn4Click (Sender: TObject);
begin
DSTpClnt.DataSet.Delete;
end;
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΡΠΌΠ΅Π½Ρ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΉ Π² ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ΅ ΠΊΠ»ΠΈΠ΅Π½ΡΡ
procedure TscdFormSprTpClnt. BitBtn5Click (Sender: TObject);
begin
DSTpClnt.DataSet.Cancel;
PAdd.Visible:=false;
end;
ΠΡΠ²ΠΎΠ΄
Π Ρ ΠΎΠ΄Π΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ, Π±ΡΠ»ΠΈ ΠΈΠ·ΡΡΠ΅Π½Ρ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΡΠ°Π±ΠΎΡΡ ΠΎΠΏΡΠΎΠ²ΠΎΠ³ΠΎ ΡΠΊΠ»Π°Π΄Π°. Π Π°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π° Π±Π°Π·Π° Π΄Π°Π½Π½ΡΡ Π² ΡΡΠ΅Π΄Π΅ MS ACCESS. Π Π΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½Π° ΡΠΈΡΡΠ΅ΠΌΠ° Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΎΡΠ΅ΡΡΠΎΠ² ΡΠ°Π±ΠΎΡΡ ΠΎΠΏΡΠΎΠ²ΠΎΠ³ΠΎ ΡΠΊΠ»Π°Π΄Π° Π² ΡΡΠ΅Π΄Π΅ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Delphi 7. Π‘ΠΎΡΡΠ°Π²Π»Π΅Π½ΠΎ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π΄Π»Ρ ΠΏΠ΅ΡΠ²ΠΈΡΠ½ΠΎΠ³ΠΎ ΠΎΠ·Π½Π°ΠΊΠΎΠΌΠ»Π΅Π½ΠΈΡ Ρ ΡΠ°Π±ΠΎΡΠΎΠΉ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ. Π ΠΏΠ΅ΡΡΠΏΠ΅ΠΊΡΠΈΠ²Π΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΏΡΠ΅Π΄ΠΏΡΠΈΠ½ΡΡΠ° ΠΌΠΎΠ΄Π΅ΡΠ½ΠΈΠ·Π°ΡΠΈΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ Π·Π° ΡΡΠ΅Ρ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΡ ΡΠΏΠ΅ΠΊΡΡΠ° ΡΠ΅ΡΠ°Π΅ΠΌΡΡ Π·Π°Π΄Π°Ρ ΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΡΠ΅ΡΠ΅Π²ΠΎΠΉ Π²Π΅ΡΡΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡΠ°.
ΠΠΈΠ±Π»ΠΈΠΎΠ³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΠΏΠΈΡΠΎΠΊ ΠΡΡ Π°Π½Π³Π΅Π»ΡΡΠΊΠΈΠΉ Π. Π―. «100 ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ² ΠΎΠ±ΡΠ΅Π³ΠΎ Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ Delphi» Bel&Chen Co. 2002.
5 Delphi. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π½Π° ΡΠ·ΡΠΊΠ΅ Π²ΡΡΠΎΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ: Π£ΡΠ΅Π±Π½ΠΈΠΊ Π΄Π»Ρ Π²ΡΠ·ΠΎΠ²/ Π€Π°ΡΠΎΠ½ΠΎΠ² Π. Π. — Π‘ΠΠ±.: ΠΠΈΡΠ΅Ρ, 2004.
ΠΠΎΠ»ΠΎΡΠΎΠ²Π° Π‘. Π. «ΠΡΠ°ΠΊΡΠΈΠΊΡΠΌ ΠΎ ACCESS» — ΠΠΎΡΠΊΠ²Π°, 2005.
ΠΠΈΡ Π΅Π΅Π²Π° Π. Π₯Π°ΡΠΈΡΠΎΠ½ΠΎΠ²Π° Π. MicroSoft Access 2002 — Π‘ΠΠ±.:ΠΠ₯Π-ΠΠ΅ΡΠ΅ΡΠ±ΡΡΠ³, 2003.
Π‘ΠΏΠΈΡΠΎΠΊ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ
- ΠΡΡ Π°Π½Π³Π΅Π»ΡΡΠΊΠΈΠΉ Π. Π―. «100 ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ² ΠΎΠ±ΡΠ΅Π³ΠΎ Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ Delphi» Bel&Chen Co. 2002.
- Delphi. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π½Π° ΡΠ·ΡΠΊΠ΅ Π²ΡΡΠΎΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ: Π£ΡΠ΅Π±Π½ΠΈΠΊ Π΄Π»Ρ Π²ΡΠ·ΠΎΠ²/ Π€Π°ΡΠΎΠ½ΠΎΠ² Π. Π. — Π‘ΠΠ±.: ΠΠΈΡΠ΅Ρ, 2004.
- ΠΠΎΠ»ΠΎΡΠΎΠ²Π° Π‘. Π. «ΠΡΠ°ΠΊΡΠΈΠΊΡΠΌ ΠΎ ACCESS» — ΠΠΎΡΠΊΠ²Π°, 2005.
- ΠΠΈΡ Π΅Π΅Π²Π° Π. Π₯Π°ΡΠΈΡΠΎΠ½ΠΎΠ²Π° Π. MicroSoft Access 2002 — Π‘ΠΠ±.:ΠΠ₯Π-ΠΠ΅ΡΠ΅ΡΠ±ΡΡΠ³, 2003.