gl_enter_credencear.pas

一个MRPII系统源代码版本

unit Gl_Enter_CredenceAr;

Interface

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

Type
  TFrm_Gl_Enter_CredenceAr = Class(TFrm_Base_Detail)
    Label1: TLabel;
    Edt_Docket: TEdit;
    Edt_KmCode: TLinkEdit;
    Label2: TLabel;
    Edt_KmName: TEdit;
    Label3: TLabel;
    Edt_DebitAmount: TEdit;
    Label4: TLabel;
    Edt_CreditAmount: TEdit;
    procedure Edt_KmCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edt_KmCodeButtonClick(Sender: TObject);
    procedure Edt_KmCodeExit(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edt_KmCodeChange(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Gl_Enter_CredenceAr: TFrm_Gl_Enter_CredenceAr;

implementation
uses Sys_Global;
{$R *.DFM}

procedure TFrm_Gl_Enter_CredenceAr.Edt_KmCodeKeyDown(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;

procedure TFrm_Gl_Enter_CredenceAr.Edt_KmCodeButtonClick(Sender: TObject);
begin
  inherited;
  CommOnHint(Sender,AdoQry_Tmp,'kmName','科目名称','kmCode',
             '科目代码',' Gl_AccountSubject ',' endkm=1 and kmfreeze=0 ');
end;

procedure TFrm_Gl_Enter_CredenceAr.Edt_KmCodeExit(Sender: TObject);
begin
  inherited;
  if activecontrol.Name='btn_Cancel' then exit;
  If Trim(Edt_KmCode.Text)='' then 
  begin
    Edt_KmName.Text := '';
    exit;
  end;
  Executesql(AdoQry_tmp,'select * from Gl_AccountSubject where endkm=1 and kmfreeze=0 and kmCode='+quotedstr(Trim(Tedit(sender).text)),0)  ;
  if AdoQry_tmp.RecordCount=0 then
  begin
    DispInfo('科目代码错误！',3);
    Tedit(sender).setfocus;
    ModalResult := MrNone;
    abort;
  end;
  Edt_KmName.Text:=AdoQry_tmp.fieldbyname('KmName').asstring;
end;

procedure TFrm_Gl_Enter_CredenceAr.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 // inherited;

end;

procedure TFrm_Gl_Enter_CredenceAr.Edt_KmCodeChange(Sender: TObject);
begin
  inherited;
  Btn_Ok.Enabled := True;
end;

procedure TFrm_Gl_Enter_CredenceAr.btn_okClick(Sender: TObject);
begin
//  inherited;
end;

end.