📄 如何在c++ builder的dll中使用数据库控件.htm
字号:
clBtnFace<BR>? Font.Charset = DEFAULT_CHARSET<BR>? Font.Color =
clWindowText<BR>? Font.Height = -11<BR>? Font.Name = ''''MS Sans
Serif''''<BR>? Font.Style = []<BR>? OldCreateOrder = False<BR>?
PixelsPerInch = 96<BR>? TextHeight = 13<BR>? object Label1:
TLabel<BR>??? Left = 424<BR>??? Top = 16<BR>??? Width = 255<BR>???
Height = 33<BR>??? Caption =
#36890#36807''''DLL''''#26469#20351#29992#25968#25454#24211#25511#20214#65281#65281#65281<BR>???
Font.Charset = DEFAULT_CHARSET<BR>??? Font.Color = clRed<BR>???
Font.Height = -16<BR>??? Font.Name = ''''MS Sans Serif''''<BR>???
Font.Style = [fsBold]<BR>??? ParentFont = False<BR>? end<BR>? object
Button1: TButton<BR>??? Left = 8<BR>??? Top = 8<BR>??? Width =
75<BR>??? Height = 25<BR>??? Caption = ''''Button1''''<BR>???
TabOrder = 0<BR>??? OnClick = Button1Click<BR>? end<BR>? object
DBNavigator1: TDBNavigator<BR>??? Left = 96<BR>??? Top = 8<BR>???
Width = 240<BR>??? Height = 25<BR>??? DataSource =
DataModule4.DataSource1<BR>??? TabOrder = 1<BR>? end<BR>? object
DBGrid1: TDBGrid<BR>??? Left = 8<BR>??? Top = 32<BR>??? Width =
393<BR>??? Height = 177<BR>??? DataSource =
DataModule4.DataSource1<BR>??? TabOrder = 2<BR>??? TitleFont.Charset
= DEFAULT_CHARSET<BR>??? TitleFont.Color = clWindowText<BR>???
TitleFont.Height = -11<BR>??? TitleFont.Name = ''''MS Sans
Serif''''<BR>??? TitleFont.Style = []<BR>? end<BR>? object DBMemo1:
TDBMemo<BR>??? Left = 8<BR>??? Top = 208<BR>??? Width = 393<BR>???
Height = 169<BR>??? DataField = ''''Notes''''<BR>??? DataSource =
DataModule4.DataSource1<BR>??? ScrollBars = ssVertical<BR>???
TabOrder = 3<BR>? end<BR>? object DBImage1: TDBImage<BR>??? Left =
408<BR>??? Top = 72<BR>??? Width = 329<BR>??? Height = 201<BR>???
DataField = ''''Graphic''''<BR>??? DataSource =
DataModule4.DataSource1<BR>??? TabOrder = 4<BR>?
end<BR>end<BR>//---------------------------------------------------------------------------</P>
<P>#ifndef Unit2H<BR>#define
Unit2H<BR>//---------------------------------------------------------------------------<BR>#include
<CLASSES.HPP><BR>#include <CONTROLS.HPP><BR>#include
<STDCTRLS.HPP><BR>#include <FORMS.HPP><BR>#include
<DBCTRLS.HPP><BR>#include <DBGRIDS.HPP><BR>#include
<EXTCTRLS.HPP><BR>#include
<GRIDS.HPP><BR>//---------------------------------------------------------------------------<BR>class
TForm2 : public TForm<BR>{<BR>__published:?// IDE-managed
Components<BR>? TButton *Button1;<BR>? TDBNavigator
*DBNavigator1;<BR>? TDBGrid *DBGrid1;<BR>? TDBMemo *DBMemo1;<BR>?
TDBImage *DBImage1;<BR>? TLabel *Label1;<BR>? void __fastcall
Button1Click(TObject *Sender);<BR>private:?// User
declarations<BR>public:??// User declarations<BR>? __fastcall
TForm2(TComponent*
Owner);<BR>};<BR>//---------------------------------------------------------------------------<BR>extern
PACKAGE TForm2
*Form2;<BR>//---------------------------------------------------------------------------<BR>#endif<BR>//---------------------------------------------------------------------------</P>
<P>#include <VCL.H><BR>#pragma hdrstop</P>
<P>#include
"Unit3.h"<BR>//---------------------------------------------------------------------------<BR>#pragma
package(smart_init)<BR>#pragma resource "*.dfm"<BR>typedef void
__declspec(dllimport)ShowType();<BR>ShowType *LoadFunction;</P>
<P><BR>TForm3
*Form3;<BR>//---------------------------------------------------------------------------<BR>__fastcall
TForm3::TForm3(TComponent* Owner)<BR>? :
TForm(Owner)<BR>{<BR>}<BR>//---------------------------------------------------------------------------</P>
<P><BR>void __fastcall TForm3::Button1Click(TObject
*Sender)<BR>{<BR>? HINSTANCE Dll =
LoadLibrary(".\\Project1.dll");</P>
<P>???? if (Dll)<BR>???? {<BR>???????? LoadFunction = (ShowType
*)GetProcAddress(Dll, "_ShowForm");<BR>???????? if
(LoadFunction)<BR>???????????? LoadFunction();<BR>????????
else<BR>????????????
ShowMessage(SysErrorMessage(GetLastError()));<BR>????????
FreeLibrary(Dll);<BR>???? }</P>
<P>???? else<BR>???? {<BR>????????
ShowMessage(SysErrorMessage(GetLastError()));<BR>????????
ShowMessage("Unable to load the Dll");<BR>???? }</P>
<P>}<BR>//---------------------------------------------------------------------------<BR>object
Form3: TForm3<BR>? Left = 247<BR>? Top = 132<BR>? Width = 696<BR>?
Height = 480<BR>? Caption = ''''Form3''''<BR>? Color =
clBtnFace<BR>? Font.Charset = DEFAULT_CHARSET<BR>? Font.Color =
clWindowText<BR>? Font.Height = -11<BR>? Font.Name = ''''MS Sans
Serif''''<BR>? Font.Style = []<BR>? OldCreateOrder = False<BR>?
PixelsPerInch = 96<BR>? TextHeight = 13<BR>? object Button1:
TButton<BR>??? Left = 152<BR>??? Top = 176<BR>??? Width = 75<BR>???
Height = 25<BR>??? Caption = ''''Button1''''<BR>??? TabOrder =
0<BR>??? OnClick = Button1Click<BR>?
end<BR>end<BR>//---------------------------------------------------------------------------</P>
<P>#ifndef Unit3H<BR>#define
Unit3H<BR>//---------------------------------------------------------------------------<BR>#include
<CLASSES.HPP><BR>#include <CONTROLS.HPP><BR>#include
<STDCTRLS.HPP><BR>#include
<FORMS.HPP><BR>//---------------------------------------------------------------------------<BR>class
TForm3 : public TForm<BR>{<BR>__published:?// IDE-managed
Components<BR>? TButton *Button1;<BR>? void __fastcall
Button1Click(TObject *Sender);<BR>private:?// User
declarations<BR>public:??// User declarations<BR>? __fastcall
TForm3(TComponent*
Owner);<BR>};<BR>//---------------------------------------------------------------------------<BR>extern
PACKAGE TForm3
*Form3;<BR>//---------------------------------------------------------------------------<BR>#endif<BR>//---------------------------------------------------------------------------</P>
<P>#include <VCL.H><BR>#pragma hdrstop</P>
<P>#include
"Unit4.h"<BR>//---------------------------------------------------------------------------<BR>#pragma
package(smart_init)<BR>#pragma resource "*.dfm"<BR>TDataModule4
*DataModule4;<BR>//---------------------------------------------------------------------------<BR>__fastcall
TDataModule4::TDataModule4(TComponent* Owner)<BR>? :
TDataModule(Owner)<BR>{<BR>}<BR>//---------------------------------------------------------------------------<BR>?object
DataModule4: TDataModule4<BR>? OldCreateOrder = False<BR>? Left =
259<BR>? Top = 181<BR>? Height = 203<BR>? Width = 335<BR>? object
DataSource1: TDataSource<BR>??? DataSet = Table1<BR>??? Left =
136<BR>??? Top = 16<BR>? end<BR>? object Table1: TTable<BR>???
Active = True<BR>??? DatabaseName = ''''dllTestDB''''<BR>???
SessionName = ''''dllTestSession''''<BR>??? TableName =
''''biolife.db''''<BR>??? Left = 192<BR>??? Top = 24<BR>? end<BR>?
object dllTestDB: TDatabase<BR>??? AliasName =
''''BCDEMOS''''<BR>??? Connected = True<BR>??? DatabaseName =
''''dllTestDB''''<BR>??? SessionName = ''''dllTestSession''''<BR>???
Left = 88<BR>??? Top = 16<BR>? end<BR>? object Session1:
TSession<BR>??? Active = True<BR>??? SessionName =
''''dllTestSession''''<BR>??? Left = 24<BR>??? Top = 8<BR>?
end<BR>end<BR>//---------------------------------------------------------------------------</P>
<P>#ifndef Unit4H<BR>#define
Unit4H<BR>//---------------------------------------------------------------------------<BR>#include
<CLASSES.HPP><BR>#include <CONTROLS.HPP><BR>#include
<STDCTRLS.HPP><BR>#include <FORMS.HPP><BR>#include
<DB.HPP><BR>#include
<DBTABLES.HPP><BR>//---------------------------------------------------------------------------<BR>class
TDataModule4 : public TDataModule<BR>{<BR>__published:?//
IDE-managed Components<BR>? TDataSource *DataSource1;<BR>? TTable
*Table1;<BR>? TDatabase *dllTestDB;<BR>? TSession
*Session1;<BR>private:?// User declarations<BR>public:??// User
declarations<BR>? __fastcall TDataModule4(TComponent*
Owner);<BR>};<BR>//---------------------------------------------------------------------------<BR>extern
PACKAGE TDataModule4
*DataModule4;<BR>//---------------------------------------------------------------------------<BR>#endif<BR></P></SPAN></SPAN>
<DIV class=Message id=Message></DIV></FONT></DIV>
<DIV></DIV></TD></TR>
<TR>
<TD
style="PADDING-RIGHT: 10px; DISPLAY: block; PADDING-LEFT: 10px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px"
align=right bgColor=#f7f7f7 height=25>[
<SCRIPT language=JavaScript
src="如何在C++ Builder的DLL中使用数据库控件.files/Hits.htm"></SCRIPT>
] [<A href="javascript:history.go(-1)">返回上一页</A>] [<A
href="javascript:window.print()">打 印</A>] [<A
href="http://www.malegebide.com/user/favorite.asp?action=add&topic=如何在C++ Builder的DLL中使用数据库控件">收
藏</A>]</TD></TR>
<TR>
<TD
style="PADDING-RIGHT: 10px; DISPLAY: block; PADDING-LEFT: 10px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px">
<DIV>上一篇文章：<A
href="http://www.malegebide.com/article/1/14/2006/2006092518469.html">Python
与 C++ 程序的简单实例对比</A></DIV>
<DIV>下一篇文章：<A
href="http://www.malegebide.com/article/1/14/2006/2006092518471.html">C++从零开始（九）——何谓结构</A></DIV></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=575 border=0>
<TBODY>
<TR>
<TD class=titlebg1>∷相关文章评论∷ （评论内容只代表网友观点，与本站立场无关！） [<A
href="http://www.malegebide.com/article/comment.asp?ArticleID=18470"
target=_blank>更多评论</A>…]</TD></TR>
<TR vAlign=top>
<TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><!-- 页面底部开始 -->
<TABLE class=tableborder cellSpacing=0 cellPadding=0 width=778 align=center
border=0>
<TBODY>
<TR>
<TD height=5></TD></TR>
<TR>
<TD class=linebar height=8></TD></TR>
<TR>
<TD height=5></TD></TR>
<TR>
<TD class=tablebody align=middle height=65>QQ:310646 <A class=navmenu
href="http://www.malegebide.com/admin/admin_login.asp" target=_blank>A</A>
Copyright © 2006 <FONT face=Verdana, sans-serif Helvetica,
Arial,><B>Malegebide.Com</B></FONT>.
<SCRIPT language=javascript
src="如何在C++ Builder的DLL中使用数据库控件.files/529370.js"
type=text/javascript></SCRIPT>
No Rights Reserved <BR></TD></TR>
<TR>
<TD height=5></TD></TR></TBODY></TABLE>
<SCRIPT language=javascript
src="如何在C++ Builder的DLL中使用数据库控件.files/Std_StranJF.Js"></SCRIPT>
<!-- 页面底部结束 -->
<SCRIPT src="如何在C++ Builder的DLL中使用数据库控件.files/count.htm"
type=text/javascript></SCRIPT>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -