数据库结构: 字段 类型 ID 整型 索引(无重复) name 文本 father 整型 //tree初始化 procedure TForm1.FormActivate(Sender: TObject); var i:integer; begin treeview1.Items.BeginUpdate; while not(adotable1.Eof) do begin if ADOTable1.FieldValues[''''father''''...

2008-04-11 12:26:47

锁定数据记录 ADO组件有一个非常好的属性LockType,可用于锁定记录,这样当一个更新开始之前可以去检查这个属性,如果还在锁定状态,则需要等待,以避免更新冲突.该属性具体说明如下: LockType 属性 指示编辑过程中对记录使用的锁定类型。 设置和返回值 设置或返回以下某个...

2008-04-11 12:26:46

delphi 最吸引人的特点之一就是它的强大的数据库访问能力，通过database desktop 工具可方便的建立、编辑数据库。由于实际原因我们往往需要在程序运行状态下动态建立某个数据库。 如果你让用户用database desktop 工具手工建立数据表那么你写的程序将会打大折扣，不过...

2008-04-11 12:26:45

(七)抓取图标（ICON）的窗体 创建一个新的Form3，保存为Capture3.pas。设置属性BorderIcons的四个属性为false. BorderStyle设为bsNone,FormStyle设为fsStayOnTop. 一个私有变量：fDragging:Boolean; 两个公共变量:fRect:TRect,fBmp:TBitmap; unit Capture3; interface...

2008-04-11 12:26:43

(七)抓取窗体或控件图片窗体 创建一个新的Form2，保存为Capture2.pas。设置属性BorderIcons的四个属性为false. BorderStyle设为bsNone,FormStyle设为fsStayOnTop. 两个公共变量:fRect:TRect,fBmp:TBitmap; unit Capture2; interface uses Windows, Messages, SysUtils,...

2008-04-11 12:26:43

(六)区域抓图窗体 创建一个新的Form1，保存为Capture1.pas。设置属性BorderIcons的四个属性为false. BorderStyle设为bsNone,Cursor设为crCross,FormStyle设为fsStayOnTop. 添加一个私有变量：fDragging:Boolean;两个公共变量:fRect:TRect,fBmp:TBitmap; Form1的作用：...

2008-04-11 12:26:42

3)抓取窗体或控件图片 抓取窗体或控件图片，即要用到一个新的Form2，参见《Delphi图象截取编程示例(7)》 在Main单元implementation的uses中添加Capture2。 [Capture Windows or Controls]窗体或控件抓图的Action 事件 procedure TMainForm.cptWindowsExecute(Sender: T...

2008-04-11 12:26:41

(六)TMainForm的 (抓图)Action 事件 1)全屏抓图 [Capture Desktop] Action 事件 procedure TMainForm.cptDesktopExecute(Sender: TObject); begin inc(CaptureNum,1); Application.Minimize ; //窗体最小化 Delay(500); //最小化后延时，为了全屏抓图不把自身抓进图中...

2008-04-11 12:26:41

注意，本例在 Delphi7.0下调试通过 /////////////////////////////////////////////////////////// (一)建立项目 new Items--Projects--MDI Application (二)重新设计MDI子窗体--ChildWin,实现抓取的图象在ChildWin中显示。 在ChildWin子窗体中去掉原有的Memo1控件,添...

2008-04-11 12:26:39

问题: delphi中ClientDataSet.Filter可不可字符前后模糊过滤啊？？， 比如我要查询CA001我输入 orderno=CA*''''是可以查出来的，可是如果用 orderno=''''*A00*''''查不出来。 所以麻烦问一下如果要字符前后都通配应该怎么写？谢谢。 这个问题测试之后情况是这样的: Cli...

2008-04-11 12:26:38