Приложение Д
Листинг программы
unit Unit1;
interface
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, jpeg, ExtCtrls, StdCtrls;
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N5: TMenuItem;
Timer1: TTimer;
img1: TImage;
Jnxtns1: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N8: TMenuItem;
mniN9: TMenuItem;
mniN10: TMenuItem;
mniN11: TMenuItem;
mniN12: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N151Click(Sender: TObject);
procedure mniN9Click(Sender: TObject);
procedure mniN10Click(Sender: TObject);
procedure mniN12Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form1: TForm1;
i:Boolean;Unit2, Unit4, Unit6, Unit7, Unit8, Unit10, Unit12, Unit13, Unit15,
Unit19;
{$R *.dfm}TForm1.N2Click(Sender: TObject);kkk:integer;.Visible:=False;.Visible:=True;.ADOTable1.First;.Edit1.Text:=Form4.ADOTable1.FieldByName('Цена').Value;.ADOTable1.Next;.Edit2.Text:=Form4.ADOTable1.FieldByName('Цена').Value;.ADOTable1.Next;.Edit3.Text:=Form4.ADOTable1.FieldByName('Цена').Value;.ADOTable1.Next;.Edit4.Text:=Form4.ADOTable1.FieldByName('Цена').Value;.ADOTable1.Next;.Edit5.Text:=Form4.ADOTable1.FieldByName('Цена').Value;;TForm1.N5Click(Sender: TObject);.Terminate;;TForm1.Timer1Timer(Sender: TObject);Form1.AlphaBlendValue <> 255 then.AlphaBlendValue:=Form1.AlphaBlendValue+3;;TForm1.N6Click(Sender: TObject);.QuickRep1.Preview;;TForm1.N7Click(Sender: TObject);.QuickRep1.Preview;;TForm1.N3Click(Sender: TObject);.Visible:=False;.Visible:=True;;TForm1.N4Click(Sender: TObject);.QuickRep1.Preview;;TForm1.N8Click(Sender: TObject);.Visible:=False;.Visible:=True;;TForm1.N151Click(Sender: TObject);.Visible:=False;.Visible:=True;;TForm1.mniN9Click(Sender: TObject);
begin('Автор: Нагорный Станислав Сергеевич ( группа ЗИС - 24)');
end;TForm1.mniN10Click(Sender: TObject);.Visible:=False;.Visible:=True;;TForm1.mniN12Click(Sender: TObject);.Terminate;;.Unit2;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, Grids, DBGrids, ADODB, StdCtrls, Buttons, jpeg, ExtCtrls,
Menus;
TForm2 = class(TForm)
ADOTable1: TADOTable;
ADOConnection1: TADOConnection;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
BitBtn4: TBitBtn;
ADOTable1DSDesigner: TWideStringField;
ADOTable1DSDesigner2: TWideStringField;
ADOTable1DSDesigner3: TWideStringField;
ADOTable1DSDesigner4: TWideStringField;
ADOTable1DSDesigner5: TWideStringField;
ADOTable1DSDesigner6: TWideStringField;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
BitBtn6: TBitBtn;
BitBtn9: TBitBtn;
Edit7: TEdit;
Button1: TButton;
btn1: TBitBtn;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
{ Private declarations }
public
{ Public declarations }
end;
Form2: TForm2;
po:string;Unit3, Unit4, Unit1, Unit5, Unit8, Unit17, Unit13;
{$R *.dfm}TForm2.BitBtn2Click(Sender: TObject);WWW:string;MessageDlg('Вы действительно хотите удалить эту запись ???',mtWarning,[mbYes,mbNo],0)=MRyes then:=Form2.ADOTable1.FieldByName('Код клиента').Value;.ADOTable1.Delete;Form3.ADOTable1 do
begin
Form3.ADOTable1.First;
while not eof do
begin
//Form3.ADOTable1.Edit;
if Form3.ADOTable1.FieldByName('Код клиента').Value=WWW then (Form3.ADOTable1.Delete);
Form3.ADOTable1.Next;
end;
end;
end;;TForm2.BitBtn3Click(Sender: TObject);: integer;Form2.ADOTable1.RecNo=-1 then Form8.Edit1.Text:='1' else.ADOTable1.Last;:=StrToInt(Form2.ADOTable1DSDesigner.value)+1;.Edit1.Text:=IntToStr(KKK);;.Show;;TForm2.BitBtn4Click(Sender: TObject);.Visible:=False;.Visible:=True;;TForm2.BitBtn5Click(Sender: TObject);.ADOTable1.Locate('Код клиента',Edit7.Text,[loCaseInsensitive,loPartialKey]);;TForm2.N2Click(Sender: TObject);.Visible:=False;.Visible:=True;TForm2.N3Click(Sender: TObject);.Visible:=False;.Visible:=True;;TForm2.N4Click(Sender: TObject);.Visible:=False;.Visible:=True;;TForm2.BitBtn6Click(Sender: TObject);.First;;TForm2.BitBtn7Click(Sender: TObject);.Prior;;TForm2.BitBtn8Click(Sender: TObject);.Next;;TForm2.BitBtn9Click(Sender: TObject);.Last;;TForm2.Button1Click(Sender: TObject);.Terminate;;TForm2.btn1Click(Sender: TObject);.ADOTable1.Locate('Код клиента',Edit7.Text,[loCaseInsensitive,loPartialKey]);;TForm2.N6Click(Sender: TObject);.Visible:=False;.Visible:=True;TForm2.N7Click(Sender: TObject);WWW:string;MessageDlg('Вы действительно хотите удалить эту запись ???',mtWarning,[mbYes,mbNo],0)=MRyes then:=Form2.ADOTable1.FieldByName('Код клиента').Value;.ADOTable1.Delete;Form2.ADOTable1 do
begin
Form2.ADOTable1.First;
while not eof do
begin
if Form2.ADOTable1.FieldByName('Код клиента').Value=WWW then (Form13.ADOTable1.Delete);
Form2.ADOTable1.Next;
end;
end;
end;;.Unit3;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, ComCtrls, Menus,
jpeg, ExtCtrls, Mask, DBCtrls;
TForm3 = class(TForm)
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
CheckBox8: TCheckBox;
CheckBox9: TCheckBox;
CheckBox10: TCheckBox;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
GroupBox4: TGroupBox;
GroupBox5: TGroupBox;
MonthCalendar1: TMonthCalendar;
BitBtn1: TBitBtn;
GroupBox7: TGroupBox;
GroupBox8: TGroupBox;
CheckBox11: TCheckBox;
CheckBox12: TCheckBox;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
ADOTable1DSDesigner: TWideStringField;
ADOTable1DSDesigner2: TWideStringField;
ADOTable1DSDesigner3: TWideStringField;
ADOTable1DSDesigner4: TWideStringField;
ADOTable1DSDesigner5: TWideStringField;
ADOTable1DSDesigner6: TWideStringField;
ADOTable1DSDesigner7: TWideStringField;
ADOTable1DSDesigner8: TWideStringField;
ADOTable1DSDesigner9: TWideStringField;
ADOTable1DSDesigner10: TWideStringField;
ADOTable1DSDesigner11: TDateTimeField;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
BitBtn6: TBitBtn;
Button1: TButton;
Edit6: TEdit;
BitBtn7: TBitBtn;
Label3: TLabel;
edt1: TEdit;
chk1: TCheckBox;
chk2: TCheckBox;
edt2: TEdit;
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure CheckBox4Click(Sender: TObject);
procedure CheckBox5Click(Sender: TObject);
procedure CheckBox6Click(Sender: TObject);
procedure CheckBox7Click(Sender: TObject);
procedure CheckBox8Click(Sender: TObject);
procedure CheckBox9Click(Sender: TObject);
procedure CheckBox10Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure CheckBox11Click(Sender: TObject);
procedure CheckBox12Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure ADOTable1CalcFields(DataSet: TDataSet);
procedure chk1Click(Sender: TObject);
procedure chk2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form3: TForm3;
po: string;Unit4, Unit2, Unit5, Unit1, Unit8, Unit7, Unit9;
{$R *.dfm}TForm3.CheckBox1Click(Sender: TObject);(Form3.CheckBox1.Checked=False)and(Form3.CheckBox2.Checked=False)Form3.CheckBox1.Checked:=True;Form3.CheckBox1.Checked=True then.CheckBox2.Checked:=False;.ADOTable1.First;.ADOTable1.MoveBy(1);.Edit1.Text:=Form4.ADOTable1.FieldByName('Цена').Value;;;TForm3.CheckBox2Click(Sender: TObject);.Edit1.Text:='0';(Form3.CheckBox1.Checked=False)and(Form3.CheckBox2.Checked=False)Form3.CheckBox2.Checked:=True;Form3.CheckBox2.Checked=True then.CheckBox1.Checked:=False;;;TForm3.CheckBox3Click(Sender: TObject);(Form3.CheckBox3.Checked=False)and(Form3.CheckBox4.Checked=False)Form3.CheckBox3.Checked:=True;Form3.CheckBox3.Checked=True then.CheckBox4.Checked:=False;.ADOTable1.First;.ADOTable1.MoveBy(2);.Edit1.Text:=Form4.ADOTable1.FieldByName('Цена').Value;;;TForm3.CheckBox4Click(Sender: TObject);.Edit2.Text:='0';(Form3.CheckBox3.Checked=False)and(Form3.CheckBox4.Checked=False)Form3.CheckBox4.Checked:=True;Form3.CheckBox4.Checked=True then.CheckBox3.Checked:=False;;;TForm3.CheckBox5Click(Sender: TObject);(Form3.CheckBox5.Checked=False)and(Form3.CheckBox6.Checked=False)Form3.CheckBox5.Checked:=True;Form3.CheckBox5.Checked=True then.CheckBox6.Checked:=False;.ADOTable1.First;.ADOTable1.MoveBy(3);.Edit1.Text:=Form4.ADOTable1.FieldByName('Цена').Value;;;TForm3.CheckBox6Click(Sender: TObject);.Edit3.Text:='0';(Form3.CheckBox5.Checked=False)and(Form3.CheckBox6.Checked=False)Form3.CheckBox6.Checked:=True;Form3.CheckBox6.Checked=True then.CheckBox5.Checked:=False;;;TForm3.CheckBox7Click(Sender: TObject);(Form3.CheckBox7.Checked=False)and(Form3.CheckBox8.Checked=False)Form3.CheckBox7.Checked:=True;Form3.CheckBox7.Checked=True then.CheckBox8.Checked:=False;.ADOTable1.First;.ADOTable1.MoveBy(4);.Edit1.Text:=Form4.ADOTable1.FieldByName('Цена').Value;;;TForm3.CheckBox8Click(Sender: TObject);.Edit4.Text:='0';(Form3.CheckBox7.Checked=False)and(Form3.CheckBox7.Checked=False)Form3.CheckBox8.Checked:=True;Form3.CheckBox8.Checked=True then.CheckBox7.Checked:=False;;;TForm3.CheckBox9Click(Sender: TObject);(Form3.CheckBox9.Checked=False)and(Form3.CheckBox10.Checked=False)Form3.CheckBox9.Checked:=True;Form3.CheckBox9.Checked=True then.CheckBox10.Checked:=False;;;TForm3.CheckBox10Click(Sender: TObject);.Edit5.Text:='0';(Form3.CheckBox9.Checked=False)and(Form3.CheckBox10.Checked=False)Form3.CheckBox10.Checked:=True;Form3.CheckBox10.Checked=True then.CheckBox9.Checked:=False;;;TForm3.BitBtn1Click(Sender: TObject);a,b,c,d,e:String;
x,ccc:Real;:=Form4.Edit1.Text;:=Form4.Edit2.Text;:=Form4.Edit3.Text;:=Form4.Edit4.Text;:=Form4.Edit5.Text;:=StrToFloat(Edit2.Text);CheckBox11.Checked=True then.ADOTable1.Insert;.ADOTable1.FieldByName('Код чека').Value:=Edt2.Text;.ADOTable1.FieldByName('Код клиента').Value:=Edt1.Text;Form3.CheckBox1.Checked=True then Form3.ADOTable1DSDesigner3.Value:=CheckBox1.Caption;Form3.CheckBox2.Checked=True then Form3.ADOTable1DSDesigner3.Value:=CheckBox2.Caption;Form3.CheckBox3.Checked=True then Form3.ADOTable1DSDesigner4.Value:=CheckBox3.Caption;Form3.CheckBox4.Checked=True then Form3.ADOTable1DSDesigner4.Value:=CheckBox4.Caption;Form3.CheckBox5.Checked=True then Form3.ADOTable1DSDesigner5.Value:=CheckBox5.Caption;Form3.CheckBox6.Checked=True then Form3.ADOTable1DSDesigner5.Value:=CheckBox6.Caption;Form3.CheckBox7.Checked=True then Form3.ADOTable1DSDesigner6.Value:=CheckBox7.Caption;Form3.CheckBox8.Checked=True then Form3.ADOTable1DSDesigner6.Value:=CheckBox8.Caption;Form3.CheckBox9.Checked=True then Form3.ADOTable1DSDesigner7.Value:=CheckBox9.Caption;Form3.CheckBox10.Checked=True then Form3.ADOTable1DSDesigner7.Value:=CheckBox10.Caption;Form3.CheckBox11.Checked=True then Form3.ADOTable1DSDesigner8.Value:=CheckBox11.Caption;Form3.CheckBox12.Checked=True then Form3.ADOTable1DSDesigner8.Value:=CheckBox12.Caption;.ADOTable1.FieldByName('Процент скидки').Value:=Edit2.Text;.ADOTable1.FieldByName('Дата покупки').Value:=Form3.MonthCalendar1.Date;.ADOTable1.FieldByName('Цена').Value:=FloatToStr((StrToFloat(a)+StrToFloat(b)+StrToFloat(c)+StrToFloat(d)+StrToFloat(e)-(StrToFloat(a)+StrToFloat(b)+StrToFloat(c)+StrToFloat(d)+StrToFloat(e))/100*x)); //FloatToStr(StrToFloat(a)+StrToFloat(b)+StrToFloat(c)+StrToFloat(d)+StrToFloat(e)-FloatToStr(StrToFloat(a)+StrToFloat(b)+StrToFloat(c)+StrToFloat(d)+StrToFloat(e)/100*x);.ADOTable1.Post;.ADOTable1.Insert;.ADOTable1.FieldByName('Обоснование льготы').Value:=Form3.Edit1.Text;.ADOTable1.FieldByName('Процент скидки').Value:=Form3.Edit2.Text;.ADOTable1.Post;;CheckBox12.Checked=True then.ADOTable1.Insert;.ADOTable1.FieldByName('Код чека').Value:=Form3.Edt2.Text;.ADOTable1.FieldByName('Код клиента').Value:=Form3.Edt1.Text;Form3.CheckBox1.Checked=True then Form3.ADOTable1DSDesigner3.Value:=CheckBox1.Caption;Form3.CheckBox2.Checked=True then Form3.ADOTable1DSDesigner3.Value:=CheckBox2.Caption;Form3.CheckBox3.Checked=True then Form3.ADOTable1DSDesigner4.Value:=CheckBox3.Caption;Form3.CheckBox4.Checked=True then Form3.ADOTable1DSDesigner4.Value:=CheckBox4.Caption;Form3.CheckBox5.Checked=True then Form3.ADOTable1DSDesigner5.Value:=CheckBox5.Caption;Form3.CheckBox6.Checked=True then Form3.ADOTable1DSDesigner5.Value:=CheckBox6.Caption;Form3.CheckBox7.Checked=True then Form3.ADOTable1DSDesigner6.Value:=CheckBox7.Caption;Form3.CheckBox8.Checked=True then Form3.ADOTable1DSDesigner6.Value:=CheckBox8.Caption;Form3.CheckBox9.Checked=True then Form3.ADOTable1DSDesigner7.Value:=CheckBox9.Caption;Form3.CheckBox10.Checked=True then Form3.ADOTable1DSDesigner7.Value:=CheckBox10.Caption;Form3.CheckBox11.Checked=True then Form3.ADOTable1DSDesigner8.Value:=CheckBox11.Caption;Form3.CheckBox12.Checked=True then Form3.ADOTable1DSDesigner8.Value:=CheckBox12.Caption;.ADOTable1.FieldByName('Процент скидки').Value:='0';.ADOTable1.FieldByName('Дата покупки').Value:=Form3.MonthCalendar1.Date;:=StrToFloat(a)+StrToFloat(b)+StrToFloat(c)+StrToFloat(d)+StrToFloat(e);Form3.ADOTable1.FieldByName('Скидка').Value = 'Да' then.ADOTable1.FieldByName('Цена').Value:=FloatToStr(ccc*(1-strtofloat(Form3.ADOTable1.FieldByName('Процент скидки').Value))).ADOTable1.FieldByName('Цена').Value:=FloatToStr(ccc*(1-strtofloat(Form3.ADOTable1.FieldByName('Процент скидки').Value)));.ADOTable1.Post;;;TForm3.CheckBox11Click(Sender: TObject);(Form3.CheckBox11.Checked=False)and(Form3.CheckBox12.Checked=False).CheckBox11.Checked:=True;.Edit1.Enabled:=False;.Edit2.Enabled:=False;;Form3.CheckBox11.Checked=True then
begin
Form3.Edit1.Enabled:=True;
Form3.Edit1.Color:=clWindow;
Form3.Edit2.Enabled:=True;
Form3.Edit2.Color:=clWindow;
Form3.CheckBox12.Checked:=False;
end
else;TForm3.CheckBox12Click(Sender: TObject);(Form3.CheckBox11.Checked=False)and(Form3.CheckBox12.Checked=False).CheckBox12.Checked:=True;.Edit1.Enabled:=False;.Edit2.Enabled:=False;;Form3.CheckBox12.Checked=True then
begin
Form3.Edit1.Color:=cl3DLight;
Form3.Edit1.Enabled:=False;
Form3.Edit2.Color:=cl3DLight;
Form3.Edit2.Enabled:=False;
Form3.CheckBox11.Checked:=False;
end;;TForm3.BitBtn5Click(Sender: TObject);.Last;;TForm3.BitBtn2Click(Sender: TObject);.First;;TForm3.BitBtn3Click(Sender: TObject);.Prior;;TForm3.BitBtn4Click(Sender: TObject);.Next;;TForm3.N2Click(Sender: TObject);.Visible:=False;.Visible:=True;;TForm3.N3Click(Sender: TObject);.Visible:=False;.Visible:=True;;TForm3.BitBtn6Click(Sender: TObject);WWW:string;MessageDlg('Вы действительно хотите удалить эту запись ???',mtWarning,[mbYes,mbNo],0)=MRyes then:=Form3.ADOTable1.FieldByName('Код клиента').Value;.ADOTable1.Delete;Form2.ADOTable1 do
begin
Form2.ADOTable1.First;
while not eof do
begin
if Form2.ADOTable1.FieldByName('Код клиента').Value=WWW then (Form2.ADOTable1.Delete);
Form2.ADOTable1.Next;
end;
end;
end;;TForm3.Button1Click(Sender: TObject);.Terminate;;TForm3.BitBtn7Click(Sender: TObject);.ADOTable1.Filtered:=false;.ADOTable1.Filter:='[Код чека]='+Form3.Edit6.Text;.ADOTable1.Filtered:=true;. QuickRep1.Preview;.ADOTable1.Filtered:=false;.Edit6.Text:='';;TForm3.ADOTable1CalcFields(DataSet: TDataSet);.ADOTable1.FieldByName('Код чека').AsInteger:=Form3.ADOTable1.Recno;;TForm3.chk1Click(Sender: TObject);(Form3.Chk1.Checked=False).Chk1.Checked:=True;.Edt1.Enabled:=False;;Form3.Chk1.Checked=True then
begin
Form3.Edt1.Enabled:=True;
Form3.Edt1.Color:=clWindow;
end
else;TForm3.chk2Click(Sender: TObject);(Form3.Chk2.Checked=False).Chk2.Checked:=True;.Edt2.Enabled:=False;;Form3.Chk2.Checked=True then
begin
Form3.Edt2.Enabled:=True;
Form3.Edt2.Color:=clWindow;
end
else;.Unit4;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, jpeg, ExtCtrls, StdCtrls, Buttons,
Menus;
TForm4 = class(TForm)
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Edit1: TEdit;
Edit2: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
CheckBox1: TCheckBox;
BitBtn1: TBitBtn;
Edit3: TEdit;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
Bitbutton1: TButton;
procedure CheckBox1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure Bitbutton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form4: TForm4;Unit2, Unit1;
{$R *.dfm}TForm4.CheckBox1Click(Sender: TObject);CheckBox1.Checked=False then
begin
Form4.Edit1.Enabled:=False;
Form4.Edit2.Enabled:=False;
Form4.Edit3.Enabled:=False;
Form4.Edit4.Enabled:=False;
Form4.Edit5.Enabled:=False;
//Если не поставлена галочка "Изменить" в "Тариф" то Edit 1-5 становятся др. цвета-неактивными
Form4.Edit1.Color:=cl3DLight;
Form4.Edit2.Color:=cl3DLight;
Form4.Edit3.Color:=cl3DLight;
Form4.Edit4.Color:=cl3DLight;
Form4.Edit5.Color:=cl3DLight;
//Присвоение Edit`у значения.ADOTable1.First;.Edit1.Text:=Form4.ADOTable1.FieldByName('Цена').Value;.ADOTable1.Next;.Edit2.Text:=Form4.ADOTable1.FieldByName('Цена').Value;.ADOTable1.Next;.Edit3.Text:=Form4.ADOTable1.FieldByName('Цена').Value;.ADOTable1.Next;.Edit4.Text:=Form4.ADOTable1.FieldByName('Цена').Value;.ADOTable1.Next;.Edit5.Text:=Form4.ADOTable1.FieldByName('Цена').Value;
end
else begin
Form4.Edit1.Enabled:=True;
Form4.Edit2.Enabled:=True;
Form4.Edit3.Enabled:=True;
Form4.Edit4.Enabled:=True;
Form4.Edit5.Enabled:=True;
//Если поставлена галочка "Изменить" в "Тариф" то Edit 1-5 становятся др. цвета-активными
Form4.Edit1.Color:=clWindow;
Form4.Edit2.Color:=clWindow;
Form4.Edit3.Color:=clWindow;
Form4.Edit4.Color:=clWindow;
Form4.Edit5.Color:=clWindow;
end;;TForm4.BitBtn1Click(Sender: TObject);.ADOTable1.First;.ADOTable1.Edit;.ADOTable1.FieldByName('Цена').Value:=Form4.Edit1.Text;.ADOTable1.Post;.ADOTable1.Next;.ADOTable1.Edit;.ADOTable1.FieldByName('Цена').Value:=Form4.Edit2.Text;.ADOTable1.Post;.ADOTable1.Next;.ADOTable1.Edit;.ADOTable1.FieldByName('Цена').Value:=Form4.Edit3.Text;.ADOTable1.Post;.ADOTable1.Next;.ADOTable1.Edit;.ADOTable1.FieldByName('Цена').Value:=Form4.Edit4.Text;.ADOTable1.Post;.ADOTable1.Next;.ADOTable1.Edit;.ADOTable1.FieldByName('Цена').Value:=Form4.Edit5.Text;.ADOTable1.Post;;TForm4.N2Click(Sender: TObject);.Visible:=False;.Visible:=True;;TForm4.Bitbutton1Click(Sender: TObject);.Terminate;;.Unit5;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, Menus, StdCtrls, Buttons, ExtCtrls,
DBCtrls;
TForm5 = class(TForm)
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
GroupBox2: TGroupBox;
BitBtn5: TBitBtn;
Edit2: TEdit;
Bitbutton1: TButton;
dbnvgr1: TDBNavigator;
procedure N2Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure Bitbutton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form5: TForm5;
po:string;Unit1;
{$R *.dfm}TForm5.N2Click(Sender: TObject);.Visible:=False;.Visible:=True;;TForm5.BitBtn5Click(Sender: TObject);.ADOTable1.Locate('Код клиента',Edit2.Text,[loCaseInsensitive,loPartialKey]);;TForm5.Bitbutton1Click(Sender: TObject);.Terminate;;.Unit6;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, QuickRpt, QRCtrls, ExtCtrls;
TForm6 = class(TForm)
QuickRep1: TQuickRep;
TitleBand1: TQRBand;
PageFooterBand1: TQRBand;
QRSysData1: TQRSysData;
QRSubDetail1: TQRSubDetail;
ADOTable1: TADOTable;
DataSource1: TDataSource;
QRShape6: TQRShape;
QRDBText7: TQRDBText;
QRShape1: TQRShape;
QRShape2: TQRShape;
QRShape3: TQRShape;
QRShape4: TQRShape;
QRShape5: TQRShape;
QRDBText8: TQRDBText;
QRDBText9: TQRDBText;
QRDBText10: TQRDBText;
QRDBText11: TQRDBText;
QRDBText12: TQRDBText;
PageHeaderBand1: TQRBand;
QRLabel1: TQRLabel;
QRSysData2: TQRSysData;
QRShape7: TQRShape;
QRShape9: TQRShape;
QRShape10: TQRShape;
QRShape11: TQRShape;
QRShape12: TQRShape;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRShape8: TQRShape;
QRLabel7: TQRLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
Form6: TForm6;
{$R *.dfm}.Unit7;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QuickRpt, QRCtrls, ExtCtrls, DB, ADODB;
TForm7 = class(TForm)
QuickRep1: TQuickRep;
TitleBand1: TQRBand;
PageFooterBand1: TQRBand;
QRSysData1: TQRSysData;
QRSubDetail1: TQRSubDetail;
DataSource1: TDataSource;
ADOTable1: TADOTable;
QRDBText2: TQRDBText;
QRShape1: TQRShape;
PageHeaderBand1: TQRBand;
QRSysData2: TQRSysData;
QRLabel1: TQRLabel;
QRShape11: TQRShape;
QRShape12: TQRShape;
QRShape13: TQRShape;
QRShape14: TQRShape;
QRShape15: TQRShape;
QRLabel12: TQRLabel;
QRLabel13: TQRLabel;
QRLabel14: TQRLabel;
QRLabel15: TQRLabel;
QRLabel16: TQRLabel;
QRShape16: TQRShape;
QRShape17: TQRShape;
QRShape18: TQRShape;
QRShape19: TQRShape;
QRLabel17: TQRLabel;
QRLabel18: TQRLabel;
QRLabel19: TQRLabel;
QRLabel20: TQRLabel;
QRShape20: TQRShape;
QRShape21: TQRShape;
QRLabel21: TQRLabel;
QRLabel22: TQRLabel;
QRShape2: TQRShape;
QRShape3: TQRShape;
QRShape22: TQRShape;
QRShape23: TQRShape;
QRShape25: TQRShape;
QRShape26: TQRShape;
QRShape27: TQRShape;
QRShape28: TQRShape;
QRDBText11: TQRDBText;
QRDBText12: TQRDBText;
QRDBText13: TQRDBText;
QRDBText14: TQRDBText;
QRDBText15: TQRDBText;
QRDBText16: TQRDBText;
QRDBText17: TQRDBText;
QRDBText18: TQRDBText;
QRDBText19: TQRDBText;
private
{ Private declarations }
public
{ Public declarations }
end;
Form7: TForm7;
{$R *.dfm}.Unit8;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, Grids, DBGrids, ADODB, StdCtrls, Buttons, jpeg, ExtCtrls,
Menus;
TForm8 = class(TForm)
Label1: TLabel;
Label10: TLabel;
Label9: TLabel;
Label8: TLabel;
Label7: TLabel;
Label6: TLabel;
BitBtn1: TBitBtn;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Bitbutton1: TButton;
procedure BitBtn1Click(Sender: TObject);
procedure Bitbutton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form8: TForm8;Unit2, Unit14, Unit13;
{$R *.dfm}TForm8.BitBtn1Click(Sender: TObject);ppp:integer;.ADOTable1.Last; //перемещ. курсор на последнюю позицию:=Form2.ADOTable1.RecNo+1;.ADOTable1.Insert;PPP=0 then ppp:=1;.ADOTable1.Insert;.ADOTable1.FieldByName('Код клиента').Value:=Edit1.Text;.ADOTable1.FieldByName('Фамилия').Value:=Edit2.Text;.ADOTable1.FieldByName('Имя').Value:=Edit3.Text;.ADOTable1.FieldByName('Отчество').Value:=Edit4.Text;.ADOTable1.FieldByName('Год рождения').Value:=Edit5.Text;.ADOTable1.FieldByName('Возраст').Value:=IntToStr(2014-StrToInt(Form8.Edit5.Text));.ADOTable1.Post;.Close;.Edit2.Text:='';.Edit3.Text:='';.Edit4.Text:='';.Edit5.Text:='';.Visible:=False;.Visible:=True;;TForm8.Bitbutton1Click(Sender: TObject);.Visible:=False;.Visible:=True;;.Unit9;