uz_gtspsx_xz.pas

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

unit uz_gtspsx_xz;

interface

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

type
  Tz_gtspsx_xz = class(TForm)
    Bevel1: TBevel;
    Label2: TLabel;
    Label3: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label6: TLabel;
    Label17: TLabel;
    BitBtn2: TBitBtn;
    spbm: TDBEdit;
    hsgx: TDBEdit;
    spgg: TDBEdit;
    spmc: TDBEdit;
    BitBtn1: TBitBtn;
    xsjg: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure spbmExit(Sender: TObject);
    procedure xsjgChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  z_gtspsx_xz: Tz_gtspsx_xz;

implementation

uses uz_gtsp;

{$R *.DFM}


procedure Tz_gtspsx_xz.BitBtn1Click(Sender: TObject);
begin
// dm.gtspsx.edit;
// dm.gtspsx.post;
 close;
end;

procedure Tz_gtspsx_xz.BitBtn2Click(Sender: TObject);
begin
//  dm.gtspsx.cancel;
end;

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

procedure Tz_gtspsx_xz.FormShow(Sender: TObject);
begin
 with z_gtsp.gtspsx do
  begin
   if y_n=1 then
    begin
     append;
     caption:='商品属性[新增]';
     spbm.enabled:=true;
     ActiveControl:=spbm;
    end
   else
    begin
     edit;
     caption:='商品属性[修改]';
     spbm.enabled:=false;
    end;
  end;
end;

procedure Tz_gtspsx_xz.spbmExit(Sender: TObject);
begin
 s_sql:='select spbm from gtspsx where spbm=:s_spbm';
 if main.h_only(s_sql,'s_spbm',spbm.text)<>0 then
   begin
     messagebox(handle,'您输入的商品编码已经存在!','系统提示信息',MB_OK+MB_ICONWARNING);
     spbm.setfocus;
     exit;
   end;
end;

procedure Tz_gtspsx_xz.xsjgChange(Sender: TObject);
begin
if not xsjg.Focused then exit;
 try
   strtofloat(xsjg.text);
  except
    messagebox(handle,'请输入合法的数字！','系统提示信息',MB_OK+MB_ICONWARNING);
    xsjg.undo;
  end;
end;

end.