ug_mb_scq.pas

恒邦餐饮管理源码。将源码放到C:hbjdcyzy 登陆:1001/1001

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('常客编号');
   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('常客编号');
   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.