Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, QRCtrls, QuickRpt, ExtCtrls;
TForm9 = class(TForm)
ADOTable1: TADOTable;
DataSource1: TDataSource;
QuickRep1: TQuickRep;
QRSubDetail1: TQRSubDetail;
QRDBText2: TQRDBText;
QRDBText11: TQRDBText;
QRDBText13: TQRDBText;
QRDBText14: TQRDBText;
QRDBText15: TQRDBText;
QRDBText16: TQRDBText;
QRDBText17: TQRDBText;
QRDBText18: TQRDBText;
QRDBText19: TQRDBText;
PageHeaderBand1: TQRBand;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
QRLabel10: TQRLabel;
QRLabel11: TQRLabel;
QRLabel23: TQRLabel;
QRSysData2: TQRSysData;
QRLabel12: TQRLabel;
QRLabel13: TQRLabel;
QRLabel: TQRLabel;
QRLabel151: TQRLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
Form9: TForm9;
{$R *.dfm}.Unit10;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Menus, StdCtrls, ExtCtrls, Grids, DBGrids, Buttons;
TForm10 = class(TForm)
Mainmenu1: TMainMenu;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
dbgrd1: TDBGrid;
btn1: TButton;
btn2: TButton;
btn4: TButton;
btn5: TButton;
btn3v: TButton;
btn: TButton;
ADOTable1DSDesigner: TWideStringField;
ADOTable1DSDesigner2: TWideStringField;
ADOTable1DSDesigner3: TWideStringField;
ADOTable1DSDesigner4: TWideStringField;
lbl1: TLabel;
N1: TMenuItem;
N2: TMenuItem;
Bitbutton1: TButton;
procedure btn2Click(Sender: TObject);
procedure btn3vClick(Sender: TObject);
procedure btn4Click(Sender: TObject);
procedure btn5Click(Sender: TObject);
procedure btnClick(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure Bitbutton1Click(Sender: TObject);
{ Private declarations }
public
{ Public declarations }
end;
Form10: TForm10;
po:string;Unit11, Unit2, Unit1;
{$R *.dfm}TForm10.btn2Click(Sender: TObject);.Prior;;TForm10.btn3vClick(Sender: TObject);.Next;;TForm10.btn4Click(Sender: TObject);.First;;TForm10.btn5Click(Sender: TObject);.Last;;TForm10.btnClick(Sender: TObject);: integer;Form10.ADOTable1.RecNo=-1 then Form11.edt1.Text:='1' else.ADOTable1.Last;:=StrToInt(Form10.ADOTable1DSDesigner.value)+1;.edt1.Text:=IntToStr(KKK);;.Show;;TForm10.btn1Click(Sender: TObject);.Terminate;;TForm10.N2Click(Sender: TObject);.Visible:=False;.Visible:=True;;TForm10.Bitbutton1Click(Sender: TObject);WWW:string;
if MessageDlg('Вы действительно хотите удалить эту запись ???',mtWarning,[mbYes,mbNo],0)=MRyes then:=Form10.ADOTable1.FieldByName('Код клиента').Value;.ADOTable1.Delete;Form10.ADOTable1 do
begin
Form10.ADOTable1.First;
while not eof do
begin
if Form10.ADOTable1.FieldByName('Код клиента').Value=WWW then (Form10.ADOTable1.Delete);
Form10.ADOTable1.Next;
end;
end;
end;;.Unit11;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Menus;
TForm11 = class(TForm)
lbl1: TLabel;
lbl2: TLabel;
lbl3: TLabel;
lbl4: TLabel;
lbl5: TLabel;
edt1: TEdit;
edt2: TEdit;
edt3: TEdit;
edt4: TEdit;
btn1: TBitBtn;
Mainmenu1: TMainMenu;
mniN1: TMenuItem;
Bitbutton1: TButton;
procedure btn1Click(Sender: TObject);
procedure mniN1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form11: TForm11;Unit10, Unit3;
{$R *.dfm}TForm11.btn1Click(Sender: TObject);ppp:integer;.ADOTable1.Last; //перемещ. курсор на последнюю позицию:=Form10.ADOTable1.RecNo+1;.ADOTable1.Insert;PPP=0 then ppp:=1;.ADOTable1.Insert;.ADOTable1.FieldByName('Код сотрудника').Value:=edt1.Text;.ADOTable1.FieldByName('Фамилия').Value:=edt2.Text;.ADOTable1.FieldByName('Должность').Value:=edt3.Text;.ADOTable1.FieldByName('Зарплата тыс р').Value:=edt4.Text;.ADOTable1.Post;.Close;.edt2.Text:='';.edt3.Text:='';.edt4.Text:='';;TForm11.mniN1Click(Sender: TObject);.Visible:=False;.Visible:=True;;.Unit12;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QRCtrls, QuickRpt, ExtCtrls, DB, ADODB;
TForm12 = class(TForm)
ADOTable1: TADOTable;
DataSource1: TDataSource;
QuickRep1: TQuickRep;
PageFooterBand1: TQRBand;
QRSysData1: TQRSysData;
QRSubDetail1: TQRSubDetail;
QRShape6: TQRShape;
QRDBText7: TQRDBText;
QRShape1: TQRShape;
QRShape2: TQRShape;
QRShape3: TQRShape;
QRDBText8: TQRDBText;
QRDBText9: TQRDBText;
QRDBText10: TQRDBText;
PageHeaderBand1: TQRBand;
QRLabel1: TQRLabel;
QRSysData2: TQRSysData;
qrbndTitleBand1: TQRBand;
qrshp1: TQRShape;
qrshp2: TQRShape;
qrshp3: TQRShape;
qrlbl1: TQRLabel;
qrlbl2: TQRLabel;
qrlbl5: TQRLabel;
qrshp5: TQRShape;
qrlbl6: TQRLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
Form12: TForm12;
{$R *.dfm}.Unit13;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, Menus, StdCtrls, Buttons, ExtCtrls,
DBCtrls;
TForm13 = class(TForm)
Mainmenu: TMainMenu;
dbgrd1: TDBGrid;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
N1: TMenuItem;
N3: TMenuItem;
mniN5: TMenuItem;
mniN6: TMenuItem;
mniN7: TMenuItem;
btn2: TButton;
dbnvgr1: TDBNavigator;
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure mniN6Click(Sender: TObject);
procedure mniN7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form13: TForm13;Unit14, Unit16, Unit12, Unit11, Unit1, Unit2;
{$R *.dfm}TForm13.btn1Click(Sender: TObject);.Terminate;;TForm13.btn2Click(Sender: TObject);.Last;;TForm13.N3Click(Sender: TObject);.Visible:=False;.Visible:=True;;TForm13.mniN6Click(Sender: TObject);.Visible:=False;.Visible:=True;;TForm13.mniN7Click(Sender: TObject);.Visible:=False;.Visible:=True;;.Unit14;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, QuickRpt, QRCtrls, ExtCtrls;
TForm14 = class(TForm)
qckrp1: TQuickRep;
qrsbdtl1: TQRSubDetail;
qrdbtxt1: TQRDBText;
qrdbtxt2: TQRDBText;
qrdbtxt3: TQRDBText;
qrdbtxt4: TQRDBText;
qrdbtxt5: TQRDBText;
qrdbtxt8: TQRDBText;
QRLabel152: TQRLabel;
QRLabel153: TQRLabel;
QRLabel154: TQRLabel;
QRLabel155: TQRLabel;
QRLabel156: TQRLabel;
QRLabel157: TQRLabel;
QRLabel1511: TQRLabel;
qrsysdt1: TQRSysData;
QRLabel1512: TQRLabel;
QRLabel1513: TQRLabel;
QRLabel: TQRLabel;
QRLabel15: TQRLabel;
qrbndPageHeaderBand1: TQRBand;
QRLabel1514: TQRLabel;
tbl1: TADOTable;
ds1: TDataSource;
private
{ Private declarations }
public
{ Public declarations }
end;
Form14: TForm14;
{$R *.dfm}.Unit19;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Menus, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls;
TForm19 = class(TForm)
lbl1: TLabel;
lbl2: TLabel;
lbl3: TLabel;
lbl4: TLabel; // поле вывода результата расчета
edt1: TEdit; // расстояние
edt2: TEdit; // цена литра бензина
edt3: TEdit; // потребление бензина на 100 км
chk1: TCheckBox; // True - поездка туда и обратно
Bitbutton1: TButton;
lbl5: TLabel;
lbl6: TLabel;
Bitbutton2: TButton;
Bitbutton3: TButton;
lbl7: TLabel;
dbgrd1: TDBGrid;
ds1: TDataSource;
Mainmenu2: TMainMenu;
con1: TADOConnection;
tbl1: TADOTable;
dbnvgr1: TDBNavigator;
edt4: TEdit;
wdstrngfldtbl1DSDesigner: TWideStringField;
wdstrngfldtbl1DSDesigner2: TWideStringField;
wdstrngfldtbl1DSDesigner1: TWideStringField;
wdstrngfldtbl1DSDesigner3: TWideStringField;
wdstrngfldtbl1DSDesigner4: TWideStringField;
wdstrngfldtbl1DSDesigner5: TWideStringField;
wdstrngfldtbl1DSDesigner6: TWideStringField;
mniN1: TMenuItem;
mniN2: TMenuItem;
procedure edt1KeyPress(Sender: TObject; var Key: Char);
procedure edt2KeyPress(Sender: TObject; var Key: Char);
procedure edt3KeyPress(Sender: TObject; var Key: Char);
procedure Bitbutton1Click(Sender: TObject);
procedure mniN2Click(Sender: TObject);
procedure Bitbutton3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form19: TForm19;
implementationUnit1, Unit14;
// проверяет, является ли символ допустимым
// во время ввода дробного числаIsFloat(ch : char; st: string) : Boolean;
if (ch >= '0') and (ch <= '9') // цифры
or (ch = #13) // клавиша <Enter>
or (ch = #8) // клавиша <Back Space>
then
begin
IsFloat := True; // символ верный
Exit; // выход из функции
end;
case ch of
'-': if Length(st) = 0 then IsFloat := True;
',': if ( Pos(',',st) = 0)
and (st[Length(st)] >= '0')
and (st[Length(st)] <= '9')
then // разделитель можно ввести только после цифры
// и если он еще не введен
IsFloat := True;
else // остальные символы запрещены
IsFloat := False;
end;;
{$R *.dfm}
// нажатие клавиши в поле Расстояние
procedure TForm19.edt1KeyPress(Sender: TObject; var Key: Char);
if Key = Char(VK_RETURN)
then Edt2.SetFocus // переместить курсор в поле Цена
else If not IsFloat(Key,Edt2.Text) then Key := Chr(0);
end;
// нажатие клавиши в поле Цена
procedure TForm19.edt2KeyPress(Sender: TObject; var Key: Char);Key = Char(VK_RETURN)
then Edt3.SetFocus // переместить курсор в поле Потребление
else If not IsFloat(Key,Edt2.Text) then Key := Chr(0);
end;
// нажатие клавиши в поле Потребление
procedure TForm19.edt3KeyPress(Sender: TObject; var Key: Char);Key = Char(VK_RETURN)
then BitButton1.SetFocus // // сделать активной кнопку Вычислить
else If not IsFloat(Key,Edt2.Text) then Key := Chr(0);;
// щелчок на кнопке ВычислитьTForm19.Bitbutton1Click(Sender: TObject);
rast : real; // расстояние
cena : real; // цена
potr : real; // потребление на 100 км
summ : real; // сумма
mes: string;
rast := StrToFloat(Edt1.Text);
cena := StrToFloat(Edt2.Text);
potr := StrToFloat(Edt3.Text);
summ := rast / 100 * potr * cena;
summ := summ * 2;
mes := 'Поездка на дачу';
if Chk1.Checked then
mes := mes + 'обойдется в ' + FloatToStrF(summ,ffGeneral,4,2)
+ ' руб.';
Lbl4.Caption := mes;;TForm19.mniN2Click(Sender: TObject);.Visible:=False;.Visible:=True;;TForm19.Bitbutton3Click(Sender: TObject);.tbl1.Filtered:=false;.tbl1.Filter:='[Код чека]='+Form19.Edt4.Text;.tbl1.Filtered:=true;.qckrp1.Preview;.tbl1.Filtered:=false;.Edt4.Text:='';
end;.