摘要：
如果用的delphi在你的单元里用uses midaslib这个东西就可以把midas静态连接到你的程序楼上的也可以在程序中使用winexec("regsvr32.exe midas.dll",SW_NORMAL);注册midas组件可能是注册表中记录的<path>midas.dll不存在，可以：(1) regsvr32 /u /s midas.dll(2)midas.dll to c... 阅读全文
摘要：
1. 打开新的窗口并传送参数： 传送参数：response.write("<script>window.open(''''*.aspx?id="+this.DropDownList1.SelectIndex+"&id1="+...+"'''')</script>")接收参数：string a = Request.QueryString("id");string b ... 阅读全文
摘要：
1.在optioneh中设置：AutosortMarking:=True2.设置DbGridEh的属性:(不一定总要设置，与使用的数据连接有关)sortlocal:=True;3.uses 单元Ado------ehlibADoTclientData------ehlibCDSBDE ---------ehlibBDE4.Column属性TitleButton:=True 来自网络转载 阅读全文
摘要：
CodeCode highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->//清空当前界面所有文本框过程procedure ClearText(AControl:TWinControl);var I : Integer;begin for I := 0 to ACon... 阅读全文
摘要：
procedure TfrmGoods_InfoAdd.edt_PriceKeyPress(Sender: TObject; var Key: Char);var DotPos,Len:integer;begin DotPos:=pos('.',(Sender as TEdit).Text); Len:=length((Sender as TEdit).Text); if ... 阅读全文
摘要：
procedure TForm3.btn_cfClick(Sender: TObject);var i,j : Integer;begin Form1.Refresh; for i:=1 to 9 do for j:=1 to i do begin Form3.Canvas.TextOut(j*50-40,i*20+40,IntToStr(j)+' * '+IntToSt... 阅读全文
摘要：
学delphi一周了，感觉有些别扭，可能是自己一直用微软的开发工具 var I: Integer;begin if I > 0 then {如果I大于0} Dosomething1 {如果这里是2行或以上，要使用begin...end 包起来} else if I < 0 then {如果I小于0，else if 块不是必须的，但是else 的上面一行结尾不要用... 阅读全文
摘要：
在金额，重量，长度等单位中使用小数是必需的，如只需要保留二位//默认为保留两位(不进行四舍五入处理) double SumPric=0.335333; string str1=String.Format( "{0:F} ",SumPric);//按照四舍五入的国际标准double SumPric=0.335333; Math.Round(0.333333,2);另外还有一种(这种可以，但是... 阅读全文
摘要：
在程序的界面中文本框使用输入法时,总是全角,今天在测试项目时发现了这个被别人问了N次的经典问题才发现,因为我一直使用万能五笔,所以不存在全角/半角问题后来在网上搜索了有几种答案,经过测试解决方法1、先下载微软针对这个BUG的补丁 （如果下载地址失效，请搜索“VS2005全角补丁”） http://files.cnblogs.com/name-lh/ndp20-kb925488-x86.rar... 阅读全文
摘要：
以下从‘读’‘写’‘删除’‘判断’四个事例实现对注册表的简单操作 1.读取指定名称的注册表的值 private string GetRegistData(string name) { string registData; RegistryKey hkml = Registry.LocalMachine; RegistryKey software = hkml.OpenSubKey... 阅读全文