ux_czygl.pas

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

unit ux_czygl;

interface

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

type
  Tx_czygl = class(TForm)
    TreeView1: TTreeView;
    ImageList1: TImageList;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    xz: TToolButton;
    bj: TToolButton;
    sc: TToolButton;
    yl: TToolButton;
    dy: TToolButton;
    bz: TToolButton;
    tc: TToolButton;
    MainMenu1: TMainMenu;
    MenuItem11: TMenuItem;
    MenuItem12: TMenuItem;
    E1: TMenuItem;
    MenuItem13: TMenuItem;
    N1: TMenuItem;
    MenuItem18: TMenuItem;
    P1: TMenuItem;
    MenuItem19: TMenuItem;
    MenuItem20: TMenuItem;
    MenuItem73: TMenuItem;
    MenuItem74: TMenuItem;
    MenuItem75: TMenuItem;
    MenuItem76: TMenuItem;
    ImageList2: TImageList;
    qx: TToolButton;
    fg1: TToolButton;
    fg2: TToolButton;
    fg3: TToolButton;
    StatusBar1: TStatusBar;
    o1: TMenuItem;
    N2: TMenuItem;
    PrinterSetup: TPrinterSetupDialog;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    DBCheckBox19: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    DBCheckBox6: TDBCheckBox;
    DBCheckBox9: TDBCheckBox;
    GroupBox2: TGroupBox;
    DBCheckBox15: TDBCheckBox;
    DBCheckBox16: TDBCheckBox;
    DBCheckBox23: TDBCheckBox;
    DBCheckBox24: TDBCheckBox;
    GroupBox3: TGroupBox;
    DBCheckBox3: TDBCheckBox;
    DBCheckBox25: TDBCheckBox;
    DBCheckBox26: TDBCheckBox;
    DBCheckBox27: TDBCheckBox;
    DBCheckBox28: TDBCheckBox;
    DBCheckBox29: TDBCheckBox;
    DBCheckBox30: TDBCheckBox;
    GroupBox4: TGroupBox;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox4: TDBCheckBox;
    DBCheckBox5: TDBCheckBox;
    DBCheckBox7: TDBCheckBox;
    DBCheckBox8: TDBCheckBox;
    DBCheckBox12: TDBCheckBox;
    DBCheckBox21: TDBCheckBox;
    DBCheckBox10: TDBCheckBox;
    GroupBox5: TGroupBox;
    DBCheckBox31: TDBCheckBox;
    DBCheckBox32: TDBCheckBox;
    DBCheckBox33: TDBCheckBox;
    DBCheckBox34: TDBCheckBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBCheckBox11: TDBCheckBox;
    DBCheckBox14: TDBCheckBox;
    DBCheckBox20: TDBCheckBox;
    DBCheckBox22: TDBCheckBox;
    DBCheckBox13: TDBCheckBox;
    czy: TTable;
    czyCzyh: TStringField;
    czyCzym: TStringField;
    czyZw: TStringField;
    czyBm: TStringField;
    czyCzJb: TStringField;
    czyMm: TStringField;
    czySyrq1: TDateTimeField;
    czySyrq2: TDateTimeField;
    czySysj1: TDateTimeField;
    czySysj2: TDateTimeField;
    czyQ_czygl: TBooleanField;
    czyQ_xtcsh: TBooleanField;
    czyQ_sjbf: TBooleanField;
    czyQ_sjhf: TBooleanField;
    czyQ_fdxx: TBooleanField;
    czyQ_qtsz: TBooleanField;
    czyQ_ctbz: TBooleanField;
    czyQ_ctck: TBooleanField;
    czyQ_rygl: TBooleanField;
    czyQ_yyfl: TBooleanField;
    czyQ_zhsz: TBooleanField;
    czyQ_cpzz: TBooleanField;
    czyQ_cpck: TBooleanField;
    czyQ_ckgl: TBooleanField;
    czyQ_yhyd: TBooleanField;
    czyQ_bzgl: TBooleanField;
    czyQ_ctyx: TBooleanField;
    czyQ_gtsp: TBooleanField;
    czyQ_qtyy: TBooleanField;
    czyQ_ctyl: TBooleanField;
    czyQ_qdjz: TBooleanField;
    czyQ_qdcx: TBooleanField;
    czyQ_qtdz: TBooleanField;
    czyQ_yycx: TBooleanField;
    czyQ_yybb: TBooleanField;
    czyQ_yyfx: TBooleanField;
    czyQ_jz_qd: TBooleanField;
    czyQ_jz_md: TBooleanField;
    czyQ_jz_dz: TBooleanField;
    czyQ_zc: TBooleanField;
    czyQ_tc: TBooleanField;
    czyQ_jc: TBooleanField;
    czyDel: TBooleanField;
    d_czy: TDataSource;
    N3: TMenuItem;
    N4: TMenuItem;
    procedure FormShow(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure xzClick(Sender: TObject);
    procedure bjClick(Sender: TObject);
    procedure scClick(Sender: TObject);
    procedure tcClick(Sender: TObject);
    procedure qxClick(Sender: TObject);
    procedure ylClick(Sender: TObject);
    procedure dyClick(Sender: TObject);
    procedure bzClick(Sender: TObject);
    procedure MenuItem18Click(Sender: TObject);
    procedure MenuItem76Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure MenuItem74Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  x_czygl: Tx_czygl;

implementation

uses ux_czy_xz, ux_qxsz, uabout, ug_wait;

{$R *.DFM}


procedure Tx_czygl.FormShow(Sender: TObject);
begin
if not czy.Active then czy.Active:=true;
 with TreeView1,czy do
  begin
   items.clear;
   items.AddChild(getnodeat(0,0),'操作员');
   first;
   while not eof do
    begin
     items.AddChild(getnodeat(1,1),'['+fieldbyname('czyh').asstring+']'+fieldbyname('czym').asstring);
     next;
    end;
   fullexpand;
  end;
 if x_qxsz=NIL then x_qxsz:=Tx_qxsz.Create(Application);
 if x_czy_xz=NIL then x_czy_xz:=Tx_czy_xz.Create(Application);
 czy.Filtered:=true;
 g_wait.close;
end;

procedure Tx_czygl.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
 with TreeView1.Selected,czy do
  begin
   if text='操作员' then panel1.Visible:=false;
   if (length(text)<>0) and (text<>'操作员') then
     begin
       filter:='czyh='+copy(text,2,4);
       panel1.Visible:=true;
     end
  end;
end;

procedure Tx_czygl.xzClick(Sender: TObject);
begin
 y_n:=1;
 if x_czy_xz=Nil then x_czy_xz:=Tx_czy_xz.Create(self); 
 x_czy_xz.showmodal;
end;

procedure Tx_czygl.bjClick(Sender: TObject);
begin
 if TreeView1.Selected <> nil then
   if TreeView1.Selected.StateIndex = -1 then
     TreeView1.Selected.StateIndex := 1
   else TreeView1.Selected.StateIndex := -1;
 y_n:=0;
 if x_czy_xz=Nil then x_czy_xz:=Tx_czy_xz.Create(self); 
 if x_qxsz=Nil then x_qxsz:=Tx_qxsz.Create(self); 
 x_czy_xz.showmodal;
end;

procedure Tx_czygl.scClick(Sender: TObject);
var
 s_mess:string;
begin
 if (TreeView1.Selected=Nil)or (length(treeview1.selected.text)=0) or (treeview1.selected.text='操作员号') then exit;
 s_mess:='您真的要删除 '+Treeview1.selected.text+' 操作员吗?';
 if messagebox(handle,pchar(s_mess),'系统提示信息',MB_OKCANCEL+MB_ICONQUESTION)=IDcancel then exit;
 if not czy.findkey([copy(Treeview1.selected.text,2,4)])  then
   begin
    messagebox(handle,'操作员查询操作有误','系统提示信息',MB_OK+MB_ICONWARNING);
    exit;
   end;
 czy.delete;
 TreeView1.Items.Delete(TreeView1.Selected);
end;

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

procedure Tx_czygl.qxClick(Sender: TObject);
begin
 if (TreeView1.Selected=Nil)or (length(treeview1.selected.text)=0) or (treeview1.selected.text='操作员')  then   exit;
 if not czy.findkey([copy(Treeview1.selected.text,2,4)])  then
  begin
   messagebox(handle,'操作员查询操作有误','系统提示信息',MB_OK+MB_ICONWARNING);
   exit;
  end;
 x_qxsz.showmodal;
end;

procedure Tx_czygl.ylClick(Sender: TObject);
begin
//
end;

procedure Tx_czygl.dyClick(Sender: TObject);
begin
//
end;

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

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

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

procedure Tx_czygl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 x_czygl.Release;
 x_czygl:=NIL;
 x_qxsz.Release;
 x_qxsz:=NIL;
 x_czy_xz.Release;
 x_czy_xz:=NIL;
end;

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

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

end.