?? ug_mb_scq.pas

?? 一個針對酒店大堂管理的delphi應用管理軟件
?? PAS
字號:
unit ug_mb_scq;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons,u_main;

type
  Tg_mb_scq = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    Memo2: TMemo;
    ListBox1: TListBox;
    zd1: TListBox;
    memo1: TMemo;
    mbmc: TEdit;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    zd: TListBox;
    cz: TListBox;
    cxnr: TEdit;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    tj: TListBox;
    procedure zdDblClick(Sender: TObject);
    procedure czDblClick(Sender: TObject);
    procedure tjDblClick(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  g_mb_scq: Tg_mb_scq;
  i_zd,i_cz,i_tj,i_cxnr,i_zd1:integer;

implementation

uses ug_mb;

{$R *.DFM}
procedure Tg_mb_scq.zdDblClick(Sender: TObject);
begin
 if i_cz=1 then
   begin
     messagebox(handle,'請選擇[操作]!','系統提示信息',MB_OK+MB_ICONWARNING);
     cz.setfocus;
     exit;
   end;
 if i_tj=1 then
   begin
     messagebox(handle,'請先選擇[條件]!','系統提示信息',MB_OK+MB_ICONWARNING);
     tj.setfocus;
     exit;
   end;
 if i_cxnr=1 then
   begin
     messagebox(handle,'請加入[查詢內容]!','系統提示信息',MB_OK+MB_ICONWARNING);
     cxnr.setfocus;
     exit;
   end;
 if Memo1.Text <> '' then
    Memo1.Text := Memo1.Text + ' ';
 if Memo2.Text <> '' then
    Memo2.Text := Memo2.Text + ' ';
 Memo1.Text := Memo1.Text + zd.Items[zd.ItemIndex];
 Memo2.Text := Memo2.Text + zd1.Items[zd.ItemIndex];
 i_zd1:=zd.ItemIndex;
 i_zd:=0;
 i_cz:=1;

end;

procedure Tg_mb_scq.czDblClick(Sender: TObject);
begin
 if i_zd=1 then
   begin
     messagebox(handle,'請選擇[字段]!','系統提示信息',MB_OK+MB_ICONWARNING);
     zd.setfocus;
     exit;
   end;
 if i_tj=1 then
   begin
     messagebox(handle,'請先選擇[條件]!','系統提示信息',MB_OK+MB_ICONWARNING);
     tj.setfocus;
     exit;
   end;
 if i_cxnr=1 then
   begin
     messagebox(handle,'請加入[查詢內容]!','系統提示信息',MB_OK+MB_ICONWARNING);
     cxnr.setfocus;
     exit;
   end;
 memo1.Text := memo1.Text + ' '+ cz.Items[cz.ItemIndex];
 memo2.Text := memo2.Text + ' '+ cz.Items[cz.ItemIndex];
 i_cz:=0;
 i_cxnr:=1;

end;

procedure Tg_mb_scq.tjDblClick(Sender: TObject);
begin
 if i_zd=1 then
   begin
     messagebox(handle,'請選擇[字段]!','系統提示信息',MB_OK+MB_ICONWARNING);
     zd.setfocus;
     exit;
   end;
 if i_cz=1 then
   begin
     messagebox(handle,'請先選擇[操作]!','系統提示信息',MB_OK+MB_ICONWARNING);
     cz.setfocus;
     exit;
   end;
 if i_cxnr=1 then
   begin
     messagebox(handle,'請加入[查詢內容]!','系統提示信息',MB_OK+MB_ICONWARNING);
     cxnr.setfocus;
     exit;
   end;
 if tj.ItemIndex=0 then
    begin
     memo1.Text := memo1.Text + ' '+ '并且';
     memo2.Text := memo2.Text + ' '+ 'and';
    end
   else
    begin
     memo1.Text := memo1.Text + ' '+ '或者';
     memo2.Text := memo2.Text + ' '+ 'or';
    end;
 i_zd:=1;
 i_tj:=0;

end;

procedure Tg_mb_scq.BitBtn4Click(Sender: TObject);
begin
 if i_zd=1 then
   begin
     messagebox(handle,'請先選擇[字段]!','系統提示信息',MB_OK+MB_ICONWARNING);
     zd.setfocus;
     exit;
   end;
 if i_tj=1 then
   begin
     messagebox(handle,'請先選擇[條件]!','系統提示信息',MB_OK+MB_ICONWARNING);
     tj.setfocus;
     exit;
   end;
 if i_cz=1 then
   begin
     messagebox(handle,'請選擇[操作]!','系統提示信息',MB_OK+MB_ICONWARNING);
     cz.setfocus;
     exit;
   end;
 if trim(cxnr.text)='' then
   begin
     messagebox(handle,'請輸入查詢內容!','系統提示信息',MB_OK+MB_ICONWARNING);
     cxnr.setfocus;
     exit;
   end;
 if s_mb='01' then
  case i_zd1 of
   0:
    try
      strtoint(cxnr.text);
     except
      messagebox(handle,'請輸入合法的數字!','系統提示信息',MB_OK+MB_ICONWARNING);
      cxnr.setfocus;
      exit;
    end;
   3:
    try
      strtoint(cxnr.text);
     except
      messagebox(handle,'請輸入結帳方式編號! 如下:'+#13+'1.現金,2.支票,3.信用卡,4.簽單,5.免單,6.其它','系統提示信息',MB_OK+MB_ICONWARNING);
      cxnr.setfocus;
      exit;
    end;
   4:
    try
      strtoint(cxnr.text);
     except
      messagebox(handle,'請輸入收入類別編號! 如下:'+#13+'1.早餐,2.午餐,3.晚餐,4.夜宵,5.宴會','系統提示信息',MB_OK+MB_ICONWARNING);
      cxnr.setfocus;
      exit;
    end;
   5:
    try
      strtodate(cxnr.text);
     except
      messagebox(handle,'請輸入合法的日期! 如:1998.11.18','系統提示信息',MB_OK+MB_ICONWARNING);
      cxnr.setfocus;
      exit;
    end;
   6..10:
    try
      strtocurr(cxnr.text);
     except
      messagebox(handle,'請輸入合法的數字! 如:118.18','系統提示信息',MB_OK+MB_ICONWARNING);
      cxnr.setfocus;
      exit;
    end;
  end;
 if s_mb='02' then
  case i_zd1 of
   0:
    try
      strtoint(cxnr.text);
     except
      messagebox(handle,'請輸入合法的數字!','系統提示信息',MB_OK+MB_ICONWARNING);
      cxnr.setfocus;
      exit;
    end;
  1,2:
    try
      strtodate(cxnr.text);
     except
      messagebox(handle,'請輸入合法的日期! 如:1998.11.18','系統提示信息',MB_OK+MB_ICONWARNING);
      cxnr.setfocus;
      exit;
    end;
  5,6:
    try
      strtoint(cxnr.text);
     except
      messagebox(handle,'請輸入合法的整數!','系統提示信息',MB_OK+MB_ICONWARNING);
      cxnr.setfocus;
      exit;
    end;
   13:
    try
      strtoint(cxnr.text);
     except
      messagebox(handle,'請輸入結帳方式編號! 如下:'+#13+'1.現金,2.支票,3.信用卡,4.簽單,5.免單,6.其它','系統提示信息',MB_OK+MB_ICONWARNING);
      cxnr.setfocus;
      exit;
    end;
   7..12:
    try
      strtocurr(cxnr.text);
     except
      messagebox(handle,'請輸入合法的數字! 如:118.18','系統提示信息',MB_OK+MB_ICONWARNING);
      cxnr.setfocus;
      exit;
    end;
  end;
 if s_mb='03' then
  case i_zd1 of
   2,4,5:
    try
      strtoint(cxnr.text);
     except
      messagebox(handle,'請輸入合法的整數!','系統提示信息',MB_OK+MB_ICONWARNING);
      cxnr.setfocus;
      exit;
    end;
  9:
    try
      strtodate(cxnr.text);
     except
      messagebox(handle,'請輸入合法的日期! 如:1998.11.18','系統提示信息',MB_OK+MB_ICONWARNING);
      cxnr.setfocus;
      exit;
    end;
   6:
    try
      strtoint(cxnr.text);
     except
      messagebox(handle,'請輸入結帳方式編號! 如下:'+#13+'1.現金,2.支票,3.信用卡,4.簽單,5.免單,6.其它','系統提示信息',MB_OK+MB_ICONWARNING);
      cxnr.setfocus;
      exit;
    end;
   3:
    try
      strtocurr(cxnr.text);
     except
      messagebox(handle,'請輸入合法的數字! 如:118.18','系統提示信息',MB_OK+MB_ICONWARNING);
      cxnr.setfocus;
      exit;
    end;
  end;
 if s_mb='04' then
  if  i_zd1=6 then
    try
      strtodate(cxnr.text);
     except
      messagebox(handle,'請輸入合法的日期! 如:1998.11.18','系統提示信息',MB_OK+MB_ICONWARNING);
      cxnr.setfocus;
      exit;
    end;
 memo1.Text := memo1.Text + ' '+ cxnr.text;
 memo2.Text := memo2.Text + ' '+ cxnr.text;
 i_tj:=1;
 i_cxnr:=0;
end;

procedure Tg_mb_scq.BitBtn1Click(Sender: TObject);
begin
  memo1.text:='';
  memo2.text:='';
end;

procedure Tg_mb_scq.BitBtn5Click(Sender: TObject);
var
 st:string;
begin
 if i_cz=1 then
   begin
     messagebox(handle,'模板內容不完整，請選擇[操作]!','系統提示信息',MB_OK+MB_ICONWARNING);
     cz.setfocus;
     exit;
   end;
 if i_cxnr=1 then
   begin
     messagebox(handle,'模板內容不完整，請錄入[查詢內容]!','系統提示信息',MB_OK+MB_ICONWARNING);
     cxnr.setfocus;
     exit;
   end;
 if trim(mbmc.text)='' then
   begin
     messagebox(handle,'請輸入模板模板名稱!','系統提示信息',MB_OK+MB_ICONWARNING);
     mbmc.setfocus;
     exit;
   end;
 if trim(memo1.text)='' then
   begin
     messagebox(handle,'模板內容不能為空!,請選擇字段!','系統提示信息',MB_OK+MB_ICONWARNING);
     zd.setfocus;
     exit;
   end;
 st:=memo1.Lines[memo1.Lines.Count-1];
 if (copy(st,length(st)-1,length(st))='or') or (copy(st,length(st)-2,length(st))='and') then
   begin
     messagebox(handle,'模板內容不完整!,請選擇字段!','系統提示信息',MB_OK+MB_ICONWARNING);
     zd.setfocus;
     exit;
   end;
 g_mb.mb.Append;
 g_mb.mb.FieldByName('bh').value:=main.h_n_bh('select max(bh) as bh from mb');
 g_mb.mb.FieldByName('bm').value:=s_mb;
 g_mb.mb.FieldByName('mbmc').value:=mbmc.text;
 g_mb.mb.FieldByName('mbnr1').value:=memo1.text;
 g_mb.mb.FieldByName('mbnr2').value:=memo2.text;
 g_mb.mb.post;
 close;
end;

procedure Tg_mb_scq.BitBtn3Click(Sender: TObject);
begin
 close;
end;

procedure Tg_mb_scq.FormShow(Sender: TObject);
begin
 mbmc.Text:='';
 cxnr.Text:='';
 memo1.Text:='';
 memo2.Text:='';
 i_zd:=1;
 i_cz:=0;
 i_tj:=0;
 i_cxnr:=0;
 zd.Items.Clear;
 zd1.Items.Clear;
 if s_mb='01' then
  begin
   caption:='營業查詢-模板生成器';
   zd.Items.Add('菜單編號');
   zd.Items.Add('?？途幪?#039;);
   zd.Items.Add('服務員號');
   zd.Items.Add('結帳方式');
   zd.Items.Add('收入類別');
   zd.Items.Add('用餐日期');
   zd.Items.Add('菜單總計');
   zd.Items.Add('小計金額');
   zd.Items.Add('服務費');
   zd.Items.Add('折扣費');
   zd.Items.Add('贈送金額');
   zd1.Items.Add('cdbh');
   zd1.Items.Add('ckbh');
   zd1.Items.Add('fwyh');
   zd1.Items.Add('jzfs');
   zd1.Items.Add('srlx');
   zd1.Items.Add('ycrq');
   zd1.Items.Add('zj');
   zd1.Items.Add('xj');
   zd1.Items.Add('fwf');
   zd1.Items.Add('zkf');
   zd1.Items.Add('zsje');
  end;
 if s_mb='02' then
  begin
   caption:='宴會預定-模板生成器';
   zd.Items.Add('預定單號');
   zd.Items.Add('預定日期');
   zd.Items.Add('宴會日期');
   zd.Items.Add('常客編號');
   zd.Items.Add('聯系人');
   zd.Items.Add('客人總數');
   zd.Items.Add('預定桌數');
   zd.Items.Add('宴會定金');
   zd.Items.Add('宴會標準');
   zd.Items.Add('宴會金額');
   zd.Items.Add('實際金額');
   zd.Items.Add('服務費率');
   zd.Items.Add('打折率');
   zd.Items.Add('結帳方式');
   zd.Items.Add('接待人');
   zd.Items.Add('承辦人');
   zd1.Items.Add('yddh');
   zd1.Items.Add('ydrq');
   zd1.Items.Add('yhrq');
   zd1.Items.Add('ckbh');
   zd1.Items.Add('lxr');
   zd1.Items.Add('krzs');
   zd1.Items.Add('ydzs');
   zd1.Items.Add('dj');
   zd1.Items.Add('yhbz');
   zd1.Items.Add('yhje');
   zd1.Items.Add('sjje');
   zd1.Items.Add('fwfl');
   zd1.Items.Add('dzl');
   zd1.Items.Add('jzfs');
   zd1.Items.Add('jdr');
   zd1.Items.Add('cbr');
  end;
 if s_mb='03' then
  begin
   caption:='常客管理-模板生成器';
   zd.Items.Add('?？途幪?#039;);
   zd.Items.Add('助記碼');
   zd.Items.Add('消費次數');
   zd.Items.Add('消費總額');
   zd.Items.Add('信譽等級');
   zd.Items.Add('權利等級');
   zd.Items.Add('單位性質');
   zd.Items.Add('代表姓名');
   zd.Items.Add('性別');
   zd.Items.Add('出生日期');
   zd.Items.Add('職務');
   zd1.Items.Add('ckbh');
   zd1.Items.Add('zjm');
   zd1.Items.Add('xfcs');
   zd1.Items.Add('xfze');
   zd1.Items.Add('xydj');
   zd1.Items.Add('qldj');
   zd1.Items.Add('dwxz');
   zd1.Items.Add('dbxm');
   zd1.Items.Add('xb');
   zd1.Items.Add('csrq');
   zd1.Items.Add('zw');
  end;
 if s_mb='04' then
  begin
   caption:='人事管理-模板生成器';
   zd.Items.Add('編號');
   zd.Items.Add('姓名');
   zd.Items.Add('性別');
   zd.Items.Add('部門');
   zd.Items.Add('職務');
   zd.Items.Add('學歷');
   zd.Items.Add('出生日期');
   zd.Items.Add('愛好');
   zd1.Items.Add('bh');
   zd1.Items.Add('xm');
   zd1.Items.Add('xb');
   zd1.Items.Add('bm');
   zd1.Items.Add('zw');
   zd1.Items.Add('xl');
   zd1.Items.Add('csrq');
   zd1.Items.Add('ah');
  end;
end;

end.
?? 文件大小 2438 K
?? 上傳用戶 Emouse
?? 所屬分類酒店行業
??? 相關標簽

#delphi #管理軟件
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? ug_mb_scq.pas

?? 快捷鍵說明
