unitinroom.pas

自己做过的工程

unit unitinroom;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Mask, DBCtrls, Grids, DBGrids, ExtCtrls, DB,
  ADODB, Buttons;

type
  Tforminroom = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    ed_roomid: TEdit;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    ed_username: TEdit;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    cb_certificatetpye: TComboBox;
    StaticText5: TStaticText;
    ed_certificateid: TEdit;
    StaticText6: TStaticText;
    ed_nativeplace: TEdit;
    StaticText7: TStaticText;
    ed_userno: TEdit;
    StaticText8: TStaticText;
    ed_employeeid: TEdit;
    DBGrid1: TDBGrid;
    StaticText10: TStaticText;
    ed_remark: TEdit;
    StaticText11: TStaticText;
    ed_intime: TEdit;
    StaticText12: TStaticText;
    ed_usersex: TComboBox;
    cb_roomtype: TComboBox;
    TabSheet2: TTabSheet;
    StaticText13: TStaticText;
    Button2: TButton;
    Button5: TButton;
    memo_remark: TMemo;
    Button6: TButton;
    ed_errorroomid: TEdit;
    StaticText14: TStaticText;
    StaticText15: TStaticText;
    ed_bookmoney: TEdit;
    Button4: TButton;
    Button3: TButton;
    Button1: TButton;
    StaticText9: TStaticText;
    StaticText16: TStaticText;
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);

  private

    { Private declarations }
  public
  //自己定义的函数
 function fun_roomcolorchange(roomid:integer;roomcolor:tcolor):string;
    { Public declarations }
end;

var
  forminroom: Tforminroom;

implementation
   uses unitDMHotel,unitroom,unitlogging,unitchangeroom;
{$R *.dfm}
//自己定义的函数的实现部分
function Tforminroom.fun_roomcolorchange(roomid:integer;roomcolor:tcolor):string;
begin
  case roomid of
     //401房间
     8401:
     begin
        formroom.room401.Color:=roomcolor;
     end;
     //402房间
     8402:
     begin
        formroom.room402.Color:=roomcolor;
     end;
          //403房间
     8403:
     begin
        formroom.room403.Color:=roomcolor;
     end;
          //404房间
     8404:
     begin
        formroom.room404.Color:=roomcolor;
     end;
          //405房间
     8405:
     begin
        formroom.room405.Color:=roomcolor;
     end;
          //406房间
     8406:
     begin
        formroom.room406.Color:=roomcolor;
     end;
          //407房间
     8407:
     begin
        formroom.room407.Color:=roomcolor;
     end;
          //408房间
     8408:
     begin
        formroom.room408.Color:=roomcolor;
     end;
          //409房间
     8409:
     begin
        formroom.room409.Color:=roomcolor;
     end;
          //410房间
     8410:
     begin
        formroom.room410.Color:=roomcolor;
     end;
          //411房间
     8412:
     begin
        formroom.room411.Color:=roomcolor;
     end;
          //412房间
     8416:
     begin
        formroom.room412.Color:=roomcolor;
     end;
          //413房间
     8418:
     begin
        formroom.room413.Color:=roomcolor;
     end;
          //501房间
     8501:
     begin
        formroom.room501.Color:=roomcolor;
     end;
          //502房间
     8502:
     begin
        formroom.room502.Color:=roomcolor;
     end;
          //503房间
     8503:
     begin
        formroom.room503.Color:=roomcolor;
     end;
          //504房间
     8504:
     begin
        formroom.room504.Color:=roomcolor;
     end;
          //505房间
     8505:
     begin
        formroom.room505.Color:=roomcolor;
     end;
          //506房间
     8506:
     begin
        formroom.room506.Color:=roomcolor;
     end;
          //507房间
     8507:
     begin
        formroom.room507.Color:=roomcolor;
     end;
          //508房间
     8508:
     begin
        formroom.room508.Color:=roomcolor;
     end;
          //509房间
     8509:
     begin
        formroom.room509.Color:=roomcolor;
     end;
          //510房间
     8510:
     begin
        formroom.room510.Color:=roomcolor;
     end;
          //511房间
     8512:
     begin
        formroom.room511.Color:=roomcolor;
     end;
          //512房间
     8516:
     begin
        formroom.room512.Color:=roomcolor;
     end;
          //513房间
     8518:
     begin
        formroom.room513.Color:=roomcolor;
     end;
          //601房间
     8602:
     begin
        formroom.room601.Color:=roomcolor;
     end;
          //602房间
     8604:
     begin
        formroom.room602.Color:=roomcolor;
     end;
          //603房间
     8606:
     begin
        formroom.room603.Color:=roomcolor;
     end;
          //604房间
     8608:
     begin
        formroom.room604.Color:=roomcolor;
     end;
          //605房间
     8610:
     begin
        formroom.room605.Color:=roomcolor;
     end;
          //606房间
     8612:
     begin
        formroom.room606.Color:=roomcolor;
     end;
  end;
end;


procedure Tforminroom.Button4Click(Sender: TObject);
begin
//formroom
close;
end;

procedure Tforminroom.Button1Click(Sender: TObject);
var
  vcolorroomid:integer;
  vroomid:string;
  vroomstatus:string;
  vstatusid:string;
  vroominmanagecode:string;
  vcoderoom:integer;
  vitemtype:string;
  vitemno:string;
  vtest:integer;
begin