JackQu的程序员博客

摘要： var LoginUserDepts : WideString; procedure SetDBComboBoxDeptItems; var DeptList :TStringlist; i :Integer; begin DeptList:=TStringlist.Create; try DeptList.CommaText:=ListUserDepts(aLoginUser.Userid); for i:=0 to DeptList.Count-1 do begin LoginUserDepts:=LoginUserDepts... 阅读全文

摘要： //返回整数的四种情况consta = 1.8;b = -1.8;begin{返回比值大的最小整数:}ShowMessage(IntToStr(Ceil(1.8)) + ',' + IntToStr(Ceil(-1.8))); {返回：2,-1}{返回比值小的最大整数:}ShowMessage(IntToStr(Floor(1.8)) + ',' + IntToStr(Floor(-1.8)))... 阅读全文

摘要： C/S结构（Client/Server结构）是大家熟知的客户机和服务器结构。它是软件系统体系结构，通过它可以充分利用两端硬件环境的优势，将任务合理分配到Client端和Server端来实现，降低了系统的通讯开销。目前大多数应用软件系统都是Client/Server形式的两层结构，由于现在的软件应用系统正在向分布式的Web应用发展，Web和Client/Server 应用都可以进行同样的业务处理，应... 阅读全文

摘要： TField对象的SetText和GetText事件处理函数使用TField对象的SetText和GetText事件处理函数可方便的解决字段的代码与代码所对应值的显示问题TSimpleDataset/TClientDataset对象的Aggregation使用TDataset对象的Aggregate属性可以来计算客户端数据集中数据的总计数值、平均值或是计算最大值和最小值。使用TBookMark来标... 阅读全文

摘要： TClientDataSet控件继承自TDataSet，其数据存储文件格式扩展名为 .cds，是基于文件型数据存储和操作的控件。该控件封装了对数据进行操作处理的接口和功能，而本身并不依赖上述几种数据库驱动程序，基本上能满足单机"瘦"数据库应用程序的需要。 1．TClientDataSet的基本属性和方法介绍 1)．FieldDefs: 字段定义列表属性 开发者可通过单击属性编辑器中该属性编辑按钮，或在该控件上单击右键选择弹出菜单中的"Fields Editor"菜单进行字段编辑。设置完此属性后，实际上就相当于定义了表的结构；如果想装入已有的数据表的结构和 阅读全文

摘要： 名称 类型 说明 abort 函数 引起放弃的意外处理 abs 函数 绝对值函数 addexitproc 函数 将一过程添加到运行时库的结束过程表中 addr 函数 返回指定对象的地址 adjustlinebreaks 函数 将给定字符串的行分隔符调整为cr/lf序列 align 属性 使控件位于窗口某部分 alignment 属性 控件标签的文字位置 allocmem 函数 在堆栈上分配给定大小... 阅读全文

摘要： [代码] 阅读全文

摘要： [代码] 阅读全文

摘要： [代码] 阅读全文

摘要： Code Code highlighting produced by Actipro CodeHighlighter (freeware) http://www.CodeHighlighter.com/ -->ProcedureShowDeptUsers; vars,aDept:String; aSqlQuery:TSqlQuery; begin s:='';... 阅读全文