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('數(shù)據(jù)表有問(wèn)題，無(wú)法正常打開(kāi)!','提示',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('數(shù)據(jù)表有問(wèn)題，無(wú)法正常打開(kāi)!','提示',0);   end;
            DataSource1.DataSet:=ADOQuery1;
            DBGrid1.DataSource:=DataSource1;
          end;
      end;
  end;
    DBFunctions.DBGridAutoSize(DBGrid1,15);//調(diào)用對(duì)DBGrid控件數(shù)據(jù)進(jìn)行自動(dòng)字段寬度的處理過(guò)程
    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('=====驅(qū)動(dòng)類(lèi)型=====');
        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('搜索數(shù)據(jù)源別名...');
        ComboBox1.Text:='Access Database';
      end;
    1:begin
        ComboBox1.Items.Add('打開(kāi)文件...');
        ComboBox1.Items.Add('搜索數(shù)據(jù)源別名...');
        ComboBox1.Text:='打開(kāi)文件...';
      end;
  end;
  OpenDialog1.DefaultExt:='*.dbf,*.mdb,*.db,*.dbc,*.?dx';
  ///ComboBox1DropDown(Sender);   //調(diào)用此過(guò)程用來(lái)讀取并重置當(dāng)前應(yīng)該有的數(shù)據(jù)源驅(qū)動(dòng)列表
  ComboBox1Change(Sender);   //調(diào)用此過(guò)程用來(lái)重新應(yīng)用當(dāng)前路徑框和各按鈕的可用狀態(tài)
end;

procedure TForm1.BOpenDatabaseClick(Sender: TObject);
var PathStr:string;  //用來(lái)接收輸入的路徑
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  //如果驅(qū)動(dòng)類(lèi)型選擇了ADO進(jìn)入這里
    if Trim(ComboBox1.Text)<>'' then
      begin
        ///Session.GetAliasNames(ComboBox1.Items);
        DataSource1.DataSet:=ADOQuery1;
        ADOConnection1.LoginPrompt:=false;  //去除登錄密碼驗(yàn)證窗口
        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      //一定要指明數(shù)據(jù)庫(kù)文件
          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，數(shù)據(jù)庫(kù) 另外就是登陸用戶(hù)名和密碼
          begin
            PathStr:='(Local)';
            if not InputQuery('SQL Server','請(qǐng)輸入你要連接到的SQL服務(wù)器名或IP            本地可用 (Local) 或 127.0.0.1 ',PathStr) then begin Screen.Cursor:=crDefault; exit; end;
            EDatabaseFile.text:=Trim(PathStr);
            PathStr:='pubs';
            if not InputQuery('數(shù)據(jù)庫(kù)選擇','請(qǐng)輸入你要打開(kāi)的數(shù)據(jù)庫(kù)名,如: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} //打開(kāi)已創(chuàng)建好的數(shù)據(jù)源
          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('所選擇的數(shù)據(jù)庫(kù)或數(shù)據(jù)源別名不能被打開(kāi)，請(qǐng)檢查更改后再試!','打開(kāi)數(shù)據(jù)庫(kù)錯(cuò)誤',0);
        ADOConnection1.Open;
        ADOConnection1.GetTableNames(LTableList.Items);
        Screen.Cursor:=crDefault;
        except
        Screen.Cursor:=crDefault;
        application.MessageBox('連接數(shù)據(jù)庫(kù)失敗，請(qǐng)檢查用戶(hù)密碼和數(shù)據(jù)庫(kù)名稱(chēng)路徑及是否支持后重試!','打開(kāi)數(shù)據(jù)庫(kù)錯(cuò)誤',0);
        end;
      end else begin Screen.Cursor:=crDefault; application.MessageBox('老兄有沒(méi)有搞錯(cuò)呀，你沒(méi)選擇數(shù)據(jù)類(lèi)型或據(jù)源別名你要打開(kāi)什么呀？','打開(kāi)數(shù)據(jù)庫(kù)錯(cuò)誤',0); exit; end;
  end else
  begin  //如果驅(qū)動(dòng)類(lèi)型選擇了BDE進(jìn)入這里
    //Session.GetAliasNames(ComboBox1.Items);
    DatabaseBDE.DriverName:='STANDARD';   //數(shù)據(jù)類(lèi)型
    DataSource1.DataSet:=QueryBDE;
    DatabaseBDE.LoginPrompt:=False;
    DatabaseBDE.DriverName:='STANDARD';   //數(shù)據(jù)類(lèi)型
    if Trim(ComboBox1.Text)<>'' then DatabaseBDE.DatabaseName:=Trim(ComboBox1.Text) else DatabaseBDE.DatabaseName:='MICHAEL';//設(shè)置當(dāng)前實(shí)例的數(shù)據(jù)庫(kù)別名
    if Trim(ComboBox1.Text)<>'' Then
      begin  //如果別名框（即ComboBox1.text）的內(nèi)容不為空
        if ComboBox1.Text='打開(kāi)文件...' then    //直接打開(kāi)指定目錄中的數(shù)據(jù)文件
          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('打開(kāi)數(shù)據(jù)失敗，請(qǐng)檢查數(shù)據(jù)路徑及數(shù)據(jù)文件是否有誤或不支持!','打開(kāi)數(shù)據(jù)失敗',0);
            end;
          end else if (ComboBox1.Items.IndexOf(Trim(ComboBox1.Text))<>-1) then
          begin    //看選擇的數(shù)據(jù)庫(kù)是否是已創(chuàng)建好的數(shù)據(jù)源
            with DatabaseBDE do
            begin
              try