服务端：添加ADOConnection，ADOQuery1，ADOQuery2。设置ADOQuery1为主表，ADOQuery2为从表。(通过 ADOQuery2.SQL.Text:= 'select * from 从表 where FKID=:主表PKID'设置)。添加DataSetProvider1和DataSetProvider2分别连接到ADOQuery1和ADOQuery2。
客户端：添加ClientDataSet1，ClientDataSet2。ClientDataSet1连接到DataSetProvider1。双击ClientDataSet1，右键Add All Field。可以看到一个TDataSetField字段。设置ClientDataSet2的DataSetField属性为ClientDataSet1中的TDataSetField列。添加DataCourse1、DataSource2分别连接到ClientDataSet1和ClientDataSet2控件。添加DBGrid1和DBGrid2分别连接到DataCourse1、DataSource2。设置ClientDataSet1.Active:= True;这时发现ClientDataSet2也自动打开。
自增列处理:假如主从表的主外键都是自增列，这时可以在服务端处理主从表关联。在DataSetProvider1中的BeforeUpdateRecord事件中添加如下代码：
procedure TForm1.DataSetProvider1BeforeUpdateRecord(Sender: TObject;
SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;
UpdateKind: TUpdateKind; var Applied: Boolean);
begin
&nbs ......
Unt_Machine_WebDll.pas
BODY {background: #FFFFFF}
A:link { color: #0000FF}
A:visited { color: #0000FF}
A:Active { color: #0000FF}
.bold {font-weight: bold}
.italic {font-style: italic}
.underline {text-decoration: underline}
unit Unt_Machine_WebDll;
{$WARN SYMBOL_PLATFORM OFF}
interface
uses
ComObj, ActiveX, Machine_TLB, StdVcl, SysUtils, Windows, Device ;
const
g_SupportedOptions = INTERFACESAFE_FOR_UNTRUSTED_CALLER or INTERFACESAFE_FOR_UNTRUSTED_DATA ;
type
TMachine = class(TAutoObject, IMachine, IObjectSafety)
private
FObjectSafetyFlags: DWORD;
protected
{ Protected declarations }
...
public
{ IObjectSafety }
function GetInterfaceSafetyOptions(const IID: TIID; pdwSupportedOptions,
pdwEnabledOptions: PDWORD): HResult; virtual; stdcall;
function SetInterfaceSafetyOptions(const IID: TIID; dwOptionSetMask,
dwEnabledOptions: DWORD): HResult; virtual; stdcall;
end;
implementation
uses ComServ ......
常用控件命名前缀
控件类名
前缀
TForm等窗体类
frm
TButton, TSpeedButton等所有的按钮类
btn
TCheckBox等所有的检查框
chk
TRadioButton单选按钮类
rdo
TListBox等所有的列表框类
lst
TPanel等所有的面板类
pnl
TLabel, TStaticText等所有用来显示的标签类
lbl
TEdit, TMaskEdit等所有的单行编辑框类
edt
TMemo, TRichEdit等所有的多行编辑框类
mmo
TImage等图片类
img
TComboBox等所有的下拉式列表框类
cbb
TTreeView
tv
TListView
lv
TToolBar工具条
tb
TGroupBox等控件类
grp
TOpenDialog等所有的对话框元件类
dlg
TMainMenu所有的主菜单类
mm
TMainMenuItem所有的菜单项类
mi
TPopupMenu所有的弹出式菜单类
pm
TPopupMenuItem所有的弹出式菜单项类
pmi
THotKey
hk
TSplitter等所有的分隔符类
spt
TTable等所有的数据表类
tbl
TActionList, TAction表示动作的列表项
act
TPageControl等所有的页式控件类
pgc
TImageList等所有的图片列表类
il
TChart图表类 ......
◇[DELPHI]产生鼠标拖动效果
通过MouseMove事件、DragOver事件、EndDrag事件实现，例如在PANEL上的LABEL：
var xpanel,ypanel,xlabel,ylabel:integer;
PANEL的MouseMove事件：xpanel:=x;ypanel:=y;
PANEL的DragOver事件：xpanel:=x;ypanel:=y;
LABEL的MouseMove事件：xlabel:=x;ylabel:=y;
LABEL的EndDrag事件：label.left:=xpanel-xlabel;label.top:=ypanel-ylabel;
◇[DELPHI]取得WINDOWS目录
uses shellapi;
getwindowsdirectory(windir,sizeof(windir));
或者从注册表中读取，位置：
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion
SystemRoot键，取得如：C:\WINDOWS
trunc()
◇[DELPHI]关于文件、目录操作
Chdir('c:\abcdir');转到目录
Mkdir('dirname');建立目录
Rmdir('dirname');删除目录
GetCurrentDir;//取当前目录名，无'\'
Getdir(0,s);//取工作目录名s:='c:\abcdir';
Deletfile('abc.txt');//删除文件
Renamefile('old.txt','new.txt');//文件更名
ExtractFilename(filelistbox1.filename);//取文件名
ExtractFileExt(filelistbox1.filename);//取文件后缀
◇[DELPHI]处理文件属性
attr:=filegetattr(filelistbox1.fil ......
一个很简单的问题，但我凭我学习C++/VC一年多，接触Delphi的时间也不短了，但仍然写不出来。
本来以为，不就是将Form1.Show和Form1.Hide么，但却就是达到不到自己想要的结果
这个问题倒不用作深入研究了，到是让我发现，Delphi也不是信手摘来，什么都是那么容易的，以为自己有点儿VC的底子，就小看了Delphi。
最近一段时间一直在用Delphi，但却没什么长进，看来是没有经过系统的学习。
下面是Delphi显示和隐藏窗体的代码：
隐藏:
Application.Minimize();
ShowWindow(application.Handle,SW_HIDE);
显示:
ShowWindow(application.Handle,SW_SHOW);
Application.Restore();
转自：http://www.cnitblog.com/delphi2007/archive/2008/09/23/49404.aspx ......
Delphi 与 C/C++ 数据类型对照表
Delphi数据类型C/C++
ShorInt
8位有符号整数
char
Byte
8位无符号整数
BYTE,unsigned short
SmallInt
16位有符号整数
short
Word
16位无符号整数
unsigned short
Integer,LongInt
32位有符号整数
int,long
Cardinal,LongWord/DWORD
32位无符号整数
unsigned long
Int64
64位有符号整数
_int64
Single
4字节浮点数
float
*Real48
6字节浮点数
Double
8字节浮点数
double
*Extended
10字节浮点数
long double
Currency
64位货币类型
TDate/TDateTime
8字节日期/时间
Variant,OleVariant
16字节可变类型
VARIANT,^Variant,^OleVariant
Char,AnsiChar
1字节字符
char
WideChar
2字节字符
WCHAR
*ShortString
短字符串
AnsiString/String
长字符串
^AnsiString
WideString
宽字符串
^WideString
PChar,PAnsiChar
NULL结束的字符串
char*
PWideChar
NULL结束的宽字符串
LPCWSTR
Boolean,ByteBool
1字节布尔类型
任何1字节
WordBool
2字节布尔类型
任何2字节
BOOL,LongBool
4字节布尔类型
BOOL
注：有*前缀的是向前兼容类型；有^前缀的是C++Builder特 ......
Delphi 与 C/C++ 数据类型对照表
Delphi数据类型C/C++
ShorInt
8位有符号整数
char
Byte
8位无符号整数
BYTE,unsigned short
SmallInt
16位有符号整数
short
Word
16位无符号整数
unsigned short
Integer,LongInt
32位有符号整数
int,long
Cardinal,LongWord/DWORD
32位无符号整数
unsigned long
Int64
64位有符号整数
_int64
Single
4字节浮点数
float
*Real48
6字节浮点数
Double
8字节浮点数
double
*Extended
10字节浮点数
long double
Currency
64位货币类型
TDate/TDateTime
8字节日期/时间
Variant,OleVariant
16字节可变类型
VARIANT,^Variant,^OleVariant
Char,AnsiChar
1字节字符
char
WideChar
2字节字符
WCHAR
*ShortString
短字符串
AnsiString/String
长字符串
^AnsiString
WideString
宽字符串
^WideString
PChar,PAnsiChar
NULL结束的字符串
char*
PWideChar
NULL结束的宽字符串
LPCWSTR
Boolean,ByteBool
1字节布尔类型
任何1字节
WordBool
2字节布尔类型
任何2字节
BOOL,LongBool
4字节布尔类型
BOOL
注：有*前缀的是向前兼容类型；有^前缀的是C++Builder特 ......
Delphi 与 C/C++ 数据类型对照表
Delphi数据类型C/C++
ShorInt
8位有符号整数
char
Byte
8位无符号整数
BYTE,unsigned short
SmallInt
16位有符号整数
short
Word
16位无符号整数
unsigned short
Integer,LongInt
32位有符号整数
int,long
Cardinal,LongWord/DWORD
32位无符号整数
unsigned long
Int64
64位有符号整数
_int64
Single
4字节浮点数
float
*Real48
6字节浮点数
Double
8字节浮点数
double
*Extended
10字节浮点数
long double
Currency
64位货币类型
TDate/TDateTime
8字节日期/时间
Variant,OleVariant
16字节可变类型
VARIANT,^Variant,^OleVariant
Char,AnsiChar
1字节字符
char
WideChar
2字节字符
WCHAR
*ShortString
短字符串
AnsiString/String
长字符串
^AnsiString
WideString
宽字符串
^WideString
PChar,PAnsiChar
NULL结束的字符串
char*
PWideChar
NULL结束的宽字符串
LPCWSTR
Boolean,ByteBool
1字节布尔类型
任何1字节
WordBool
2字节布尔类型
任何2字节
BOOL,LongBool
4字节布尔类型
BOOL
注：有*前缀的是向前兼容类型；有^前缀的是C++Builder特 ......
最新文章 : delphi