delphi保存和提取ini文件信息
procedure TLoginForm.FormShow(Sender: TObject);
var
ini:TIniFile;
name:string;
begin //实现动态提取数据库的登录用户名
edt1.Text:='';
qry1.SQL.Text:='';
qry1.SQL.Text:='select username from LoginUser';
qry1.Open;
dbcmbxhusername.KeyItems.Clear;
dbcmbxhusername.Items.Clear;
if qry1.FieldCount = 1 then
begin
while not qry1.Eof do
begin
dbcmbxhusername.Items.Append(qry1.Fields[0].AsString);
qry1.Next;
end;
end;
if qry1.FieldCount >= 2 then
begin
while not qry1.Eof do
begin
dbcmbxhusername.KeyItems.Append(qry1.Fields[0].AsString);
dbcmbxhusername.Items.Append(qry1.Fields[1].AsString);
qry1.Next;
end;
end;
qry1.Close;
qry1.Free;
//以下代码实现提取上次登录用户名在config.ini文件中
if dbcmbxhusername.DataSource = nil then begin
ini:=Tinifile.Create(extractfilepath(application.ExeName)+'config.ini');
try
name:=trim(ini.readstring('loginuser','Name',''));
finally
ini.free;
end;
if name<>'' then
begin
qry2.SQL.Text:='select username from LoginUser where username='''+name+'''';
qry2.Open;
if not qry2.IsEmpty then //判断上次登录的用户名是否被删除
dbcmbxhusername.Text:=name else
dbcmbxhusername.ItemIndex:= 0;
end else
dbcmbxhusername.ItemIndex:= 0;
end;
qry2.Close;
qry2.Free;
end;
delphi保存和提取ini文件信息的更多相关文章
- 个人永久性免费-Excel催化剂功能第88波-批量提取pdf文件信息(图片、表格、文本等)
日常办公场合中,除了常规的Excel.Word.PPT等文档外,还有一个不可忽略的文件格式是pdf格式,而对于想从pdf文件中获取信息时,常规方法将变得非常痛苦和麻烦.此篇给大家送一pdf文件提取信息 ...
- VBA提取HTML文件信息
Sub test() Dim html As Object, D As Object, W As Object, arr() Set html = CreateObject("m ...
- 封装 INI 文件读写函数
delphi读写ini文件实例 //--两个过程,主要实现:窗体关闭的时候,文件保存界面信息:窗体创建的时候,程序读取文件文件保存的信息. //--首先要uses IniFiles(单元) //--窗 ...
- C# ini文件操作【源码下载】
介绍C#如何对ini文件进行读写操作,C#可以通过调用[kernel32.dll]文件中的 WritePrivateProfileString()和GetPrivateProfileString()函 ...
- ini文件解析c库(iniparser)
一.交叉编译ini解析库 1.官方网站http://ndevilla.free.fr/iniparser 下载iniparser-3.1.tar.gz 2.解压 tar -zxvf iniparser ...
- ini文件解析c库(iniparser)【转】
转自:http://www.cnblogs.com/dyllove98/archive/2013/07/28/3221732.html 一.交叉编译ini解析库 .官方网站http://ndevill ...
- QT QSettings 操作(导入导出、保存获取信息)*.ini文件详解
1.QSettings基本使用 1.1.生成.ini文件,来点实用的代码吧. QString fileName;fileName = QCoreApplication::applicationDirP ...
- Delphi INI文件保存与读取
//需要引用IniFiles uses system.IniFiles; //保存INI配置文件 procedure TForm1.btnSaveClick(Sender: TObject); var ...
- 【经验】Delphi INI文件保存与读取
//需要引用IniFiles uses system.IniFiles; //保存INI配置文件 procedure TForm1.btnSaveClick(Sender: TObject); var ...
随机推荐
- Java基础 -5.3
方法的递归调用 指的是一个方法自己调用自己的情况,利用递归调用可以解决一些重复且麻烦的问题 在进行我们递归调用的时候一般要考虑如下几点问题 一定要设置方法递归调用的结束条件 每一次调用的过程之中一定要 ...
- Spring Boot + MyBatis + PostgreSql
Maven构建项目 1.访问http://start.spring.io/ 2.选择构建工具Maven Project.Spring Boot版本1.3.6以及一些工程基本信息,点击“Switch t ...
- 【PAT甲级】1028 List Sorting (25 分)
题意: 输入一个正整数N(<=100000)和C(C属于{1,2,3}),接下来输入N行,每行包括学生的六位学号(习惯用string输入,因为可能有前导零),名字和成绩(正整数).输出排序后的信 ...
- Java解析Json字符串--数组或列表
Json示例: [ { "age": 25, "gender": "female", "grades": "三 ...
- yolo系列目标检测+自标注数据集进行目标识别
1. yolov1的识别原理 参考:https://blog.csdn.net/u010712012/article/details/85116365 https://blog.csdn.net/gb ...
- mybatis typealias 问题
最近在学mybatis 在一个简单的问题上却花了挺长时间 网上也没发现有类似的案例 故记录一下 在configuration里面 typealias 和 properties 同时用会出错 具体原因 ...
- [转]网络协议-redis协议
Redis 通信协议(protocol) 本文档翻译自: http://redis.io/topics/protocol . Redis 协议在以下三个目标之间进行折中: 易于实现 可以高效地被计算机 ...
- A. Optimal Currency Exchange 兑换硬币,剩下的钱最少
A. Optimal Currency Exchange time limit per test 1.5 seconds memory limit per test 512 megabytes inp ...
- Nginx 不区分大小写
location ~* .*\.(gif|jpg|jpeg|bmp|png|tiff|tif|ico|wmf|js)$ { # slowfs_cache fastca ...
- Java经典算法50道题
[程序1]题目:古典问题:有一对兔子,从出生后第3个月起每个月都生一对兔子,小兔子长到第三个月后每个月又生一对兔子,假如兔子都不死,问每个月的兔子总数为多少? 月 数量 1 1 2 ...