bas_enter_area_d.pas

一个MRPII系统源代码版本

unit Bas_Enter_Area_D;

Interface

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

Type
  TFrm_Bas_Enter_Area_D = Class(TFrm_Base_Detail)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edt_AreaCode: TEdit;
    Edt_AreaName: TEdit;
    Edt_ReMArk: TEdit;
  private
    AreaID:String;
    { Private declarations }
  public
    procedure InitControls; Override;
    procedure SaveData; Override;    
    { Public declarations }
  end;

var
  Frm_Bas_Enter_Area_D: TFrm_Bas_Enter_Area_D;

implementation

{$R *.DFM}

{ TFrm_Bas_Enter_ShipMode_D }

procedure TFrm_Bas_Enter_Area_D.InitControls;
begin
  if Add then
  begin
    SetFocus_Control:=Edt_AreaCode;
  end
  else
  begin
    SetFocus_Control:=Edt_AreaCode;
  end;

  inherited;
  with AdoQry_Maintain do
  begin
    AreaID:=fieldbyname('AreaID').AsString;
    Edt_AreaCode.Text :=fieldbyname('AreaCode').AsString;
    Edt_AreaName.Text:=fieldbyname('AreaName').AsString;
    Edt_ReMArk.Text:=fieldbyname('ReMArk').AsString;
  end;
end;

procedure TFrm_Bas_Enter_Area_D.SaveData;
begin
  inherited;
  if (Add) then
  begin
    with AdoQry_Tmp do
    begin
      Close;
      SQL.clear;
      SQL.Text:= ' Insert into Area '
                +' (AreaCode,AreaName,ReMArk ) '
                +' Values('
                +''''+edt_AreaCode.text+''''
                +','''+edt_AreaName.text+''''
                +','''+edt_ReMArk.text+''''
                +')';
    ExecSQL;
    end;
  end
  else
  begin
    with AdoQry_Tmp do
    begin
      Close;
      SQL.clear;
      sql.Add('update Area set '+
                              'AreaCode='''+Edt_AreaCode.text+''','+
                              'AreaName='''+Edt_AreaName.text+''','+
                              'ReMArk='''+Edt_ReMArk.text+''' '+
                    ' where AreaID='''+AreaID+''' ');

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

  with AdoQry_Maintain do
  begin
    edit;
    fieldbyname('AreaCode').AsString:=Edt_AreaCode.Text ;
    fieldbyname('AreaName').AsString:=Edt_AreaName.Text;
    fieldbyname('ReMArk').AsString:=Edt_ReMArk.Text;
    Post;
  end;

end;

end.