bas_enter_balancetype_d.pas

一个MRPII系统源代码版本

unit Bas_Enter_BalanceType_D;

Interface

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

Type
  TFrm_Bas_Enter_BalanceType_D = Class(TFrm_Base_Detail)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edt_BalanceTypeCode: TEdit;
    Edt_BalanceTypeName: TEdit;
    Edt_ReMArk: TEdit;
    Label4: TLabel;
    LEdt_GatheringKMCode: TLinkEdit;
    Lbl_KmName: TLabel;
    procedure LEdt_GatheringKMCodeButtonClick(Sender: TObject);
    procedure LEdt_GatheringKMCodeExit(Sender: TObject);
    procedure LEdt_GatheringKMCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    BalanceTypeID:String;
    { Private declarations }
  public
    procedure InitControls; Override;
    procedure SaveData; Override;    
    { Public declarations }
  end;

var
  Frm_Bas_Enter_BalanceType_D: TFrm_Bas_Enter_BalanceType_D;

implementation

uses Sys_Global;

{$R *.DFM}

{ TFrm_Bas_Enter_ShipMode_D }

procedure TFrm_Bas_Enter_BalanceType_D.InitControls;
begin
  inherited;
  with AdoQry_Maintain do
  begin
    BalanceTypeID:=fieldbyname('BalanceTypeID').AsString;
    Edt_BalanceTypeCode.Text :=fieldbyname('BalanceTypeCode').AsString;
    Edt_BalanceTypeName.Text:=fieldbyname('BalanceTypeName').AsString;
    LEdt_GatheringKMCode.Text:=fieldbyname('GatheringKMCode').AsString;
    Lbl_KmName.Caption:=fieldbyname('KmName').AsString;
    Edt_ReMArk.Text:=fieldbyname('ReMArk').AsString;
  end;
  if Edt_BalanceTypeCode.CanFocus Then
    Edt_BalanceTypeCode.SetFocus;
end;

procedure TFrm_Bas_Enter_BalanceType_D.SaveData;
begin
  inherited;
  if (Add) then
  begin
    with AdoQry_Tmp do
    begin
      Close;
      SQL.clear;
      SQL.Text:= ' Insert into BalanceType '
                +' (BalanceTypeCode,BalanceTypeName,GatheringKMCode,ReMArk ) '
                +' Values('
                +''''+edt_BalanceTypeCode.text+''''
                +','''+edt_BalanceTypeName.text+''''
                +','''+Trim(LEdt_GatheringKMCode.Text)+''''
                +','''+edt_ReMArk.text+''''
                +')';
    ExecSQL;
    end;
  end
  else
  begin
    with AdoQry_Tmp do
    begin
      Close;
      SQL.clear;
      sql.Add('update BalanceType set '+
                              'BalanceTypeCode='''+Edt_BalanceTypeCode.text+''','+
                              'BalanceTypeName='''+Edt_BalanceTypeName.text+''','+
                              'GatheringKMCode='''+Trim(LEdt_GatheringKMCode.Text)+''','+
                              'ReMArk='''+Edt_ReMArk.text+''' '+
                    ' where BalanceTypeID='''+BalanceTypeID+''' ');

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

  with AdoQry_Maintain do
  begin
    edit;
    fieldbyname('BalanceTypeCode').AsString:=Edt_BalanceTypeCode.Text ;
    fieldbyname('BalanceTypeName').AsString:=Edt_BalanceTypeName.Text;
    fieldbyname('KmName').AsString:=Lbl_KmName.Caption;
    fieldbyname('GatheringKMCode').AsString:=LEdt_GatheringKMCode.Text;
    fieldbyname('ReMArk').AsString:=Edt_ReMArk.Text;
    Post;
  end;

end;

procedure TFrm_Bas_Enter_BalanceType_D.LEdt_GatheringKMCodeButtonClick(
  Sender: TObject);
begin
  inherited;
  CommonHint(Sender,AdoQry_Tmp,'KmName','科目名称','KmCode','科目代码','Gl_AccountSubject','endkm=1 and kmfreeze=0');
end;

procedure TFrm_Bas_Enter_BalanceType_D.LEdt_GatheringKMCodeExit(
  Sender: TObject);
begin
  inherited;
  If ActiveControl.Name='btn_Cancel' Then
    Exit;
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.Text:=' Select KmName From Gl_AccountSubject Where KMCode='''+Trim(TLinkEdit(Sender).Text)+'''';
  AdoQry_Tmp.Open;
  If AdoQry_Tmp.RecordCount=0 Then
  begin
    DispInfo('科目代码输入错误，请检查!',1);
    Twincontrol(Sender).SetFocus;
    Abort;
  end
  Else
    Lbl_KmName.Caption:=Trim(AdoQry_Tmp.fieldbyname('KmName').AsString);
end;

procedure TFrm_Bas_Enter_BalanceType_D.LEdt_GatheringKMCodeKeyDown(
  Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  inherited;
  If Key=120 Then
     CommonHint(Sender,AdoQry_Tmp,'KmName','科目名称','KmCode','科目代码','Gl_AccountSubject','endkm=1 and kmfreeze=0');
end;

end.