uy_yyt_tc.pas

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

unit uy_yyt_tc;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Buttons,u_main, Db, DBTables;

type
  Ty_yyt_tc = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    czyh: TEdit;
    Label3: TLabel;
    qxmm: TEdit;
    Label4: TLabel;
    TCSL: TEdit;
    tcyy: TTable;
    tcyyBH: TStringField;
    tcyyTcyy: TStringField;
    tcyyD_yn: TBooleanField;
    d_tcyy: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
    procedure TCSLExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  y_yyt_tc: Ty_yyt_tc;

implementation

{$R *.DFM}


procedure Ty_yyt_tc.FormShow(Sender: TObject);
begin
 if not tcyy.Active then tcyy.Active:=true;
  activecontrol:=DBGrid1;
  tcsl.text:=currtostr(f_tcsl);
  czyh.text:='';
  qxmm.text:='';
end;

procedure Ty_yyt_tc.BitBtn1Click(Sender: TObject);
begin
 if (czyh.text='')  or (length(czyh.text)>4) then
   begin
    messagebox(handle,'请输入合法的批准人号!','系统提示信息',MB_OK+MB_ICONWARNING);
    czyh.setfocus;
    exit;
   end;
 if (qxmm.text='') then
   begin
    messagebox(handle,'请输入正确的权限密码!','系统提示信息',MB_OK+MB_ICONWARNING);
    qxmm.setfocus;
    exit
   end;
 if not main.h_czqx(czyh.text,qxmm.text,5) then exit;
 s_tcyyh:=tcyy.fieldbyname('bh').asstring;
 s_tcyy:=tcyy.fieldbyname('tcyy').asstring;
 s_pzrh:=czyh.text;
 f_tcsl:=strtocurr(tcsl.text);
 esc_enter:=1;
 close;
end;

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

procedure Ty_yyt_tc.BitBtn2Click(Sender: TObject);
begin
  esc_enter:=0;
  close;
end;


procedure Ty_yyt_tc.TCSLExit(Sender: TObject);
begin
 try
  strtocurr(tcsl.text);
 except
  tcsl.text:=currtostr(f_tcsl);
  tcsl.setfocus;
 end;
 if strtocurr(tcsl.text)>f_tcsl then
   begin
    tcsl.text:=currtostr(f_tcsl);
    tcsl.setfocus;
   end;
 if strtocurr(tcsl.text)<0 then
   begin
    tcsl.text:=currtostr(f_tcsl);
    tcsl.setfocus;
   end;
end;

end.