Қонақ үй мәлімет қорын құру

   btnADD_2.Caption := 'Сохранить';

   btnCHANGE_2.Caption := 'Отменить';

   GB_2_1.Enabled := True;

   GB_2_2.Enabled := False;

   btnDELETE_2.Enabled := False;

  end

else

  begin

   btnADD_2.Caption := 'Добавить';

   btnCHANGE_2.Caption := 'Изменить';

   GB_2_1.Enabled := False;

   GB_2_2.Enabled := True;

   btnDELETE_2.Enabled := True;

  end;

 

if (TableUSLUGA.State = dsInsert) or (TableUSLUGA.State = dsEdit) then

  begin

   btnADD_3.Caption := 'Сохранить';

   btnCHANGE_3.Caption := 'Отменить';

   GB_3_2.Enabled := False;

   btnDELETE_3.Enabled := False;

  end

else

  begin

   btnADD_3.Caption := 'Добавить';

   btnCHANGE_3.Caption := 'Изменить';

   GB_3_2.Enabled := True;

   btnDELETE_3.Enabled := True;

  end;

end;

 

 

procedure TForm1.btnADD_1Click(Sender: TObject);

begin

if btnADD_1.Caption = 'Добавить' then

  TableNOMER.Append

else

  TableNOMER.Post

end;

 

procedure TForm1.btnCHANGE_1Click(Sender: TObject);

begin

if btnCHANGE_1.Caption = 'Изменить' then

  TableNOMER.Edit

else

  TableNOMER.Cancel

end;

 

procedure TForm1.btnDELETE_1Click(Sender: TObject);

begin

if TableNOMER.RecordCount <> 0 then

  if (Application.MessageBox('Вы действительно хотите удалить запись?','Удаление',MB_YESNO + MB_ICONQUESTION+MB_DEFBUTTON2)=IDYES) then

   TableNOMER.Delete;

end;

 

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

if ComboBox1.ItemIndex = 0 then

  TableNOMER.Filtered := False

else

  begin

   TableNOMER.Filter := 'Klass='+QuotedStr(ComboBox1.Items[ComboBox1.ItemIndex]);

   TableNOMER.Filtered := True;

  end;

end;

 

procedure TForm1.btnTOP_1Click(Sender: TObject);

begin

TableNOMER.First;

DBGrid1.SetFocus;

end;

 

procedure TForm1.btnPRIOR_1Click(Sender: TObject);

begin

if not TableNOMER.Bof then

  TableNOMER.Prior;

DBGrid1.SetFocus;

end;

 

procedure TForm1.btnNEXT_1Click(Sender: TObject);

begin

if not TableNOMER.Eof then

  TableNOMER.Next;

DBGrid1.SetFocus;

end;

 

procedure TForm1.btnLAST_1Click(Sender: TObject);

begin

TableNOMER.Last;

DBGrid1.SetFocus;

end;

 

procedure TForm1.btnADD_2Click(Sender: TObject);

begin

if btnADD_2.Caption = 'Добавить' then

  TableKLIENTS.Append

else

  TableKLIENTS.Post

end;

 

procedure TForm1.btnCHANGE_2Click(Sender: TObject);

begin

if btnCHANGE_2.Caption = 'Изменить' then

  TableKLIENTS.Edit

else

  TableKLIENTS.Cancel

end;

 

procedure TForm1.btnDELETE_2Click(Sender: TObject);

begin

if TableKLIENTS.RecordCount <> 0 then

  if (Application.MessageBox('Вы действительно хотите удалить запись?','Удаление',MB_YESNO + MB_ICONQUESTION+MB_DEFBUTTON2)=IDYES) then

   TableKLIENTS.Delete;

end;

 

procedure TForm1.SpeedButton11Click(Sender: TObject);

begin

TableKLIENTS.First;

DBGrid2.SetFocus;

end;

 

procedure TForm1.SpeedButton10Click(Sender: TObject);

begin

 if not TableKLIENTS.Bof then

  TableKLIENTS.Prior;

DBGrid2.SetFocus;

end;

 

procedure TForm1.SpeedButton8Click(Sender: TObject);

begin

if not TableKLIENTS.Eof then

  TableKLIENTS.Next;

DBGrid2.SetFocus;

end;

 

procedure TForm1.SpeedButton9Click(Sender: TObject);

begin

TableKLIENTS.Last;

DBGrid2.SetFocus;

end;

 

procedure TForm1.btnADD_3Click(Sender: TObject);

begin

if btnADD_3.Caption = 'Добавить' then

   TableUSLUGA.Append;  DBLookupComboBox1.Enabled:=true;

else

  TableUSLUGA.Post;

end;

 

procedure TForm1.btnCHANGE_3Click(Sender: TObject);

begin

if btnCHANGE_3.Caption = 'Изменить' then

  begin

   DBLookupComboBox1.Enabled:=true;

   TableUSLUGA.Edit

  end

else

  TableUSLUGA.Cancel

end;

 

procedure TForm1.btnDELETE_3Click(Sender: TObject);

begin

if TableUSLUGA.RecordCount <> 0 then

  if (Application.MessageBox('Вы действительно хотите удалить запись?','Удаление',MB_YESNO + MB_ICONQUESTION+MB_DEFBUTTON2)=IDYES) then

   TableUSLUGA.Delete;

end;

 

procedure TForm1.DataSource3DataChange(Sender: TObject; Field: TField);

begin

if (not TableUSLUGADATE_1.IsNull) and (not TableUSLUGADATE_2.IsNull) then

  Edit1.Text:= IntTostr(Round((TableUSLUGADATE_2.AsFloat - TableUSLUGADATE_1.AsFloat) + 1) * TableNOMER.FieldByName('CENA').asInteger);

end;

 

procedure TForm1.SpeedButton18Click(Sender: TObject);

begin

TableUSLUGA.First;

DBGrid5.SetFocus;

end;

 

procedure TForm1.SpeedButton17Click(Sender: TObject);

begin

if not TableUSLUGA.Bof then

  TableUSLUGA.Prior;

DBGrid5.SetFocus;

end;

 

procedure TForm1.SpeedButton15Click(Sender: TObject);

begin

if not TableUSLUGA.Eof then

  TableUSLUGA.Next;

DBGrid5.SetFocus;

end;

 

procedure TForm1.SpeedButton16Click(Sender: TObject);

begin

TableUSLUGA.Last;

DBGrid5.SetFocus;

end;

 

procedure TForm1.PageControl1Change(Sender: TObject);

begin

if PageControl1.ActivePageIndex = 2 then

  begin

   Query2.Close;

   Query2.Params[0].AsDate := Date();

   Query2.Open;

   Query1.Close;   

   Query1.SQL.Clear;

   Query1.SQL.Add('SELECT *');

   Query1.SQL.Add('FROM USLUGA A LEFT JOIN NOMER B');

   Query1.SQL.Add('ON A.NOMER = B.NOMER');

   Query1.SQL.Add('WHERE (DATE_1 <=  :prmDATA) AND (DATE_2 <= :prmDATA) OR NOMER NOT IN ('+A+')');

   Query1.Params[0].AsDate := Date();

   Query1.Open;

  end;

end;

 

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

Form2.ShowModal;

end;

 

procedure TForm1.SpeedButton14Click(Sender: TObject);

begin

Query2.First;

DBGrid4.SetFocus;

end;

 

procedure TForm1.SpeedButton13Click(Sender: TObject);

begin

if not Query2.Bof then

  Query2.Prior;

DBGrid4.SetFocus;

end;

 

procedure TForm1.SpeedButton7Click(Sender: TObject);

begin

if not Query2.Eof then

  Query2.Next;

DBGrid4.SetFocus;

end;

 

procedure TForm1.SpeedButton12Click(Sender: TObject);

begin

Query2.Last;

DBGrid4.SetFocus;

end;

 

procedure TForm1.SpeedButton25Click(Sender: TObject);

begin

Form4.Query1.Close;

Form4.Query1.DatabaseName := ExtractFilePath(Application.ExeName) + 'Bases\';

Form4.Query1.Params[0].AsInteger := TableUSLUGACODE.AsInteger;

Form4.Query1.Open;

Form4.QRLabel13.Caption := Edit1.Text + ' тенге';

Form4.QuickRep1.Preview

end;

 

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

Form3.ShowModal;

end;

 

procedure TForm1.SpeedButton6Click(Sender: TObject);

begin

Query1.First;

DBGrid3.SetFocus;

end;

 

procedure TForm1.SpeedButton5Click(Sender: TObject);

begin

if not Query1.Bof then

  Query1.Prior;

DBGrid3.SetFocus;

end;

 

procedure TForm1.SpeedButton3Click(Sender: TObject);

begin

if not Query1.Eof then

  Query1.Next;

DBGrid3.SetFocus;

end;

 

procedure TForm1.SpeedButton4Click(Sender: TObject);

begin

Query1.Last;

DBGrid3.SetFocus;

end;

 

procedure TForm1.Query2AfterOpen(DataSet: TDataSet);

begin

a := '';

Query2.First;

while not Query2.Eof do

  begin

   a := a + Query2.FieldByName('Nomer').AsString + ',';

   Query2.Next;

  end;

a := copy(a, 1, length(a)-1);

end;

 

end.

 

Form2 модулінің листингі

 

unit Unit2;

interface

 

uses

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

  Dialogs, StdCtrls, Buttons, DBCtrls, Mask;

 

type

  TForm2 = class(TForm)

    GB_1_1: TGroupBox;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;

    DBEdit3: TDBEdit;

    GB_2_1: TGroupBox;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    DBEdit4: TDBEdit;

    DBEdit5: TDBEdit;

    DBEdit6: TDBEdit;

    GB_3_1: TGroupBox;

    Label12: TLabel;

    DBEdit9: TDBEdit;

    DBEdit7: TDBEdit;

    Label5: TLabel;

    BitBtn1: TBitBtn;

    DBEdit8: TDBEdit;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

implementation

uses Unit1;

 

{$R *.dfm}

 

end.

 

Form3 модулінің листингі

 

unit Unit3;

interface

 

uses

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

  Dialogs, StdCtrls, Buttons, DBCtrls, Mask;

 

type

  TForm3 = class(TForm)

    GB_1_1: TGroupBox;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;

    DBEdit3: TDBEdit;

    BitBtn1: TBitBtn;

    DBEdit4: TDBEdit;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

end.

 

Form4 модулінің листингі

 

unit Unit4;

interface

 

uses

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

  Dialogs, QRCtrls, QuickRpt, ExtCtrls, DB, DBTables, Grids, DBGrids;

 

type

  TForm4 = class(TForm)

    QuickRep1: TQuickRep;

    Query1: TQuery;

    DetailBand1: TQRBand;

    QRShape1: TQRShape;

    QRLabel1: TQRLabel;

    QRShape2: TQRShape;

    QRLabel2: TQRLabel;

    QRShape3: TQRShape;

    QRLabel3: TQRLabel;

    QRDBText1: TQRDBText;

    QRLabel4: TQRLabel;

    QRDBText2: TQRDBText;

    QRLabel5: TQRLabel;

    QRDBText3: TQRDBText;

    QRShape4: TQRShape;

    QRLabel6: TQRLabel;

    QRDBText4: TQRDBText;

    QRDBText5: TQRDBText;

    QRLabel7: TQRLabel;

    QRLabel8: TQRLabel;

    QRDBText6: TQRDBText;

    QRShape5: TQRShape;

    QRDBText7: TQRDBText;

    QRLabel9: TQRLabel;

    QRShape6: TQRShape;

    QRLabel10: TQRLabel;

    QRShape7: TQRShape;

    QRLabel11: TQRLabel;

    QRLabel12: TQRLabel;

    QRLabel13: TQRLabel;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form4: TForm4;

implementation

{$R *.dfm}

end.