main.~pas

《Visual C++视频技术方案宝典》配套光盘

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB,DataManage, Grids, DBGrids,ADOInt,ComObj;

type
  TForm1 = class(TForm)
    btn1: TButton;
    tbl1: TADOTable;
    ds1: TDataSource;
    dbgrd1: TDBGrid;
    btnQuit: TButton;

    procedure btn1Click(Sender: TObject);
    procedure btnQuitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    Module: HMODULE;
     Recordset: _RecordsetPtr;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
type
  funGetDataManage = function (): CDataManage;stdcall;
  funCreateStuff   = function(): CComStuff;stdcall;
  funCreateStuffManage = function(): CStuffManage;stdcall;
procedure TForm1.btn1Click(Sender: TObject);
  var
    CreateStuff: funCreateStuff;
    stuff: CComStuff;
    CreateStuffManage: funCreateStuffManage;
    StuffManage: CStuffManage;
    id: Integer;
    Connect: _Connection;
begin
    CreateStuffManage := GetProcAddress(Module,'CreateStuffManage');
    StuffManage := CreateStuffManage();
    if (Recordset^.State=adStateOpen) then
      Recordset^.Close();
   StuffManage.SelectStuff(Recordset);
   id := Recordset^.Fields.Item[0].Value;

   tbl1.Recordset :=recordset^;
   StuffManage.FreeSelf();
end;

procedure TForm1.btnQuitClick(Sender: TObject);
begin
  Close();
end;

procedure TForm1.FormCreate(Sender: TObject);
var
    DataManager: CDataManage;
    GetDataManage: funGetDataManage;

begin

  new(Recordset);
  Recordset^ :=  _Recordset(CreateOleObject('ADODB.Recordset')) ;
  Module :=  LoadLibrary('E:\程序\VC\VC技术方案宝典\1\1.1\1.1.3\01\OperationDeploy\OperationDeploy.dll');
  GetDataManage := GetProcAddress(Module,'GetDataManage') ;
  DataManager := GetDataManage();
  if (not (DataManager).InitDatabase('Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=StuffManage;Data Source=.'))then
    ShowMessage('数据库连接失败');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Dispose(Recordset);
   FreeLibrary(Module);
end;

end.