cnby3

摘要： 选择用线程函数解决。调用主窗体代码:procedure TForm1.Button17Click(Sender: TObject);var Thd:FindForm;beginThd := FindForm.Create(False);thd.DoIt := True;Thd.MainWnd := ... 阅读全文

摘要： 1. 窗体上全局 快捷键，首先设置keyprivew 属性为true.procedure TFMzcfLr.FormKeyDown(Sender : TObject; var Key : Word; Shift : TShiftState);begin if Key = 13 then ... 阅读全文

摘要： 1. 属性： ItemIndex 对设置当前为 以索引0,1,2 对应 的value值2. AddItemValue（显示客户看，代码内部值）; with DM do begin adoqryTmp.Close; adoqryTmp.SQL.Text :='select * fr... 阅读全文

摘要： 直接上步骤效果，理论的我也不懂呢一、服务器端：新建立 application 工程。之后建立数据单元文件New->other->Multitier->RemoteDataModule（窗体命名 为Tserverdm）。做数据链接。添加数据库控件： adosql: TADOQuery; provers... 阅读全文

摘要： 一。 ClientDataSet初认识：1. 从类的继承关系上来看，是TDataSet这个抽象类的子类，所以我们可以在TDataSet这个抽象层次上对其进行我们熟 悉的操作，比如导航、排序、过滤、编辑。2.要注意的是，TClientDataSet使用了一种全新的技术，它将所有的数据均放在内存中，所... 阅读全文

摘要： 二、去空格函数1、LTRIM() 把字符串头部的空格去掉。2、RTRIM() 把字符串尾部的空格去掉。三、取子串函数1、leftstr()LEFTstr (， )返回str 左起 integer_expression 个字符。2、RIGHTstr()RIGHTstr (， )返回str 右起 int... 阅读全文

摘要： 1. filter 属性： Filter:='模板文件(*.emt)|*.emt;*.erp'; |号前面的显示给用户界面看，后面是文件类型，超过一个的用 分号 分开。 dlgSave1.Filter:='模板文件(*.emt)|*.emt'; dlgSave1.FileName:=pData_... 阅读全文

摘要： 获取sql 表结构SELECT syscolumns.name,systypes.name,syscolumns.length --,syscolumns.isnullable FROM syscolumns, systypes WHERE syscolumns.xusertype = systyp... 阅读全文