1.添加TSession控件,设定PrivateDir,SessionName
2.添加Tdatabase控件,SessionName选取上面的SessionName,AliasName选中别名,
DataBaseName选中数据库名称
3.添加Listbox控件,在FormCreate中加入:
//////////////////////添加表名字////////////////
ListBox_tablename.Items.Clear;//清空Liatbox_Tablename对话框
Session_Shijian.GetTableNames(database_tablename.DatabaseName ,'',False,False,ListBox_tablename.Items);
4.判断的表是否存在的函数:
////////////////////////////////////////////////////////////
////////////////////////判断表是否存在//////////////////////
Function TForm_Mingxi.TableExist(Tablename:String):Boolean;
Var i:integer;
Begin
Result:=False;
For i:=0 To MainForm.ListBox_Tablename.Items.Count-1 Do
If MainForm.ListBox_tablename.items=TableName Then
Begin
Result:=True;
Exit;
End;
End;