摘要：
1.DECLARE @sql nvarchar(4000), -- nvarchar(MAX) on SQL 2005. @col sysname, @min varchar(20) SELECT @col = N'au_fname' SELECT @sql = N'SELECT @min = convert(varchar(20), MIN(' + @col + N')) FROM authors' EXEC sp_executesql @sql, N'@min varchar(20) OUTPUT', @min OUTPUT 阅读全文
摘要：
usemultititile:=true; titlelines:=2; DBGridEh1.Columns[0].Title.Caption := '国家地区|代码 '; DBGridEh1.Columns[1].Title.Caption := '国家地区|名称 ';将他的UseMultiTitle设为TrueDevXpress eXpressScheduler Suite v1.1 FS D7 及汉化无论你以前是否安装过ExpressScheduler，请在安装或升级完毕后打ExpressEditors Library 5的补丁程序，否则不能正常使用。Ex 阅读全文
摘要：
====================================需要设置multiselect=true;multiselstyle设置为[mscontrolselect]procedure TUserRightSet.BitBtn8Click(Sender: TObject);var TNode,Cnode: TTreeNode; i: Integer; iLoop: Boolean;begin Cnode:= self.TreeView1.Selected; if not Cnode.Expanded then Exit; if Cnode.HasChildren then be. 阅读全文
摘要：
最近在开发的时候用到ListView，简单总结一下它的用法。1.让ListView像DBGrid数据库那样显示数据：将ListView的ViewStyle设置为vsReport。2.向ListView中添加数据：我的数据是从数据库中查询得到的，比如我用的是ADOQuery, 先定义变量：var MyItem：TListItembeginADOQuery1.First; while not ADOQuery1.Eof do begin MyItem:= self.ListView1.Items.Add; MyItem.Caption:= ADOQuery1.FieldByName(... 阅读全文
摘要：
在Delphi中checklistbox中高亮选中（不论是否Checked）能够进行操作么？删除，上下移动等等删除：CheckListBox.DeleteSelected; 上下移： CheckListBox.Items.Move删除用 CheckListBox1.Items.Delete(Index); 上下移动用 CheckListBox1.Items.Move(CurrentIndex,NewIndex);//在项目中添加字符串(子项目的最后一位接着添加)CheckListBox1.Items.Add(edit1.Text);//全选 高亮选中SelectedCheckListBox1. 阅读全文
摘要：
1、选中某节点，其子节点被选中procedure SetChildState(Node:TTreeNode; State:Integer);var Level:Integer;begin Level:=Node.Level; Node:=Node.getFirstChild; while (Node<>nil) and (Node.Level>Level) do begin Node.StateIndex:=State; Node:=Node.GetNext; end;end;2、选中子节点时父节点也被选中，需要用到递归procedure SetParentState(Nod 阅读全文
摘要：
搞定了，分分拿来TreeView1需要设置MultiSelect = True; MultiSelStyle设置为[msControlSelect]procedure Tform1.TreeView1Click(Sender: TObject); var TNode,Cnode: TTreeNode; i: Integer; iLoop: Boolean; begin Cnode:= self.TreeView1.Selected; if not Cnode.Expanded then Exit; if Cnode.HasChildren then begin TNode:= Cnode.ge 阅读全文
摘要：
在处理MSDE一些操作中。需要执行一些SQL脚本。有的是从SQLServer 2000中生成的SQL为后缀的脚本。在MSDE中没有企业管理器，操作都是在程序中完成的。所以用以下函数来执行SQL脚本。//执行一个SQL角本文件，文件只能是ANSI编码的。//如果文件是UNICODE编码的话，则会乱码。var s:string; sqltext : string; sqlfile : TextFile;begin if OpenDialog1.Execute then begin AssignFile(sqlfile, OpenDialog1.FileName); FileMode := 0; R 阅读全文
摘要：
//////////////////////////////////////////////////////////////////////////// // 函数: GetPYIndexStr(strChinese: string;bUpCase: Boolean = True): string; // // 函数功能:获取多个汉字的拼音首字符组成的字符串. // 例: GetPYIndexStr('程') 将返回'C'. // GetPYIndexStr('程序')将返回'CX'. // // 第二个参数决定返回大写还是小写 阅读全文
摘要：
varMyReg:TRegIniFile;beginMyReg:=TRegIniFile.Create;tryMyReg.OpenKey('MyGridInfo',True);DBGridEh1.SaveGridLayout(MyReg);finallyMyReg.CloseKey;FreeAndNil(MyReg);end;end;//恢复：varMyReg:TRegIniFile;beginMyReg:=TRegIniFile.Create;tryMyReg.OpenKey('MyGridInfo',True);DBGridEh1.RestoreGridLa 阅读全文