gld100_02.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

unit Gld100_02;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bas200_16, DB, ADODB, Menus, StdCtrls, Buttons, ExtCtrls;

type
  TGld100_02Form = class(TBas200_16Form)
    lblCode: TLabel;
    edtCode: TEdit;
    lblName: TLabel;
    edtName: TEdit;
    lblRate: TLabel;
    edtRate: TEdit;
    lblMark: TLabel;
    edtMark: TEdit;
    cbCurr: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure edtRateKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    procedure OpenData(ACode:String);
    procedure SetInterface; override;
    procedure GetDataInfo; override;
    procedure SetEmptyInit; override;
    procedure InsertInit; override;
    procedure TableBeforePost; override;
    { Public declarations }
  end;

var
  Gld100_02Form: TGld100_02Form;

implementation

uses SYSDATA, CommFun, HwSelData;

{$R *.dfm}

procedure TGld100_02Form.OpenData(ACode:String);
begin
  if ACode='' then AMode:='ADD' else AMode:='UPD';
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from GLD100 order by G100_002');
  ADOQuery1.Open;
  if ACode<>'' then
  begin
    ADOQuery1.Locate('G100_002',ACode,[]);
    ADOQuery1AfterScroll(ADOQuery1);
  end else
  begin
    SetEmptyInit;
  end;
end;

procedure TGld100_02Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('GLD10002001');  //币别资料维护
  lblCode.Caption:=GetDBString('GLD10002002');  //币别编号
  lblName.Caption:=GetDBString('GLD10002003');  //币别名称
  cbCurr.Caption:=GetDBString('GLD10002006');  //本位币否
  lblRate.Caption:=GetDBString('GLD10002004');  //缺省汇率
  lblMark.Caption:=GetDBString('GLD10002005');  //币别符号
end;

procedure TGld100_02Form.FormCreate(Sender: TObject);
begin
  inherited;
//
end;

procedure TGld100_02Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
//
end;

procedure TGld100_02Form.GetDataInfo;
begin
  inherited;
  edtCode.Text:=ADOQuery1.FieldByName('G100_002').AsString;
  edtName.Text:=ADOQuery1.FieldByName('G100_003').AsString;
  cbCurr.Checked:=ADOQuery1.FieldByName('G100_004').AsBoolean;
  edtRate.Text:=ADOQuery1.FieldByName('G100_005').AsString;
  edtMark.Text:=ADOQuery1.FieldByName('G100_006').AsString;
  AOldCode:=edtCode.Text;
end;

procedure TGld100_02Form.InsertInit;
begin
  inherited;
  SetEmptyInit;
end;

procedure TGld100_02Form.SetEmptyInit;
begin
  inherited;
  edtCode.Text:='';
  edtName.Text:='';
  cbCurr.Checked:=False;
  edtRate.Text:='';
  edtMark.Text:='';
end;

procedure TGld100_02Form.TableBeforePost;
begin
  inherited;
  if trim(edtCode.Text)='' then
  begin
    ShowMsg('UMS10000019');  //币别编号不能为空
    edtCode.SetFocus;
    Abort;
  end;
  if trim(edtName.Text)='' then
  begin
    ShowMsg('UMS10000020');  //币别名称不能为空
    edtName.SetFocus;
    Abort;
  end;
  if AOldCode<>trim(edtCode.Text) then
  begin
    if IsExists('select 1 from GLD100 where G100_002='+''''+trim(edtCode.Text)+'''') then
    begin
      ShowMsg('UMS10000594');  //币别编号已存在，请重新输入
      edtCode.SetFocus;
      Abort;
    end;
  end;
  if trim(edtRate.Text)='' then
  begin
    ShowMsg('UMS10000595');  //缺省汇率不能为空或零
    edtRate.SetFocus;
    Abort;
  end;

  if AMode='ADD' then ADOQuery1.Append else ADOQuery1.Edit;
  ADOQuery1.FieldByName('G100_002').AsString:=edtCode.Text;
  ADOQuery1.FieldByName('G100_003').AsString:=edtName.Text;
  ADOQuery1.FieldByName('G100_004').AsBoolean:=cbCurr.Checked;
  ADOQuery1.FieldByName('G100_005').AsString:=edtRate.Text;
  ADOQuery1.FieldByName('G100_006').AsString:=edtMark.Text;
end;

procedure TGld100_02Form.edtRateKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  ValidFloat(Sender,Key);
end;

initialization
  RegisterClass(TGld100_02Form);

finalization
  UnRegisterClass(TGld100_02Form);

end.