两个问题
1:我的ado上的ConnectionString是空的,现在我想把在ini里面的连接符取出来赋值给ado,
但赋值后不能运行,连接不上
adocon:=inif.ReadString('设置','con','');
ado.ConnectionString=adocon;求大虾指导正确的语法2现在我有一个PageControl自动创建上面的tabsheet,但我现在想重新刷新它,有没有什么方法?
每次我刷新都把数据重复添加上去
procedure TForm2.showsheet; //显示文字ini
var myinifFileName:string;
inif:TiniFile;
myBtnCaption:string ;
i:integer;
begin
AF.Visible:=false;
AF.Items.Clear;
inif:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'con.ini');
inif.ReadSections(AF.Items);
for i:=2 to AF.Items.Count-1 do
begin
myBtnCaption:=AF.Items.Strings[i];
self.CreatepicPagesheetdt(mybtncaption);
end;
end;
//创建page上的sheet;
Procedure TForm2.CreatepicPagesheetdt( BtnCaption:string) ;
var mybstabsheet:TTabSheet ;
i:integer ;
begin
i:=self.Page1.PageCount+1;
mybstabsheet:=TTabSheet.Create(self) ;
with mybstabsheet do
begin
mybstabsheet.Font.Color:=clblue;
Parent:=self.Page1;
PageControl:=self.Page1;
Caption:=BtnCAption;
Name:='Tbtn'+inttostr(i);
end ;
end;求救啊?
1:我的ado上的ConnectionString是空的,现在我想把在ini里面的连接符取出来赋值给ado,
但赋值后不能运行,连接不上
adocon:=inif.ReadString('设置','con','');
ado.ConnectionString=adocon;求大虾指导正确的语法2现在我有一个PageControl自动创建上面的tabsheet,但我现在想重新刷新它,有没有什么方法?
每次我刷新都把数据重复添加上去
procedure TForm2.showsheet; //显示文字ini
var myinifFileName:string;
inif:TiniFile;
myBtnCaption:string ;
i:integer;
begin
AF.Visible:=false;
AF.Items.Clear;
inif:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'con.ini');
inif.ReadSections(AF.Items);
for i:=2 to AF.Items.Count-1 do
begin
myBtnCaption:=AF.Items.Strings[i];
self.CreatepicPagesheetdt(mybtncaption);
end;
end;
//创建page上的sheet;
Procedure TForm2.CreatepicPagesheetdt( BtnCaption:string) ;
var mybstabsheet:TTabSheet ;
i:integer ;
begin
i:=self.Page1.PageCount+1;
mybstabsheet:=TTabSheet.Create(self) ;
with mybstabsheet do
begin
mybstabsheet.Font.Color:=clblue;
Parent:=self.Page1;
PageControl:=self.Page1;
Caption:=BtnCAption;
Name:='Tbtn'+inttostr(i);
end ;
end;求救啊?
解决方案 »
- 在win2000下他是怎么用一个EXE做到屏蔽了所有的系统热键的挂机锁呢?晕死了,有没人知道原理的说一下。。。
- oracle数据表转化为PARADOX的问题!请高手帮忙!!!!
- 一个很菜的问题,关于tquery的
- 没有工作 心情极度郁闷 散分
- ★★★★★救命啊!一个奇怪的问题:自建的通用过程中难道不能包含有控件名吗?
- 如何调用一些Delphi中没有定义的函数,比如GetIfEntry函数
- dbgrideh单元格的内容改变事件?
- 帮我看看这个for语名应该怎么来写??
- 安装构件是否一定需要有该构件包含的单元源代码文件*.pas?
- 想在往edit中输入编号或姓名时,能从listbox中列出相关记录的编号与姓名,而且是如输入“张”时与“张”相关的记录就列出来,选择记录后。。。。。
- treeview 无效NULL
- delphi的浏览器控件和控件flash的问题
ado.ConnectionString=adocon;
1、先要确保你INI里的字符串是可以连通的,然后跟踪到第1句,看看adocon是否付值成功了!
2、ado.ConnectionString:=adocon; //少了一个:
adocon:=inif.ReadString('设置','con','');
ado.ConnectionString := adocon;
ado.Connected := True;<------------------
ado.Connected := True;//这句不加也可以的!