noname.~dpr

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

library noname;

uses
  Forms,
  Dialogs,
  MainOutUnit in '..\..\MainOutUnit.pas',
  UnitDataMD in 'UnitDataMD.pas' {DataMd: TDataModule},
  UnitOpen in 'UnitOpen.pas' {FormOpen};

var
  OldHandle:THandle;
{$R *.res}
procedure DLL_Create(AOwnerHandle:THandle);
begin
  OldHandle:=Application.Handle;
  DCntString:='';
  DViewName:='';
  DCurentID:=-1;
  Application.Handle:=AOwnerHandle;
end;

procedure DLL_Destory;
begin
  Application.Handle:=OldHandle;
end;

procedure DLL_InitDatabase(ConnectionStr:PChar;ViewName:PChar;SelectedID:Integer);
begin
  DCntString:=ConnectionStr;
  DViewName:=ViewName;
  DCurentID:=SelectedID;
end;

procedure DLL_Open;
var
  FormOpen: TFormOpen;
  UserID:Integer;
begin
  if InitMainOutFun then begin
    UserID:=PGetCurUserID;
    if PHaveThesePower(UserID,'df_xt_zhanghu','更改电价表')=1 then begin
      FormOpen:=TFormOpen.Create(Application);
      FormOpen.ShowModal;
      FormOpen.Free;
    end
    else
      ShowMessage('当前用户没有权利更改电价表');
  end;
end;

procedure LibraryProc(Reason: Integer);
begin{DLL的初始化和卸载函数}
  case Reason of
    0:begin
        DataMd.Free;
      end;
    1:begin
        DataMd:=TDataMd.Create(Application);
      end;
  end;
end;

exports
  DLL_Create,DLL_Destory,DLL_InitDatabase,DLL_Open;

begin
   DLLProc:=@LibraryProc;
   DLLProc(1);
end.