bas_enter_shiptype_d.pas

一个MRPII系统源代码版本

unit Bas_Enter_ShipType_D;

Interface

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

Type
  TFrm_Bas_Enter_ShipType_D = Class(TFrm_Base_Detail)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edt_SaleTypeCode: TEdit;
    Edt_SaleTypeName: TEdit;
    Edt_ReMArk: TEdit;
  private
     SaleTypeID:String;
    { Private declarations }
  public
    procedure InitControls; Override;
    procedure SaveData; Override;
    { Public declarations }
  end;

var
  Frm_Bas_Enter_ShipType_D: TFrm_Bas_Enter_ShipType_D;

implementation

{$R *.DFM}


procedure TFrm_Bas_Enter_ShipType_D.InitControls;
begin
  inherited;
  with AdoQry_Maintain do
  begin
    SaleTypeID:=fieldbyname('SaleTypeID').AsString;
    Edt_SaleTypeCode.Text :=fieldbyname('SaleTypeCode').AsString;
    Edt_SaleTypeName.Text:=fieldbyname('SaleTypeName').AsString;
    Edt_ReMArk.Text:=fieldbyname('ReMArk').AsString;
  end;
end;

procedure TFrm_Bas_Enter_ShipType_D.SaveData;
begin
  inherited;
  if (Add) then
  begin
    with AdoQry_Tmp do
    begin
      Close;
      SQL.clear;
      SQL.Text:= ' Insert into SaleType '
                +' (SaleTypeCode,SaleTypeName,ReMArk ) '
                +' Values('
                +''''+edt_SaleTypeCode.text+''''
                +','''+edt_SaleTypeName.text+''''
                +','''+edt_ReMArk.text+''''
                +')';
    ExecSQL;
    end;
  end
  else
  begin
    with AdoQry_Tmp do
    begin
      Close;
      SQL.clear;
      sql.Add('update SaleType set '+
                              'SaleTypeCode='''+Edt_SaleTypeCode.text+''','+
                              'SaleTypeName='''+Edt_SaleTypeName.text+''','+
                              'ReMArk='''+Edt_ReMArk.text+''' '+
                    ' where SaleTypeID='''+SaleTypeID+''' ');

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

  with AdoQry_Maintain do
  begin
    edit;
    fieldbyname('SaleTypeCode').AsString:=Edt_SaleTypeCode.Text ;
    fieldbyname('SaleTypeName').AsString:=Edt_SaleTypeName.Text;
    fieldbyname('ReMArk').AsString:=Edt_ReMArk.Text;
    Post;
  end;

end;

end.