05 2012 档案

摘要：procedure TFrmSysIni.FormCreate(Sender: TObject);var I:Integer; Col,Row:Integer;//第几列begin TabelList:=TStringList.Create; DM1.ADOC1.GetTableNames(TabelList); Col:=0; Row:=0; For I:=0 to TabelList.Count-1 do begin if Col>13 then begin Col:=0; Row:=Row +1 ; end; CheckList:=TRzCheckBox.Create(Self); 阅读全文

摘要：1.在Eclipse 设置tomcat 默认服务器从Eclipse菜单 Windows->Preferseres->Server->Runtime EnviroMent->在右边 单击 add按钮，选择tomcat 6.x，点击Finish，然后浏览找到tomcat 根目录，点击Finish。2.在Eclipse 设置IE浏览器作为调试显示浏览器从Eclipse菜单 Windows->Preferseres->Gernerl->Web Bowser->在右表单选项，选择：Use External Web Bowser； 在下面复选框，选择 Int 阅读全文

摘要：1. 在数据集已经打开的情况下才使用DBLookupComboBox1.ListFieldIndex:=0的。2.listfieldindex是你的DBLookupComboBox1在列出的字段中选择一个作为索引。比如你列了2个，0就是将第一个作为索引。 真正实现默认值是： DBLookupComboBox1.KeyValue:=你自己的值;3.dblookupcombobox1.KeyValue:=ADOquery1.fieldbyname( 'username ').AsVariant; 阅读全文

摘要：TListView 可以帮你实现。1. 在界面添加TListView 控件 ListView1,设置 ListView1.viewStype:=vsReport。或等于vsList。 ListView1.checkboxes:=True;2. 可以把数据加载到 ListView1中。 ListView1.Items.Clear; ListView1.Items.BeginUpdate; for i:=1 to 10 do begin vLvItem := lv1.Items.Add; vLvItem.Caption:='aa'+ IntToStr(i) ; vLvItem.Su 阅读全文

摘要：1.把DBGRID的第一列更变内容显示 if Column.FieldName= 'OPERATORID' then if DataCol = 0 then begin DBGrid2.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, IntToStr(i)); inc(i); end;//I:显示了其顺序号。如：procedure TfrmDetail01.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: T 阅读全文

摘要：//添加数据和对象到下拉框procedure TForm1.Button1Click(Sender: TObject);var s:string;begin ComboBox1.Items.Clear; s:= '1001'; //ComboBox1.Items.Add('1'); ComboBox1.Items.AddObject('1',TObject(s) ); s:='2001'; //ComboBox1.Items.Add('2'); ComboBox1.Items.AddObject('2 阅读全文

摘要：手工添加“显示桌面”快捷方式保存为"显示桌面.scf"就可以了。程序代码[shell]Command=2IconFile=explorer.exe,3[Taskbar]Command=ToggleDesktop然后放到C:\Documents and Settings\Administrator\Application Data\Microsoft\Internet Explorer\Quick Launch下面就行了。（然后请根据自己实际情况修改盘符和用户名。） 阅读全文

摘要：DBGrid中顯示行號的終極解決方案 昨天在大富翁論壇上見一貼子，求在DBGrid中顯示行號的方法，並稱此題為“曠世難題”，我一想，這樣的題目也叫曠世難題？於是自己就動手嚐試，結果發現原來並不簡單，確實是有點難度。後來又在網上搜索良久，也始終找不到一個很好的解決方案，有的也只是在瀏覽狀態下才能實現，而在Insert下卻不能實現，所有的行號都顯示為 -1。 難道？delphi真的是無能為力的嗎？我不信，幾經試驗，終於讓我找到了解決方法，代碼如下： //聲明全局變量i procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Re. 阅读全文

摘要：在delphi Lib\目录下找到qrprev.dfm 文件，并在此文件中增加BorderIcons = [biSystemMenu, biMaximize] 如：C:\Program Files\Borland\Delphi5\lib\qrprev.dfm 中增加（红色部分） TextHeight = 13 BorderIcons = [biSystemMenu, biMaximize] object StatusBar: TStatusBar Left = 0 Top = 538 Width = 644 Height = 19 阅读全文

摘要：1。tomcat6 配置服务器用户和密码在tomcat6\conf\tomcat-users.xml 中加以下项<user username="Lin" password="lin"roles="admin,manager" />2. 更改服务器端口8080 改为8088，修改方法如下：在tomcat6\conf\server.xml 中 如下中 8080 改为8088<Connector port="8088" protocol="HTTP/1.1" connectionTi 阅读全文

摘要：看了java私塾的中级视频，感觉很全面，总结整理出了一些Eclipse快捷键，希望对有用的朋友有所帮助：Ctrl+1 快速修复(最经典的快捷键,就不用多说了)Ctrl+D: 删除当前行 Ctrl+Alt+↓ 复制当前行到下一行(复制增加)Ctrl+Alt+↑ 复制当前行到上一行(复制增加)Alt+↓ 当前行和下面一行交互位置(特别实用,可以省去先剪切,再粘贴了)Alt+↑ 当前行和上面一行交互位置(同上)Alt+← 前一个编辑的页面Alt+→ 下一个编辑的页面(当然是针对上面那条来说了)Alt+Enter 显示当前选择资源(工程,or 文件 or文件)的属性Shift+Enter 在当前行的下 阅读全文

摘要：1.忘记用户(如：system,sys)密码?解决：cmd->sqlplus-> system as sysdba ->alter user system identified by abc123;说明：abc123 为新密码2.用户被锁，这么解锁？在SQLPLUS 中运行：alter user system account unlock;3.执行碰到异常，回滚以前读写操作begin ..........COMMIT;EXCEPTION WHEN OTHERS THEN BEGIN ROLLBACK;RAISE;END;END;oracle 更新字段名、添加字段、删除字段对字 阅读全文

摘要：控制面板->管理工具->组件服务展开组件服务->计算机->我的电脑->COM+应用程序右键 新建 应用程序或者在已有的条目下面->组件->右键“新建-组件”->下一步->安装新组件->找到目录，包dll或tlib文件选择，打开即可。 阅读全文

摘要：Function Checkip(const Ip:String):byte;var i,k:Integer; s1:String;begin Result:=0; s1:=Ip; i:= Pos('.',s1); s1 := s1 + '.'; while i > 0 do begin if not Length(Copy(s1,1,i)) in [2..4] then break; k:=StrTointDef(Copy(s1,1,i-1),-1); if (k<0) or (k>255) then Break; inc(Result); 阅读全文