Автоматизация рабочих мест специалистов санатория

11. Шумаков П.В. Delphi 5 и разработка приложений баз данных. - М.: “Нолидж”, 2001. - 704 с., ил.

12. Шураков В.В., Ясеновский С.В. Автоматизированное рабочее место - М.: “Логистика”, 2000. - 190 с., ил.

ПРИЛОЖЕНИЕ А

IDEF0 диаграмма. Контекстная диаграмма

ПРИЛОЖЕНИЕ Б

Рисунок - IDEF0 диаграмма. Декомпозиция учета услуг

ПРИЛОЖЕНИЕ В

Рисунок - IDEF0 диаграмма. Декомпозиция оперативной продажи чека

ПРИЛОЖЕНИЕ Г

Рисунок - IDEF0 диаграмма. Диаграмма дерева узлов

ПРИЛОЖЕНИЕ Д

Листинг программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, jpeg, ExtCtrls, StdCtrls;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N5: TMenuItem;

Timer1: TTimer;

Image1: TImage;

Jnxtns1: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

procedure N2Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

i:Boolean;

implementation

uses Unit2, Unit4, Unit6, Unit7, Unit8;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

var kkk:integer;

begin

Form1.Visible:=False;

Form2.Visible:=True;

Form4.ADOTable1.First;

Form4.Edit1.Text:=Form4.ADOTable1.FieldByName('Цена').Value;

Form4.ADOTable1.Next;

Form4.Edit2.Text:=Form4.ADOTable1.FieldByName('Цена').Value;

Form4.ADOTable1.Next;

Form4.Edit3.Text:=Form4.ADOTable1.FieldByName('Цена').Value;

Form4.ADOTable1.Next;

Form4.Edit4.Text:=Form4.ADOTable1.FieldByName('Цена').Value;

Form4.ADOTable1.Next;

Form4.Edit5.Text:=Form4.ADOTable1.FieldByName('Цена').Value;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if Form1.AlphaBlendValue <> 255 then

Form1.AlphaBlendValue:=Form1.AlphaBlendValue+3;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Form6.QuickRep1.Preview;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Form7.QuickRep1.Preview;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, Grids, DBGrids, ADODB, StdCtrls, Buttons, jpeg, ExtCtrls,

Menus;

type

TForm2 = class(TForm)

ADOTable1: TADOTable;

ADOConnection1: TADOConnection;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

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;

BitBtn7: TBitBtn;

BitBtn8: TBitBtn;

BitBtn9: TBitBtn;

RadioGroup1: TRadioGroup;

Edit6: TEdit;

GroupBox3: TGroupBox;

BitBtn5: TBitBtn;

Edit7: TEdit;

Button1: TButton;

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 RadioGroup1Click(Sender: TObject);

procedure ADOTable1FilterRecord(DataSet: TDataSet;

var Accept: Boolean);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

po:string;

implementation

uses Unit3, Unit4, Unit1, Unit5, Unit8;

{$R *.dfm}

procedure TForm2.BitBtn2Click(Sender: TObject);

var WWW:string;

begin

if MessageDlg('Вы действительно хотите удалить эту запись

???',mtWarning,[mbYes,mbNo],0)=MRyes then

begin

WWW:=Form2.ADOTable1.FieldByName('Код клиента').Value;

Form2.ADOTable1.Delete;

with 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;

end;

procedure TForm2.BitBtn3Click(Sender: TObject);

var

kkk: integer;

begin

if Form2.ADOTable1.RecNo=-1 then Form8.Edit1.Text:='1' else

begin

Form2.ADOTable1.Last;

KKK:=StrToInt(Form2.ADOTable1DSDesigner.value)+1;

Form8.Edit1.Text:=IntToStr(KKK);

end;

Form8.Show;

end;

procedure TForm2.BitBtn4Click(Sender: TObject);

begin

Form2.Visible:=False;

Form3.Visible:=True;

end;

procedure TForm2.BitBtn5Click(Sender: TObject);

begin

Form2.ADOTable1.Locate('Код

клиента',Edit7.Text,[loCaseInsensitive,loPartialKey]);

end;

procedure TForm2.N2Click(Sender: TObject);

begin

Form2.Visible:=False;

Form1.Visible:=True

end;

procedure TForm2.N3Click(Sender: TObject);

begin

Form2.Visible:=False;

Form4.Visible:=True;

end;

procedure TForm2.N4Click(Sender: TObject);

begin

Form2.Visible:=False;

Form5.Visible:=True;

end;

procedure TForm2.BitBtn6Click(Sender: TObject);

begin

ADOTable1.First;

end;

procedure TForm2.BitBtn7Click(Sender: TObject);

begin

ADOTable1.Prior;

end;

procedure TForm2.BitBtn8Click(Sender: TObject);

begin

ADOTable1.Next;

end;

procedure TForm2.BitBtn9Click(Sender: TObject);

begin

ADOTable1.Last;

end;

procedure TForm2.RadioGroup1Click(Sender: TObject);

begin

Form2.ADOTable1.Filtered:=false;

case radiogroup1.ItemIndex of

0:begin

po:='Фамилия';

Form2.ADOTable1.Filtered:=true;

end;

1:begin

po:='Год рождения' ;

Form2.ADOTable1.Filtered:=true;

end;

2:begin

po:='Возраст';

Form2.ADOTable1.Filtered:=true;

end;

end;

end;

procedure TForm2.ADOTable1FilterRecord(DataSet: TDataSet;

var Accept: Boolean);

begin

case radiogroup1.ItemIndex of

0:Accept:=DataSet[po]=Edit6.Text;

1:Accept:=DataSet[po]=Edit6.Text;

2:Accept:=DataSet[po]=Edit6.Text;

end;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

Application.Terminate;

end;

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, ComCtrls,

Menus,

jpeg, ExtCtrls;

type

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;

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);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

po: string;

implementation

uses Unit4, Unit2, Unit5, Unit1, Unit8, Unit7, Unit9;

{$R *.dfm}

procedure TForm3.CheckBox1Click(Sender: TObject);

begin

if (Form3.CheckBox1.Checked=False)and(Form3.CheckBox2.Checked=False)

then Form3.CheckBox1.Checked:=True;

if Form3.CheckBox1.Checked=True then

begin

Form3.CheckBox2.Checked:=False;

Form4.ADOTable1.First;

Form4.ADOTable1.MoveBy(1);

Form4.Edit1.Text:=Form4.ADOTable1.FieldByName('Цена').Value;

end;

end;

procedure TForm3.CheckBox2Click(Sender: TObject);

begin

Form4.Edit1.Text:='0';

if

(Form3.CheckBox1.Checked=False)and(Form3.CheckBox2.Checked=False

)

then Form3.CheckBox2.Checked:=True;

if Form3.CheckBox2.Checked=True then

begin

Form3.CheckBox1.Checked:=False;

end;

end;

procedure TForm3.CheckBox3Click(Sender: TObject);

begin

if

(Form3.CheckBox3.Checked=False)and(Form3.CheckBox4.Checked=False

)

then Form3.CheckBox3.Checked:=True;

if Form3.CheckBox3.Checked=True then

begin

Form3.CheckBox4.Checked:=False;

Form4.ADOTable1.First;

Form4.ADOTable1.MoveBy(2);

Form4.Edit1.Text:=Form4.ADOTable1.FieldByName('Цена').Value;

end;

end;

procedure TForm3.CheckBox4Click(Sender: TObject);

begin

Form4.Edit2.Text:='0';

if

(Form3.CheckBox3.Checked=False)and(Form3.CheckBox4.Checked=False

)

then Form3.CheckBox4.Checked:=True;

if Form3.CheckBox4.Checked=True then

begin

Form3.CheckBox3.Checked:=False;

end;

end;

procedure TForm3.CheckBox5Click(Sender: TObject);

begin

if

(Form3.CheckBox5.Checked=False)and(Form3.CheckBox6.Checked=False

)

then Form3.CheckBox5.Checked:=True;

if Form3.CheckBox5.Checked=True then

begin

Form3.CheckBox6.Checked:=False;

Form4.ADOTable1.First;

Form4.ADOTable1.MoveBy(3);

Form4.Edit1.Text:=Form4.ADOTable1.FieldByName('Цена').Value;

end;

end;

procedure TForm3.CheckBox6Click(Sender: TObject);

begin

Form4.Edit3.Text:='0';

if

(Form3.CheckBox5.Checked=False)and(Form3.CheckBox6.Checked=False

)

then Form3.CheckBox6.Checked:=True;

if Form3.CheckBox6.Checked=True then

begin

Form3.CheckBox5.Checked:=False;

end;

end;

procedure TForm3.CheckBox7Click(Sender: TObject);

begin

if

(Form3.CheckBox7.Checked=False)and(Form3.CheckBox8.Checked=False

)

then Form3.CheckBox7.Checked:=True;

if Form3.CheckBox7.Checked=True then

begin

Form3.CheckBox8.Checked:=False;

Form4.ADOTable1.First;

Form4.ADOTable1.MoveBy(4);

Form4.Edit1.Text:=Form4.ADOTable1.FieldByName('Цена').Value;

end;

end;

procedure TForm3.CheckBox8Click(Sender: TObject);

begin

Form4.Edit4.Text:='0';

if

(Form3.CheckBox7.Checked=False)and(Form3.CheckBox7.Checked=False

)

then Form3.CheckBox8.Checked:=True;

if Form3.CheckBox8.Checked=True then

begin

Form3.CheckBox7.Checked:=False;

end;

end;

procedure TForm3.CheckBox9Click(Sender: TObject);

begin

if

(Form3.CheckBox9.Checked=False)and(Form3.CheckBox10.Checked=Fals

e)

then Form3.CheckBox9.Checked:=True;

if Form3.CheckBox9.Checked=True then

begin

Form3.CheckBox10.Checked:=False;

end;

end;

procedure TForm3.CheckBox10Click(Sender: TObject);

begin

Form4.Edit5.Text:='0';

if

(Form3.CheckBox9.Checked=False)and(Form3.CheckBox10.Checked=Fals

e)

then Form3.CheckBox10.Checked:=True;

if Form3.CheckBox10.Checked=True then

begin

Form3.CheckBox9.Checked:=False;

end;

end;

procedure TForm3.BitBtn1Click(Sender: TObject);

var a,b,c,d,e:String;

x,ccc:Real;

begin

a:=Form4.Edit1.Text;

b:=Form4.Edit2.Text;

c:=Form4.Edit3.Text;

d:=Form4.Edit4.Text;

e:=Form4.Edit5.Text;

x:=StrToFloat(Edit2.Text);

if CheckBox11.Checked=True then

begin

Form3.ADOTable1.Insert;

Form3.ADOTable1.FieldByName('Код чека').Value:=Form8.Edit1.Text;

Form3.ADOTable1.FieldByName('Код

клиента').Value:=Form8.Edit1.Text;

if Form3.CheckBox1.Checked=True then

Form3.ADOTable1DSDesigner3.Value:=CheckBox1.Caption;

if Form3.CheckBox2.Checked=True then

Form3.ADOTable1DSDesigner3.Value:=CheckBox2.Caption;

if Form3.CheckBox3.Checked=True then

Form3.ADOTable1DSDesigner4.Value:=CheckBox3.Caption;

if Form3.CheckBox4.Checked=True then

Form3.ADOTable1DSDesigner4.Value:=CheckBox4.Caption;

if Form3.CheckBox5.Checked=True then

Form3.ADOTable1DSDesigner5.Value:=CheckBox5.Caption;

if Form3.CheckBox6.Checked=True then

Form3.ADOTable1DSDesigner5.Value:=CheckBox6.Caption;

if Form3.CheckBox7.Checked=True then

Form3.ADOTable1DSDesigner6.Value:=CheckBox7.Caption;

if Form3.CheckBox8.Checked=True then

Form3.ADOTable1DSDesigner6.Value:=CheckBox8.Caption;

if Form3.CheckBox9.Checked=True then

Form3.ADOTable1DSDesigner7.Value:=CheckBox9.Caption;

if Form3.CheckBox10.Checked=True then

Form3.ADOTable1DSDesigner7.Value:=CheckBox10.Caption;

if Form3.CheckBox11.Checked=True then

Form3.ADOTable1DSDesigner8.Value:=CheckBox11.Caption;

if Form3.CheckBox12.Checked=True then

Form3.ADOTable1DSDesigner8.Value:=CheckBox12.Caption;

Form3.ADOTable1.FieldByName('Процент скидки').Value:=Edit2.Text;

Form3.ADOTable1.FieldByName('Дата

покупки').Value:=Form3.MonthCalendar1.Date;

Form3.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)+Str

ToFloat(e)-

FloatToStr(StrToFloat(a)+StrToFloat(b)+StrToFloat(c)+StrToFloat(d)+StrT

oFloat(e)/100*x);

Form3.ADOTable1.Post;

Form5.ADOTable1.Insert;

Form5.ADOTable1.FieldByName('Код

клиента').Value:=Form8.Edit1.Text;

Form5.ADOTable1.FieldByName('Обоснование

льготы').Value:=Form3.Edit1.Text;

Form5.ADOTable1.FieldByName('Процент

скидки').Value:=Form3.Edit2.Text;

Form5.ADOTable1.Post;

end;

If CheckBox12.Checked=True then

begin

Form3.ADOTable1.Insert;

Form3.ADOTable1.FieldByName('Код чека').Value:=Form8.Edit1.Text;

Form3.ADOTable1.FieldByName('Код

клиента').Value:=Form8.Edit1.Text;

if Form3.CheckBox1.Checked=True then

Form3.ADOTable1DSDesigner3.Value:=CheckBox1.Caption;

if Form3.CheckBox2.Checked=True then

Form3.ADOTable1DSDesigner3.Value:=CheckBox2.Caption;

if Form3.CheckBox3.Checked=True then

Form3.ADOTable1DSDesigner4.Value:=CheckBox3.Caption;

if Form3.CheckBox4.Checked=True then

Form3.ADOTable1DSDesigner4.Value:=CheckBox4.Caption;

if Form3.CheckBox5.Checked=True then

Form3.ADOTable1DSDesigner5.Value:=CheckBox5.Caption;

if Form3.CheckBox6.Checked=True then

Form3.ADOTable1DSDesigner5.Value:=CheckBox6.Caption;

if Form3.CheckBox7.Checked=True then

Form3.ADOTable1DSDesigner6.Value:=CheckBox7.Caption;

if Form3.CheckBox8.Checked=True then

Form3.ADOTable1DSDesigner6.Value:=CheckBox8.Caption;

if Form3.CheckBox9.Checked=True then

Form3.ADOTable1DSDesigner7.Value:=CheckBox9.Caption;

if Form3.CheckBox10.Checked=True then

Form3.ADOTable1DSDesigner7.Value:=CheckBox10.Caption;

if Form3.CheckBox11.Checked=True then

Form3.ADOTable1DSDesigner8.Value:=CheckBox11.Caption;

if Form3.CheckBox12.Checked=True then

Form3.ADOTable1DSDesigner8.Value:=CheckBox12.Caption;

Form3.ADOTable1.FieldByName('Процент скидки').Value:='-//-//-';

Form3.ADOTable1.FieldByName('Дата

покупки').Value:=Form3.MonthCalendar1.Date;

ccc:=StrToFloat(a)+StrToFloat(b)+StrToFloat(c)+StrToFloat(d)+StrToFloat

(e);

if Form3.ADOTable1.FieldByName('Скидка').Value = 'Да' then

Form3.ADOTable1.FieldByName('Цена').Value:=FloatToStr(ccc*(1-

strtofloat(Form3.ADOTable1.FieldByName('Процент скидки').Value)))

else

Form3.ADOTable1.FieldByName('Цена').Value:=FloatToStr(ccc*(1-

strtofloat(Form3.ADOTable1.FieldByName('Процент скидки').Value)));

Form3.ADOTable1.Post;

end;

end;

procedure TForm3.CheckBox11Click(Sender: TObject);

begin

if

(Form3.CheckBox11.Checked=False)and(Form3.CheckBox12.Checked=Fal

se)

then

begin

Form3.CheckBox11.Checked:=True;

Form3.Edit1.Enabled:=False;

Form3.Edit2.Enabled:=False;

end;

if 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

end;

procedure TForm3.CheckBox12Click(Sender: TObject);

begin

if

(Form3.CheckBox11.Checked=False)and(Form3.CheckBox12.Checked=Fal

se)

then

begin

Form3.CheckBox12.Checked:=True;

Form3.Edit1.Enabled:=False;

Form3.Edit2.Enabled:=False;

end;

if 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;

end;

procedure TForm3.BitBtn5Click(Sender: TObject);

begin

ADOTable1.Last;

end;

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

ADOTable1.First;

end;

procedure TForm3.BitBtn3Click(Sender: TObject);

begin

ADOTable1.Prior;

end;

procedure TForm3.BitBtn4Click(Sender: TObject);

begin

ADOTable1.Next;

end;

procedure TForm3.N2Click(Sender: TObject);

begin

Form3.Visible:=False;

Form1.Visible:=True;

end;

procedure TForm3.N3Click(Sender: TObject);

begin

Form3.Visible:=False;

Form4.Visible:=True;

end;

procedure TForm3.BitBtn6Click(Sender: TObject);

var WWW:string;

begin

if MessageDlg('Вы действительно хотите удалить эту запись

???',mtWarning,[mbYes,mbNo],0)=MRyes then

begin

WWW:=Form3.ADOTable1.FieldByName('Код клиента').Value;

Form3.ADOTable1.Delete;

with 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;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TForm3.BitBtn7Click(Sender: TObject);

begin

Form9.ADOTable1.Filtered:=false;

Form9.ADOTable1.Filter:='[Код чека]='+Form3.Edit6.Text;

Form9.ADOTable1.Filtered:=true;

Form9.QuickRep1.Preview;

Form9.ADOTable1.Filtered:=false;

Form3.Edit6.Text:='';

end;

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, DB, ADODB, jpeg, ExtCtrls, StdCtrls, Buttons,

Menus;

type

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;

procedure CheckBox1Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit2, Unit1;

{$R *.dfm}

procedure TForm4.CheckBox1Click(Sender: TObject);

begin

if 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`у значения

Form4.ADOTable1.First;

Form4.Edit1.Text:=Form4.ADOTable1.FieldByName('Цена').Value;

Form4.ADOTable1.Next;

Form4.Edit2.Text:=Form4.ADOTable1.FieldByName('Цена').Value;

Form4.ADOTable1.Next;

Form4.Edit3.Text:=Form4.ADOTable1.FieldByName('Цена').Value;

Form4.ADOTable1.Next;

Form4.Edit4.Text:=Form4.ADOTable1.FieldByName('Цена').Value;

Form4.ADOTable1.Next;

Form4.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;

end;

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

Form4.ADOTable1.First;

Form4.ADOTable1.Edit;

Form4.ADOTable1.FieldByName('Цена').Value:=Form4.Edit1.Text;

Form4.ADOTable1.Post;

Form4.ADOTable1.Next;

Form4.ADOTable1.Edit;

Form4.ADOTable1.FieldByName('Цена').Value:=Form4.Edit2.Text;

Form4.ADOTable1.Post;

Form4.ADOTable1.Next;

Form4.ADOTable1.Edit;

Form4.ADOTable1.FieldByName('Цена').Value:=Form4.Edit3.Text;

Form4.ADOTable1.Post;

Form4.ADOTable1.Next;

Form4.ADOTable1.Edit;

Form4.ADOTable1.FieldByName('Цена').Value:=Form4.Edit4.Text;

Form4.ADOTable1.Post;

Form4.ADOTable1.Next;

Form4.ADOTable1.Edit;

Form4.ADOTable1.FieldByName('Цена').Value:=Form4.Edit5.Text;

Form4.ADOTable1.Post;

end;

procedure TForm4.N2Click(Sender: TObject);

begin

Form4.Visible:=False;

Form1.Visible:=True;

end;

end.

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, DB, ADODB, Menus, StdCtrls, Buttons, ExtCtrls;

type

TForm5 = class(TForm)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

GroupBox1: TGroupBox;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

RadioGroup1: TRadioGroup;

Edit1: TEdit;

GroupBox2: TGroupBox;

BitBtn5: TBitBtn;

Edit2: TEdit;

procedure N2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

procedure ADOTable1FilterRecord(DataSet: TDataSet;

var Accept: Boolean);

procedure BitBtn5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

po:string;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm5.N2Click(Sender: TObject);

begin

Form5.Visible:=False;

Form1.Visible:=True;

end;

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

ADOTable1.First;

end;

procedure TForm5.BitBtn2Click(Sender: TObject);

begin

ADOTable1.Prior;

end;

procedure TForm5.BitBtn3Click(Sender: TObject);

begin

ADOTable1.Next;

end;

procedure TForm5.BitBtn4Click(Sender: TObject);

begin

ADOTable1.Last;

end;

procedure TForm5.RadioGroup1Click(Sender: TObject);

begin

Form5.ADOTable1.Filtered:=false;

case radiogroup1.ItemIndex of

0:begin

po:='Обоснование льготы';

Form5.ADOTable1.Filtered:=true;

end;

1:begin

po:='Процент скидки' ;

Form5.ADOTable1.Filtered:=true;

end;

end;

end;

procedure TForm5.ADOTable1FilterRecord(DataSet: TDataSet;

var Accept: Boolean);

begin

case RadioGroup1.ItemIndex of

0:Accept:=DataSet[po]=Edit1.Text;

1:Accept:=DataSet[po]=Edit1.Text;

end;

end;

procedure TForm5.BitBtn5Click(Sender: TObject);

begin

Form5.ADOTable1.Locate('Код

клиента',Edit2.Text,[loCaseInsensitive,loPartialKey]);

end;

end.

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, ADODB, QuickRpt, QRCtrls, ExtCtrls;

type

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;

var

Form6: TForm6;

implementation

{$R *.dfm}

end.

unit Unit7;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, QuickRpt, QRCtrls, ExtCtrls, DB, ADODB;

type

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;

QRShape24: 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;

var

Form7: TForm7;

implementation

{$R *.dfm}

end.

unit Unit8;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, Grids, DBGrids, ADODB, StdCtrls, Buttons, jpeg, ExtCtrls,

Menus;

type

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;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm8.BitBtn1Click(Sender: TObject);

var ppp:integer;

begin

Form2.ADOTable1.Last; //перемещ. курсор на последнюю позицию

PPP:=Form2.ADOTable1.RecNo+1;

Form2.ADOTable1.Insert;

if PPP=0 then ppp:=1;

Form2.ADOTable1.Insert;

Form2.ADOTable1.FieldByName('Код клиента').Value:=Edit1.Text;

Form2.ADOTable1.FieldByName('Фамилия').Value:=Edit2.Text;

Form2.ADOTable1.FieldByName('Имя').Value:=Edit3.Text;

Form2.ADOTable1.FieldByName('Отчество').Value:=Edit4.Text;

Form2.ADOTable1.FieldByName('Год рождения').Value:=Edit5.Text;

Form2.ADOTable1.FieldByName('Возраст').Value:=IntToStr(2014-

StrToInt(Form8.Edit5.Text));

Form2.ADOTable1.Post;

Form8.Close;

Form8.Edit2.Text:='';

Form8.Edit3.Text:='';

Form8.Edit4.Text:='';

Form8.Edit5.Text:='';

end;

end. unit Unit8;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, Grids, DBGrids, ADODB, StdCtrls, Buttons, jpeg, ExtCtrls,

Menus;

type

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;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm8.BitBtn1Click(Sender: TObject);

var ppp:integer;

begin

Form2.ADOTable1.Last; //перемещ. курсор на последнюю позицию

PPP:=Form2.ADOTable1.RecNo+1;

Form2.ADOTable1.Insert;

if PPP=0 then ppp:=1;

Form2.ADOTable1.Insert;

Form2.ADOTable1.FieldByName('Код клиента').Value:=Edit1.Text;

Form2.ADOTable1.FieldByName('Фамилия').Value:=Edit2.Text;

Form2.ADOTable1.FieldByName('Имя').Value:=Edit3.Text;

Form2.ADOTable1.FieldByName('Отчество').Value:=Edit4.Text;

Form2.ADOTable1.FieldByName('Год рождения').Value:=Edit5.Text;

Form2.ADOTable1.FieldByName('Возраст').Value:=IntToStr(2014-

StrToInt(Form8.Edit5.Text));

Form2.ADOTable1.Post;

Form8.Close;

Form8.Edit2.Text:='';

Form8.Edit3.Text:='';

Form8.Edit4.Text:='';

Form8.Edit5.Text:='';

end;

end.

unit Unit9;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, ADODB, QRCtrls, QuickRpt, ExtCtrls;

type

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;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

{$R *.dfm}

end.

Размещено на Allbest.ru