数据库共302篇

delphi clientdataset 与fdmemtable 创建 字段与追加记录

ClientDataSet1.Close();  ClientDataSet1.FieldDefs.Clear();  ClientDataSet1.FieldDefs.Add('ID', ftInteger, 0, true);  ClientDataSe...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05510

Delphi 删除确认对话框

if MessageBox(self.Handle,'真的要删除吗?','提示',MB_OKCANCEL OR    MB_ICONINFORMATION)  = IDOK then begin//删除endelsebegin// 不删除end;
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0508

Delphi sqlite VACUUM 压缩数据库体积

FDConnection1.ExecSQL('VACUUM');FDQuery1.Refresh;SQLite VacuumVACUUM 命令通过复制主数据库中的内容到一个临时数据库文件,然后清空主数据库,并从副本中重新载入原始的数据库文件。...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04411

Delphi登陆验证方法

procedure TForm1.Button1Click(Sender: TObject);  var  num,user,pass,temp:string;  begin    user:=Edit1.Text;    pass:=Ed...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
07512

Delphi访问MySQL乱码问题

前几天做一个数据库的后台管理程序,碰到这个问题控件:uniDAC中的控件连接MySQL,当时电脑端一切正常,但是安卓手机端就乱码了。自己心理也清楚是字符集不对,特意对比了服务器是UTF8,本地设...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05710

Delphi FireDAC 获取 INSERT 记录的自增 ID

将数据插入具有自动增量字段的数据库表中时的常见模式是使用 SQL 查询来选择新创建的记录的最后插入ID。使用 TFDQuery 运行 INSERT 查询后,您可以运行第二个查询来获取新插入的自动增量 ID。例...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
06511

Delphi FirDAC 对 SQLite 数字, int64也会被截断,会出现负数情况处理

FirDAC 对 SQLite 数字, int64也会被截断,会出现负数情况处理FirDAC 对 SQLite 数字,   int64也会被截断,会出现负数情况处理  先用以下方法设置一下var  MR: TFDMapRule;...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
06015

Delphi TFDQuery提交TFDMemTable修改的数据

TFDQuery提交TFDMemTable修改的数据function Save(const tableName: string; delta: TStream; qry: TFDQuery): Boolean;begin  qry.Close;&...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0357

DELPHI FIREDAC压缩和修复MS ACCESS数据库

现在,Delphi Firedac只需几行代码就可以更干净地执行这些功能。在数据模块中,您需要删除FDMSAccessService组件并将驱动程序链接设置为FDPhysMSAccessDriverLink 数据库连接应该关闭...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0496

delphi+sql数据库增加,删除,修改,查询操作

需要注意的是,open一般用于查询(select),exesql用于修改,插入,删除(update,insert,delete)增加with dm.DataModule1.ADOQuery1 do  begin    close;    sql....
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
08810

Delphi DataModule1 FDConnection1数据库连接

procedure Tdm.DataModuleCreate(Sender: TObject);begintry  FDConnection1.Connected := False;  FDConnection1.Params.Database := ExtractFileDir(ParamStr(0)) + 'mdb' + ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
03812

Delphi 模糊查询和字段查询

procedure TFrmain.scGPEdit1Change(Sender: TObject);var  ASql, AKey: string;              //模糊查询和字段查询const  vsql1: string = ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0667

delphi TADODataSet 加载数据到FDMemTable1

  ADODataSet1.ConnectionString := 'Provider=ADsDSOObject'  ADODataSet1.CommandText := 'select cn, distinguishedname from ''LDAP://HOME'' where objec...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
03813

delphi 数据集转换json对象

function GetDataSetAsJSON(DataSet: TDataSet): TJSONObject;var  f: TField;  o: TJSOnObject;  a: TJSONArray;begin  a := TJSONArray.Create;  DataSet.Active :=...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04211

delphi FireDAC,ADO性能测试

数据量2w行,字段30个第一次openfd读取数据用时363毫秒,ado用时783毫秒第二次open fd读取数据用时10毫秒,ado用时553毫秒 遍历所有记录第一次fd读取数据用时2438毫秒,ado用时5590毫...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05011

delphi xe 遍历指定数据库,清空各表记录

要咱清空一个有接近100张表的数据库,手工一张一张的清空,烦!尝试以下代码可实现 。记得备份数据var  Form10: TForm10;implementation{$R *.dfm}procedure TForm10.Button1Click(Sender:...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0646

delphi FDConnection查看所有表包含用户表和系统表

function TForm1.DBtableExists(sTableName: string;FDconn: TFDConnection): Boolean;  var    vTableNames:TStringList;begin  Result:=False;  vTableNames:=TStri...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04314

Delphi ADO的事务处理例子

ADO的事务处理例子(Delphi)ADOConnection1.BeginTrans;   //开始事务trywith ADOCommand1 dobeginConnection:=ADOConnection1;commandtext:='update [country] set [population]=1...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0375

Delphi-ADOQuery查询、插入、删除、修改

//查询记录procedure TForm1.Button1Click(Sender: TObject);beginADOQuery.Close;ADOQuery.SQL.Clear;ADOQuery.SQL.Add('select * from [YourTABLE] where 查询条件');ADOQuery.Open;//...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
06411

delphi ADOConnection1 连接excel表格读取数据

uses ComObj;procedure TForm1.Button6Click(Sender: TObject);var  Excel: OLEVariant;  ExcelVersion: string;  filename:string;beginfilename:=ExtractFilePath(ParamS...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0696

Delphi ADO 连接 Excel (附Excel各个版本的版本号)

引用ComObj这个单元Type  Conn: TADOConnection;  qry: TADOQuery;var  Excel: OLEVariant;  ExcelVersion: string;begin   try      Excel := C...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0409

delphi FDConnection取得EXCEL工作表名

procedure GetTableNames(const ACatalogName, ASchemaName, APattern: string;      AList: TStrings; AScopes: TFDPhysObjectScopes = [osMy];      AKinds: T...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0469

delphi FIREDAC操作SQLITE内存数据库

SQLite不仅可以把数据库放在硬盘上,还可以放在内存中,经测试,同样条件下数据库放在内存中比放在硬盘上插入记录速度快差不多3倍。但数据库放在内存中时有如下缺陷:1、断电或程序崩溃后数据库...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
06415

delphi 从记事本导入记录

实现代码:复制代码procedure TForm3.N17Click(Sender: TObject);varAList:TStringList;AAdq:TADOQuery;AXuYaoArray:TArray<string>;I:Integer;OpenDialog:TOpenDialog;beginAList:=TStri...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0356
delphi 两种登录界面验证写法-Delphi编程技巧大全

delphi 两种登录界面验证写法

效果:如果登陆正确跳转到主界面,如果登陆不进去关闭或者重新登陆。 第1种思路:同时验证账号和密码是否对再判断,只判断一种情况即可;即都不对的时候提示; procedure TFLogin.btn...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
06314

delphi FireDAC FDConnection 事务

{常见代码}begin  FDConnection1.StartTransaction; //开始一个事务  try    {可能会出错的代码}    FDConnection1.Commit;   //提交  except&nb...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05310

delphi FDQuery获取字段类型

 ty := FieldTypeNames[FDQuery3.FieldDefList.FieldDefs[0].DataType];  s := FDQuery3.Fields.Fields[0].FieldName;  value := FDQuery3.Fields.FieldByNumber(1).AsString;&n...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
03712

delphi adoquery查询,如何得到查询记录数?

 方法1: adoquery1.SQL.Clear;  adoquery1.SQL.Add( 'select   *   from   userlist   ');  adoquery1.Open;  ACoun...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0576

delphi ADOquery判断插入的值是否重复

ADOQuery.Sql.Text := 'select * from tab1 where key ='''+maykey+''' 'ADOQuery.Open();if ADOQuery.RecordCount <> 0 then  //如果重复则返回重复IDbeg...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
06913

delphi ADOQuery查询更改用户

procedure TForm1.bt_deleteClick(Sender: TObject);begin  ADOQuery1.Close;  ADOQuery1.SQL.Clear;  ADOQuery1.SQL.Add('delete from user where id='''+Edit1.Te...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04914