bas_enter_shipmode_d.pas

一个MRPII系统源代码版本

unit Bas_Enter_ShipMode_D;

Interface

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

Type
  TFrm_Bas_Enter_ShipMode_D = Class(TFrm_Base_Detail)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edt_ShipModeCode: TEdit;
    Edt_ShipModeName: TEdit;
    Edt_ReMArk: TEdit;
  private
    SPmID:String;
    { Private declarations }
  public
    procedure InitControls; Override;
    procedure SaveData; Override;    
    { Public declarations }
  end;

var
  Frm_Bas_Enter_ShipMode_D: TFrm_Bas_Enter_ShipMode_D;

implementation

{$R *.DFM}

{ TFrm_Bas_Enter_ShipMode_D }

procedure TFrm_Bas_Enter_ShipMode_D.InitControls;
begin
  inherited;
  If (status<>'ReadOnly')  Then
    SetFocus_Control:=Edt_ShipModeCode ;
  with AdoQry_Maintain do
  begin
    SPmID:=fieldbyname('SPmID').AsString;
    Edt_ShipModeCode.Text :=fieldbyname('ShipModeCode').AsString;
    Edt_ShipModeName.Text:=fieldbyname('ShipModeName').AsString;
    Edt_ReMArk.Text:=fieldbyname('ReMArk').AsString;
  end;
end;

procedure TFrm_Bas_Enter_ShipMode_D.SaveData;
begin
  inherited;
  if (Add) then
  begin
    with AdoQry_Tmp do
    begin
      Close;
      SQL.clear;
      SQL.Text:= ' Insert into ShipMode '
                +' (ShipModeCode,ShipModeName,ReMArk ) '
                +' Values('
                +''''+edt_ShipModeCode.text+''''
                +','''+edt_ShipModeName.text+''''
                +','''+edt_ReMArk.text+''''
                +')';
    ExecSQL;
    end;
  end
  else
  begin
    with AdoQry_Tmp do
    begin
      Close;
      SQL.clear;
      sql.Add('update ShipMode set '+
                              'ShipModeCode='''+Edt_ShipModeCode.text+''','+
                              'ShipModeName='''+Edt_ShipModeName.text+''','+
                              'ReMArk='''+Edt_ReMArk.text+''' '+
                    ' where SPmID='''+SPmID+''' ');

      ExecSQL;
    end
  end;
  //给AdoQry_Item各字段赋值

  with AdoQry_Maintain do
  begin
    edit;
    fieldbyname('ShipModeCode').AsString:=Edt_ShipModeCode.Text ;
    fieldbyname('ShipModeName').AsString:=Edt_ShipModeName.Text;
    fieldbyname('ReMArk').AsString:=Edt_ReMArk.Text;
    Post;
  end;

end;

end.