pm_poterm_d.pas

一个MRPII系统源代码版本

unit Pm_PoTerm_D;

Interface

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

Type
  TFrm_Pm_PoTerm_D = Class(TFrm_Base_Detail)
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Edt_PoTermSetCode: TExtEdit;
    Edt_PoTermCode: TEdit;
    Edt_PoTermRemArk: TEdit;
    Edt_PoTermName: TEdit;
    Lbl_PoTermSetName: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Edt_PoTermCodeExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    procedure InitControls; Override;
    procedure SaveData; Override;
  end;

var
  Frm_Pm_PoTerm_D: TFrm_Pm_PoTerm_D;

implementation
uses Sys_Global;
{$R *.DFM}

procedure TFrm_Pm_PoTerm_D.FormCreate(Sender: TObject);
begin
  inherited;
  SetFocus_Control:=Edt_PoTermSetCode;
end;

procedure TFrm_Pm_PoTerm_D.InitControls;
begin
  inherited;
  with AdoQry_Maintain do
  begin
    Edt_PoTermSetCode.Text:=fieldbyname('PoTermSetCode').AsString;
    Edt_PoTermName.Text:=fieldbyname('PoTermName').AsString;
    Edt_PoTermCode.Text:=fieldbyname('PoTermCode').AsString;
    Edt_PoTermRemArk.Text:=fieldbyname('PoTermRemArk').AsString;
  end;
end;

procedure TFrm_Pm_PoTerm_D.SaveData;
begin
  inherited;
  if(Add)then
  begin
    with AdoQry_Tmp do
    begin
      Close;
      SQL.clear;
      SQL.Add('Insert into PoTerm(PoTermSetCode,PoTermCode,PoTermName,PoTermRemArk) Values('+
        ''''+Edt_PoTermSetCode.text+''','''+Edt_PoTermCode.text+''''+','''+Edt_PoTermName.Text+''','''+Edt_PoTermRemArk.Text+''')');
      //SQL.Add('….');
      ExecSQL;
    end;
  end
  Else
  begin
    with AdoQry_Tmp do
    begin
      Close;
      SQL.clear;
      SQL.Add(' Update PoTerm set PoTermSetCode='+''''+Edt_PoTermSetCode.text+''''+
      ',PoTermCode='''+Edt_PoTermCode.text+''',PoTermName='''+Edt_PoTermName.text+''''+
      ',PoTermRemArk='''+Edt_PoTermRemArk.text+''''+
      ' where PoTermSetCode='+''''+AdoQry_Maintain.fieldbyname('PoTermSetCode').asstring+''''+
      ' and PoTermCode='''+AdoQry_Maintain.fieldbyname('PoTermCode').AsString+'''');
//      SQL.Add('….');
      ExecSQL;
    end;
  end;
 with AdoQry_Maintain do
  begin
    fieldbyname('PoTermSetCode').AsString:=Edt_PoTermSetCode.Text;
    fieldbyname('PoTermName').AsString:=Edt_PoTermName.Text;
    fieldbyname('PoTermCode').AsString:=Edt_PoTermCode.Text;
    fieldbyname('PoTermRemArk').asstring:=Edt_PoTermRemArk.Text;
    Post;
  end;
end;

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

  if (not BlankInStrCheck(Edt_PoTermCode.Text,'订单条款代码')) or
   (not BlankCheck(Edt_PoTermCode.text,'订单条款代码')) then
  begin
    TWinControl(Sender).SetFocus;
    abort;
  end;

 if(Add)or((not Add)and
   ((Edt_PoTermSetCode.Text<>AdoQry_Maintain.fieldbyname('PoTermSetCode').AsString)
   or (Edt_PoTermCode.Text<>AdoQry_Maintain.fieldbyname('PoTermCode').AsString)))then
  begin
    with AdoQry_Tmp do
    begin
      Close;
      SQL.clear;
      SQL.Add('Select Count(*) as RecCount From PoTerm Where PoTermSetCode='''+Edt_PoTermSetCode.Text+''''+
        'and PoTermCode='''+Edt_PoTermCode.Text+'''');
      Open;
      if fieldbyname('RecCount').AsInteger>0 then
      begin
        DispInfo('该订单条款集已经存在相同代码的订单条款！',1);
        Edt_PoTermCode.SetFocus;
        Abort;
      end;
    end;
  end;
end;

end.