tas120_02.pas.svn-base

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

unit Tas120_02;

interface

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

type
  TTas120_02Form = class(TBas100_01Form)
    lblCode: TLabel;
    edtCode: TEdit;
    lblName: TLabel;
    edtName: TEdit;
    lblRemark: TLabel;
    edtRemark: TEdit;
    lblColor: TLabel;
    cbColor: TColorBox;
    Bevel1: TBevel;
    bbtnOk: TBitBtn;
    bbtnExit: TBitBtn;
    qryTas120: TADOQuery;
    qryTas120T120_001: TIntegerField;
    qryTas120T120_002: TWideStringField;
    qryTas120T120_003: TWideStringField;
    qryTas120T120_004: TWideStringField;
    qryTas120T120_005: TIntegerField;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bbtnOkClick(Sender: TObject);
    procedure bbtnExitClick(Sender: TObject);
    procedure qryTas120AfterScroll(DataSet: TDataSet);
  private
    AMode,AOldCode:string;
    procedure SetInterface;
    { Private declarations }
  public
    procedure OpenData(ACode:string);
    { Public declarations }
  end;

var
  Tas120_02Form: TTas120_02Form;

implementation

uses SYSDATA, CommFun;

{$R *.dfm}

procedure TTas120_02Form.OpenData(ACode:string);
begin
  if not qryTas120.Active then qryTas120.Open;
  if ACode='' then AMode:='ADD' else AMode:='UPD';
  if ACode<>'' then
  begin
    qryTas120.Locate('T120_002',ACode,[]);
    qryTas120AfterScroll(qryTas120);
  end else
  begin
    edtCode.Text:='';
    edtName.Text:='';
    edtRemark.Text:='';
    cbColor.Selected:=clBlack;
  end;
end;

procedure TTas120_02Form.SetInterface;
begin
  Caption:=GetDBString('TAS12002001');  //任务状态维护
  lblCode.Caption:=GetDBString('TAS12002002');  //状态编号
  lblName.Caption:=GetDBString('TAS12002003');  //状态名称
  lblColor.Caption:=GetDBString('TAS12002004');  //状态颜色
  lblRemark.Caption:=GetDBString('TAS12002005');  //备注说明
  bbtnOk.Caption:=GetDBString('TAS12002006');  //确定(&O)
  bbtnExit.Caption:=GetDBString('TAS12002007');  //退出(&X)
end;

procedure TTas120_02Form.FormCreate(Sender: TObject);
begin
  inherited;
  qryTas120.Open;
  SetInterface;
end;

procedure TTas120_02Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  qryTas120.Close;
end;

procedure TTas120_02Form.bbtnOkClick(Sender: TObject);
begin
  inherited;
  if trim(edtCode.Text)='' then
  begin
    ShowMsg('UMS10000332');  //状态编号不能为空
    edtCode.SetFocus;
    Abort;
  end;
  if trim(edtName.Text)='' then
  begin
    ShowMsg('UMS10000333');  //状态名称不能为空
    edtName.SetFocus;
    Abort;
  end;
  if AOldCode<>edtCode.Text then
  begin
    if IsExists('select 1 from TAS120 where T120_002='+''''+edtCode.Text+'''') then
    begin
      ShowMsg('UMS10000334');  //状态编号已存在，请重新输入
      edtCode.SetFocus;
      Abort;
    end;
  end;
//确定
  try
    if AMode='ADD' then qryTas120.Append else qryTas120.Edit;
    qryTas120.FieldByName('T120_002').AsString:=edtCode.Text;
    qryTas120.FieldByName('T120_003').AsString:=edtName.Text;
    qryTas120.FieldByName('T120_004').AsString:=edtRemark.Text;
    qryTas120.FieldByName('T120_005').AsInteger:=cbColor.Selected;
    qryTas120.Post;
    if AMode='ADD' then
    begin
      if ShowDialog('UMS10000309')=IDYES then  //记录保存成功，是否继续增加新记录？
      begin
        AOldCode:='';
        edtCode.Text:='';
        edtName.Text:='';
        edtRemark.Text:='';
        cbColor.Selected:=clBlack;
        edtCode.SetFocus;
      end;
    end else
      ModalResult:=1;
  except
    ShowMsg(SYSDM.ADOC.Errors[0].Description,1);
    Abort;
  end;
end;

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

procedure TTas120_02Form.qryTas120AfterScroll(DataSet: TDataSet);
begin
  inherited;
  AOldCode:='';
  if AMode='ADD' then Exit;
  edtCode.Text:=qryTas120.FieldByName('T120_002').AsString;
  edtName.Text:=qryTas120.FieldByName('T120_003').AsString;
  edtRemark.Text:=qryTas120.FieldByName('T120_004').AsString;
  cbColor.Selected:=qryTas120.FieldByName('T120_005').AsInteger;
  AOldCode:=edtCode.Text;
end;

end.