inv_billtype_d.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 90 行

unit Inv_BillType_D;

Interface

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

Type
  TFrm_Inv_BillType_D = Class(TFrm_Base_Detail)
    Edt_BillcolorDESC: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    lbl_BillTypeCode: TLabel;
    lbl_BillTypeName: TLabel;
    lbl_Billlines: TLabel;
    Label5: TLabel;
    Edt_BillCtrlCode: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    edt_BillcolorDESC2: TEdit;
    edt_BillCtrlCode2: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    procedure InitControls; Override;
    procedure SaveData; Override;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Inv_BillType_D: TFrm_Inv_BillType_D;

implementation

uses Sys_Global;
{$R *.DFM}

procedure TFrm_Inv_BillType_D.InitControls;
begin
  inherited;
  with AdoQry_Maintain do
  begin
    lbl_BillTypeCode.Caption:=fieldbyname('BillTypeCode').AsString;
    lbl_BillTypeName.Caption:=fieldbyname('BillTypeName').AsString;
    lbl_Billlines.Caption:=fieldbyname('Billlines').AsString;
    Edt_BillCtrlCode.Text:=fieldbyname('BillCtrlCode').AsString;
    Edt_BillcolorDESC.Text:=fieldbyname('BillcolorDESC').AsString;
    Edt_BillCtrlCode2.Text:=fieldbyname('BillCtrlCode2').AsString;
    Edt_BillcolorDESC2.Text:=fieldbyname('BillcolorDESC2').AsString;
 end;
end;

procedure TFrm_Inv_BillType_D.SaveData;
begin
  Inherited;
    with AdoQry_Tmp do
    begin
      Close;
      SQL.clear;
      sql.Add('update BillType set '+
                              'BillcolorDESC='''+Edt_BillcolorDESC.text+''','+
                              'BillCtrlCode='''+Edt_BillCtrlCode.text+''','+
                              'BillcolorDESC2='''+Edt_BillcolorDESC2.text+''','+
                              'BillCtrlCode2='''+Edt_BillCtrlCode2.text+''''+
                  ' where BillTypeCode='''+AdoQry_Maintain.fieldbyname('BillTypeCode').asstring+'''');
      ExecSQL;
    end;
  //给AdoQry_Item各字段赋值
  with AdoQry_Maintain do
  begin
    fieldbyname('BillcolorDESC').asstring:=Edt_BillcolorDESC.text;
    fieldbyname('BillCtrlCode').asstring:=Edt_BillCtrlCode.text;
    fieldbyname('BillcolorDESC2').asstring:=Edt_BillcolorDESC2.text;
    fieldbyname('BillCtrlCode2').asstring:=Edt_BillCtrlCode2.text;
    Post;
  end;
end;

procedure TFrm_Inv_BillType_D.FormCreate(Sender: TObject);
begin
  inherited;
  SetFocus_Control:=Edt_BillCtrlCode;
end;

end.