delphi调用SQL存储过程1.mysql存储过程sqls:=Format('callpro_addOneStudent('+'''%s'',''%s'',''%s'',''%s…
usesData.DBXTransport;//ServerContainerprocedureTServerContainer.DSServer1Connect(DSConnectEventObje…
Delphi做三层开发时,很多人都会在客户端放一个TClientDataSet,中间层远程数据模块就对应放一个TDataSetProv…
DelphiAdo读写Excel文件Excel包含2003的*.xls格式、2007以上的*.xlsx格式文件DbGrid标题、文本居中显示测试…
代码如下:{ExceltoDelphitoSqlServer}unitExcelLoad;interfaceusesWindows,Messages,SysUtils,Variants,Cl…
在Form上放一个ADOConnection,连结指向目标Access库比如txt文件在c:\temp\aaaa.txt就执行ADOConnection.Con…
usesComObj;procedureT****1.Button1Click(Sender:T****);constESatir=$0000000B;varAdet:Integer;Book:Var…
procedureTForm1.BtnLoginClick(Sender:TObject);beginWithFDQueryUserdotryConnection:=FDConnecMain;Clos…
usesjpeg,pngimage;typeTitTYPES=(itJPG,itPNG,itBMP);procedureTDEMO.Button1Click(Sender:TObject);varjp…
VarXML:IXMLDOCUMENT;PolisoftXMLExport,TabloName,Field:IXMLNODE;i,a:integer;beginifData.IsEmptythenbe…
//处理密码防止sql注入functionChangePwd(str:string):string;vari,j:Integer;rep:string;beginrep:='!#$%^…
varFDQ:TFDQuery;beginFDQ:=TFDQuery.Create(Nil);ListViewHavuz.BeginUpdate;tryifListViewHavuz.Selected…
office2007中的ACCESS数据库保存时,默认的后缀名是*.accdb,但是在数据库编程中,用到的后缀名却是*.mdb,…
源码:unitUUpdateSign;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,Sy…
functionTform1.GetAllUser:TStringList;beginResult:=TStringList.Create;Result.Clear;withTADOQuery.Cre…
建议使用第三方TXLSReadWriteII4控件和DBGrid二控件。1、TXLSReadWriteII4读取EXCEL文件;2、DBGrid打开相应…
//////////////////////////////////////////////弹窗显示SQL字符串//输入参数sql需要显示的SQL字符串//例:…
typeTForm1=class;TFDQueryThread=class(TThread)privateFConnection:TFDConnection;FQuery:TFDQuery;FForm…
varfld:TField;lst:TStringList;wasActive:Boolean;writer:TTextWriter;beginwriter:=TStreamWriter.Create…
varStream:TFileStream;i:Integer;OutLine:string;sTemp:string;beginStream:=TFileStream.Create('C:\Data…