uz_ckgl.pas

一个针对酒店大堂管理的delphi应用管理软件

unit uz_ckgl;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, Menus, ComCtrls, ExtCtrls, ToolWin, StdCtrls,u_main, Db,
  DBTables, ImgList, DBCtrls, dxExEdtr, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl,
  dxDBGrid, dxCntner, se_controls, KsSkinForms;

type
  Tz_ckgl = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    xz: TToolButton;
    bj: TToolButton;
    sc: TToolButton;
    dy: TToolButton;
    yl: TToolButton;
    tc: TToolButton;
    MainMenu1: TMainMenu;
    MenuItem11: TMenuItem;
    m_xz: TMenuItem;
    m_bj: TMenuItem;
    MenuItem14: TMenuItem;
    MenuItem18: TMenuItem;
    MenuItem19: TMenuItem;
    MenuItem20: TMenuItem;
    MenuItem73: TMenuItem;
    MenuItem74: TMenuItem;
    MenuItem75: TMenuItem;
    MenuItem76: TMenuItem;
    m_sc: TMenuItem;
    ImageList1: TImageList;
    fg2: TToolButton;
    fg3: TToolButton;
    P1: TMenuItem;
    C1: TMenuItem;
    z_ckgl_cls: TMenuItem;
    z_ckgl_mb: TMenuItem;
    z_ckgl_cxs: TMenuItem;
    PrinterSetup: TPrinterSetupDialog;
    N1: TMenuItem;
    z_ckgl_zl: TMenuItem;
    N2: TMenuItem;
    d_ckzl: TDataSource;
    dwxz: TTable;
    dwxzBh: TStringField;
    dwxzDwxz: TStringField;
    d_dwxz: TDataSource;
    N3: TMenuItem;
    N4: TMenuItem;
    ckzl: TQuery;
    ckzlCkbh: TStringField;
    ckzlDwmc: TStringField;
    ckzlZjm: TStringField;
    ckzlXfcs: TIntegerField;
    ckzlXfze: TFloatField;
    ckzlXydj: TStringField;
    ckzlDwxz: TStringField;
    ckzlDwdz: TStringField;
    ckzlYzbm: TStringField;
    ckzlKhyh: TStringField;
    ckzlZh: TStringField;
    ckzlDbxm: TStringField;
    ckzlXb: TStringField;
    ckzlDh: TStringField;
    ckzlChh: TStringField;
    ckzlSj: TStringField;
    ckzlEmail: TStringField;
    ckzlCsrq: TDateTimeField;
    ckzlQldj: TStringField;
    ckzlZw: TStringField;
    ckzldwxz1: TStringField;
    DBGrid1: TdxDBGrid;
    DBGrid1Ckbh: TdxDBGridMaskColumn;
    DBGrid1Dwmc: TdxDBGridMaskColumn;
    DBGrid1Zjm: TdxDBGridMaskColumn;
    DBGrid1Xfcs: TdxDBGridMaskColumn;
    DBGrid1Xfze: TdxDBGridMaskColumn;
    DBGrid1Xydj: TdxDBGridMaskColumn;
    DBGrid1Dwxz: TdxDBGridMaskColumn;
    DBGrid1Dwdz: TdxDBGridMaskColumn;
    DBGrid1Yzbm: TdxDBGridMaskColumn;
    DBGrid1Khyh: TdxDBGridMaskColumn;
    DBGrid1Zh: TdxDBGridMaskColumn;
    DBGrid1Dbxm: TdxDBGridMaskColumn;
    DBGrid1Xb: TdxDBGridMaskColumn;
    DBGrid1Dh: TdxDBGridMaskColumn;
    DBGrid1Chh: TdxDBGridMaskColumn;
    DBGrid1Sj: TdxDBGridMaskColumn;
    DBGrid1Email: TdxDBGridMaskColumn;
    DBGrid1Csrq: TdxDBGridDateColumn;
    DBGrid1Qldj: TdxDBGridMaskColumn;
    DBGrid1Zw: TdxDBGridMaskColumn;
    DBGrid1dwxz1: TdxDBGridLookupColumn;
    SeSkinForm1: TSeSkinForm;
    procedure MenuItem20Click(Sender: TObject);
    procedure tcClick(Sender: TObject);
    procedure xzClick(Sender: TObject);
    procedure bjClick(Sender: TObject);
    procedure scClick(Sender: TObject);
    procedure lsClick(Sender: TObject);
    procedure xsClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure MenuItem18Click(Sender: TObject);
    procedure ylClick(Sender: TObject);
    procedure dyClick(Sender: TObject);
    procedure bzClick(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure MenuItem76Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure MenuItem74Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure DBGrid1CustomDrawCell(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn;
      ASelected, AFocused, ANewItemRow: Boolean; var AText: String;
      var AColor: TColor; AFont: TFont; var AAlignment: TAlignment;
      var ADone: Boolean);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  z_ckgl: Tz_ckgl;

implementation

uses uz_ckgl_xz, uz_ckgl_ls, uz_ckgl_xs, ug_mb, uabout, ug_wait, uzp_ck;

{$R *.DFM}


procedure Tz_ckgl.MenuItem20Click(Sender: TObject);
begin
  close;
end;

procedure Tz_ckgl.tcClick(Sender: TObject);
begin
  close;
end;


procedure Tz_ckgl.xzClick(Sender: TObject);
begin
  y_n:=1;
  z_ckgl_xz:=tz_ckgl_xz.create(self);
  z_ckgl_xz.showmodal;
  ckzl.Close;
  ckzl.Open;
end;

procedure Tz_ckgl.bjClick(Sender: TObject);
begin
  if ckzl.FieldByName('ckbh').asstring='' then exit;
  y_n:=0;
  z_ckgl_xz:=tz_ckgl_xz.create(self);
  z_ckgl_xz.showmodal;
end;

procedure Tz_ckgl.scClick(Sender: TObject);
begin
 if messagebox(handle,'您真的要删除该常客吗?','系统提示信息',MB_OKCANCEL+MB_ICONQUESTION)=IDOK then
   begin
    ckzl.delete;
    z_ckgl.FormShow(Sender);
   end;
 if ckzl.RecordCount=0 then
    begin
     sc.Enabled:=false;
     m_sc.Enabled:=false;
    end
   else
    begin
     sc.Enabled:=true;
     m_sc.Enabled:=true;
    end;
end;
procedure Tz_ckgl.lsClick(Sender: TObject);
begin
 s_ckbh:=ckzl.fieldbyname('ckbh').asstring;
 if z_ckgl_ls=NIL then z_ckgl_ls:=Tz_ckgl_ls.Create(self);
 z_ckgl_ls.showmodal;
end;

procedure Tz_ckgl.xsClick(Sender: TObject);
begin
 z_ckgl_xs.showmodal;
end;

procedure Tz_ckgl.FormShow(Sender: TObject);
begin
// if not dwxz.Active then dwxz.Active:=true;
 //if not ckzl.Active then ckzl.Active:=true;
 {if zp_ck=NIL then zp_ck:=Tzp_ck.Create(self);
 if g_mb=NIL then g_mb:=Tg_mb.Create(self);
 if z_ckgl_xz=NIL then z_ckgl_xz:=Tz_ckgl_xz.Create(self);
 if z_ckgl_xs=NIL then z_ckgl_xs:=Tz_ckgl_xs.Create(self);
 with main.query1 do
  begin
   active:=false;
   sql.Clear;
   sql.Add('select count(ckbh) as zs,sum(xfcs) as xfcs,sum(xfze) as xfze from ckzl');
   active:=true;
   sb.Panels[2].text:=fieldbyname('zs').asstring;
   sb.Panels[4].text:=fieldbyname('xfcs').asstring;
   sb.panels[6].text:=Format('%*.*f', [8, 2,fieldbyname('xfze').ascurrency]);
  end;     }
 g_wait.close;
end;

procedure Tz_ckgl.MenuItem18Click(Sender: TObject);
begin
  PrinterSetup.Execute;
end;

procedure Tz_ckgl.ylClick(Sender: TObject);
begin
 zp_ck.QuickRep1.preview;
end;

procedure Tz_ckgl.dyClick(Sender: TObject);
begin
 zp_ck.QuickRep1.print;
end;

procedure Tz_ckgl.bzClick(Sender: TObject);
begin
  Application.HelpFile:='\hbjd\cyzy\help\hbcy.hlp';
  Application.HelpJump('tasckgl');
end;

procedure Tz_ckgl.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 if ckzl.RecordCount=0 then
    begin
     sc.Enabled:=false;
     m_sc.Enabled:=false;
     bj.Enabled:=false;
     m_bj.Enabled:=false;
    end
   else
    begin
     sc.Enabled:=true;
     m_sc.Enabled:=true;
     bj.Enabled:=true;
     m_bj.Enabled:=true;
    end;
end;

procedure Tz_ckgl.MenuItem76Click(Sender: TObject);
begin
 if about=NIL then about:=Tabout.Create(self);
 about.showmodal;
end;

procedure Tz_ckgl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
{ Release;           z_ckgl:=NIL;
 z_ckgl_xz.Release; z_ckgl_xz:=NIL;
 z_ckgl_xs.Release; z_ckgl_xs:=NIL;
 g_mb.release;      g_mb:=NIL;
 zp_ck.release;     zp_ck:=NIL;            }
 action:=cafree;
end;

procedure Tz_ckgl.MenuItem74Click(Sender: TObject);
begin
  Application.HelpFile:='\hbjd\cyzy\help\hbcy.hlp';
  Application.HelpCommand(Help_Finder,0);
end;

procedure Tz_ckgl.N4Click(Sender: TObject);
begin
  Application.HelpFile:='\hbjd\cyzy\help\hbcy.hlp';
  Application.HelpCommand(Help_PartialKey,0);
end;

procedure Tz_ckgl.DBGrid1CustomDrawCell(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn;
  ASelected, AFocused, ANewItemRow: Boolean; var AText: String;
  var AColor: TColor; AFont: TFont; var AAlignment: TAlignment;
  var ADone: Boolean);
begin
  if ANode.Index mod 2 = 0 then
    AColor := clInfoBk
  else
    AColor := clAqua;
  if aselected=true then
    AColor :=$D8A19A;
end;

procedure Tz_ckgl.Button1Click(Sender: TObject);
begin
ckzl.Close;
end;

end.