gl_enter_credencetype_d.pas

一个MRPII系统源代码版本

unit Gl_Enter_CredenceType_D;

Interface

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

Type
  TFrm_Gl_Enter_CredenceType_D = Class(TFrm_Base_Entry_Detail)
    Label1: TLabel;
    Edt_KmCode: TLinkEdit;
    Edt_KmName: TEdit;
    procedure Edt_KmCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edt_KmCodeButtonClick(Sender: TObject);
    procedure Edt_KmCodeExit(Sender: TObject);
  private
    { Private declarations }
  public
    procedure InitControls; Override;
    procedure SaveBodyData; Override;
    procedure SetStatus(CurrentStatus:String;var EnableControls:String);Override;
    { Public declarations }
  end;

var
  Frm_Gl_Enter_CredenceType_D: TFrm_Gl_Enter_CredenceType_D;

implementation

uses  Sys_Global;

{$R *.DFM}

{ TFrm_Gl_Enter_ForeignCurrencyRate_D }

procedure TFrm_Gl_Enter_CredenceType_D.InitControls;
begin
  Inherited;
  with AdoQry_Body do
  begin
    If (Status='Add') then
    begin
      Edt_KmCode.Enabled := True;
      Edt_KmCode.Text := '';
      Edt_KmName.Text:='';
    end
    else
    begin
      Edt_KmCode.Enabled := True;
      Edt_KmCode.Text:=fieldbyname('KmCode').AsString;
      Edt_KmName.Text:=fieldbyname('KmName').AsString;
    end;
  end;
  if Edt_KmCode.CanFocus then
    Edt_KmCode.SetFocus;
end;

procedure TFrm_Gl_Enter_CredenceType_D.SaveBodyData;
begin
  inherited;
  If Status='Add' Then
    AdoQry_Body.Append
  Else
  AdoQry_Body.Edit;
  with AdoQry_Body do
  begin
    fieldbyname('KmCode').AsString := Trim(Edt_KmCode.Text);
    fieldbyname('KmName').AsString := Trim(Edt_KmName.Text);
    fieldbyname('endKm').AsInteger := IifInteger(status='Add',-1,-2);//-1:新增 -2：删除
    Post;
  end;

end;

procedure TFrm_Gl_Enter_CredenceType_D.SetStatus(
  CurrentStatus: String; var EnableControls: String);
begin
  inherited;
  if(CurrentStatus='Add')then
    EnableControls := 'Edt_KmCode,'
  else
    EnableControls := 'Edt_KmCode,';
end;

procedure TFrm_Gl_Enter_CredenceType_D.Edt_KmCodeKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
   If key=120 Then
  CommOnHint(Sender,AdoQry_Tmp,'KmName','科目名称','KmCode',
             '科目代码',' Gl_AccountSubject ');
end;

procedure TFrm_Gl_Enter_CredenceType_D.Edt_KmCodeButtonClick(
  Sender: TObject);
begin
  inherited;
  CommOnHint(Sender,AdoQry_Tmp,'KmName','科目名称','KmCode',
             '科目代码',' Gl_AccountSubject ');
end;

procedure TFrm_Gl_Enter_CredenceType_D.Edt_KmCodeExit(Sender: TObject);
begin
  inherited;
  if Activecontrol.Name =  'btn_ok' then
  begin
    AdoQry_Tmp.Close;
    AdoQry_Tmp.SQL.clear;
    AdoQry_Tmp.SQL.text := 'Select KmName from Gl_AccountSubject Where KmCode='''+Edt_KmCode.Text +'''';
    AdoQry_Tmp.Open;
    if AdoQry_Tmp.Eof then
    begin
      DispInfo('科目代码输入错误！',1);
      Edt_KmCode.SetFocus;
      Abort;
    end
    else
      Edt_KmName.Text := AdoQry_Tmp.fieldbyname('KmName').AsString;
  end;
end;

end.