排序
delphi clientdataset 与fdmemtable 创建 字段与追加记录
ClientDataSet1.Close(); ClientDataSet1.FieldDefs.Clear(); ClientDataSet1.FieldDefs.Add('ID', ftInteger, 0, true); ClientDataSe...
1年前Delphi 删除确认对话框
if MessageBox(self.Handle,'真的要删除吗？','提示',MB_OKCANCEL OR MB_ICONINFORMATION) = IDOK then begin//删除endelsebegin// 不删除end;
1年前Delphi sqlite VACUUM 压缩数据库体积
FDConnection1.ExecSQL('VACUUM');FDQuery1.Refresh;SQLite VacuumVACUUM 命令通过复制主数据库中的内容到一个临时数据库文件，然后清空主数据库，并从副本中重新载入原始的数据库文件。...
1年前Delphi登陆验证方法
procedure TForm1.Button1Click(Sender: TObject); var num,user,pass,temp:string; begin user:=Edit1.Text; pass:=Ed...
1年前Delphi访问MySQL乱码问题
前几天做一个数据库的后台管理程序，碰到这个问题控件：uniDAC中的控件连接MySQL，当时电脑端一切正常，但是安卓手机端就乱码了。自己心理也清楚是字符集不对，特意对比了服务器是UTF8，本地设...
1年前Delphi FireDAC 获取 INSERT 记录的自增 ID
将数据插入具有自动增量字段的数据库表中时的常见模式是使用 SQL 查询来选择新创建的记录的最后插入ID。使用 TFDQuery 运行 INSERT 查询后，您可以运行第二个查询来获取新插入的自动增量 ID。例...
1年前Delphi FirDAC 对 SQLite 数字, int64也会被截断，会出现负数情况处理
FirDAC 对 SQLite 数字, int64也会被截断，会出现负数情况处理FirDAC 对 SQLite 数字, int64也会被截断，会出现负数情况处理 先用以下方法设置一下var MR: TFDMapRule;...
1年前Delphi TFDQuery提交TFDMemTable修改的数据
TFDQuery提交TFDMemTable修改的数据function Save(const tableName: string; delta: TStream; qry: TFDQuery): Boolean;begin qry.Close;&...
1年前DELPHI FIREDAC压缩和修复MS ACCESS数据库
现在，Delphi Firedac只需几行代码就可以更干净地执行这些功能。在数据模块中，您需要删除FDMSAccessService组件并将驱动程序链接设置为FDPhysMSAccessDriverLink 数据库连接应该关闭...
1年前delphi+sql数据库增加，删除，修改，查询操作
需要注意的是，open一般用于查询（select），exesql用于修改，插入，删除（update，insert，delete）增加with dm.DataModule1.ADOQuery1 do begin close; sql....
1年前Delphi DataModule1 FDConnection1数据库连接
procedure Tdm.DataModuleCreate(Sender: TObject);begintry FDConnection1.Connected := False; FDConnection1.Params.Database := ExtractFileDir(ParamStr(0)) + 'mdb' + ...
1年前Delphi 模糊查询和字段查询
procedure TFrmain.scGPEdit1Change(Sender: TObject);var ASql, AKey: string; //模糊查询和字段查询const vsql1: string = ...
1年前delphi TADODataSet 加载数据到FDMemTable1
ADODataSet1.ConnectionString := 'Provider=ADsDSOObject' ADODataSet1.CommandText := 'select cn, distinguishedname from ''LDAP://HOME'' where objec...
1年前delphi 数据集转换json对象
function GetDataSetAsJSON(DataSet: TDataSet): TJSONObject;var f: TField; o: TJSOnObject; a: TJSONArray;begin a := TJSONArray.Create; DataSet.Active :=...
1年前delphi FireDAC,ADO性能测试
数据量2w行，字段30个第一次openfd读取数据用时363毫秒，ado用时783毫秒第二次open fd读取数据用时10毫秒，ado用时553毫秒 遍历所有记录第一次fd读取数据用时2438毫秒，ado用时5590毫...
1年前delphi xe 遍历指定数据库，清空各表记录
要咱清空一个有接近100张表的数据库，手工一张一张的清空，烦！尝试以下代码可实现 。记得备份数据var Form10: TForm10;implementation{$R *.dfm}procedure TForm10.Button1Click(Sender:...
1年前delphi FDConnection查看所有表包含用户表和系统表
function TForm1.DBtableExists(sTableName: string;FDconn: TFDConnection): Boolean; var vTableNames:TStringList;begin Result:=False; vTableNames:=TStri...
1年前Delphi ADO的事务处理例子
ADO的事务处理例子(Delphi)ADOConnection1.BeginTrans; //开始事务trywith ADOCommand1 dobeginConnection:=ADOConnection1;commandtext:='update [country] set [population]=1...
1年前Delphi-ADOQuery查询、插入、删除、修改
//查询记录procedure TForm1.Button1Click(Sender: TObject);beginADOQuery.Close;ADOQuery.SQL.Clear;ADOQuery.SQL.Add('select * from [YourTABLE] where 查询条件');ADOQuery.Open;//...
1年前delphi ADOConnection1 连接excel表格读取数据
uses ComObj;procedure TForm1.Button6Click(Sender: TObject);var Excel: OLEVariant; ExcelVersion: string; filename:string;beginfilename:=ExtractFilePath(ParamS...
1年前Delphi ADO 连接 Excel （附Excel各个版本的版本号）
引用ComObj这个单元Type Conn: TADOConnection; qry: TADOQuery;var Excel: OLEVariant; ExcelVersion: string;begin try Excel := C...
1年前delphi FDConnection取得EXCEL工作表名
procedure GetTableNames(const ACatalogName, ASchemaName, APattern: string; AList: TStrings; AScopes: TFDPhysObjectScopes = [osMy]; AKinds: T...
1年前delphi FIREDAC操作SQLITE内存数据库
SQLite不仅可以把数据库放在硬盘上，还可以放在内存中，经测试，同样条件下数据库放在内存中比放在硬盘上插入记录速度快差不多3倍。但数据库放在内存中时有如下缺陷：1、断电或程序崩溃后数据库...
1年前delphi 从记事本导入记录
实现代码：复制代码procedure TForm3.N17Click(Sender: TObject);varAList:TStringList;AAdq:TADOQuery;AXuYaoArray:TArray<string>;I:Integer;OpenDialog:TOpenDialog;beginAList:=TStri...
1年前
delphi 两种登录界面验证写法
效果：如果登陆正确跳转到主界面，如果登陆不进去关闭或者重新登陆。 第1种思路：同时验证账号和密码是否对再判断，只判断一种情况即可；即都不对的时候提示； procedure TFLogin.btn...
1年前delphi FireDAC FDConnection 事务
{常见代码}begin FDConnection1.StartTransaction; //开始一个事务 try {可能会出错的代码} FDConnection1.Commit; //提交 except&nb...
1年前delphi FDQuery获取字段类型
ty := FieldTypeNames[FDQuery3.FieldDefList.FieldDefs[0].DataType]; s := FDQuery3.Fields.Fields[0].FieldName; value := FDQuery3.Fields.FieldByNumber(1).AsString;&n...
1年前delphi adoquery查询，如何得到查询记录数？
方法1： adoquery1.SQL.Clear; adoquery1.SQL.Add( 'select * from userlist '); adoquery1.Open; ACoun...
1年前delphi ADOquery判断插入的值是否重复
ADOQuery.Sql.Text := 'select * from tab1 where key ='''+maykey+''' 'ADOQuery.Open();if ADOQuery.RecordCount <> 0 then //如果重复则返回重复IDbeg...
1年前delphi ADOQuery查询更改用户
procedure TForm1.bt_deleteClick(Sender: TObject);begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('delete from user where id='''+Edit1.Te...
1年前
workwokao 7个月前0
666666workwokao 7个月前0
11111yanghw 7个月前0
11111111111111111111111111111111111111小趴菜 1年前0
啥也没有 举报 没有网盘链接yitnet 1年前0
谢谢流浪 1年前0
这个只是登录界面+主界面，具体的业务功能需要自己去写naiji1623 1年前0
请问 没有业务代码 是什么意思灿烂人生 1年前0
链接过期了，兄弟