bas_exchrate.pas

一个MRPII系统源代码版本

unit Bas_ExchRate;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Outer, Menus, ExtPrintReport, Db, ActnList, AdODB, Grids, DBGridEh,
  StdCtrls, ExtCtrls, ComCtrls, ToolWin, jpeg;

Type
  TFrm_Bas_ExchRate = Class(TFrm_Base_Outer)
    AdoQry_MainEXCHMonth: TStringField;
    AdoQry_MainCURRENCYCode: TStringField;
    AdoQry_MainExchRate: TFloatField;
    AdoQry_MainExchRateREMArK: TStringField;
    AdoQry_MaincurrencyName: TStringField;
    Label1: TLabel;
    procedure Act_NewExecute(Sender: TObject);
  private
    { Private declarations }
  public
    function  SetDeleteSql:String;Override;
    procedure initform(AdOConnection:TAdOConnection;ReadOnly:boolean);Override;
    { Public declarations }
  end;

var
  Frm_Bas_ExchRate: TFrm_Bas_ExchRate;

implementation

uses Bas_ExchRate_D,Sys_Global;

{$R *.DFM}
procedure TFrm_Bas_ExchRate.initform(AdOConnection:TAdOConnection;ReadOnly:boolean);
begin//SQL初始化
  inherited;
  SelectFromSQL:=
    'Select ExchRate.*,currency.currencyName '+
      ' from ExchRate  join currency  on '+
      '      ExchRate.currencyCode=currency.currencyCode';

  //当前排序字段
  OrderByFields:='ExchMonth,CurrencyCode';
  Lbl_Order.Caption:='月份+货币代码';
        
  GetData;
  //设置弹出窗体
  Frm_Sys_Detail:=TFrm_Bas_ExchRate_D.Create(Application);
end;

function TFrm_Bas_ExchRate.SetDeleteSql: String;
begin
  Result:='Delete ExchRate '+
          'Where ExchMonth='''+AdoQry_Main.fieldbyname('ExchMonth').AsString+''' '+
          '  and CurrencyCode='''+AdoQry_Main.fieldbyname('currencyCode').AsString+'''';
end;

procedure TFrm_Bas_ExchRate.Act_NewExecute(Sender: TObject);
var
  sSQL:string;
begin
  sSQL:=' select Count(*) as iCount from currency where ISMaster=1';
  with AdoQry_tmp do
  begin
    Close;
    SQl.clear;
    SQL.Add(sSQL);
    Open;
    if fieldbyname('iCount').asinteger<=0 then
    begin
      DispInfo('请先在系统中设定主位币',1) ;
      abort;
    end;
  end;
  inherited;   
end;

end.