关于文本框中更改并保存内容的问题(50分)

  • 主题发起人 主题发起人 northbin
  • 开始时间 开始时间
N

northbin

Unregistered / Unconfirmed
GUEST, unregistred user!
请问,我设计一个图书馆管理系统,用一个表格对收费标准进行设置,界面里有:edit1,edit2…… 并在文本框中输入数据,如edit1内容为0.5,就是表示每天每本书0.5元,我现在要改收费标准,比如在edit1中输入0.7,但不知道该如何保存新定义的收费标准。谢谢
 
1.使用INI文件保存比较通用。
uses IniFiles
函数function ReadLogon:Boolean;
var
AFile:TIniFile;
MyPrice:double;
begin
aFile:=TIniFile.Create(GetAppPATH+'option.ini');
with aFile,Logon do
begin
Connected:=AFile.ReadFloat('Option','收费标准',0.5);
afile.free;
end;
写配置:
procedure WriteLogon;
var
aFile:TIniFile;
begin
aFile:=TIniFile.Create(GetAppPATH+IFileName);
with aFile,Logon do
begin
WriteInteger('Option','收费设置',myprice);
afile.free;
end;
ini可以使用记事本编辑
[opiton]
收费设置=0。5
或者保存到数据库里面。
你应该会了。不举例子了。
 
begin
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from yourData');
adoquery1.execsql;
adoquery1.fieldbyname('字段').asstring:=trim(edti1.text);//trim是去掉空格函数
end;
这样你就可以把"edti1.text"中的内容存到数据库yourData.mdb中了!
 
1,放在数据库里面可以记录更改的历史记录,方便管理,最好是主子表
2,ini文件可以保存不需要对设置进行历史监控的设置
你自己看着办吧,其实都是可以的
 
to listhano:我是用BDE连接数据库,而且我已经在a.mdb中建立了收费标准表,请问如何更新记录内容。
 
用DBEdit嘛
 
谢谢大家,我试过所有的方法,最简单易用的就是用ini文件。
 

Similar threads

后退
顶部