摘要：
Delphi快捷键大全在过程、函数、事件内部， SHIFT+CTRL+向上的方向键 可跳跃到相应的过程、函数、事件的定义．相反，在过程、函数、事件的定义处，SHIFT+CTRL+向下的方向键 可跳跃到具体过程、函数、事件内部CTRL+ SHIFT + C:编写申明或者补上函数.如：procedure TT.A(AA: string); //函数申明安下：CTRL+ SHIFT + C后，会写上procedure TT.A(AA: string);beginend;SHIFT+CTRL+E 显示 EXPLORERcrtl + shift + n (n=1,2,3,4......)定义书签crtl 阅读全文
摘要：
SQL的重复记录处理大全查找所有重复标题的记录： SELECT * FROM t_info a WHERE ((SELECT COUNT(*) FROM t_info WHERE Title = a.Title) > 1) ORDER BY Title DESC 一查找重复记录 1。查找全部重复记录Select * From 表 Where 重复字段 In (Select 重复字段 From 表 Group By 重复字段 Having Count(*)>1)2。过滤重复记录(只显示一条)Select * From HZT Where ID In (Select Max(ID) F 阅读全文
摘要：
如果webbrowser由你创建如果网页内容可知用263举个例子procedure TForm1.FormCreate(Sender: TObject);begin b := false; webbrowser1.Navigate('http://www.263.net');end;procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);begin b := True;end;procedure TForm1.Button 阅读全文
摘要：
Borland DataSnap(MIDAS)三层架构编程中，DataSetProvider的Option属性DataSetProvider的Option属性看看远端数据模块里的DataSetProvider的Option属性是否设置正确！Provider控件的Options属性值是一个集合，用于设置有关打包和传递的选项，像显示哪些字段、允许哪种更新方式等等。1.poFetchBlobsOnDemand：若包含此项，则表示数据包中不包括BLOB字段。不过，如果客户端的TclientDataSet控件的FetchOnDemand属性设为True，那么客户端还是能自动地请求这些数据值；否则，客户端 阅读全文
摘要：
图解SQL多表关联查询内连接左连接右连接全外连接 阅读全文
摘要：
有一行代码的三层，功能肯定非常的简单，但是，再简单，我们也三层了，学习一个东西，需要从入门开始就有兴趣，如果入门就给吓怕了，哪么后来何来信心学习呢？现在就让我们开始吧，不只是没有华丽的词语，而是连用词都不专业，因为，我也只是一个入门者。 我所用的版本为：Embarcadero® Delphi® 2010 Version 14.0.3593.25826 一、让我们 file->new->other ，再选 datasnap server ，或者F6，输入 datasnap如图，我们有两个可选项datasnap server:选择这一项，我们得到的将是一个独立EXE 阅读全文
摘要：
A类互联网网址： 7位网络号 24位主机号 01111111.11111111.11111111.11111111 --->01111111 = 127 0..127 0..255 0..255 0..255 0.0.0.0 -- 127.255.255.255B类互联网网址： 14位网络号 16位主机号 10111111.11111111.11111111.11111111 --->10111111 = 191 128..191 0..255 0..255 0..255 128.0.0.0 -- 191.255.255.255C类互联网网址： 21位网络号 8位主机号 11011 阅读全文
摘要：
SqlServer中得到当前日期（convert函数，getdate函数）当前日期SELECT CONVERT(VARCHAR(30),GETDATE(),111)SqlServer中得到当前日期（convert函数，getdate函数）函数GETDATE（）的返回值在显示时只显示到秒。实际上，SQL Sever内部时间可以精确到毫秒级（确切地说，可以精确到3.33毫秒）。 ..类型0，9，和13总是返回四位的年。对其它类型，要显示世纪，把style值加上100。类型13和14返回24小时时钟的时间。类型0，7，和 13返回的月份用三位字符表示（用Nov代表November）.对表11.1中所 阅读全文
摘要：
1.理论只要两个表的公共字段有匹配值，就将这两个表中的记录组合起来。个人理解：以一个共同的字段求两个表中符合要求的交集，并将每个表符合要求的记录以共同的字段为牵引合并起来。语法FROM table1 INNER JOIN table2 ON table1 . field1 compopr table2 . field2INNER JOIN 操作包含以下部分：部分说明table1, table2要组合其中的记录的表的名称。field1，field2要联接的字段的名称。如果它们不是数字，则这些字段的数据类型必须相同，并且包含同类数据，但是，它们不必具有相同的名称。compopr任何关系比较运算符： 阅读全文
摘要：
cxGrid数据录入一、数据录入1 在TcxGridDBTableView中,设定属性 NewItemRow.Visible = True2 在cxgrid中输入数据怎样回车换行 在TcxGridDBTableView中 将属性OptionsBehavior.FocusFirstCellOnNewRecord = True OptionsBehavior.GoToNextCellOnEnter = True OptionsBehavior.FocusCellOnCycle = True就可以了.如果愿意也可以添加其自带的操作按钮，OptionsView.Navigator = True随后在N 阅读全文
摘要：
procedure CaptureScreen(Const FileName: string);var BitsPerPixel: Byte; pD3D: IDirect3D9; pSurface: IDirect3DSurface9; g_pD3DDevice: IDirect3DDevice9; D3DPP: TD3DPresentParameters; ARect: TRect; LockedRect: TD3DLockedRect; BMP: TBitmap; i, p: Integer;begin BitsPerPixel := GetDeviceCaps(Can... 阅读全文
摘要：
delphi 三层架构简单例子(经测试成功)所谓三层：(1) 客户端(2) 服务器端(3) 数据库 在数据访问时，使得客户端必须通过服务器来访问数据库。提高了系统的安全性。 在Delphi中可以使用Socket或者Dcom来连接他们相互间的通讯。如果使用Scocket在系统使用时必须提供Scocket连接器，而Dcom则不用。客户端和服务器的连接需要Broker来联系。环境为winxp sp2 + delphi 7 + db7.(MSSQL2000)创建过程：1、请不要新建application.file-new-activex-activex library,file --new--othe 阅读全文
摘要：
DBGrid 应用全书http://blog.csdn.net/aroc_lo/article/details/3188500在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色，以及相关的字体的大小和风格。 以下的示例程序演示了对 DBGrid 各属性的设置，使 Delphi 显示的表格就像网页中的表格一样漂亮美观。 阅读全文
摘要：
基于Delphi的接口编程入门为什么使用接口？ 举个例子好了：有这样一个卖票服务，电影院可以卖票，歌剧院可以卖票，客运站也可以卖票，那么我们是否需要把电影院、、歌剧院和客运 站都设计成一个类架构以提供卖票服务？要知道，连经理人都可以卖票，很显然不适合把经理人也包括到卖票服务的继承架构中，我们需要的只是一个共通的卖票服 务。于是，卖票的服务是个接口，电影院、歌剧院什么的只要都遵循这样一个服务定义就能很好地相互交互和沟通（如果须要的话）。 如何在Delphi中使用接口 1、声明接口IMyInterface = interface(IInterface) //说明(1)['{63E072DF 阅读全文
摘要：
首先将pagecontrol的ownerdraw设为true再在它的onDrawTab事件里写如下代码：var TmpRect: TRect;begin with PageControl1.Canvas do begin Brush.Color := $00E6F6F8; Font.Color := clblack; FillRect(Rect); TmpRect := Rect; OffsetRect(TmpRect, 0, 3); DrawTex... 阅读全文
摘要：
delphi执行查询语句时的进度条怎么做procedure TForm1.FormCreate(Sender: TObject);begin ADOQuery1.ExecuteOptions := [eoAsyncFetch];//设为异步读取end;//ADOQuery的OnFetchProgress事件procedure TForm1.ADOQuery1FetchProgress(DataSet: TCustomADODataSet; Progress, MaxProgress: Integer; var EventStatus: TEventStatus);begin ProgressB 阅读全文
摘要：
Fastreport使用经验(转) 在Delphi程序中访问报表对象最基本的方法就是frxReport1.FindObject。然后把返回的对象强制转换成它的类型，当然，在报表中必须真的有这么个东东。如改变一个Tfrxmemoview的内容，可以这样写TfrxMemoView(frxReport1.FindObject('memo1')).Text:='jade';还可以用TfrxReportPage的FindBand方法，这个方法的参数是Band类，如报表抬头就可以直接使用这个方法，因为抬头一个页中只有一个，如果有多个同样的类。则不能使用这种方法。如果要使用T 阅读全文
摘要：
cxgrid 双击 获取所点击行的内容创建view的 optionsselection->cellselect 设置为false ，才能触发双击事件案例：procedure TForm_Child_Archive.cxGrid1DBTableView1CellDblClick( Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);begin3 ////取得 阅读全文
摘要：
我有一个问题请教：我在BDEQUERY中使用其FILTER属性进行条件筛选时一切正常，但相同的条件拿到ADOQUERY中使用就出现错误，具体情况如下：1、BDEQUERY和ADOQUERY指向同一个数据库，其中的SQL语句相同；2、筛选条件如果是以下类型的情况都正确： (字段1= 'AAA ') (字段1= 'AAA ') OR (字段1= 'BBB ') (字段1= 'AAA ') AND (字段2= 'TTT ')3、但当出现此类情况时就会出错： （(字段1= 'AAA ') OR (字段1= 阅读全文