uz_clsz.pas

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

unit uz_clsz;

interface

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

type
  Tz_clsz = class(TForm)
    ImageList1: TImageList;
    PrinterSetup: TPrinterSetupDialog;
    MainMenu1: TMainMenu;
    MenuItem11: TMenuItem;
    m_xz: TMenuItem;
    m_bj: TMenuItem;
    m_sc: TMenuItem;
    N1: TMenuItem;
    MenuItem18: TMenuItem;
    P1: TMenuItem;
    MenuItem19: TMenuItem;
    MenuItem20: TMenuItem;
    MenuItem73: TMenuItem;
    MenuItem74: TMenuItem;
    MenuItem75: TMenuItem;
    MenuItem76: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    xz: TToolButton;
    bj: TToolButton;
    sc: TToolButton;
    yl: TToolButton;
    dy: TToolButton;
    bz: TToolButton;
    ToolButton8: TToolButton;
    CoolBar2: TCoolBar;
    Panel1: TPanel;
    Label1: TLabel;
    cl: TLabel;
    Label3: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    clsz: TTable;
    clszBh: TIntegerField;
    clszLb: TStringField;
    clszBm: TStringField;
    clszJl: TStringField;
    clszYl: TStringField;
    clszDj: TFloatField;
    clszJll: TFloatField;
    d_clsz: TDataSource;
    TabSet1: TTabSet;
    DBGrid2: TDBGrid;
    sb: TStatusBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    PopupMenu1: TPopupMenu;
    yl1: TMenuItem;
    yl2: TMenuItem;
    PopupMenu2: TPopupMenu;
    dy1: TMenuItem;
    dy2: TMenuItem;
    cllb: TTable;
    clszlb1: TStringField;
    Label2: TLabel;
    Label4: TLabel;
    procedure ToolButton8Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TabSet1Change(Sender: TObject; NewTab: Integer;
      var AllowChange: Boolean);
    procedure xzClick(Sender: TObject);
    procedure bjClick(Sender: TObject);
    procedure scClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure MenuItem76Click(Sender: TObject);
    procedure yl1Click(Sender: TObject);
    procedure dy1Click(Sender: TObject);
    procedure yl2Click(Sender: TObject);
    procedure dy2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure sb_sz;
  end;

var
  z_clsz: Tz_clsz;
  lbh:string;
implementation

uses uz_clsz_xz, uabout, uzp_cp;

{$R *.DFM}
procedure Tz_clsz.sb_sz;
begin
 clsz.Filter:='';
 sb.Panels[4].text:=inttostr(clsz.RecordCount);
 clsz.Filter:='lb='+lbh;
 sb.Panels[2].text:=inttostr(clsz.RecordCount);
 case strtoint(lbh) of
  1:cl.caption:='素类';
  2:cl.caption:='荤类';
  3:cl.caption:='面点';
  4:cl.caption:='其它';
 end;
 if clsz.RecordCount=0 then
   begin
     bj.Enabled:=false;
     sc.Enabled:=false;
     m_bj.Enabled:=false;
     m_sc.Enabled:=false;
   end
  else
   begin
     bj.Enabled:=true;
     sc.Enabled:=true;
     m_bj.Enabled:=true;
     m_sc.Enabled:=true;
   end;
end;
procedure Tz_clsz.ToolButton8Click(Sender: TObject);
begin
 close;
end;

procedure Tz_clsz.FormShow(Sender: TObject);
begin
 if not cllb.Active then cllb.Active:=true;
 if not clsz.Active then clsz.Active:=true;
 if z_clsz_xz=NIL then z_clsz_xz:=Tz_clsz_xz.Create(Application);
 lbh:=inttostr(tabset1.tabindex+1);
 clsz.Filter:='lb='+lbh;
 sb_sz;
end;

procedure Tz_clsz.TabSet1Change(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin
 lbh:=inttostr(NewTab+1);
 sb_sz;
end;

procedure Tz_clsz.xzClick(Sender: TObject);
begin
 y_n:=1;
 z_clsz_xz.showmodal;
 sb_sz;
end;

procedure Tz_clsz.bjClick(Sender: TObject);
begin
 y_n:=0;
 z_clsz_xz.showmodal;
end;

procedure Tz_clsz.scClick(Sender: TObject);
begin
 if clsz.recordcount=0 then
   begin
     messagebox(handle,'您没有选择到可被删除的菜料!','系统提示信息',MB_OK+MB_ICONWARNING);
     exit;
   end;
  s_mess:='您真的要删除 ['+clsz.fieldbyname('bm').AsString+']'+clsz.fieldbyname('jl').AsString+' 菜料吗 ?';
 if messagebox(handle,pchar(s_mess),'系统提示信息',MB_OKCANCEL+MB_ICONQUESTION)=IDOK then clsz.delete;
 sb_sz;
end;

procedure Tz_clsz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Release;
 z_clsz:=NIl;
 z_clsz_xz.Release;
 z_clsz_xz:=NIL;
end;

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

procedure Tz_clsz.yl1Click(Sender: TObject);
var
 s_filter:string;
begin
 s_filter:=clsz.Filter;
 clsz.filter:='';
 zp_cp.QuickRep3.preview;
 clsz.Filter:=s_filter;
end;

procedure Tz_clsz.dy1Click(Sender: TObject);
var
 s_filter:string;
begin
 s_filter:=clsz.Filter;
 clsz.filter:='';
 zp_cp.QuickRep3.print;
 clsz.Filter:=s_filter;
end;

procedure Tz_clsz.yl2Click(Sender: TObject);
begin
 zp_cp.QuickRep3.preview;
end;

procedure Tz_clsz.dy2Click(Sender: TObject);
begin
 zp_cp.QuickRep3.print;
end;

end.