ap_qry_param.pas

一个MRPII系统源代码版本

unit Ap_Qry_Param;

Interface

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

Type
  TFrm_Ap_Qry_Param = Class(TFrm_Base_Dialog)
    Label1: TLabel;
    Label2: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btn_okClick(Sender: TObject);
    procedure btn_CancelClick(Sender: TObject);
  private
    { Private declarations }
    CurrencyCode:String;                                                        //主控货币;
  public
    { Public declarations }
    procedure InitForm(AdOConnection: TAdOConnection);    
  end;

var
  Frm_Ap_Qry_Param: TFrm_Ap_Qry_Param;

implementation

{$R *.DFM}

{ TFrm_Base_Dialog1 }

procedure TFrm_Ap_Qry_Param.InitForm(AdOConnection: TAdOConnection);
var
  str1:string;
begin
  SetDBConnect(AdOConnection);
  CurrencyCode:='元';
  with AdoQry_Tmp do
  begin
    Close;
    sql.clear;
    sql.Add('select ApParamValuen '+
                    ' from ApParam '+
                    ' where ApParamCode=''ErrRange ''');
    open;
    Str1:=fieldbyname('ApParamValuen').asstring;
    if Trim(str1)='' then
      label2.Caption:='0';
    label2.Caption:=str1+CurrencyCode;
    Close;
  end;
end;
procedure TFrm_Ap_Qry_Param.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Action:=cafree;
end;

procedure TFrm_Ap_Qry_Param.btn_okClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TFrm_Ap_Qry_Param.btn_CancelClick(Sender: TObject);
begin
  inherited;
  Close;
end;

end.