uz_rygl_xz.pas

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

unit uz_rygl_xz;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, DBCtrls, Mask, ExtCtrls, Buttons, ComCtrls;

type
  Tz_rygl_xz = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    bh: TDBEdit;
    xm: TDBEdit;
    zw: TDBEdit;
    xb: TDBEdit;
    xl: TDBEdit;
    DBEdit7: TDBEdit;
    bz: TDBMemo;
    Label8: TLabel;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    qx: TBitBtn;
    Label9: TLabel;
    nl: TEdit;
    csrq: TDateTimePicker;
    Label10: TLabel;
    bm: TDBEdit;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure csrqChange(Sender: TObject);
    procedure bhExit(Sender: TObject);
    procedure qxClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  z_rygl_xz: Tz_rygl_xz;

implementation

uses u_main, uz_rygl;

{$R *.DFM}

procedure Tz_rygl_xz.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (key=#13) then selectnext(activecontrol,true,true);
  if key=#27 then  qxClick(Sender);
end;

procedure Tz_rygl_xz.BitBtn1Click(Sender: TObject);
begin
 try
   strtoint(bh.text);
  except
    messagebox(handle,'编号必须为4位数字！','系统提示信息',MB_OK+MB_ICONWARNING);
    bh.setfocus;
    exit;
  end;
 if (trim(bh.text)='') or (length(bh.text)<>4) then
   begin
    messagebox(handle,'编号必须为4位数字！','系统提示信息',MB_OK+MB_ICONWARNING);
    bh.setfocus;
    exit;
   end;
 z_rygl.rygl.edit;
 z_rygl.rygl.fieldbyname('csrq').value:=csrq.Date;
 z_rygl.rygl.post;
 close;
end;

procedure Tz_rygl_xz.FormShow(Sender: TObject);
begin
 if y_n=1 then
   begin
     z_rygl.rygl.append;
     caption:='恒邦餐饮管理系统-人员管理-新增';
     bh.enabled:=true;
     bh.setfocus;
     nl.text:='';
    end
   else
    begin
     z_rygl.rygl.edit;
     caption:='恒邦餐饮管理系统-人员管理-修改';
     bh.enabled:=false;
     xm.setfocus;
     csrq.date:=z_rygl.rygl.fieldbyname('csrq').asdatetime;
     nl.text:=datetostr(date()-z_rygl.rygl.fieldbyname('csrq').asdatetime);
    end;
end;

procedure Tz_rygl_xz.csrqChange(Sender: TObject);
begin
 nl.text:=datetostr(date()-csrq.date);
end;

procedure Tz_rygl_xz.bhExit(Sender: TObject);
begin
 if trim(bh.text)='' then exit;
 s_sql:='select bh from gzry where bh=:s_bh';
 if main.h_only(s_sql,'s_bh',bh.text)<>0 then
   begin
     messagebox(handle,'您输入的人员编号已经存在!','系统提示信息',MB_OK+MB_ICONWARNING);
     bh.setfocus;
   end;
end;

procedure Tz_rygl_xz.qxClick(Sender: TObject);
begin
  z_rygl.rygl.Cancel;
end;

end.