DBX 三层 CobblerDemo, //公共的查询 function GetSearchData(const SqlStr:string;var V1:OleVariant):Integer; function ExecSQLStr(const SqlStr:string):Integer; //返回单表数据集 function GetSimpleData(const SqlStr:string;var V1:OleVariant):Integer; //主从巢状 function Get
delphi动态 WebBrowser 释放问题 var web:TwebBrowser; procedure TForm1.Button1Click(Sender: TObject); begin web:=TWebBrowser.Create(Self); web.ParentWindow:=Self.Handle; web.SetBounds(100,100,100,100); web.OnDocumentComplete:=WebBrowser1DocumentComplete; we
procedure TMainForm.Button3Click(Sender: TObject); var vDatas:OleVariant; Tsql:TStringList; i:integer; begin FRServerAddress:=Edit1.Text; Fiport:=StrToInt(Edit2.Text); Tsql:=TStringList.create; Tsql.Clear; Tsql.Append('insert into tbGoods(GoodsCode)
这个Delphi源码主要实现创建一个Word文档,且不使用任何的第三方控件,运行效果截图所示。 实现创建Word文档的功能原来也是挺简单的,理解下面几行代码即可了,不过只是创建,不包括写入内容: procedure TForm1.BitBtn1Click(Sender: TObject); var word : olevariant; begin word := createoleobject(word.application);//ComObj单元 wo