摘要： //--------列出一个页面的所有的链接---------procedure TForm1.Button6Click(Sender: TObject);var Doc: IHTMLDocument2; Len: Integer; item: OleVariant; all: IHTMLElementCollection; I: Integer;begin Doc := WebBrowser1.Document as IHTMLDocument2; all := Doc.links; Len := all.length; for I := 0 to Len -1 do... 阅读全文

摘要： // 下面这个主要是对查询出来的数据， 经过筛选后得到的数据中进行反选操作 ，然后对选择的数据进行修改（全选或选择一部分也可以根据些代码修改） Screen.Cursor := crHourGlass; cxGrid2DBTableView1.DataController.GotoFirst; for i := 0 to cxgrid2DBTableView1.DataController.FilteredRecordCount - 1 do begin if cxGrid2DBTableView1.DataController.GetItemByFieldName('IsChec.. 阅读全文

摘要： 资料来自网络单元格设置1.设置单元格线框Excel.ActiveSheet.Range[B10:C13].Borders[N].LineStyle := xlNoneExcel.ActiveSheet.Range[B10:C13].Borders[N].Weight := xlThin边框的类型 Borders[N]xlEdgeLeft 左=1xlEdgeRight 右=2xlEdgeTop 顶=3xlEdgeBottom 底=4xlDiagonalUp 左上右下=5xlDiagonalDown 左下右上=6xlEdgeLeft 外部左边框=7xlEdgeTop 外部上边框=8xlEdgeBo 阅读全文

摘要： 转自：http://topic.csdn.net/u/20110627/21/67b752b2-dee4-45db-a269-c9c7c6fcaf3c.html?27987tgbd(li wm)前段时间研究了一下BPL方式的开发，刚好最近有个小项目，于是尝试了一下，项目已完成。有一些心得和体会，写下来与大家分享，请大家提出不足，另外有在研究BPL方面的朋友，有问题可以大家共同探讨，以便进得更快一些。关于一个项目的总结 ( EXE+BPL+DLL 模式)以前一直采用一个独立的EXE文件的方式做项目，当时的感觉就是方便，不用考虑得太多，把所有的业务逻辑功能做完后，编译成一个EXE执行文件就OK了， 阅读全文

摘要： 有的时候，需要把数据库里的所有数据都清空了，要是对每个表写删除语句的话那就太麻烦了(表要是少的话也行)，下面的这个方法就可以把一个数据库里所有表的记录都删除了（不包括存储过程、触发器，视图等）：declare @deltable varchar(8000)set @deltable =''select @deltable = @deltable+'truncat table '+[name]+' ' from sysobjects where type ='u' select @deltable -- --这里加上空格，否则前一个 阅读全文

摘要： 有的时候，我们需要对每一个cxgrid数据显示组件上都 有一个'另存'的字段来执行导出操作。 下面的则是主要代码：var n: integer; //此为局变量。 procedure TForm1.FormCreate(Sender: TObject);var I: Integer; p: Tpanel;begin for i := 0 to Self.ComponentCount -1 do if Self.Components[i] is Tcxgrid then begin p := TPanel.Create(nil); p.Parent := TcxGrid(Self 阅读全文

摘要： delphi的format用法： 一般来说这样写比较些，变量和赋值一目了然。with adoquery dobegin close; SQL.clear; SQL.text := Format('select * from table where A=''%S'' and B =%d',[valueA, valueB]);end;-- 一般来说，%s对应的是字符串，%d对应的则是数字，还有一些别的%6.3f等等。 阅读全文

摘要： 出来工作也才一个月了，才发现到了外面能靠得住还是自己，别人是帮不了你的，唉！ 所以我一定要努力的学我想要的东西！ 在社会上，无论生活还是工作上都还得靠自己，朋友能帮你多少？又会帮你多少？ 只要自己都会，都懂得了，而不是看别人的脸色去求别人。 努力吧，一切都要靠自己 阅读全文

摘要： CHECKSUM 对其参数列表计算一个称为校验和的哈希值。此哈希值用于生成哈希索引。如果 CHECKSUM 的参数为列，并且对计算的 CHECKSUM 值生成索引，则结果是一个哈希索引。它可用于对列进行等价搜索。 CHECKSUM 满足哈希函数的下列属性：在使用等于 (=) 运算符比较时，如果两个列表的相应元素具有相同类型且相等，则在任何两个表达式列表上应用的 CHECKSUM 将返回同一值。对于该定义，指定类型的空值被作为相等进行比较。如果表达式列表中的某个值发生更改，则列表的校验和通常也会更改。但只在极少数情况下，校验和会保持不变。表达式的顺序影响 CHECKSUM 的结果值。用于 CH. 阅读全文