us_ctbz.pas

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

unit us_ctbz;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ComCtrls, ExtCtrls, ToolWin, Tabs, Grids, DBGrids,u_main, ImgList,
  StdCtrls, DBCtrls, Db, DBTables;

type
  Ts_ctbz = class(TForm)
    CoolBar1: TCoolBar;
    ImageList1: TImageList;
    MainMenu1: TMainMenu;
    MenuItem11: TMenuItem;
    m_jt: TMenuItem;
    m_st: TMenuItem;
    N1: TMenuItem;
    MenuItem18: TMenuItem;
    MenuItem19: TMenuItem;
    MenuItem20: TMenuItem;
    MenuItem73: TMenuItem;
    MenuItem74: TMenuItem;
    MenuItem75: TMenuItem;
    MenuItem76: TMenuItem;
    m_gt: TMenuItem;
    P1: TMenuItem;
    sb: TStatusBar;
    TreeView1: TTreeView;
    ImageList2: TImageList;
    ToolBar2: TToolBar;
    jt: TToolButton;
    gt: TToolButton;
    st: TToolButton;
    dy: TToolButton;
    bz: TToolButton;
    tc: TToolButton;
    DBGrid1: TDBGrid;
    fg1: TToolButton;
    fg2: TToolButton;
    jtai: TToolButton;
    gtai: TToolButton;
    stai: TToolButton;
    ToolButton10: TToolButton;
    yl: TToolButton;
    CoolBar2: TCoolBar;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    N2: TMenuItem;
    m_jtai: TMenuItem;
    m_gtai: TMenuItem;
    m_stai: TMenuItem;
    DBText2: TDBText;
    tm: TLabel;
    PrinterSetup: TPrinterSetupDialog;
    t: TTable;
    tFDBH: TStringField;
    tTH: TStringField;
    tTM: TStringField;
    tSfbj: TStringField;
    d_t: TDataSource;
    tai: TTable;
    taiTH: TStringField;
    taitm: TStringField;
    taiTHT: TStringField;
    taiFDBH: TStringField;
    taiZWS: TIntegerField;
    taiFWFL: TFloatField;
    taiDZL: TFloatField;
    taiSfbz: TFloatField;
    taiZdxf: TFloatField;
    taiFWYH: TStringField;
    taiFwym: TStringField;
    taiSfbj: TStringField;
    taiZT: TStringField;
    taizt1: TStringField;
    d_tai: TDataSource;
    tai_zt: TTable;
    tai_ztBh: TStringField;
    tai_ztZt: TStringField;
    PopupMenu1: TPopupMenu;
    yl1: TMenuItem;
    yl2: TMenuItem;
    PopupMenu2: TPopupMenu;
    dy1: TMenuItem;
    dy2: TMenuItem;
    d_tai_zt: TDataSource;
    N3: TMenuItem;
    N4: TMenuItem;
    procedure ToolButton8Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure jtClick(Sender: TObject);
    procedure gtClick(Sender: TObject);
    procedure stClick(Sender: TObject);
    procedure jtaiClick(Sender: TObject);
    procedure gtaiClick(Sender: TObject);
    procedure staiClick(Sender: TObject);
    procedure MenuItem18Click(Sender: TObject);
    procedure MenuItem76Click(Sender: TObject);
    procedure bzClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure yl1Click(Sender: TObject);
    procedure yl2Click(Sender: TObject);
    procedure dy1Click(Sender: TObject);
    procedure dy2Click(Sender: TObject);
    procedure MenuItem74Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure tree_csh;
  end;

var
  s_ctbz: Ts_ctbz;
  s_mess,ss_fwyh,ss_fwym:string;

implementation

uses us_ctbz_t, us_ctbz_tai, usp_tai, uabout, ug_wait;

{$R *.DFM}
procedure Ts_ctbz.tree_csh;
begin
//对treeview1进行初始化
 with TreeView1,t do
  begin
   items.clear;
   items.AddChild(getnodeat(0,0),'餐厅');
   first;
   while not eof do
    begin
     if fieldbyname('sfbj').asstring='是' then
        s_tm:=fieldbyname('tm').asstring+'/包间'
      else
        s_tm:=fieldbyname('tm').asstring;
     items.AddChild(getnodeat(1,1),'['+fieldbyname('th').asstring+']'+s_tm);
     next;
    end;
   fullexpand;
   TreeView1.Refresh;
 end;
end;
procedure Ts_ctbz.ToolButton8Click(Sender: TObject);
begin
  close;
end;
procedure Ts_ctbz.FormShow(Sender: TObject);
begin
 if s_ctbz_t=NIL then s_ctbz_t:=Ts_ctbz_t.Create(self);
 if s_ctbz_tai=NIL then s_ctbz_tai:=Ts_ctbz_tai.Create(self);
 if sp_tai=NIL then sp_tai:=Tsp_tai.Create(self);
 if not tai_zt.Active then tai_zt.Active:=true;
 if not tai.Active then tai.Active:=true;
 if not t.Active then t.Active:=true;
 tai.Filtered:=true;
 tree_csh;
 sb.Panels[4].text:=inttostr(main.h_count('SELECT count(tht) as hj FROM tai'));
 g_wait.close;
end;

procedure Ts_ctbz.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if TreeView1.Selected=Nil then
  begin
   gt.Enabled:=false;
   st.Enabled:=false;
   jtai.Enabled:=false;
   m_gt.Enabled:=false;
   m_st.Enabled:=false;
   m_jtai.Enabled:=false;
   exit;
  end;
 with TreeView1.Selected,tai do
  begin
  if text='餐厅' then
      begin
       gt.Enabled:=false;
       st.Enabled:=false;
       jtai.Enabled:=false;
       m_gt.Enabled:=false;
       m_st.Enabled:=false;
       m_jtai.Enabled:=false;
       filter:='';
      end
     else
      begin
       gt.Enabled:=true;
       st.Enabled:=true;
       jtai.Enabled:=true;
       m_gt.Enabled:=true;
       m_st.Enabled:=true;
       m_jtai.Enabled:=true;
       filter:='th='+copy(text,2,2);
      end;
  end;
 tm.Caption:=TreeView1.Selected.text;
 if tai.RecordCount=0 then
   begin
    gtai.Enabled:=false;
    stai.Enabled:=false;
    m_gtai.Enabled:=false;
    m_stai.Enabled:=false;
   end
  else
   begin
    gtai.Enabled:=true;
    stai.Enabled:=true;
    m_gtai.Enabled:=true;
    m_stai.Enabled:=true;
   end;
 sb.Panels[2].text:=inttostr(t.RecordCount);
 sb.Panels[6].text:=inttostr(tai.RecordCount);
end;

procedure Ts_ctbz.jtClick(Sender: TObject);
begin
 y_n:=1;
 s_ctbz_t.showmodal;
 sb.Panels[2].text:=inttostr(t.RecordCount);
end;

procedure Ts_ctbz.gtClick(Sender: TObject);
begin
 y_n:=0;
 if TreeView1.Selected=Nil then exit;
 if treeview1.selected.text='餐厅' then exit;
 if not t.findkey([copy(Treeview1.selected.text,2,2)]) then
   begin
     messagebox(handle,'厅查询操作有误！','系统提示信息',MB_OK+MB_ICONWARNING);
     exit;
   end;
 s_ctbz_t.showmodal;
end;

procedure Ts_ctbz.stClick(Sender: TObject);
begin
 if (TreeView1.Selected=Nil) or (length(treeview1.selected.text)=0) or  (treeview1.selected.text='菜谱') then
   begin
     messagebox(handle,'请选择餐厅!','系统提示信息',MB_OK+MB_ICONWARNING);
     exit;
   end;
 if tai.recordcount<>0 then
   begin
     messagebox(handle,'该餐厅还有台，不能删除!','系统提示信息',MB_OK+MB_ICONWARNING);
     exit;
   end;
 s_mess:='您真的要删除 '+Treeview1.selected.text+' 厅吗?';
 if messagebox(handle,pchar(s_mess),'系统提示信息',MB_OKCANCEL+MB_ICONQUESTION)=IDcancel then exit;
 if not t.findkey([copy(Treeview1.selected.text,2,2)])  then
   begin
    messagebox(handle,'厅查询操作有误','系统提示信息',MB_OK+MB_ICONWARNING);
    exit;
   end; 
 TreeView1.Items.Delete(TreeView1.Selected);
 s_ctbz.t.delete;
// sb.Panels[2].text:=inttostr(dm.t.RecordCount);
end;

procedure Ts_ctbz.jtaiClick(Sender: TObject);
begin
  y_n:=1;
  if TreeView1.Selected=Nil  then
    begin
      messagebox(handle,'请选择餐厅!','系统提示信息',MB_OK+MB_ICONWARNING);
      exit;
    end;
  if (length(treeview1.selected.text)=0) or (treeview1.selected.text='餐厅') then
    begin
      messagebox(handle,'请选择餐厅!','系统提示信息',MB_OK+MB_ICONWARNING);
      exit;
    end;
  if not t.findkey([copy(Treeview1.selected.text,2,2)]) then
    begin
      messagebox(handle,'厅操作有误！','系统提示信息',MB_OK+MB_ICONWARNING);
      exit;
    end;
  if (t.fieldbyname('sfbj').value='是') and (tai.recordcount<>0) then
    begin
      messagebox(handle,'该厅是包间，已有一台!','系统提示信息',MB_OK+MB_ICONWARNING);
      exit;
    end;
  s_ctbz_tai.showmodal;
 if tai.RecordCount=0 then
   begin
    gtai.Enabled:=false;
    stai.Enabled:=false;
    m_gtai.Enabled:=false;
    m_stai.Enabled:=false;
   end
  else
   begin
    gtai.Enabled:=true;
    stai.Enabled:=true;
    m_gtai.Enabled:=true;
    m_stai.Enabled:=true;
   end;
  sb.Panels[4].text:=inttostr(main.h_count('SELECT count(tht) as hj FROM tai'));
end;

procedure Ts_ctbz.gtaiClick(Sender: TObject);
begin
  y_n:=0;
  if tai.FieldByName('tht').asstring='' then exit;
   s_ctbz_tai.showmodal;
end;

procedure Ts_ctbz.staiClick(Sender: TObject);
begin
 if tai.recordcount=0 then
    begin
      messagebox(handle,'您没有选择到可被删除的台!','系统提示信息',MB_OK+MB_ICONWARNING);
      exit;
    end;
 s_mess:='您真的要删除 ['+tai.fieldbyname('tht').AsString+']号台吗 ?';
 if messagebox(handle,pchar(s_mess),'系统提示信息',MB_OKCANCEL+MB_ICONQUESTION)=IDOK then
   begin
    tai.delete;
    sb.Panels[4].text:=inttostr(main.h_count('SELECT count(tht) as hj FROM tai'));
   end;
 if tai.RecordCount=0 then
   begin
    gtai.Enabled:=false;
    stai.Enabled:=false;
    m_gtai.Enabled:=false;
    m_stai.Enabled:=false;
   end
  else
   begin
    gtai.Enabled:=true;
    stai.Enabled:=true;
    m_gtai.Enabled:=true;
    m_stai.Enabled:=true;
   end;
end;

procedure Ts_ctbz.MenuItem18Click(Sender: TObject);
begin
  PrinterSetup.Execute;
end;

procedure Ts_ctbz.MenuItem76Click(Sender: TObject);
begin
 if about=NIL then about:=Tabout.Create(self);
 about.showmodal;
end;

procedure Ts_ctbz.bzClick(Sender: TObject);
begin
  Application.HelpFile:='\hbjd\cyzy\help\hbcy.hlp';
  Application.HelpJump('tasctbz');
end;

procedure Ts_ctbz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Release;
  s_ctbz:=NIL;
  s_ctbz_t.Release;
  s_ctbz_t:=NIL;
  s_ctbz_tai.Release;
  s_ctbz_tai:=NIL;
  sp_tai.Release;
  sp_tai:=NIL;
end;

procedure Ts_ctbz.yl1Click(Sender: TObject);
var
 s_filter:string;
begin
 s_filter:=tai.Filter;
 tai.filter:='';
 sp_tai.QuickRep1.preview;
 tai.Filter:=s_filter;
end;

procedure Ts_ctbz.yl2Click(Sender: TObject);
begin
 sp_tai.QuickRep1.preview;
end;

procedure Ts_ctbz.dy1Click(Sender: TObject);
var
 s_filter:string;
begin
 s_filter:=tai.Filter;
 tai.filter:='';
 sp_tai.QuickRep1.print;
 tai.Filter:=s_filter;
end;

procedure Ts_ctbz.dy2Click(Sender: TObject);
begin
 sp_tai.QuickRep1.print;
end;

procedure Ts_ctbz.MenuItem74Click(Sender: TObject);
begin
  Application.HelpFile:='\hbjd\cyzy\help\hbcy.hlp';
  Application.HelpCommand(Help_Finder,0);
end;

procedure Ts_ctbz.N4Click(Sender: TObject);
begin
  Application.HelpFile:='\hbjd\cyzy\help\hbcy.hlp';
  Application.HelpCommand(Help_PartialKey,0);
end;

end.