两个问题
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;求救啊?
解决方案 »
- delphi下如何很容易的打印stringgrid
- 字符串转换
- cxgrid 如何给某列增加一个右键菜单以实现对选中的某行记录执行删除功能?
- 高手请指教!‘验证失败’!
- DELPHI如何执行*.chm的帮助文档文件!急!
- 怎样把一个表的某个字段的内容加到TComboBox的item中?
- SOS-《中文版Microsoft Excel开发者工具书》哪有下的???
- 我要快疯了!使用Table.AddIndex()方法建立表索引的问题详述,请行家里手指点!
- 菜鸟要提问:
- cg:有那位兄弟知道,如何实现oicq的鼠标移到上面就显示FORM 离开就隐藏的还有
- 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;//这句不加也可以的!