Procedure Create_Access_File(FileName:String);
Var
CreateAccess:OleVariant;
begin
if Not FileExists(FileName) then
begin
CreateAccess:=CreateOleObject('ADOX.Catalog');
CreateAccess.Create(Data_Create_Driver+'Data Source='+FileName);
ConnectStr:=Data_Create_Driver+'Data Source='+FileName;
Mydata.AdoConnection1.Connected:=False;
Mydata.AdoConnection1.ConnectionString:=ConnectStr+';'+'Persist Security Info=true';
Mydata.AdoConnection1.Connected:=True;
with Mydata.AdoQuery1 do
begin
close;
Sql.clear;
SqlStr:='Create Table UserTab (UserId varchar(10),UserName varchar(10),UserPassword varchar(10),Quanxian varchar(1))';
Sql.add(SqlStr);
ExecSql;
end;
end;
End;