⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 mainunit.~pas

📁 东华休闲山庄洗浴、餐饮、客房管理系统
💻 ~PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, ComCtrls, SUIListView, SUIImagePanel, ImgList,
  SUIStatusBar, ToolWin, SUIToolBar, StdCtrls, SUIMemo, SUISideChannel,
  WinSkinData, Grids, DBGrids, SUIDBCtrls, SUIEdit, DB, DBClient,
  DateUtils, ShellAPI;

type
  TMainForm = class(TForm)
    mm1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    sdchnl1: TsuiSideChannel;
    stlbr1: TsuiToolBar;
    stsbr1: TsuiStatusBar;
    btn1: TToolButton;
    il1: TImageList;
    pnl1: TPanel;
    suiPanel1: TsuiPanel;
    spl1: TSplitter;
    lv1: TsuiListView;
    btn2: TToolButton;
    btn3: TToolButton;
    btn4: TToolButton;
    btn6: TToolButton;
    btn8: TToolButton;
    btn9: TToolButton;
    btn10: TToolButton;
    btn11: TToolButton;
    N4: TMenuItem;
    A1: TMenuItem;
    N5: TMenuItem;
    Z2: TMenuItem;
    N6: TMenuItem;
    O1: TMenuItem;
    N8: TMenuItem;
    J1: TMenuItem;
    N9: TMenuItem;
    F1: TMenuItem;
    N10: TMenuItem;
    G1: TMenuItem;
    N11: TMenuItem;
    X1: TMenuItem;
    Z3: TMenuItem;
    R1: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    A2: TMenuItem;
    tmr1: TTimer;
    il2: TImageList;
    suiPanel2: TsuiPanel;
    suiPanel3: TsuiPanel;
    suiPanel4: TsuiPanel;
    lbl1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label16: TLabel;
    suiEdit1: TsuiEdit;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label22: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label15: TLabel;
    dbgrd1: TDBGrid;
    pm1: TPopupMenu;
    pm2: TPopupMenu;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N31: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    ds1: TDataSource;
    ds2: TClientDataSet;
    R2: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    X2: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N7: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
        procedure tmr1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N8Click(Sender: TObject);
    procedure lv1Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure btn11Click(Sender: TObject);
    procedure dbgrd1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure A2Click(Sender: TObject);
    procedure R2Click(Sender: TObject);
    procedure R1Click(Sender: TObject);
    procedure Z3Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure O1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure Z1Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure A1Click(Sender: TObject);
    procedure N49Click(Sender: TObject);
    procedure Z2Click(Sender: TObject);
    procedure N50Click(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure X2Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure N48Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N55Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure F1Click(Sender: TObject);
    procedure G1Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    closeflag:Boolean;
    ydflag:Boolean;
    typename:string;
    menoy:string;
    roomtype,roomnum,roomfloor:string;
    roomprice,roomhour,roomhourprice,roomdeposit:string;
    procedure TotalRoomState;
    procedure RefrushRoomState(flag:integer);
  end;

var
  MainForm: TMainForm;

implementation

uses LoginUnit, SKKDUnit, SysSetUnit, AbortUnit, LogUnit, PasswordUnit,
  SKEditUnit, ChangeUnit, StateEditUnit, PayUnit, TTKDUnit, TTEditUnit,
  YDGLUnit, YDDJUnit, ZJXFUnit, YYCXUnit, SetRoomUnit, SetGoodUnit,
  SetGuestSourceUnit, SetUserUnit, SetServerUnit, CFZDUnit,
  GuestSelectUnit, GZGLUnit, HBZDUnit, BKJZUnit, BrowseKSDAUnit;

{$R *.dfm}

procedure TMainForm.tmr1Timer(Sender: TObject);
begin
  sdchnl1.Caption:=datetimetostr(now);
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if not closeflag then
    begin
      if MessageDlg('确定退出本系统吗？',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
        begin
          self.ds2.Close;
          loginform.Close;
        end
      else
        action:=caNone;
    end
  else
    begin
      self.ds2.Close;
      loginform.Close;
    end;
end;

procedure TMainForm.RefrushRoomState(flag:integer);
var
  ListItem: TListItem;
begin
  suiPanel1.Caption:='';
  suiPanel2.Caption:='餐台类型';
  Label25.Caption:='';
  //Label26.Caption:='';
  Label29.Caption:='';
  Label30.Caption:='';
  Label31.Caption:='';
  Label33.Caption:='';
  lv1.Items.Clear;
  lv1.Items.BeginUpdate;
  case flag of
    0:loginform.ExecuteSQL('select * from room');
    1:loginform.ExecuteSQL('select * from room where room_state=''可供''');
    2:loginform.ExecuteSQL('select * from room where room_state=''占用''');
    3:loginform.ExecuteSQL('select * from room where room_state=''停用''');
    4:loginform.ExecuteSQL('select * from room where room_state=''预订''');
    5:loginform.ExecuteSQL('select * from room where room_state=''清理''');
    6:loginform.ExecuteSQL('select * from room where room_type=''01''');
    7:loginform.ExecuteSQL('select * from room where room_type=''02''');
    8:loginform.ExecuteSQL('select * from room where room_type=''03''');
    9:loginform.ExecuteSQL('select * from room where room_type=''04''');
    10:loginform.ExecuteSQL('select * from room where room_type=''05''');
    11:loginform.ExecuteSQL('select * from room where room_type=''06''');
    12:loginform.ExecuteSQL('select * from room where room_type=''07''');
  end;
  loginform.dsQuery.First;
  while not loginform.dsQuery.Eof do
    begin
      ListItem:=lv1.Items.Add;
      Listitem.Caption :=loginform.dsQuery.fieldbyname('room_num').AsString ;
      if loginform.dsQuery.fieldbyname('room_state').AsString='可供' then
        begin
          ListItem.ImageIndex := 0;
        end;
      if loginform.dsQuery.fieldbyname('room_state').AsString='占用' then
        begin
          ListItem.ImageIndex := 1;
        end;
      if loginform.dsQuery.fieldbyname('room_state').AsString='预订' then
        begin
          ListItem.ImageIndex := 2;
        end;
      if loginform.dsQuery.fieldbyname('room_state').AsString='停用' then
        begin
          ListItem.ImageIndex := 3;
        end;

      loginform.dsQuery.Next;
    end;
  loginform.dsQuery.Close;
  lv1.Items.EndUpdate;
  self.ds2.Close;
  TotalRoomState;
end;

procedure TMainForm.N8Click(Sender: TObject);
begin
  close;
end;

procedure TMainForm.lv1Click(Sender: TObject);
var
  vtype,state:string;
  id:string;
  temp:string;
  entertime:TDateTime;
  day,hour,minute:Integer;
begin
  ds2.Close;
  suiPanel1.Caption:='';
  suiPanel2.Caption:='餐台类型';
  Label25.Caption:='';
  //Label26.Caption:='';
  Label29.Caption:='';
  Label30.Caption:='';
  Label31.Caption:='';
  Label33.Caption:='';
  if (lv1.Selected<>nil) and (lv1.Selected.Index>=0) then
    begin
      loginform.ExecuteSQL('select * from room where room_num='''+lv1.Selected.Caption+'''');
      id:=LoginForm.dsQuery.FieldByName('room_id').AsString;
      vtype:=loginform.dsQuery.fieldbyname('room_type').AsString;
      state:=loginform.dsQuery.fieldbyname('room_state').AsString;
      loginform.dsQuery.Close;
      loginform.ExecuteSQL('select * from roomtype where type_xh='''+vtype+'''');
      suiPanel2.Caption:=loginform.dsQuery.fieldbyname('type_mc').AsString;
      //label26.Caption:=loginform.dsQuery.fieldbyname('type_rs').AsString+'人';
      label25.Caption:=formatfloat('￥0.00',loginform.dsQuery.fieldbyname('type_menoy').AsFloat);
      loginform.dsQuery.Close;
      if (state='占用')then
        begin
          suiPanel1.Caption:='【'+state+'】'+suiPanel2.Caption+':'+lv1.Selected.Caption+'  消费清单如下';
          ds2.Close;
          ds2.CommandText:='select * from Consume';
          ds2.Open;
          ds2.Filter:='Lbxf_xfbh='''+id+''' and Lbxf_sph='''+lv1.Selected.Caption+'''';
          ds2.Filtered:=true;
          LoginForm.dsQuery.Close;
          loginform.ExecuteSQL('select * from house where id='''+id+'''');
          //Label26.Caption:=LoginForm.dsQuery.fieldbyname('peopelnum').AsString;
          entertime:=LoginForm.dsQuery.fieldbyname('entertime').AsDateTime;
          LoginForm.dsQuery.Close;
          temp:=DateTimeToStr(entertime);
          Label29.Caption:=Copy(temp,1,10);
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -