mainoutunit.pas

电力行业前台收费程序,需要有后台SQL数据库,和电费管理系统配合应用.

unit MainOutUnit;

interface

uses Windows, Dialogs;

type
  THaveThesePower=function(OpID:Integer;TableName:PChar;PowerFld:PChar):Integer;
  TRefreshDesk=procedure(RefreshIdx : Integer); //0:刷新用户交费
                                                //1:刷新已打发票
                                                //2:刷新未打发票
var                                             //3:自动刷新当前
  PHaveThesePower:THaveThesePower;
  PRefreshDesk   :TRefreshDesk;

  DCntString:String;                 //数据库连接
  DCurHUHAO :String;                 //当前户号
  DCurYHID  :Integer;                //当前用户ID
  DCurLSH   :String;                 //当前流水号
  DCurSFXH  :Integer;                //当前收费序号
  DCurOpID  :Integer;                //当前操作员ID
  DCurOpName:String;                 //当前操作员名称


function InitMainOutFun:Boolean;

implementation

function InitMainOutFun:Boolean;
begin
  Result:=True;
  @PRefreshDesk:=GetProcAddress(MainInstance,'RefreshDesk');
  if @PRefreshDesk=nil then begin
    ShowMessage('没有发现主程序中的RefreshDesk函数');
    Result:=False;
    Exit;
  end;
  @PHaveThesePower:=GetProcAddress(MainInstance,'HaveThesePower');
  if @PHaveThesePower=nil then begin
    ShowMessage('没有发现主程序中的HaveThesePower函数');
    Result:=False;
    Exit;
  end;
end;


end.