us_ctck.pas

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

unit us_ctck;

interface

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

type
  Ts_ctck = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar2: TToolBar;
    yl: TToolButton;
    dy: TToolButton;
    bz: TToolButton;
    tc: TToolButton;
    sb: TStatusBar;
    TreeView1: TTreeView;
    DBGrid1: TDBGrid;
    CoolBar2: TCoolBar;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    DBText2: TDBText;
    tm: TLabel;
    ImageList1: TImageList;
    MainMenu1: TMainMenu;
    MenuItem11: TMenuItem;
    MenuItem18: TMenuItem;
    P1: TMenuItem;
    MenuItem19: TMenuItem;
    MenuItem20: TMenuItem;
    MenuItem73: TMenuItem;
    MenuItem74: TMenuItem;
    MenuItem75: TMenuItem;
    MenuItem76: TMenuItem;
    ImageList2: TImageList;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    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;
    d_tai_zt: TDataSource;
    PopupMenu1: TPopupMenu;
    yl1: TMenuItem;
    yl2: TMenuItem;
    PopupMenu2: TPopupMenu;
    dy1: TMenuItem;
    dy2: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    procedure tcClick(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure FormShow(Sender: TObject);
    procedure MenuItem18Click(Sender: TObject);
    procedure bzClick(Sender: TObject);
    procedure MenuItem76Click(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 N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure tree_csh;
  end;

var
  s_ctck: Ts_ctck;

implementation

uses u_main, usp_tai, uabout, ug_wait;

{$R *.DFM}
procedure Ts_ctck.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').value='是' then
         s_tm:=fieldbyname('tm').value+'/包间'
        else
         s_tm:=fieldbyname('tm').value;
      items.AddChild(getnodeat(1,1),'['+fieldbyname('th').asstring+']'+s_tm);
      next;
     end;
     fullexpand;
   end;
end;

procedure Ts_ctck.tcClick(Sender: TObject);
begin
  close;
end;

procedure Ts_ctck.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if TreeView1.Selected=Nil then  exit;
 with TreeView1.Selected,tai do
  begin
  if text='餐厅' then
       filter:=''
     else
       filter:='th='+copy(text,2,2);
  end;
 tm.Caption:=TreeView1.Selected.text;
 sb.Panels[2].text:=inttostr(t.RecordCount);
 sb.Panels[6].text:=inttostr(tai.RecordCount);
end;

procedure Ts_ctck.FormShow(Sender: TObject);
begin
 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;
 tree_csh;
 if sp_tai=NIL then sp_tai:=Tsp_tai.Create(self);
 sb.Panels[4].text:=inttostr(main.h_count('SELECT count(tht) as hj FROM tai'));
 g_wait.close;
end;

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

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

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

procedure Ts_ctck.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Release;
  s_ctck:=NIL;
  sp_tai.Release;
  sp_tai:=NIL;
end;

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

procedure Ts_ctck.yl2Click(Sender: TObject);
begin
 sp_tai.QuickRep2.preview;
end;

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

procedure Ts_ctck.dy2Click(Sender: TObject);
begin
 sp_tai.QuickRep2.print;
end;

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

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

end.