pay160_02.pas.svn-base

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

unit Pay160_02;

interface

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

type
  TPay160_02Form = class(TBas100_01Form)
    Bevel1: TBevel;
    lblClassID: TLabel;
    lblClassName: TLabel;
    edtClassID: TEdit;
    edtClassName: TEdit;
    bbtnOk: TBitBtn;
    bbtnExit: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bbtnOkClick(Sender: TObject);
    procedure bbtnExitClick(Sender: TObject);
  private
    procedure SetInterface;
    { Private declarations }
  public
    AMode:string;
    AOldID:string;
    ADataSet:TDataSet;
    { Public declarations }
  end;

var
  Pay160_02Form: TPay160_02Form;

implementation

uses SYSDATA, CommFun;

{$R *.dfm}

procedure TPay160_02Form.SetInterface;
begin
  Caption:=GetDBString('PAY16002001');  //类别维护
  lblClassID.Caption:=GetDBString('PAY16002002');  //类别编号
  lblClassName.Caption:=GetDBString('PAY16002003');  //类别名称
  bbtnOk.Caption:=GetDBString('PAY16002004');  //确定(&O)
  bbtnExit.Caption:=GetDBString('PAY16002005');  //退出(&X)
end;

procedure TPay160_02Form.FormCreate(Sender: TObject);
begin
  inherited;
  SetInterface;
end;

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

procedure TPay160_02Form.bbtnOkClick(Sender: TObject);
var
  AClassNo:Integer;
begin
  inherited;
//确定(&O)
  if trim(edtClassID.Text)='' then
  begin
    ShowMsg('UMS10000226');  //类别编号不能为空
    edtClassID.SetFocus;
    Abort;
  end;

  if trim(edtClassName.Text)='' then
  begin
    ShowMsg('UMS10000227');  //类别名称不能为空
    edtClassName.SetFocus;
    Abort;
  end;

  if AOldID<>trim(edtClassID.Text) then
  begin
    if IsExists('select 1 from PAY160A where P160A_002='+''''+trim(edtClassID.Text)+'''') then
    begin
      ShowMsg('UMS10000228');  //类别编号已存在，请重新输入
      edtClassID.SetFocus;
      Abort;
    end;
  end;
  if AMode='ADD' then
  begin
    ADataSet.Append;
    ADataSet.FieldByName('P160A_002').Value:=trim(edtClassID.Text);
    ADataSet.FieldByName('P160A_003').Value:=trim(edtClassName.Text);
    try
      ADataSet.Post;
    except
      ShowMsg(SYSDM.ADOC.Errors[0].Description,1);
      Abort;
    end;
    ADataSet.Refresh;
    AClassNo:=ADataSet.FieldByName('P160A_001').Value;
    SYSDM.qryQuery.Close;
    SYSDM.qryQuery.SQL.Clear;
    SYSDM.qryQuery.SQL.Add('insert into PAY160B(P160B_001,P160B_002,P160B_003,P160B_004)');
    SYSDM.qryQuery.SQL.Add('select '+IntToStr(AClassNo)+',P150_001,0,1 from PAY150');
    SYSDM.qryQuery.ExecSQL;
  end else
  if AMode='UPD' then
  begin
    ADataSet.Edit;
    ADataSet.FieldByName('P160A_002').Value:=trim(edtClassID.Text);
    ADataSet.FieldByName('P160A_003').Value:=trim(edtClassName.Text);
    try
      ADataSet.Post;
    except
      ShowMsg(SYSDM.ADOC.Errors[0].Description,1);
      Abort;
    end;
  end;
  ModalResult:=1;
end;

procedure TPay160_02Form.bbtnExitClick(Sender: TObject);
begin
  inherited;
//退出(&X)
  Close;
end;

end.