unit1.~pas

一款相当不错的餐饮业的管理软件,可以对饭店进行模块化管理

 begin
  TLCYGLXT.FJTHLXB.Open;
  FJTHLXSZ:=TFJTHLXSZ.Create(Self);
  FJTHLXSZ.ShowModal;
 end;
end;

procedure TMainForm.N39Click(Sender: TObject);       //调入仓库信息设置
begin
 If Not Assigned(CKXXSZ) Then
 begin
  TLCYGLXT.CKXXB.open;
  CKXXSZ:=TCKXXSZ.Create(Self);
  CKXXSZ.ShowModal;
 end;
end;

procedure TMainForm.N32Click(Sender: TObject);       //调入员工类别设置
begin
 If Not Assigned(YGLBSZ) Then
 begin
  TLCYGLXT.YGLBXXB.Open;
  YGLBSZ:=TYGLBSZ.Create(Self);
  YGLBSZ.ShowModal;
 end;
end;

procedure TMainForm.N40Click(Sender: TObject);        //调入基础商品登记
begin
 If Not Assigned(SPJCXXLR) Then
 begin
  TLCYGLXT.SPJCXXB.Open;
  SPJCXXLR:=TSPJCXXLR.Create(Self);
  SPJCXXLR.ShowModal;
 end;
end;

procedure TMainForm.N4Click(Sender: TObject);       //调入藏据信息设置
begin
 If Not Assigned(CJXXSZ) Then
 begin
  TLCYGLXT.CJFYXXB.Open;
  TLCYGLXT.CJLBXXB.Open;
  CJXXSZ:=TCJXXSZ.Create(Self);
  CJXXSZ.ShowModal;
 end;
end;

procedure TMainForm.N6Click(Sender: TObject);      //调入菜谱信息设置
begin
 If Not Assigned(CPXXSZ) Then
 begin
  TLCYGLXT.CPFYXXB.Open;//打开菜谱费用信息表
  TLCYGLXT.CXLBXXB.Open;//打开菜系类别信息表
  CPXXSZ:=TCPXXSZ.Create(Self);
  CPXXSZ.ShowModal;
 end;
end;

procedure TMainForm.N24Click(Sender: TObject);        //调入员工管理
begin
 If Not Assigned(YGXXGL) Then
 begin
  TLCYGLXT.YGGZXXB.Open;//打开员工工资信息表
  TLCYGLXT.YGXXB.Open;//打开员工信息表
  TLCYGLXT.YGLBXXB.Open;//打开员工类别信息表
  TLCYGLXT.FJTHBMB.Open;//打开房间台号部门表
  YGXXGL:=TYGXXGL.Create(Self);
  YGXXGL.ShowModal;
 end;
end;

procedure TMainForm.ToolButton2Click(Sender: TObject);    //调入开台管理
begin
If Not Assigned(KTGL) Then
begin
TLCYGLXT.KT_FJTHXXB.Open;//打开房间台号信息表
TLCYGLXT.KT_FJTHLXB.Open;//打开房间台号类型表
TLCYGLXT.KT_FJTHBMB.Open;//打开房间台号部门表
TLCYGLXT.JZBH.Open;//打开结帐编号表
KTGL:=TKTGL.Create(Self);
KTGL.ShowModal;
end;
end;

procedure TMainForm.N23Click(Sender: TObject);       //调入酒水信息设置
begin
 If Not Assigned(SJXXSZ) Then
 begin
  SJXXSZ:=TSJXXSZ.Create(Self);
  TLCYGLXT.SJFYXXB.Open;//打开酒水信息表
  TLCYGLXT.JSLBXXB.Open;//打开酒水类别表
  SJXXSZ.Query1.Open;//打开库存水酒信息
  SJXXSZ.ShowModal;
 end;
end;

procedure TMainForm.ToolButton3Click(Sender: TObject);      //调入客人买单管理
begin
 If Not Assigned(KRMD) Then
 begin
  TLCYGLXT.FJTHXXB.Open;   //打开房间台号信息表
  TLCYGLXT.FJTHXXB.Filter:='状态'+'='+'''营业''';
  TLCYGLXT.FJTHXXB.Filtered:=True;
  KRMD:=TKRMD.Create(Self);
  KRMD.ShowModal;
 end;
end;

procedure TMainForm.N28Click(Sender: TObject);      //调入结账分析
begin
 If Not Assigned(JZSJFX) Then
 begin
  JZSJFX:=TJZSJFX.Create(Self);
  JZSJFX.ShowModal;
 end;
end;

procedure TMainForm.ToolButton1Click(Sender: TObject);     //调入日结算管理
begin
 RJSGL:=TRJSGL.Create(Self);
 RJSGL.ShowModal;
end;

procedure TMainForm.N15Click(Sender: TObject);     //调入员工工资管理
begin
 YG_GZGL:=TYG_GZGL.Create(Self);
 TLCYGLXT.YGXXB.Open;
 TLCYGLXT.YGGZXXB.Open;
 YG_GZGL.ShowModal;
end;

procedure TMainForm.N41Click(Sender: TObject);     //调入月营业分析
begin
 If Not Assigned(YYYFXTJ) Then
 begin
  YYYFXTJ:=TYYYFXTJ.Create(Self);
  YYYFXTJ.ShowModal;
 end;
end;

procedure TMainForm.N12Click(Sender: TObject);     //调入月结算管理
begin
 YJSGL:=TYJSGL.Create(Self);
 YJSGL.ShowModal;
end;

procedure TMainForm.N43Click(Sender: TObject);     //调入点菜分析
var BQuery:TQuery;
begin
 If Not Assigned(DCFXT) Then
 begin
  BQuery:=TQuery.Create(Self);
  BQuery.DataBaseName:='CYGLDATE';
  BQuery.Close;
  BQuery.SQL.Clear;
  BQuery.SQL.Add('Select * From 点菜历史信息表 Where 编号>=40000');
  BQuery.Open;
  If BQuery.ReCordCount <> 0 Then
   begin
    BQuery.Close;
    BQuery.Free;
    DCFXT:=TDCFXT.Create(Self);
    DCFXT.ShowModal;
   End
  Else
   begin
    ShowMessage('没有点菜历史数据,无法分析.');
    BQuery.Close;
    BQuery.Free;
   end;
 end;
end;

procedure TMainForm.N44Click(Sender: TObject);       //调入酒水分析
var CQuery:TQuery;
begin
 If Not Assigned(SJFXT) Then
 begin
  CQuery:=TQuery.Create(Self);
  CQuery.DataBaseName:='CYGLDATE';
  CQuery.Close;
  CQuery.SQL.Clear;
  CQuery.SQL.Add('Select * From 点菜历史信息表 Where 编号<30000');
  CQuery.Open;
  If CQuery.ReCordCount <> 0 Then
    begin
     CQuery.Close;
     CQuery.Free;
     SJFXT:=TSJFXT.Create(Self);
     SJFXT.ShowModal;
    End
  Else
    begin
     ShowMessage('没有点菜历史数据,无法分析.');
     CQuery.Close;
     CQuery.Free;
    end;
 end;
end;

procedure TMainForm.N54Click(Sender: TObject);     //调入公司资金管理  
begin
 If Not Assigned(GSZJGL) Then
 begin
  GSZJGL:=TGSZJGL.Create(Self);
  TLCYGLXT.GSZJB.Open;
  GSZJGL.ShowModal;
 end;
end;

procedure TMainForm.N5Click(Sender: TObject);     //调入进货凭证管理
begin
 If Not Assigned(JHPZGL) Then
 begin
  JHPZGL:=TJHPZGL.Create(Self);
   JHPZGL.EDIT1.TEXT:=StatusBar1.Panels[1].Text;
  JHPZGL.ShowModal;

 end;
end;

procedure TMainForm.N7Click(Sender: TObject);      //调入库存信息管理
begin
 If Not Assigned(KCXXGL) Then
 begin
  KCXXGL:=TKCXXGL.Create(Self);
  KCXXGL.ShowModal;
 end;
end;

procedure TMainForm.N52Click(Sender: TObject);      //调入出库信息统计
begin
 If Not Assigned(JHXXTJ) Then
 begin
  JHXXTJ:=TJHXXTJ.Create(Self);
  JHXXTJ.ShowModal;
 end;
end;

procedure TMainForm.N48Click(Sender: TObject);     //调入进货凭证管理
begin
 If Not Assigned(CHPZGL) Then
 begin
  CHPZGL:=TCHPZGL.Create(Self);
  CHPZGL.ShowModal;
 end;
end;

procedure TMainForm.N51Click(Sender: TObject);     //调入出货凭证管理
begin
 If Not Assigned(CHXXTJ) Then
 begin
  CHXXTJ:=TCHXXTJ.Create(Self);
  CHXXTJ.ShowModal;
 end;
end;

procedure TMainForm.N33Click(Sender: TObject);     //调入库存分析统计
begin
 If Not Assigned(KCSLFX) Then
 begin
  KCSLFX:=TKCSLFX.Create(Self);
  KCSLFX.ShowModal;
 end;
end;

procedure TMainForm.N47Click(Sender: TObject);      //调入年营业分析
begin
 If Not Assigned(NDYYFXTJ) Then
 begin
  NDYYFXTJ:=TNDYYFXTJ.Create(Self);
  NDYYFXTJ.ShowModal;
 end;
end;

procedure TMainForm.ToolButton5Click(Sender: TObject);   //调入权限设置
begin
 If Not Assigned(PowerSetup) Then
 begin
  PowerSetup:=TPowerSetup.Create(Self);
  TLCYGLXT.Power.Open;
  PowerSetup.ShowModal;
 end;
end;

procedure TMainForm.N53Click(Sender: TObject);     //调入费用单据管理
begin
 If Not Assigned(FYDJGL) Then
 begin
  FYDJGL:=TFYDJGL.Create(Self);
  FYDJGL.ShowModal;
 end;
end;

procedure TMainForm.N55Click(Sender: TObject);     //调入系统维护向导
begin
If Not Assigned(XTWHXD) Then
 begin
 XTWHXD:=TXTWHXD.Create(Self);
 XTWHXD.ShowModal;
 end;
end;

procedure TMainForm.ToolButton4Click(Sender: TObject);   //调入数据备份
begin
If Not Assigned(Backup_Disk) Then
 begin
 Backup_Disk:=TBackup_Disk.Create(Self);
 Backup_Disk.ShowModal;
 end;
end;

procedure TMainForm.ToolButton8Click(Sender: TObject);   //调入关于
begin
 About.ShowModal;
end;

procedure TMainForm.ToolButton7Click(Sender: TObject);  //调入帮助
begin
 Help.Show;
end;

procedure TMainForm.N57Click(Sender: TObject);       //调入打印信息管理
begin
If Not Assigned(DY_SJ_CP_CJ) Then
begin
 DY_SJ_CP_CJ:=TDY_SJ_CP_CJ.Create(Self);
 DY_SJ_CP_CJ.ShowModal;
end;
end;

procedure TMainForm.FormCanResize(Sender: TObject; var NewWidth,NewHeight: Integer; var Resize: Boolean);
begin
 IMAGE1.Width:=MainForm.Width;
 IMAGE1.HEIGHT:=MainForm.HEIGHT-130;
end;
procedure TMainForm.ToolButton10Click(Sender: TObject);       //退出
begin
 Close;
end;
procedure TMainForm.N13Click(Sender: TObject);
begin
If Not Assigned(YYCXFX) Then
begin
 YYCXFX:=TYYCXFX.Create(Self);
 YYCXFX.ShowModal;
end;
end;
end.