uz_cpck.pas

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

unit uz_cpck;

interface

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

type
  Tz_cpck = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    yl: TToolButton;
    dy: TToolButton;
    bz: TToolButton;
    tc: TToolButton;
    sb: TStatusBar;
    CoolBar2: TCoolBar;
    Panel1: TPanel;
    Label1: TLabel;
    clm: TLabel;
    Label3: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    TabSet1: TTabSet;
    DBGrid1: TDBGrid;
    TreeView1: TTreeView;
    MainMenu1: TMainMenu;
    MenuItem11: TMenuItem;
    MenuItem18: TMenuItem;
    P1: TMenuItem;
    MenuItem19: TMenuItem;
    MenuItem20: TMenuItem;
    MenuItem73: TMenuItem;
    MenuItem74: TMenuItem;
    MenuItem75: TMenuItem;
    MenuItem76: TMenuItem;
    ImageList2: TImageList;
    ImageList1: TImageList;
    ToolButton2: TToolButton;
    PrinterSetup: TPrinterSetupDialog;
    PopupMenu1: TPopupMenu;
    yl1: TMenuItem;
    yl2: TMenuItem;
    PopupMenu2: TPopupMenu;
    dy1: TMenuItem;
    dy2: TMenuItem;
    ToolButton1: TToolButton;
    cl: TTable;
    clClh: TStringField;
    clClm: TStringField;
    clDzl: TFloatField;
    clLBH: TStringField;
    d_cl: TDataSource;
    cy: TTable;
    cyCH: TStringField;
    cyClh: TStringField;
    cyMc: TStringField;
    cyZjm: TStringField;
    cyGg: TStringField;
    cyDj: TFloatField;
    cyBz: TStringField;
    cyDzl: TFloatField;
    cyLbh: TStringField;
    cyclm: TStringField;
    cyxflb: TStringField;
    d_cy: TDataSource;
    xflb: TTable;
    N1: TMenuItem;
    N2: TMenuItem;
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure TabSet1Change(Sender: TObject; NewTab: Integer;
      var AllowChange: Boolean);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure tcClick(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 N2Click(Sender: TObject);
    procedure MenuItem74Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure tree_csh;
  end;

var
  z_cpck: Tz_cpck;
  lbh:string;

implementation

uses u_main, uabout, ug_wait, uzp_cp;

{$R *.DFM}
procedure Tz_cpck.tree_csh;
begin
with TreeView1,cl do
  begin
   items.clear;
   items.AddChild(getnodeat(0,0),'菜谱');
   first;
   while not eof do
     begin
      if fieldbyname('lbh').Value=lbh then
         items.AddChild(getnodeat(1,1),'['+fieldbyname('clh').asstring+']'+fieldbyname('clm').asstring);
      next;
     end;
   fullexpand;
   cy.filter:='lbh='+lbh;
  end;
end;

procedure Tz_cpck.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
 if TreeView1.Selected=Nil then  exit;
 with TreeView1.Selected,cy do
  begin
    if text='菜谱' then
        filter:='lbh='+lbh
     else
      begin
        filtered:=false;
        filter:='lbh='+lbh+' and clh='+copy(text,2,2);
        filtered:=true;
      end;
  end;
 clm.caption:=TreeView1.Selected.text;
 s_sql:='select count(clh) as hj from cl where lbh="'+lbh+'"';
 sb.Panels[2].text:=inttostr(main.h_count(s_sql));
 sb.Panels[6].text:=inttostr(cl.RecordCount);
 sb.Panels[4].text:=inttostr(cy.RecordCount);
end;

procedure Tz_cpck.TabSet1Change(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin
 lbh:=inttostr(newtab+1);
 tree_csh;
 s_sql:='select count(clh) as hj from cl where lbh="'+lbh+'"';
 sb.Panels[2].text:=inttostr(main.h_count(s_sql));
 sb.Panels[6].text:=inttostr(cl.RecordCount);
 sb.Panels[4].text:=inttostr(cy.RecordCount);
end;

procedure Tz_cpck.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   case key of
     76:TabSet1.tabindex:=0;
     82:TabSet1.tabindex:=1;
     77:TabSet1.tabindex:=2;
     74:TabSet1.tabindex:=3;
     79:TabSet1.tabindex:=4;
     end;
   case key of
    76,82,77,74,79:
     begin
      lbh:=inttostr(TabSet1.tabindex+1);
      with TreeView1 do
       begin
        items.clear;
        items.AddChild(getnodeat(0,0),'菜谱');
        cl.first;
        while not cl.eof do
          begin
            if cl.fieldbyname('lbh').Value=lbh then  items.AddChild(getnodeat(1,1),'['+cl.fieldbyname('clh').asstring+']'+cl.fieldbyname('clm').asstring);
            cl.next;
          end;
         fullexpand;
       end;
      cy.filter:='lbh='+lbh;
     end;
     end;
end;

procedure Tz_cpck.FormShow(Sender: TObject);
begin
 if not cl.Active then cl.Active:=true;
 if not cy.Active then cy.Active:=true;
 lbh:='1';
 tree_csh;
 clm.caption:='菜谱';
 sb.Panels[6].text:=inttostr(cl.RecordCount);
 sb.Panels[8].text:=inttostr(main.h_count('select count(ch) as hj from cy'));
 s_sql:='select count(clh) as hj from cl where lbh="'+lbh+'"';
 sb.Panels[2].text:=inttostr(main.h_count(s_sql));
 sb.Panels[4].text:=inttostr(cy.RecordCount);
 if zp_cp=NIL then zp_cp:=Tzp_cp.create(self);
 g_wait.close;
end;

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

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

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

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

procedure Tz_cpck.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Release;
 z_cpck:=NIl;
 zp_cp.Release;
 zp_cp:=NIL;
end;

procedure Tz_cpck.yl1Click(Sender: TObject);
var
 s_filter:string;
begin
 s_filter:=cy.Filter;
 cy.filter:='';
 zp_cp.QuickRep2.preview;
 cy.Filter:=s_filter;
end;

procedure Tz_cpck.yl2Click(Sender: TObject);
begin
 zp_cp.QuickRep2.preview;
end;

procedure Tz_cpck.dy1Click(Sender: TObject);
var
 s_filter:string;
begin
 s_filter:=cy.Filter;
 cy.filter:='';
 zp_cp.QuickRep2.print;
 cy.Filter:=s_filter;
end;

procedure Tz_cpck.dy2Click(Sender: TObject);
begin
 zp_cp.QuickRep2.print;
end;

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

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

end.