摘要： //-----先创建一个WebBrowser，以及自己Negative,也就是先打开一个页面///----------------stringgrid初始化-------------procedure TForm1.stringCreate(StringGrid: TStringGrid);begin StringGrid.Cells[0, 0] := '序号 '; StringGrid.Cells[1, 0] := 'ID号 '; StringGrid.Cells[2, 0] := '类别 '; StringGrid.Cells[3, 0] : 阅读全文

摘要： function TForm1.RandomStr(UP: boolean; Low: boolean; Number: boolean; Digit: integer):string;//--大写字母,小写字母,数字,字符串的位数var i: Byte; s: string;begin if UP then s := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' else s := ''; if Low then s := s + 'abcdefghijklmnopqrstuvwxyz'; if Number then s := s 阅读全文

摘要： //----------这是在 delphi xe2-----------//unit Umain;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.Menus, Winapi.ShellAPI;type TForm1 = class(TForm) Button1: TBut... 阅读全文

摘要： SQL Server 索引结构及其使用（二）一、深入浅出理解索引结构改善SQL语句 很多人不知道SQL语句在SQL SERVER中是如何执行的，他们担心自己所写的SQL语句会被SQL SERVER误解。比如：select * from table1 where name=''zhangsan'' and tID > 10000和执行:select * from table1 where tID > 10000 and name=''zhangsan'' 一些人不知道以上两条语句的执行效率是否一样，因为如果简单的从语句先 阅读全文

摘要： 在《数据库原理》里面，对聚簇索引的解释是:聚簇索引的顺序就是数据的物理存储顺序，而对非聚簇索引的解释是:索引顺序与数据物理排列顺序无关。正式因为如此，所以一个表最多只能有一个聚簇索引。不过这个定义太抽象了。在SQL Server中，索引是通过二叉树的数据结构来描述的，我们可以这么理解聚簇索引：索引的叶节点就是数据节点。而非聚簇索引的叶节点仍然是索引节点，只不过有一个指针指向对应的数据块。如下图：非聚簇索引聚簇索引聚簇索引与非聚簇索引的本质区别到底是什么？什么时候用聚簇索引，什么时候用非聚簇索引？这是一个很复杂的问题，很难用三言两语说清楚。我在这里从SQL Server索引优化查询的角度简... 阅读全文

摘要： SQL Server 索引结构及其使用（一）一、深入浅出理解索引结构 实际上，您可以把索引理解为一种特殊的目录。微软的SQL SERVER提供了两种索引：聚集索引（clustered index，也称聚类索引、簇集索引）和非聚集索引（nonclustered index，也称非聚类索引、非簇集索引）。下面，我们举例来说明一下聚集索引和非聚集索引的区别： 其实，我们的汉语字典的正文本身就是一个聚集索引。比如，我们要查“安”字，就会很自然地翻开字典的前几页，因为“安”的拼音是“an”，而按照拼音排序汉字的字典是以英文字母“a”开头并以“z”结尾的，那么“安”字就自然地排在字典的前部。如果您翻完.. 阅读全文

摘要： 1、--- 取得与表名相关的存储过程、方法、函数 selecT A.* from sysobjects A, syscomments B where a.id= B.id and b.text like '%你的表名%' --------一定要like '%..%' 这样 要不查询不出任何东西来2、--取得一个表的所有的字段名（下面两个的效果是一样的） select name from syscolumns where id=object_id('表名') select name from syscolumns where id in (sele 阅读全文

摘要： //-----------勾子判断按键方法-------function LowLevelKeyboardProc(Wnode: Integer; Wparam: WPARAM; Lparam: LPARAM):LRESULT;stdcall;type KeyHook = record VKcode: DWORD; ScanCode: DWord; Flags: DWord; Time: DWord; dwExtraInfo: DWord; end;var p : ^keyhook;begin Result := 0; p := Pointer(Lpar... 阅读全文

摘要： //--------Flag 为全局变量，初始化为false//--------Shell_TrayWnd 为系统任务栏窗口的类名//------这里是隐藏任务栏的---------------------procedure TForm2.Button3Click(Sender: TObject);var h: HWND;begin h := FindWindow('Shell_TrayWnd', nil); if (h <> 0) and (flag = False) then begin ShowWindow(h, SW_SHOW); flag := True 阅读全文

摘要： //------非常简单------------------------procedure TForm2.Button2Click(Sender: TObject);var s: Cardinal; p: PChar;begin s := MAX_COMPUTERNAME_LENGTH + 1; GetMem(p, s); if GetComputerName(p,s) then begin caption := StrPas(p); end else ShowMessage('取不到计算机名'); FreeMem(p); //记得一定要释放end; 阅读全文