知识大全经典案例财务管理系统（8）[2]

Posted 2022-07-21 知

篇首语：即使道路坎坷不平，车轮也要前进；即使江河波涛汹涌，船只也航行。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全经典案例财务管理系统（8）[2]相关的知识，希望对你有一定的参考价值。

　　该窗体所要完成的任务是调用该dll的程序向窗体输入要链接的数据表的表名当数据表链接成功后可以通过双击DBGrid的某栏向调用该窗体的程序返回表中的某一项值并关闭窗体

　　( ) 为该窗体的设置处理代码如下

　　unit dllForm;

　　interface

　　uses

　　Windows Messages SysUtils Variants Classes Graphics Controls Forms

　　Dialogs DB Grids DBGrids ADODB;

　　type

　　TdllSec = class(TForm)

　　ADOTable : TADOTable;

　　DBGrid : TDBGrid;

　　DataSource : TDataSource;

　　procedure DBGrid DblClick(Sender: TObject);

　　procedure FormShow(Sender: TObject);

　　private

　　 Private declarations

　　public

　　 Public declarations

　　end;

　　//此函数负责取得当前应用程序的句柄并显示窗体它是供外部调用的函数

　　function showdllform(Ahandle:Thandle;Acaption:string;tablename:string):string;stdcall;

　　var

　　//用此变量向调用dll的程序返回值

　　resultstr:string;

　　implementation

　　$R * dfm

　　function showdllform(Ahandle:Thandle;Acaption:string;tablename:string):string;stdcall;

　　var

　　newform:Tdllsec;

　　begin

　　//取得句柄

　　application Handle:=Ahandle;

　　//建立窗体

　　newform:=Tdllsec Create(application);

　　newform Caption:=Acaption+ (双击选择) ;

　　//建立数据库链接

　　newform ADOTable TableName:=tablename;

　　newform ADOTable Active:=true;

　　//显示窗体

　　try

　　newform ShowModal;

　　//返回双击所选择的结果

　　result:=resultstr;

　　//释放该窗体

　　finally newform Free;

　　end;

　　// 双击选择数据栏返回数值

　　procedure TdllSec DBGrid DblClick(Sender: TObject);

　　begin

　　resultstr:=dbgrid Fields[ ] Text;

　　close;

　　end;

　　// 设置表宽度

　　procedure TdllSec FormShow(Sender: TObject);

　　var

　　i:integer;

　　begin

　　for i:= to dbgrid FieldCount do

　　dbgrid Columns[i] Width:= ;

　　end;

　　end

　　此时按F 键运行该工程的话就会得到如图所示的信息

　　图直接运行dll得到的信息

　　这是因为调试 dll时需要一个宿主程序如果编译后直接运行就会得到这个提示解决这一问题需要写一个调用这个 dll的 exe程序编译后将它的路径填到Run | Parameters菜单的Host app 输入条中

　　但是实际上如果直接按F 或编译允许DLL工程后即便是弹出了上面的对话框若读者浏览该工程所储存目录就可以发现已经生成了一个sec dll动态链接库这就是我们在下面的程序中要用到的DLL 就可以直接调用了

[ ] [ ]

cha138/Article/program/Delphi/201311/25024

知识大全 经典案例 财务管理系统（8）[2]

知识大全经典案例财务管理系统（8）[2]