unitsupmanage.~pas

来自「自己做过的工程」· ~PAS 代码 · 共 675 行 · 第 1/2 页

unit unitsupmanage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ImgList, ComCtrls, ToolWin, ExtCtrls, StdCtrls, DB, ADODB,
  Grids, DBGrids;

type
  Tformsupmanage = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    ImageList1: TImageList;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton5: TToolButton;
    ToolBar2: TToolBar;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    sroom101: TPanel;
    sroom102: TPanel;
    sroom103: TPanel;
    sroom104: TPanel;
    sroom105: TPanel;
    sroom106: TPanel;
    sroom107: TPanel;
    sroom108: TPanel;
    sroom109: TPanel;
    sroom110: TPanel;
    sroom201: TPanel;
    sroom202: TPanel;
    sroom203: TPanel;
    sroom204: TPanel;
    sroom205: TPanel;
    sroom303: TPanel;
    sroom305: TPanel;
    sroom304: TPanel;
    sroom301: TPanel;
    sroom302: TPanel;
    Timer1: TTimer;
    lab_systime: TLabel;
    panel25: TPanel;
    Panel26: TPanel;
    Panel27: TPanel;
    Panel28: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    lab_sysdate: TLabel;
    lab_username: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    lab_sroomno: TLabel;
    Label9: TLabel;
    lab_sroomname: TLabel;
    Label11: TLabel;
    lab_sroomtype: TLabel;
    Label13: TLabel;
    lab_sroomstatus: TLabel;
    N9: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    sroom306: TPanel;
    sroom307: TPanel;
    sroom308: TPanel;
    sroom309: TPanel;
    sroom310: TPanel;
    procedure Timer1Timer(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure sroom101Click(Sender: TObject);
    procedure sroom102Click(Sender: TObject);
    procedure sroom103Click(Sender: TObject);
    procedure sroom104Click(Sender: TObject);
    procedure sroom105Click(Sender: TObject);
    procedure sroom106Click(Sender: TObject);
    procedure sroom107Click(Sender: TObject);
    procedure sroom108Click(Sender: TObject);
    procedure sroom109Click(Sender: TObject);
    procedure sroom110Click(Sender: TObject);
    procedure sroom201Click(Sender: TObject);
    procedure sroom202Click(Sender: TObject);
    procedure sroom203Click(Sender: TObject);
    procedure sroom204Click(Sender: TObject);
    procedure sroom205Click(Sender: TObject);
    procedure sroom301Click(Sender: TObject);
    procedure sroom302Click(Sender: TObject);
    procedure sroom303Click(Sender: TObject);
    procedure sroom304Click(Sender: TObject);
    procedure sroom305Click(Sender: TObject);
    procedure sroom306Click(Sender: TObject);
    procedure sroom307Click(Sender: TObject);
    procedure sroom308Click(Sender: TObject);
    procedure sroom309Click(Sender: TObject);
    procedure sroom310Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);

  private
    { Private declarations }
  public
    function sroomstatus_show(sroomno:integer):string; //显示详细包间状况
    function sroomcolor_get(var statuscolor:Tcolor; sroomno:integer):string;//取得包间状态颜色
    function sroomstatus_change(statuscolor:Tcolor; sroomno:integer;status:string):string;//改变包间状态，同时改变图标颜色
  end;

var
  formsupmanage: Tformsupmanage;
  color1,color2,color3,color4:Tcolor;

implementation
     uses Main,unitDMHotel,unitlogging,unitexitsys,unitmodifypassword,unitsroomopen,unitsroomstop,
          unitsroombook,unitsupdetails,unitsupcheck,unitsroombookquery,unitsroomquery,unitsroomHquery,
          unitsupcheckCquery,unitsupcheckSquery;
{$R *.dfm}

///////////////////////餐饮管理子系统自定义函数//////////////////////

//在点击每一个包间图标时，显示详细包间状况
function Tformsupmanage.sroomstatus_show(sroomno:integer):string;
begin
    DMHotel.ds_sup_room_status.Open;
    DMHotel.ds_sup_room_status.Locate('sroomno',inttostr(sroomno),[]);
    lab_sroomno.Caption:=DMHotel.ds_sup_room_status.FieldByName('sroomno').AsString;
    lab_sroomname.Caption:=DMHotel.ds_sup_room_status.FieldByName('sroomname').AsString;
    lab_sroomtype.Caption:=DMHotel.ds_sup_room_status.FieldByName('sroomtype').AsString;
    lab_sroomstatus.Caption:=DMHotel.ds_sup_room_status.FieldByName('sroomstatus').AsString;
    DMHotel.ds_sup_room_status.Close;
end;

//取得各包间相应的状态颜色
function Tformsupmanage.sroomcolor_get(var statuscolor:Tcolor; sroomno:integer):string;
var
    ls_statusno:string;
begin
    //找到该包间的记录
    DMHotel.ds_sup_room_status.Open;
    if  not DMHotel.ds_sup_room_status.Locate('sroomno',inttostr(sroomno),[])then
        begin
            showmessage('包间编号'+inttostr(sroomno)+'不存在！');
            exit;
        end;

    ls_statusno:=DMHotel.ds_sup_room_status.FieldValues['statusno'];
    //取得状态颜色
    case strtoint(ls_statusno) of

    1:  //空闲
    begin
        statuscolor:=color1;
    end;
    2: //预定
    begin
        statuscolor:=color2;
    end;
    3://使用
    begin
        statuscolor:=color3;
    end;
    4://停用
    begin
        statuscolor:=color4;
    end;
end;

end;

//改变包间状态，同时改变图标颜色
function Tformsupmanage.sroomstatus_change(statuscolor:Tcolor; sroomno:integer; status:string):string;
var
     statusno:integer;
begin
    //找到该包间的记录
    DMHotel.ds_sup_room_status.Open;
    if  not DMHotel.ds_sup_room_status.Locate('sroomno',inttostr(sroomno),[])then
        begin
            showmessage('包间编号'+inttostr(sroomno)+'不存在！');
            exit;
        end;

     //通过包间状态得到状态编号
     if status='空闲' then
        statusno:=1;
     if status='预定' then
        statusno:=2;
     if status='使用' then
        statusno:=3;
     if status='停用' then
        statusno:=4;

     //修改sup_room_status包间状态
     SQL:='update sup_room_status '+'set sroomstatus='+''''+status+''''+','+
          'statusno='+''''+inttostr(statusno)+''''+' '+
          'where sroomno='+''''+inttostr(sroomno)+'''';
     DMHotel.ADOQuery1.SQL.Text:=SQL;
     try
         DMHotel.ADOQuery1.ExecSQL;
     except
         showmessage('状态改变失败！');
         exit;
     end;

    //改变图标颜色
    case sroomno of
    //一楼包间
    101://101包间
        sroom101.Color:=statuscolor;
    102://102包间
        sroom102.Color:=statuscolor;
    103://103包间
        sroom103.Color:=statuscolor;
    104://104包间
        sroom104.Color:=statuscolor;
    105://105包间
        sroom105.Color:=statuscolor;
    106://106包间
        sroom106.Color:=statuscolor;
    107://107包间
        sroom107.Color:=statuscolor;
    108://108包间
        sroom108.Color:=statuscolor;
    109://109包间
        sroom109.Color:=statuscolor;
    110://110包间
        sroom110.Color:=statuscolor;

    //二楼包间
    201://201包间
        sroom201.Color:=statuscolor;
    202://202包间
        sroom202.Color:=statuscolor;
    203://203包间
        sroom203.Color:=statuscolor;
    204://204包间
        sroom204.Color:=statuscolor;
    205://205包间
        sroom205.Color:=statuscolor;

    //三楼包间
    301://301包间
        sroom301.Color:=statuscolor;
    302://302包间
        sroom302.Color:=statuscolor;
    303://303包间
        sroom303.Color:=statuscolor;
    304://304包间
        sroom304.Color:=statuscolor;
    305://305包间
        sroom305.Color:=statuscolor;
    306://306包间
        sroom306.Color:=statuscolor;
    307://307包间
        sroom307.Color:=statuscolor;
    308://308包间
        sroom308.Color:=statuscolor;
    309://309包间
        sroom309.Color:=statuscolor;
    310://310包间
        sroom310.Color:=statuscolor;
    end;

    DMHotel.ds_sup_room_status.Close;
end;

///////////////////////系统过程////////////////////
//获取营业日期和系统时间
procedure Tformsupmanage.Timer1Timer(Sender: TObject);
begin
    //获取系统时间
    formsupmanage.lab_systime.Caption:=formatdatetime('hh:mm:ss',Now);
    formsupmanage.lab_sysdate.Caption:=formatdatetime('yyyy"年"m"月"d"日"',Now);

end;

//退出系统
procedure Tformsupmanage.ToolButton7Click(Sender: TObject);
begin
    formexitsys.ShowModal;
end;


//初始化窗口
procedure Tformsupmanage.FormCreate(Sender: TObject);
var
    ls_statuscolor:Tcolor;
    date1:Tdate;
begin
    date1:=date;
    //if date1>strtodate('2003-4-1') then
       //close;

    //定义显示颜色
    color1:=clCaptionText;//空闲