gl_qry_endsubjectbalance_c.pas

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

unit Gl_Qry_EndSubjectBalance_C;

Interface

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

Type
  TFrm_Gl_Qry_EndSubjectBalance_C = Class(TFrm_Base_Detail)
    Label1: TLabel;
    medts: TMaskEdit;
    procedure btn_okClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
  private
    FirstBalance:double;
    { Private declarations }
  public
    procedure InitControls; Override;
    procedure SaveData;Override;
    procedure SetStatus(CurrentStatus:String;var EnableControls:String); Override;
    { Public declarations }
  end;

var
  Frm_Gl_Qry_EndSubjectBalance_C: TFrm_Gl_Qry_EndSubjectBalance_C;
  stArtYear,stArtMonth:integer;
implementation
uses Sys_Global;
{$R *.DFM}
procedure TFrm_Gl_Qry_EndSubjectBalance_C.InitControls;
begin
  inherited;
end;

procedure TFrm_Gl_Qry_EndSubjectBalance_C.SaveData;
begin
  inherited;
end;

procedure TFrm_Gl_Qry_EndSubjectBalance_C.SetStatus(CurrentStatus:String;var EnableControls:String);
begin
 inherited;
 
end;

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

end;

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

end;

procedure TFrm_Gl_Qry_EndSubjectBalance_C.FormActivate(Sender: TObject);
begin
//  inherited;
  Btn_ok.Enabled := True;
end;

end.