База данных «Студия загара солярия Мулаточка»

end;

procedure TForm2.SpeedButton1Click(Sender: TObject);

begin

DM.tbSotrudniki.First;

end;

procedure TForm2.SpeedButton2Click(Sender: TObject);

begin

DM.tbSotrudniki.Last;

end;

procedure TForm2.SpeedButton3Click(Sender: TObject);

begin

DM.tbSotrudniki.Prior;

end;

procedure TForm2.SpeedButton4Click(Sender: TObject);

begin

DM.tbSotrudniki.Next;

end;

end.

ФОРМА «Досье сотрудников» 

unit Unit4;

interface

uses

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

  Dialogs, StdCtrls, Buttons, Mask, DBCtrls;

type

  TForm4 = class(TForm)

    Label1: TLabel;

    DBEdit1: TDBEdit;

    Label2: TLabel;

    DBEdit2: TDBEdit;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form4: TForm4;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

if DM.tbSotrudniki.Modified then

DM.tbSotrudniki.Post;

close;

end;

procedure TForm4.BitBtn2Click(Sender: TObject);

begin

DM.tbSotrudniki.Cancel;

CLOSE;

end;

end.

ФОРМА «Клиенты»

unit Unit5;

interface

uses

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

  Dialogs, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids;

type

  TForm5 = class(TForm)

    Panel1: TPanel;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    DBGrid1: TDBGrid;

    Label1: TLabel;

    Edit1: TEdit;

    Button1: TButton;

    Label2: TLabel;

    Edit2: TEdit;

    Button2: TButton;

    Label3: TLabel;

    Edit3: TEdit;

    Button3: TButton;

    Label4: TLabel;

    Edit4: TEdit;

    Button4: TButton;

    Panel2: TPanel;

    SpeedButton1: TSpeedButton;

    SpeedButton2: TSpeedButton;

    SpeedButton3: TSpeedButton;

    SpeedButton4: TSpeedButton;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Edit1Change(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Edit2Change(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Edit3Change(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Edit4Change(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

    procedure SpeedButton3Click(Sender: TObject);

    procedure SpeedButton4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form5: TForm5;

implementation

uses Unit3, Unit6;

{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

DM.tbKlient.Append;

form6.ShowModal;

end;

procedure TForm5.BitBtn2Click(Sender: TObject);

begin

DM.tbKlient.Edit;

form6.ShowModal;

end;

procedure TForm5.BitBtn3Click(Sender: TObject);

begin

if Application.MessageBox(pchar('Вы действительно  хотите удалить запись' +

DM.tbKlientkodKl.AsString+ ' из базы?'), 'Внимание!', MB_OKCANCEL)=ID_OK

THEN DM.tbKlient.Delete;

end;

procedure TForm5.Button1Click(Sender: TObject);

begin

if Edit1.Text<>'' then

begin

DM.tbKlient.Filtered:=false;

DM.tbKlient.Filter:=' fio like ''' + '%' + Edit1.Text + '%' + '''';

DM.tbKlient.Filtered:=true;

end;

end;

procedure TForm5.Edit1Change(Sender: TObject);

begin

if Edit1.Text='' then

DM.tbKlient.Filtered:=false;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

if Edit2.Text<>'' then

begin

DM.tbKlient.Filtered:=false;

DM.tbKlient.Filter:=' adres like ''' + '%' + Edit2.Text + '%' + '''';

DM.tbKlient.Filtered:=true;

end;

end;

procedure TForm5.Edit2Change(Sender: TObject);

begin

if Edit2.Text='' then

DM.tbKlient.Filtered:=false;

end;

procedure TForm5.Button3Click(Sender: TObject);

begin

if Edit3.Text<>'' then

begin

DM.tbKlient.Filtered:=false;

DM.tbKlient.Filter:=' konTel like ''' + '%' + Edit3.Text + '%' + '''';

DM.tbKlient.Filtered:=true;

end;

end;

procedure TForm5.Edit3Change(Sender: TObject);

begin

if Edit3.Text='' then

DM.tbKlient.Filtered:=false;

end;

procedure TForm5.Button4Click(Sender: TObject);

begin

if Edit4.Text<>'' then

begin

DM.tbKlient.Filtered:=false;

DM.tbKlient.Filter:=' udost like ''' + '%' + Edit4.Text + '%' + '''';

DM.tbKlient.Filtered:=true;

end;

end;

procedure TForm5.Edit4Change(Sender: TObject);

begin

if Edit4.Text='' then

DM.tbKlient.Filtered:=false;

end;

procedure TForm5.SpeedButton1Click(Sender: TObject);

begin

DM.tbKlient.First;

end;

procedure TForm5.SpeedButton2Click(Sender: TObject);

begin

DM.tbKlient.Last;

end;

procedure TForm5.SpeedButton3Click(Sender: TObject);

begin

DM.tbKlient.Prior;

end;

procedure TForm5.SpeedButton4Click(Sender: TObject);

begin

DM.tbKlient.Next;

end;

end.

ФОРМА «Досье клиентов»

unit Unit6;

interface

uses

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

  Dialogs, StdCtrls, Buttons, Mask, DBCtrls, ComCtrls;

type

  TForm6 = class(TForm)

    Label1: TLabel;

    DBEdit1: TDBEdit;

    Label2: TLabel;

    DBEdit2: TDBEdit;

    Label3: TLabel;

    DBEdit3: TDBEdit;

    Label4: TLabel;

    Label5: TLabel;

    DBEdit5: TDBEdit;

    Label6: TLabel;

    DBEdit6: TDBEdit;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    DateTimePicker1: TDateTimePicker;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form6: TForm6;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm6.BitBtn1Click(Sender: TObject);

begin

if(DM.tbKlient.Modified) or (DateTimePicker1.Checked) then

begin

DM.tbKlientdataReg.Value:=DateTimePicker1.Date;

DM.tbKlient.Post;

end;

close;

end;

procedure TForm6.BitBtn2Click(Sender: TObject);

begin

DM.tbKlient.Cancel;

CLOSE;

end;

end.

ФОРМА «Обслуживание»

unit Unit7;

interface

uses

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

  Dialogs, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls;

type

  TForm7 = class(TForm)

    Panel1: TPanel;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    DBGrid1: TDBGrid;

    Label1: TLabel;

    Edit1: TEdit;

    Label2: TLabel;

    Edit2: TEdit;

    CheckBox1: TCheckBox;

    CheckBox2: TCheckBox;

    Button1: TButton;

    Button2: TButton;

    Edit3: TEdit;

    Panel2: TPanel;

    SpeedButton1: TSpeedButton;

    SpeedButton2: TSpeedButton;

    SpeedButton3: TSpeedButton;

    SpeedButton4: TSpeedButton;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure Edit1Change(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure CheckBox1Click(Sender: TObject);

    procedure CheckBox2Click(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

    procedure SpeedButton3Click(Sender: TObject);

    procedure SpeedButton4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form7: TForm7;

implementation

uses Unit6, Unit2, Unit1, Unit3, Unit8;

{$R *.dfm}

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

DM.tbObsluga.Append;

form8.ShowModal;

end;

procedure TForm7.BitBtn2Click(Sender: TObject);

begin

DM.tbObsluga.Edit;

form8.ShowModal;

end;

procedure TForm7.BitBtn3Click(Sender: TObject);

begin

if Application.MessageBox(pchar('Вы действительно  хотите удалить запись' +

DM.tbObslugakodKl.AsString+ ' из базы?'), 'Внимание!', MB_OKCANCEL)=ID_OK

THEN DM.tbObsluga.Delete;

end;

procedure TForm7.Edit1Change(Sender: TObject);

begin

if Edit1.Text='' then

DM.tbObsluga.Filtered:=false;

end;

procedure TForm7.Button1Click(Sender: TObject);

begin

DM.tbObsluga.Close;

DM.tbObsluga.SQL.Clear;

DM.tbObsluga.SQL.Add(' select * from Obsluga ');

DM.tbObsluga.Open;

  end;

procedure TForm7.Button2Click(Sender: TObject);

var l:byte;

begin                      

l:=0;

DM.tbObsluga.Close;

DM.tbObsluga.SQL.Clear;

DM.tbObsluga.SQL.Add(' select s.nomerPor, s.data, s.kodKl, s.kodSotr, s.kodUslugi, s.cena, s.kolVoOo, s.itogSum, s.skidka, s.koplate  ');

DM.tbObsluga.SQL.Add(' from Obsluga s inner join Klient on s.kodKl=Klient.kodKl where ');

if CheckBox1.Checked then

  begin

  dm.tbObsluga.SQL.Add(' Klient.fio like ''' + '%' + Edit1.Text + '%'  +  '''' );

  l:=1;

  end;

if CheckBox2.Checked then

  begin

  if l=1 then dm.tbObsluga.SQL.Add(' and ');

   dm.tbObsluga.SQL.Add(' s.koplate >= ' + Edit2.text + ' and s.koplate <= ' + Edit3.text + ' ');

   l:=1;

   end;

DM.tbObsluga.Open;

if l=0 then Button1Click(Sender) else dm.tbObsluga.Open;

end;

procedure TForm7.CheckBox1Click(Sender: TObject);

begin

if Edit1.Enabled=false then

begin

Edit1.Enabled:=true;

end else

begin

Edit1.Enabled:=False;

end;

end;

procedure TForm7.CheckBox2Click(Sender: TObject);

begin

if Edit2.Enabled=false then

begin

Edit2.Enabled:=true;

Edit3.Enabled:=true;

end else

begin

Edit2.Enabled:=False;

Edit3.Enabled:=False;

end;

end;

procedure TForm7.SpeedButton1Click(Sender: TObject);

begin

DM.tbObsluga.First;

end;

procedure TForm7.SpeedButton3Click(Sender: TObject);

begin

DM.tbObsluga.Prior;

end;

procedure TForm7.SpeedButton4Click(Sender: TObject);

begin

DM.tbObsluga.Next;

end;

end.

ФОРМА «Параметры обслуживания»

unit Unit8;

interface

uses

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

  Dialogs, StdCtrls, Buttons, DBCtrls, Mask, ComCtrls;

type

  TForm8 = class(TForm)

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    Label1: TLabel;

    Label2: TLabel;

    DBLookupComboBox1: TDBLookupComboBox;

    Label3: TLabel;

    DBLookupComboBox2: TDBLookupComboBox;

    Label4: TLabel;

    DBLookupComboBox3: TDBLookupComboBox;

    Label5: TLabel;

    Label9: TLabel;

    DBEdit6: TDBEdit;

    DateTimePicker1: TDateTimePicker;

    DBEdit1: TDBEdit;

    DBLookupComboBox4: TDBLookupComboBox;

    DBEdit2: TDBEdit;

    procedure BitBtn1Click(Sender: TObject);