?? unit1.~pas
字號:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, ExtCtrls, DBTables,ShellApi,
XPMenu,StrUtils,Math,Menus;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
Panel2: TPanel;
Panel1: TPanel;
EDatabaseFile: TEdit;
OpenDialog1: TOpenDialog;
EPass: TEdit;
LDataFile: TLabel;
LPass: TLabel;
BOpenDatabase: TBitBtn;
SaveToFile: TSaveDialog;
GroupBox2: TGroupBox;
DBGrid1: TDBGrid;
Splitter1: TSplitter;
GroupBox1: TGroupBox;
LTableList: TListBox;
LSQLCommand: TLabel;
BSqlCommand: TBitBtn;
SqlStr: TComboBox;
XPMenu1: TXPMenu;
ADOQuery1: TADOQuery;
ComboBox1: TComboBox;
RadioGroup1: TRadioGroup;
EUser: TEdit;
LUser: TLabel;
LPassword: TLabel;
QueryBDE: TQuery;
DatabaseBDE: TDatabase;
BOutoToFile: TBitBtn;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
LDataType: TLabel;
procedure LTableListClick(Sender: TObject);
procedure BOpenDatabaseClick(Sender: TObject);
procedure EDatabaseFileClick(Sender: TObject);
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure DBGrid1TitleClick(Column: TColumn);
procedure RadioGroup1Click(Sender: TObject);
procedure BOutoToFileClick(Sender: TObject);
procedure BSqlCommandClick(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
LTableList_ItemIndex:integer=0;
implementation
uses DBFunctions;
{$R *.dfm}
procedure TForm1.LTableListClick(Sender: TObject);
begin
if (LTableList.ItemIndex<>-1) {and (LTableList.Items[LTableList.ItemIndex]<>'')} then
try
begin
Screen.Cursor:=crAppStart;
Application.ProcessMessages;
LTableList_ItemIndex:=LTableList.ItemIndex;
if RadioGroup1.Items[RadioGroup1.ItemIndex]='BDE' then
begin
with QueryBDE do
begin
Close;
Sql.Clear;
DatabaseName:=DatabaseBDE.DatabaseName;
if LTableList.ItemIndex<>-1 then
begin
SQL.Add(Pchar('Select * from '+LTableList.Items[LTableList.ItemIndex]+';'));
try Open; except application.MessageBox('數據表有問題，無法正常打開!','提示',0); end;
DataSource1.DataSet:=QueryBDE;
DBGrid1.DataSource:=DataSource1;
end;
end;
end else
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
Connection:=ADOConnection1;
if LTableList.ItemIndex<>-1 then
begin
SQL.Add(Pchar('Select * from '+LTableList.Items[LTableList.ItemIndex]+';'));
try Open; except application.MessageBox('數據表有問題，無法正常打開!','提示',0); end;
DataSource1.DataSet:=ADOQuery1;
DBGrid1.DataSource:=DataSource1;
end;
end;
end;
DBFunctions.DBGridAutoSize(DBGrid1,15);//調用對DBGrid控件數據進行自動字段寬度的處理過程
Screen.Cursor:=crDefault;
end;
except
Screen.Cursor:=crDefault;
end;
end;
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
ComboBox1.Items.Clear;
case TRadioGroup(Sender).ItemIndex of
0:begin
ComboBox1.Items.Add('=====驅動類型=====');
ComboBox1.Items.Add('Access Database'); // MS Access Database
ComboBox1.Items.Add('OLEDB.3.51 *.mdb'); //Microsoft.Jet.OLEDB.3.51
ComboBox1.Items.Add('OLEDB.4.0 *.mdb'); //Microsoft.Jet.OLEDB.4.0
ComboBox1.Items.Add('dBASE *.dbf;*.?dx'); //*.dbf;*.ndx;*.mdx
ComboBox1.Items.Add('VFP Datebase *.dbf');
ComboBox1.Items.Add('VFP Datebase *.dbc');
ComboBox1.Items.Add('SQL Server');
ComboBox1.Items.Add('搜索數據源別名...');
ComboBox1.Text:='Access Database';
end;
1:begin
ComboBox1.Items.Add('打開文件...');
ComboBox1.Items.Add('搜索數據源別名...');
ComboBox1.Text:='打開文件...';
end;
end;
OpenDialog1.DefaultExt:='*.dbf,*.mdb,*.db,*.dbc,*.?dx';
///ComboBox1DropDown(Sender); //調用此過程用來讀取并重置當前應該有的數據源驅動列表
ComboBox1Change(Sender); //調用此過程用來重新應用當前路徑框和各按鈕的可用狀態
end;
procedure TForm1.BOpenDatabaseClick(Sender: TObject);
var PathStr:string; //用來接收輸入的路徑
begin
try
Screen.Cursor:=crAppStart;
Application.ProcessMessages;
LTableList.Clear;
DatabaseBDE.Close;
ADOConnection1.Close;
ADOQuery1.Close;
ADOQuery1.Active:=False;
QueryBDE.Close;
QueryBDE.Active:=False;
LTableList_ItemIndex:=0;
BOutoToFile.Enabled:=False;
BSqlCommand.Enabled:=False;
N1.Enabled:=False;
N2.Enabled:=False;
N3.Enabled:=False;
N4.Enabled:=False;
if RadioGroup1.Items[RadioGroup1.ItemIndex]='ADO' then
begin //如果驅動類型選擇了ADO進入這里
if Trim(ComboBox1.Text)<>'' then
begin
///Session.GetAliasNames(ComboBox1.Items);
DataSource1.DataSet:=ADOQuery1;
ADOConnection1.LoginPrompt:=false; //去除登錄密碼驗證窗口
try
if Trim(ComboBox1.Text)='Access Database' then //要指明文件
begin
if not AnsiContainsText(EDatabaseFile.text,'.') then EDatabaseFileClick(Sender);
if not AnsiContainsText(EDatabaseFile.text,'.') then begin Screen.Cursor:=crDefault; exit; end;
ADOConnection1.ConnectionString:='Provider=MSDASQL.1;Password='+EPass.Text+';Persist Security Info=True;User ID='+EUser.Text+';Extended Properties="DSN=MS Access Database;DBQ='+EDatabaseFile.text+';DefaultDir='+ExtractFilePath(EDatabaseFile.text)+';DriverId=25;MaxBufferSize=2048;FIL=MS Access;PWD='+EPass.Text+';UID='+EUser.Text+';"';
end
else
if Trim(ComboBox1.Text)='OLEDB.3.51 *.mdb' then //要指明文件
begin
if not AnsiContainsText(EDatabaseFile.text,'.') then EDatabaseFileClick(Sender);
if not AnsiContainsText(EDatabaseFile.text,'.') then begin Screen.Cursor:=crDefault; exit; end;
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.3.51;Data Source='+EDatabaseFile.text+';Persist Security Info=False;Jet OLEDB:Database Password='+EPass.text+'';
end
else
if Trim(ComboBox1.Text)='OLEDB.4.0 *.mdb' then //要指明文件
begin
if not AnsiContainsText(EDatabaseFile.text,'.') then EDatabaseFileClick(Sender);
if not AnsiContainsText(EDatabaseFile.text,'.') then begin Screen.Cursor:=crDefault; exit; end;
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+EDatabaseFile.text+';Persist Security Info=False;Jet OLEDB:Database Password='+EPass.text+'';
end
else
if Trim(ComboBox1.Text)='dBASE *.dbf;*.?dx' then //要指明目錄(已處理成可以是文件) 最后不能有'\'
begin
if not AnsiContainsText(EDatabaseFile.text,'\') then EDatabaseFileClick(Sender);
if not AnsiContainsText(EDatabaseFile.text,'\') then begin Screen.Cursor:=crDefault; exit; end;
if AnsiContainsText(EDatabaseFile.text,'.') then EDatabaseFile.text:=ExtractFilePath(EDatabaseFile.text);
if EDatabaseFile.text[length(EDatabaseFile.text)]='\' then EDatabaseFile.text:=leftstr(EDatabaseFile.text,length(EDatabaseFile.text)-1);
ADOConnection1.ConnectionString:='Provider=MSDASQL.1;Password='+EPass.text+';Persist Security Info=True;User ID='+EUser.Text+';Extended Properties="DSN=dBASE Files;DBQ='+EDatabaseFile.text+';DefaultDir='+ExtractFilePath(EDatabaseFile.text)+';DriverId=533;MaxBufferSize=2048;PageTimeout=5;"';
end
else
if Trim(ComboBox1.Text)='VFP Datebase *.dbf' then //要指明目錄(已處理成可以是文件) 最后必須有'\'
begin
if not AnsiContainsText(EDatabaseFile.text,'\') then EDatabaseFileClick(Sender);
if not AnsiContainsText(EDatabaseFile.text,'\') then begin Screen.Cursor:=crDefault; exit; end;
if AnsiContainsText(EDatabaseFile.text,'.') then EDatabaseFile.text:=ExtractFilePath(EDatabaseFile.text);
if EDatabaseFile.text[length(EDatabaseFile.text)]<>'\' then EDatabaseFile.text:=EDatabaseFile.text+'\';
ADOConnection1.ConnectionString:='Provider=MSDASQL.1;Password='+EPass.Text+';Persist Security Info=True;User ID='+EUser.Text+';Extended Properties="DSN=Visual FoxPro Tables;UID='+EUser.Text+';PWD='+EPass.Text+';SourceDB='+EDatabaseFile.text+';SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"';
end
else
if Trim(ComboBox1.Text)='VFP Datebase *.dbc' then //一定要指明數據庫文件
begin
if not AnsiContainsText(EDatabaseFile.text,'.') then EDatabaseFileClick(Sender);
if not AnsiContainsText(EDatabaseFile.text,'.') then begin Screen.Cursor:=crDefault; exit; end;
ADOConnection1.ConnectionString:='Provider=MSDASQL.1;Password='+EPass.Text+';Persist Security Info=True;User ID='+EUser.Text+';Extended Properties="DSN=Visual FoxPro Database;UID='+EUser.Text+';PWD='+EPass.Text+';SourceDB='+EDatabaseFile.text+';SourceType=DBC;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"';
end
else
if Trim(ComboBox1.Text)='SQL Server' then //要求IP，數據庫 另外就是登陸用戶名和密碼
begin
PathStr:='(Local)';
if not InputQuery('SQL Server','請輸入你要連接到的SQL服務器名或IP 本地可用 (Local) 或 127.0.0.1 ',PathStr) then begin Screen.Cursor:=crDefault; exit; end;
EDatabaseFile.text:=Trim(PathStr);
PathStr:='pubs';
if not InputQuery('數據庫選擇','請輸入你要打開的數據庫名,如:pubs ',PathStr) then begin Screen.Cursor:=crDefault; exit; end;
ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password='+EPass.Text+';Persist Security Info=True;User ID='+EUser.Text+';Initial Catalog='+PathStr+';Data Source='+EDatabaseFile.text+'';
end
else {if (ComboBox1.Items.IndexOf(ComboBox1.Text)<>-1) then} //打開已創建好的數據源
begin
ADOConnection1.ConnectionString:='Provider=MSDASQL.1;Password='+EPass.Text+';Persist Security Info=True;User ID='+EUser.Text+';Data Source='+ComboBox1.Text+'';
end
;//else application.MessageBox('所選擇的數據庫或數據源別名不能被打開，請檢查更改后再試!','打開數據庫錯誤',0);
ADOConnection1.Open;
ADOConnection1.GetTableNames(LTableList.Items);
Screen.Cursor:=crDefault;
except
Screen.Cursor:=crDefault;
application.MessageBox('連接數據庫失敗，請檢查用戶密碼和數據庫名稱路徑及是否支持后重試!','打開數據庫錯誤',0);
end;
end else begin Screen.Cursor:=crDefault; application.MessageBox('老兄有沒有搞錯呀，你沒選擇數據類型或據源別名你要打開什么呀？','打開數據庫錯誤',0); exit; end;
end else
begin //如果驅動類型選擇了BDE進入這里
//Session.GetAliasNames(ComboBox1.Items);
DatabaseBDE.DriverName:='STANDARD'; //數據類型
DataSource1.DataSet:=QueryBDE;
DatabaseBDE.LoginPrompt:=False;
DatabaseBDE.DriverName:='STANDARD'; //數據類型
if Trim(ComboBox1.Text)<>'' then DatabaseBDE.DatabaseName:=Trim(ComboBox1.Text) else DatabaseBDE.DatabaseName:='MICHAEL';//設置當前實例的數據庫別名
if Trim(ComboBox1.Text)<>'' Then
begin //如果別名框（即ComboBox1.text）的內容不為空
if ComboBox1.Text='打開文件...' then //直接打開指定目錄中的數據文件
begin
try
if not AnsiContainsText(EDatabaseFile.text,'\') then EDatabaseFileClick(Sender);
if not AnsiContainsText(EDatabaseFile.text,'\') then begin Screen.Cursor:=crDefault; exit; end;
DatabaseBDE.Params.Clear;
EDatabaseFile.text:=Trim(EDatabaseFile.text);
if AnsiContainsText(EDatabaseFile.text,'.') then EDatabaseFile.text:=ExtractFilePath(EDatabaseFile.text);
DatabaseBDE.Params.Add('PATH='+EDatabaseFile.text);
DatabaseBDE.Params.Values['USERNAME']:=EUser.Text;
DatabaseBDE.Params.Values['PASSWORD']:=EPass.Text;
DatabaseBDE.connected:=true;
DatabaseBDE.Open;
DatabaseBDE.GetTableNames(LTableList.Items);
QueryBDE.DatabaseName:=DatabaseBDE.DatabaseName;
except
Screen.Cursor:=crDefault;
application.MessageBox('打開數據失敗，請檢查數據路徑及數據文件是否有誤或不支持!','打開數據失敗',0);
end;
end else if (ComboBox1.Items.IndexOf(Trim(ComboBox1.Text))<>-1) then
begin //看選擇的數據庫是否是已創建好的數據源
with DatabaseBDE do
begin
try
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -