mc_gszjglck.pas

异洲酒店管理系统

unit MC_GSZJGLCK;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, DBGrids, Buttons, Qrctrls, QuickRpt, ExtCtrls, Db,
  DBTables;

type
  TGSZJGL = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    QuickRep1: TQuickRep;
    PageHeaderBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRShape1: TQRShape;
    TitleBand1: TQRBand;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRShape3: TQRShape;
    QRShape4: TQRShape;
    QRShape5: TQRShape;
    QRShape6: TQRShape;
    DetailBand1: TQRBand;
    QRShape7: TQRShape;
    QRShape8: TQRShape;
    QRShape9: TQRShape;
    QRShape10: TQRShape;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Bevel1: TBevel;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    SummaryBand1: TQRBand;
    QRLabel3: TQRLabel;
    QRShape2: TQRShape;
    QRLabel4: TQRLabel;
    QRExpr1: TQRExpr;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn4Click(Sender: TObject);
    procedure QuickRep1Preview(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GSZJGL: TGSZJGL;

implementation

uses MC_TLCYGLXT, MC_DYYLBrose;

{$R *.DFM}

procedure TGSZJGL.QuickRep1Preview(Sender: TObject);
begin
 DYYLBrose.QRPreview1.QRPrinter:=QuickRep1.QRPrinter;
end;
//打印资金信息
procedure TGSZJGL.BitBtn1Click(Sender: TObject);
begin
 DYYLBrose.Show;
 QuickRep1.Preview;
end;

//调入导入资金窗口
procedure TGSZJGL.BitBtn2Click(Sender: TObject);
begin
 Groupbox2.Visible:=True;
 Edit1.Setfocus;
 bitbtn1.Enabled:=False;
 bitbtn2.Enabled:=False;
 bitbtn3.Enabled:=False;
 bitbtn4.Enabled:=False;
 DBGrid1.Enabled:=False;
end;
//取消导入资金
procedure TGSZJGL.BitBtn6Click(Sender: TObject);
begin
 GroupBox2.visible:=False;
 BitBtn1.Enabled:=True;
 BitBtn2.Enabled:=True;
 BitBtn3.Enabled:=True;
 BitBtn4.Enabled:=True;
 DBGrid1.Enabled:=True;
 DBGrid1.RefResh;
end;
//导入资金
procedure TGSZJGL.BitBtn5Click(Sender: TObject);
var a:integer;
b:Real;
begin
 If TLCYGLXT.GSZJB.RecordCount <> 0 Then
 begin
 If (Length(Edit1.Text) = 0) Or (Length(Edit2.Text) = 0) Then
  begin
   ShowMessage('请将数据添全.');
   Edit1.SetFocus;
  End
 Else
  begin
   TLCYGLXT.GSZJB.Last;
   a:=TLCYGLXT.GSZJB.FieldByName('编号').AsInteger;
   b:=TLCYGLXT.GSZJB.FieldByName('资金').AsFloat;
   TLCYGLXT.GSZJB.Append;
   TLCYGLXT.GSZJB.FieldByName('编号').AsInteger:=a+1;
   TLCYGLXT.GSZJB.FieldBYName('资金').AsFloat:=b+StrToFloat(Edit1.Text);
   TLCYGLXT.GSZJB.FieldByName('更新日期').AsDateTime:=Date;
   TLCYGLXT.GSZJB.FieldByName('更新说明').AsString:=Edit2.Text;
   TLCYGLXT.GSZJB.Post;
   GroupBox2.Visible:=False;
   DBGrid1.Enabled:=True;
   bitBtn1.Enabled:=True;
   bitBtn2.Enabled:=True;
   bitBtn3.Enabled:=True;
   bitBtn4.Enabled:=True;
  end;
 End
 Else
 begin
  TLCYGLXT.GSZJB.Append;
  TLCYGLXT.GSZJB.FieldByName('编号').AsInteger:=1;
  TLCYGLXT.GSZJB.FieldBYName('资金').AsFloat:=StrToFloat(Edit1.Text);
  TLCYGLXT.GSZJB.FieldByName('更新日期').AsDateTime:=Date;
  TLCYGLXT.GSZJB.FieldByName('更新说明').AsString:=Edit2.Text;
  TLCYGLXT.GSZJB.Post;
  GroupBox2.Visible:=False;
  DBGrid1.Enabled:=True;
  bitBtn1.Enabled:=True;
  bitBtn2.Enabled:=True;
  bitBtn3.Enabled:=True;
  bitBtn4.Enabled:=True;
 end;
end;
//删除无用信息
procedure TGSZJGL.BitBtn3Click(Sender: TObject);
var  Query2:TQuery;
begin
 Query2:=TQuery.Create(Self);
 Query2.DataBaseName:='CYGLDATE';
 Query2.Close;
 QUery2.SQL.Clear;
 Query2.SQL.Add('Select Max(编号) From 公司资金表');
 Query2.Open;
 If TLCYGLXT.GSZJB.RecordCount <> 0 Then
 begin
  if TLCYGLXT.GSZJB.FieldByName('编号').AsInteger<>Query2.Fields[0].AsInteger then
   begin
    if MessageDLG('确认删除此行信息吗？',mtCustom,[mbYes,mbNo],0)=mrYes then
    TLCYGLXT.GSZJB.Delete;
   End
  Else
   ShowMessage('对不起,这条信息是公司现有资金信息.不能删除!');
 End
 Else
 begin
   ShowMessage('没有可用信息无法删除.');
 end;
 Query2.Free;
end;

procedure TGSZJGL.Edit1Enter(Sender: TObject);
begin
TEdit(Sender).Color:=ClAqua;
end;

procedure TGSZJGL.Edit1Exit(Sender: TObject);
begin
 TEdit(Sender).color:=Clwindow;
end;
//回车跳转
procedure TGSZJGL.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then Edit2.SetFocus
 Else
 if key=#8 then key:=#8
 Else
 if (key<'0') or (key>'9') then
 key:=#0;
end;

procedure TGSZJGL.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then Bitbtn5.Click;
end;
 //关闭窗口
procedure TGSZJGL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 TLCYGLXT.GSZJB.Close;
 GSZJGL.Release;
 GSZJGL:=Nil;
end;

procedure TGSZJGL.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 If bitBtn4.Enabled = False Then
 begin
   ShowMessage('请保存数据.');
   Abort;
 end;
end;
//退出
procedure TGSZJGL.BitBtn4Click(Sender: TObject);
begin
 Close;
end;
end.