我先在这里谢谢了
小弟非常需要
还有一个问题
怎样实现按下键盘的任意字母就发生一个事件???????????????????????
小弟非常需要
还有一个问题
怎样实现按下键盘的任意字母就发生一个事件???????????????????????
解决方案 »
- 刚把女朋友送上了回家的火车,祝她一路顺风。
- 使用ADO,三层结构。在客户端通过5个TClientDataSet导出几张表。如果都修该了,我想在一个事务内进行。该怎样
- 高分求解,搞定结帐!
- 我在用socket做客户端连服务器时,运行时提示'error loading midas.dll'怎么处理呀?
- Delphi和c++ builder冲突???
- 请教高手:如何让CPU占用率高的程序反应不太慢?(象Flash)
- 呵呵,好奇+不懂!
- 请教远程协助的最好方案及灰鸽子1.2代码服务端调试问题
- 请问如何获得dos下的消息,我执行一个dos计算程序后,如何获得它的输出结果了?
- 如何产生柔和的字体输出效果
- 关于线程出错的问题.....
- fastreport 预览窗体关闭后 怎么连程序窗体也一起关掉?
procedure Tform1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
...
end;
uses
IniFiles; procedure myread;
var
myini:Tinifile;
begin
MyIni := TIniFile.Create(s);//调用的文件名
a:=myIni.ReadString('comdata', 'aaa',cbxdata.Text );
....
myini.Free;
end; procedure mywrite;
MyIni := TIniFile.Create(s);//调用的文件名
myIni.WriteString('comdata', 'aa',cbxdata.Text);
...
myini.Free;
end;
uses
IniFiles; procedure myread;
var
myini:Tinifile;
path:String;
begin
path := Extractfilepath(paramstr(0));
iniMail:=TIniFile.Create(Extractfilepath(paramstr(0))+'conn.ini');//读取路径
try
a:=myIni.ReadString('comdata', 'ConntionString','');
except
myIni.Free;
MessageBox(Handle, '保存短信设置发生错误!', '错误', 48);
end;
myIni.Free;//写文件
procedure mywrite;
var
myIni:IniFile;
path:String;
begin
path := Extractfilepath(paramstr(0));
myIni:=TIniFile.Create(Extractfilepath(paramstr(0))+'conn.ini');//读取路径
myIni.WriteString('comdata', 'ConntionString',cbxdata.Text);
...
myini.Free;
end;2. 1楼的就可以
例如:
conn.ini:
[dataBaseConf]
connectionString=Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=.\testdb.mdb;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:New Database Password="";procedure TForm2.FormShow(Sender: TObject);
var
iniMail:TIniFile;
path:String;
begin
path := Extractfilepath(paramstr(0));
iniMail:=TIniFile.Create(Extractfilepath(paramstr(0))+'conn.ini');
try
ADOConnection1.Close;
ADOConnection1.connectionString := iniMail.Readstring('dataBaseConf','connectionString',''); //取连接字符串
ADOConnection1.Connected := true;
except
iniMail.Free;
MessageBox(Handle, '保存短信设置发生错误! ', '错误', 48);
end;
iniMail.Free;
end;
var
ini: TIniFile;
begin
ini := TIniFile.Create(ExtractFilePath(Application.exename)+'系统配置\housebook.ini');//配置文件路径
try
ini.WriteString(alias,param,value);
finally
FreeAndNil(ini);
end;
end;function ReadIni(alias,param:string):string;//读取INI文件
var
ini: TIniFile;
begin
ini := TIniFile.Create(ExtractFilePath(Application.exename)+'系统配置\housebook.ini');
try
result:=ini.ReadString(alias,param,'');
finally
FreeAndNil(ini);
end;
end;Edit1.Text:=ReadIni('数据库','server');
Edit2.Text:=ReadIni('数据库','uid');
Edit3.Text:=ReadIni('数据库','pwd');
try
frm_data.connection.Open;
except
Application.MessageBox('数据库配置失败','提示',mb_ok or mb_IconInformation);
frm_conn.Show;//数据库配置窗体
exit;
end;if frm_data.connection.Connected then
begin
Application.MessageBox('数据库已经连接','提示',mb_ok or mb_IconInformation);
self.Hide;
exit;
end;frm_data.connection.ConnectionString:='Provider=SQLOLEDB.1;Password='+Trim(Edit3.Text)+';Persist Security Info=False;User ID='+Trim(Edit2.Text)+';Initial Catalog=house;Data Source='+Trim(Edit1.Text);//连接字符串
try
frm_data.connection.Close;
frm_data.connection.Open;
Application.MessageBox('数据库配置成功','提示',mb_ok or mb_IconInformation);
frm_data.connection.LoginPrompt:=false;
WriteIni('数据库','server',Trim(Edit1.Text));
WriteIni('数据库','uid',Trim(Edit2.Text));
WriteIni('数据库','pwd',Trim(Edit3.Text));
self.Hide;
except
Application.MessageBox('数据库配置失败','提示',mb_ok or mb_IconInformation);
end;ini的文件如下
[数据库]
server=.
uid=sa
pwd=sa
[section] //对应read/write 的第一参数
Ident= value //Ident对应read/write 的第二参数,value对应read/write 的第三参数