bas_uom_d.pas

一个MRPII系统源代码版本

unit Bas_Uom_D;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Detail, StdCtrls, Db, AdODB, ExtCtrls, ExtEdit;

Type
  TFrm_Bas_Uom_D = Class(TFrm_Base_Detail)
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    ExtEdt_UomCode: TExtEdit;
    ExtEdt_UomName: TExtEdit;
    ExtEdt_UomRemArk: TExtEdit;
    procedure FormCreate(Sender: TObject);
    procedure ExtEdt_UomCodeExit(Sender: TObject);
    procedure ExtEdt_UomNameExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    procedure InitControls; Override;
    procedure SaveData; Override;
  end;

var
  Frm_Bas_Uom_D: TFrm_Bas_Uom_D;

implementation
uses Sys_Global;
{$R *.DFM}

procedure TFrm_Bas_Uom_D.FormCreate(Sender: TObject);
begin
  inherited;
  SetFocus_Control:=ExtEdt_UomCode;
end;

procedure TFrm_Bas_Uom_D.InitControls;
begin
  inherited;
  with AdoQry_Maintain do
  begin
    ExtEdt_UomCode.Text:=fieldbyname('UomCode').AsString;
    ExtEdt_UomName.Text:=fieldbyname('UomName').AsString;
    ExtEdt_UomRemArk.Text:=fieldbyname('UomRemArk').asstring;
  end;
  If (Add) then ExtEdt_UomName.Text:='';
end;

procedure TFrm_Bas_Uom_D.SaveData;
begin
  inherited;
  if(Add)then
  begin
    with AdoQry_Tmp do
    begin
      Close;
      SQL.clear;
      SQL.Add('Insert into Uom(UomCode,UomName,UomRemArk)'+
        ' Values(:UomCode,:UomName,:UomRemArk)');
      Parameters.ParamByName('UomCode').Value:=Trim(ExtEdt_UomCode.Text);
      Parameters.ParamByName('UomName').Value:=Trim(ExtEdt_UomName.Text);
      Parameters.ParamByName('UomRemArk').Value:=Trim(ExtEdt_UomRemArk.Text);
      //SQL.Add('….');
      ExecSQL;
    end;
  end
  Else
  begin
    with AdoQry_Tmp do
    begin
      Close;
      SQL.clear;
      SQL.Add(' Update Uom set'+
                     ' UomCode=:UomCode,'+
                     ' UomName=:UomName,'+
                     ' UomRemArk=:UomRemArk'+
                ' where UomCode=:OldUomCode');
      Parameters.ParamByName('UomCode').Value:=Trim(ExtEdt_UomCode.Text);
      Parameters.ParamByName('UomName').Value:=Trim(ExtEdt_UomName.Text);
      Parameters.ParamByName('UomRemArk').Value:=Trim(ExtEdt_UomRemArk.Text);
      Parameters.ParamByName('OldUomCode').Value:=AdoQry_Maintain.fieldbyname('UomCode').AsString;
//      SQL.Add('….');
      ExecSQL;
    end;
  end;
 with AdoQry_Maintain do
  begin
    fieldbyname('UomCode').AsString:= ExtEdt_UomCode.Text;
    fieldbyname('UomRemArk').AsString:=ExtEdt_UomRemArk.Text;
    fieldbyname('UomName').AsString:=ExtEdt_UomName.Text;
    Post;
  end;
end;

procedure TFrm_Bas_Uom_D.ExtEdt_UomCodeExit(Sender: TObject);
begin
  inherited;
  if ActiveControl.Name='btn_Cancel' then
    exit;

  if (not BlankInStrCheck(ExtEdt_UomCode.Text,'计量单位代码')) or
   (not BlankCheck(ExtEdt_UomCode.text,'计量单位代码')) then
  begin
    ExtEdt_UomCode.SetFocus;
    abort;
  end;

  if(Add)or((not Add)and
    (TEdit(Sender).Text<>AdoQry_Maintain.fieldbyname('UomCode').AsString))then
  begin
    with AdoQry_Tmp do
    begin
      Close;
      SQL.clear;
      SQL.Add('Select Count(*) as RecCount From Uom Where UomCode=:UomCode ');
      Parameters.ParamByName('UomCode').Value:=ExtEdt_UomCode.Text;
      Open;
      if fieldbyname('RecCount').AsInteger>0 then
      begin
        DispInfo('该计量单位代码已经存在，不允许增加或修改！',1);
        TWinControl(Sender).SetFocus;
        Abort;
      end;
    end;
  end;

end;

procedure TFrm_Bas_Uom_D.ExtEdt_UomNameExit(Sender: TObject);
begin
  inherited;
  if ActiveControl.Name='btn_Cancel' then
    exit;
  if (not BlankInStrCheck(ExtEdt_UomName.Text,'计量单位名称')) or
   (not BlankCheck(ExtEdt_UomName.text,'计量单位名称')) then
  begin
    ExtEdt_UomName.SetFocus;
    abort;
  end;
  if(Add)or((not Add)and
    (TEdit(Sender).Text<>AdoQry_Maintain.fieldbyname('UomName').AsString))then
  begin
    with AdoQry_Tmp do
    begin
      Close;
      SQL.clear;
      SQL.Add('Select Count(*) as RecCount From Uom Where UomName=:UomName ');
      Parameters.ParamByName('UomName').Value:=ExtEdt_UomName.Text;
      Open;
      if fieldbyname('RecCount').AsInteger>0 then
      begin
        DispInfo('该计量单位名称已经存在，不允许增加或修改！',1);
        TWinControl(Sender).SetFocus;
        Abort;
      end;
    end;
  end;
end;

end.