uz_rygl.pas

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

unit uz_rygl;

interface

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

type
  Tz_rygl = class(TForm)
    sb: TStatusBar;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    xz: TToolButton;
    bj: TToolButton;
    sc: TToolButton;
    zl: TToolButton;
    mb: TToolButton;
    yl: TToolButton;
    dy: TToolButton;
    bz: TToolButton;
    tc: TToolButton;
    CoolBar2: TCoolBar;
    ToolBar2: TToolBar;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    ComboBox1: TComboBox;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    c_mb: TComboBox;
    DBGrid1: TDBGrid;
    MainMenu1: TMainMenu;
    MenuItem11: TMenuItem;
    m_xz: TMenuItem;
    m_bj: TMenuItem;
    m_sc: TMenuItem;
    MenuItem14: TMenuItem;
    MenuItem18: TMenuItem;
    P1: TMenuItem;
    MenuItem19: TMenuItem;
    MenuItem20: TMenuItem;
    C1: TMenuItem;
    z_rsgl_zl: TMenuItem;
    z_rsgl_mb: TMenuItem;
    MenuItem73: TMenuItem;
    MenuItem74: TMenuItem;
    MenuItem75: TMenuItem;
    MenuItem76: TMenuItem;
    ImageList1: TImageList;
    PrinterSetup: TPrinterSetupDialog;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    rygl: TTable;
    ryglBh: TStringField;
    ryglXm: TStringField;
    ryglBm: TStringField;
    ryglZw: TStringField;
    ryglXb: TStringField;
    ryglCsrq: TDateTimeField;
    ryglXl: TStringField;
    ryglAh: TStringField;
    ryglBz: TMemoField;
    d_rygl: TDataSource;
    procedure tcClick(Sender: TObject);
    procedure bzClick(Sender: TObject);
    procedure dyClick(Sender: TObject);
    procedure ylClick(Sender: TObject);
    procedure mbClick(Sender: TObject);
    procedure zlClick(Sender: TObject);
    procedure scClick(Sender: TObject);
    procedure bjClick(Sender: TObject);
    procedure xzClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure c_mbChange(Sender: TObject);
    procedure MenuItem18Click(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure MenuItem76Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  z_rygl: Tz_rygl;

implementation

uses ug_mb, uz_ckgl, uz_rygl_xz, uabout, ug_wait, uzp_ck, uzp_yh;

{$R *.DFM}

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

procedure Tz_rygl.bzClick(Sender: TObject);
begin
//
end;

procedure Tz_rygl.dyClick(Sender: TObject);
begin
 zp_ck.QuickRep5.preview;
end;

procedure Tz_rygl.ylClick(Sender: TObject);
begin
 zp_ck.QuickRep5.preview;
end;

procedure Tz_rygl.mbClick(Sender: TObject);
var
 st:string;
begin
 if not mb.Down then
  begin
   mb.Down:=true;
   z_rsgl_mb.Checked:=true;
  end;
 y_n:=0;
 g_mb.showmodal;
 if y_n=0 then
  begin
   zl.Down:=false;
   z_rsgl_zl.Checked:=true;
   exit;
  end; 
 st:=g_mb.mb.fieldbyname('bh').asstring+'.'+g_mb.mb.fieldbyname('mbmc').asstring;
 g_mb.mb.first;
 c_mb.Items.Clear;
 while not g_mb.mb.Eof do
  begin
    c_mb.Items.Add(g_mb.mb.fieldbyname('bh').asstring+'.'+g_mb.mb.fieldbyname('mbmc').asstring);
    g_mb.mb.next;
  end;
 c_mb.ItemIndex:=c_mb.Items.IndexOf(st);
 c_mbChange(sender);
end;

procedure Tz_rygl.zlClick(Sender: TObject);
begin
 if not zl.Down then
  begin
   zl.Down:=true;
   z_rsgl_zl.Checked:=true;
  end;
 FormShow(Sender);
end;

procedure Tz_rygl.scClick(Sender: TObject);
begin
 if messagebox(handle,'您真的要删除该人员吗?','系统提示信息',MB_OKCANCEL+MB_ICONQUESTION)=IDOK then
   begin
    rygl.delete;
    z_ckgl.FormShow(Sender);
   end;
end;

procedure Tz_rygl.bjClick(Sender: TObject);
begin
 y_n:=0;
 z_rygl_xz.showmodal;
 z_rygl.FormShow(Sender);
end;

procedure Tz_rygl.xzClick(Sender: TObject);
begin
 y_n:=1;
 z_rygl_xz.showmodal;
 z_rygl.FormShow(Sender);
end;

procedure Tz_rygl.FormShow(Sender: TObject);
begin
 if not rygl.active then rygl.active:=true;
 if zp_ck=NIL then zp_ck:=Tzp_ck.Create(self);
 if z_rygl_xz=Nil then z_rygl_xz:=Tz_rygl_xz.Create(Application);
 if g_mb=Nil then g_mb:=Tg_mb.Create(Application);
 with main.query1 do
  begin
   active:=false;
   sql.Clear;
   sql.Add('select count(bh) as zs from gzry');
   active:=true;
   sb.Panels[2].text:=fieldbyname('zs').asstring;
  end;
 with g_mb.mb do
  begin
   s_mb:='04';
   filter:='bm='+s_mb;
   first;
   c_mb.Items.Clear;
   while not Eof do
    begin
      c_mb.Items.Add(fieldbyname('bh').asstring+'.'+fieldbyname('mbmc').asstring);
      g_mb.mb.next;
    end;
  end;
 zl.Down:=true;
 g_wait.close;
end;

procedure Tz_rygl.DBGrid1DblClick(Sender: TObject);
begin
 if rygl.FieldByName('bh').asstring='' then exit;
 y_n:=0;
 z_rygl_xz.showmodal;
end;

procedure Tz_rygl.ComboBox1Change(Sender: TObject);
begin
with rygl do
 case  ComboBox1.itemindex of
  0:IndexName:='gzry_bh';
  1:IndexName:='gzry_xm';
  2:IndexName:='gzry_xb';
  3:IndexName:='gzry_bm';
  4:IndexName:='gzry_zw';
  5:IndexName:='gzry_csrq';
 end;
end;

procedure Tz_rygl.c_mbChange(Sender: TObject);
var
 i,ii:integer;
 s_filter:string;
begin
 i:=1;ii:=1;
 repeat
   try
     strtoint(copy(c_mb.text,i,i+1));
     i:=i+1;
    except
      ii:=0;
   end;
 until ii = 0;
 if not g_mb.mb.FindKey([copy(c_mb.text,1,i)]) then
   begin
     messagebox(handle,'模板查询操作有误!请删除此模板，然后重新生成！','系统提示信息',MB_OK+MB_ICONWARNING);
     exit;
   end;
 s_filter:=rygl.Filter;
 try
   rygl.Filtered:=true;
   rygl.Filter:=g_mb.mb.fieldbyname('mbnr2').asstring;
  except
   messagebox(handle,'模板查询操作有误!请删除此模板，然后重新生成！','系统提示信息',MB_OK+MB_ICONWARNING);
   rygl.Filter:=s_filter;
 end;
 sb.panels[2].text:=inttostr(rygl.recordcount);
 mb.Down:=true;
 z_rsgl_mb.Checked:=true;
end;

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

procedure Tz_rygl.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 if rygl.RecordCount=0 then
    begin
     sc.Enabled:=false;
     m_sc.Enabled:=false;
     bj.Enabled:=false;
     m_bj.Enabled:=false;
    end
   else
    begin
     sc.Enabled:=true;
     m_sc.Enabled:=true;
     bj.Enabled:=true;
     m_bj.Enabled:=true;
    end;
end;

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

procedure Tz_rygl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 release;           z_rygl:=NIL;
 z_rygl_xz.release; z_rygl_xz:=NIL;
 g_mb.release;      g_mb:=NIL;
 zp_ck.release;     zp_ck:=NIL;
end;

end.