c_main.pas

经典的酒店管理系统

{立方酒店管理系统 v1.0
 Copyright by CubicSoft
 program by ls.
 Date:20020301-20020601
 20020627 加入注释
}
unit C_Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, C_Define, IniFiles, XPMenu, DBTables, ImgList, ExtCtrls,
  DB, DBGrids, Series, Grids, TeEngine, TeeProcs, Chart, ComCtrls,
  StdCtrls, Buttons, DateUtils, Hint;

type

  //团队信息
  TTdInfo = record
    ATdxx: TTdxx;
    AXfje: Currency;
    AYfje: Currency;
  end;
  
  //客房状态
  TKfzt = record
    AKfbh: string;
    AKfzt: string;
    AKrbh: string;
    AKrxm: string;
    AZdbh: string;
    AYjbh: string;
    ASjfj: Currency;
    AColor:TColor;
    AImage:Integer;
    AYdbz: string;
    ACjbz: string;
    ADdts: string;
  end;
  //预定会场
  TYdhc = record
    AYdbh: string;
    AKrbh: string;
    AKrxm: string;
    ASyrq: TDateTime;
    ASjdm: string;
    AHcdm: string;
    AHcmc: string;
    AHczj: Currency;
    ARzbz: Boolean;
    AJsbz: string;
    ASjgq: Boolean;
    AColor: TColor;
    AImage: Integer;
  end;
  //预定餐饮
  TYdcy = record
    AYdbh: string;
    AKrbh: string;
    AKrxm: string;
    ASyrq: TDateTime;
    ASjdm: string;
    ACtbh: string;
    ACtmc: string;
    AXfje: Currency;
    ARzbz: Boolean;
    AJsbz: string;
    ASjgq: Boolean;
    AYcbz: string;
    AColor: TColor;
    AImage: Integer;
  end;
  //预定客房
  TYdkf = record
    AYdbh: string;
    AKrbh: string;
    AKrxm: string;
    ADdrq: TDateTime;
    ADdsj: TDateTime;
    ALdrq: TDateTime;
    ALdsj: TDateTime;
    AKfbh: string;
    AXfje: Currency;
    ARzbz: Boolean;
    AJsbz: string;
    AYdbz: string;
    ASjgq: Boolean;
    AColor: TColor;
    AImage: Integer;
  end;

  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    A1: TMenuItem;
    B1: TMenuItem;
    C1: TMenuItem;
    D1: TMenuItem;
    E1: TMenuItem;
    F1: TMenuItem;
    G1: TMenuItem;
    H1: TMenuItem;
    I1: TMenuItem;
    G11: TMenuItem;
    G1101: TMenuItem;
    G1102: TMenuItem;
    G1103: TMenuItem;
    G1104: TMenuItem;
    G1106: TMenuItem;
    G1107: TMenuItem;
    G1109: TMenuItem;
    G1110: TMenuItem;
    G1108: TMenuItem;
    G1105: TMenuItem;
    G1111: TMenuItem;
    G12: TMenuItem;
    G13: TMenuItem;
    G14: TMenuItem;
    N1: TMenuItem;
    G19: TMenuItem;
    G20: TMenuItem;
    N2: TMenuItem;
    G18: TMenuItem;
    G21: TMenuItem;
    G22: TMenuItem;
    H11: TMenuItem;
    H12: TMenuItem;
    N3: TMenuItem;
    H13: TMenuItem;
    A11: TMenuItem;
    N5: TMenuItem;
    A18: TMenuItem;
    G15: TMenuItem;
    G17: TMenuItem;
    B11: TMenuItem;
    B111: TMenuItem;
    B112: TMenuItem;
    B113: TMenuItem;
    B12: TMenuItem;
    B13: TMenuItem;
    B15: TMenuItem;
    N14: TMenuItem;
    B16: TMenuItem;
    N17: TMenuItem;
    N20: TMenuItem;
    B21: TMenuItem;
    N4: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N16: TMenuItem;
    N18: TMenuItem;
    N21: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N31: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N37: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N57: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    N67: TMenuItem;
    B20: TMenuItem;
    N68: TMenuItem;
    N30: TMenuItem;
    N32: TMenuItem;
    N69: TMenuItem;
    N70: TMenuItem;
    N71: TMenuItem;
    N72: TMenuItem;
    N73: TMenuItem;
    N74: TMenuItem;
    N75: TMenuItem;
    N76: TMenuItem;
    N77: TMenuItem;
    N78: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N9: TMenuItem;
    N85: TMenuItem;
    N86: TMenuItem;
    N87: TMenuItem;
    N88: TMenuItem;
    N89: TMenuItem;
    N91: TMenuItem;
    N93: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N80: TMenuItem;
    N81: TMenuItem;
    N15: TMenuItem;
    SaveDialog1: TSaveDialog;
    N36: TMenuItem;
    N38: TMenuItem;
    Timer1: TTimer;
    PopupMenu1: TPopupMenu;
    menuNbdj: TMenuItem;
    menuWbdj: TMenuItem;
    menuMfdj: TMenuItem;
    menuTddj: TMenuItem;
    MenuItem1: TMenuItem;
    menuXxxg: TMenuItem;
    menuDhfj: TMenuItem;
    menuYksy: TMenuItem;
    menuJz: TMenuItem;
    MenuItem2: TMenuItem;
    menuCyxf: TMenuItem;
    MenuItem3: TMenuItem;
    menuOkf: TMenuItem;
    menuWxf: TMenuItem;
    ImageList1: TImageList;
    ImageList2: TImageList;
    ImageList3: TImageList;
    tblKfzt: TTable;
    qryTd: TQuery;
    qryYdhc: TQuery;
    qryYdcy: TQuery;
    qryYdkf: TQuery;
    dsXxbd: TDataSource;
    dsKfzt: TDataSource;
    dsQryTd: TDataSource;
    Panel1: TPanel;
    Panel2: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel7: TPanel;
    Panel8: TPanel;
    lblTdmc1: TStaticText;
    lblTdmc2: TStaticText;
    lblTdmc3: TStaticText;
    lblTdmc4: TStaticText;
    lblTdmc5: TStaticText;
    lblTdmc6: TStaticText;
    lblTdmc7: TStaticText;
    lblTdmc8: TStaticText;
    lblTdmc9: TStaticText;
    lblTdmc10: TStaticText;
    TabSheet3: TTabSheet;
    TabSheet5: TTabSheet;
    Panel4: TPanel;
    btnTdbd: TBitBtn;
    btnTdtf: TBitBtn;
    btnTdjz: TBitBtn;
    btnTdbj: TBitBtn;
    btnTdbg: TBitBtn;
    btnTdyx: TBitBtn;
    btnTdyf: TBitBtn;
    btnTdjd: TBitBtn;
    btnTzcx: TBitBtn;
    btnTdqx: TBitBtn;
    lblTime: TStaticText;
    btnRefresh: TBitBtn;
    btnFtsm: TBitBtn;
    btnFtdh: TBitBtn;
    qryKfzt: TQuery;
    tblCtdm: TTable;
    qryCyTdMaster: TQuery;
    dsCyTdMaster: TDataSource;
    btnYdRefresh: TBitBtn;
    BitBtn17: TBitBtn;
    TabSheet10: TTabSheet;
    Panel10: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    btnYdcysk: TBitBtn;
    btnYdcytd: TBitBtn;
    dtpCyyd: TDateTimePicker;
    btnYdcylb: TBitBtn;
    TabSheet11: TTabSheet;
    Panel3: TPanel;
    btnPrev: TSpeedButton;
    btnNext: TSpeedButton;
    dtpYdrq: TDateTimePicker;
    btnYdkfsk: TBitBtn;
    btnYdkftd: TBitBtn;
    TabSheet12: TTabSheet;
    Chart2: TChart;
    Series2: TBarSeries;
    Panel6: TPanel;
    DBGrid1: TDBGrid;
    Panel5: TPanel;
    Panel11: TPanel;
    Chart1: TChart;
    DBGrid3: TDBGrid;
    Panel12: TPanel;
    Series1: TBarSeries;
    btnXxbd: TBitBtn;
    btnKrlb: TBitBtn;
    btnFjbg: TBitBtn;
    btnDtbqj: TBitBtn;
    Panel13: TPanel;
    sgdYdcy: TStringGrid;
    Panel15: TPanel;
    btnKfydlb: TBitBtn;
    Panel16: TPanel;
    Panel17: TPanel;
    Panel18: TPanel;
    DBGrid2: TDBGrid;
    Panel19: TPanel;
    sgdYdkf: TStringGrid;
    Panel21: TPanel;
    sgdYdhc: TStringGrid;
    menuZk: TMenuItem;
    N19: TMenuItem;
    sgdKfzt: TStringGrid;
    qryCyTdMasterD_YDBH: TStringField;
    qryCyTdMasterD_CTBH: TStringField;
    qryCyTdMasterD_CTMC: TStringField;
    qryCyTdMasterD_KRBH: TStringField;
    qryCyTdMasterD_KRXM: TStringField;
    qryCyTdMasterD_YDRQ: TDateTimeField;
    qryCyTdMasterD_SYRQ: TDateTimeField;
    qryCyTdMasterD_SYSJ: TDateTimeField;
    qryCyTdMasterD_SJDM: TStringField;
    qryCyTdMasterD_YCBZ: TStringField;
    qryCyTdMasterD_YCLX: TIntegerField;
    qryCyTdMasterD_RS: TIntegerField;
    qryCyTdMasterD_XFSL: TFloatField;
    qryCyTdMasterD_XFJE: TFloatField;
    qryCyTdMasterD_YDBZ: TStringField;
    qryCyTdMasterD_RZBZ: TStringField;
    qryCyTdMasterD_KTBZ: TStringField;
    qryCyTdMasterD_JSBZ: TStringField;
    qryCyTdMasterD_BZ: TBlobField;
    qryCyTdMasterD_CZYXM: TStringField;
    Panel23: TPanel;
    DBGrid4: TDBGrid;
    qryKfxx: TQuery;
    qryXxbd: TQuery;
    N54: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    N58: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N50: TMenuItem;
    N61: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    N64: TMenuItem;
    Panel9: TPanel;
    btnYdhc: TBitBtn;
    btnHcjs: TBitBtn;
    btnYdhccx: TBitBtn;
    N65: TMenuItem;
    N66: TMenuItem;
    qryKfxxD_KFBH: TStringField;
    qryKfxxD_SJFJ: TFloatField;
    qryKfxxD_KRXM: TStringField;
    qryKfxxD_DDRQ: TDateTimeField;
    qryKfxxD_DDSJ: TDateTimeField;
    qryKfxxD_BJS: TIntegerField;
    qryKfxxD_QJS: TIntegerField;
    qryKfxxD_JJFJ: TFloatField;
    qryKfxxD_XB: TStringField;
    qryKfxxD_NZTS: TIntegerField;
    qryTd1: TQuery;
    lblPjfj: TStaticText;
    N79: TMenuItem;
    N82: TMenuItem;
    ColorDialog1: TColorDialog;
    N83: TMenuItem;
    N84: TMenuItem;
    N90: TMenuItem;
    N92: TMenuItem;
    CheckBox1: TCheckBox;
    N94: TMenuItem;
    AiHint1: TAiHint;
    qryKfxxD_JTDZ: TStringField;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    N95: TMenuItem;
    N96: TMenuItem;
    N97: TMenuItem;
    N98: TMenuItem;
    N99: TMenuItem;
    N100: TMenuItem;
    procedure G1101Click(Sender: TObject);
    procedure G1102Click(Sender: TObject);
    procedure G1103Click(Sender: TObject);
    procedure G1104Click(Sender: TObject);
    procedure G1105Click(Sender: TObject);
    procedure G1106Click(Sender: TObject);
    procedure G1107Click(Sender: TObject);
    procedure G1108Click(Sender: TObject);
    procedure G1109Click(Sender: TObject);
    procedure G1110Click(Sender: TObject);
    procedure G1111Click(Sender: TObject);
    procedure G12Click(Sender: TObject);
    procedure G13Click(Sender: TObject);
    procedure G14Click(Sender: TObject);
    procedure G18Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure A11Click(Sender: TObject);
    procedure G15Click(Sender: TObject);
    procedure G17Click(Sender: TObject);
    procedure B111Click(Sender: TObject);
    procedure B16Click(Sender: TObject);
    procedure B112Click(Sender: TObject);
    procedure B12Click(Sender: TObject);
    procedure B113Click(Sender: TObject);
    procedure B13Click(Sender: TObject);
    procedure B15Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N68Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N69Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N71Click(Sender: TObject);
    procedure N72Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N47Click(Sender: TObject);
    procedure N73Click(Sender: TObject);
    procedure N74Click(Sender: TObject);
    procedure B20Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N67Click(Sender: TObject);
    procedure N66Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N59Click(Sender: TObject);
    procedure N60Click(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure N53Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N70Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure N61Click(Sender: TObject);
    procedure N75Click(Sender: TObject);
    procedure N78Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N77Click(Sender: TObject);
    procedure N85Click(Sender: TObject);
    procedure N86Click(Sender: TObject);
    procedure N87Click(Sender: TObject);
    procedure N88Click(Sender: TObject);
    procedure A18Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N81Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N57Click(Sender: TObject);
    procedure N80Click(Sender: TObject);
    procedure H13Click(Sender: TObject);
    procedure G19Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure G21Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure G22Click(Sender: TObject);
    procedure N52Click(Sender: TObject);
    procedure B21Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure H11Click(Sender: TObject);
    procedure PopupMenu1Popup(Sender: TObject);
    procedure menuNbdjClick(Sender: TObject);
    procedure menuXxxgClick(Sender: TObject);
    procedure btnRefreshClick(Sender: TObject);
    procedure menuWbdjClick(Sender: TObject);
    procedure menuTddjClick(Sender: TObject);
    procedure menuDhfjClick(Sender: TObject);
    procedure menuCyxfClick(Sender: TObject);
    procedure menuYksyClick(Sender: TObject);
    procedure menuJzClick(Sender: TObject);
    procedure menuOkfClick(Sender: TObject);
    procedure menuWxfClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);