?? unit1.pas

?? 萬能數據庫查看程序萬能數據庫查看程序
?? PAS
?? 第 1 頁 / 共 2 頁
字號:
上一頁 12
              Params.Clear;
              Params.Add('USER NAME='+EUser.Text);
              Params.Add('PASSWORD='+EPass.Text);
              AliasName:=Trim(ComboBox1.Text);
              connected:=true;
              Open;
              GetTableNames(LTableList.Items);
              QueryBDE.DatabaseName:=DatabaseName;
              Screen.Cursor:=crDefault;
              except
              Screen.Cursor:=crDefault;
              application.MessageBox('連接數據庫失敗，請檢查用戶密碼和數據庫名稱路徑及是否支持后重試!','打開數據庫錯誤',0);
              end;
            end;
          end else
          begin   //如果別名框輸入的別名系統里不存在則進入創建
            try
            if MessageBox(Handle,pchar('別名"'+ComboBox1.Text+'"不存在，現在創建嗎？'),'別名創建',MB_OKCANCEL)=IDCANCEL then begin Screen.Cursor:=crDefault;Exit;end;
            PathStr:='c:\temp';
            if InputQuery('路徑選擇','請輸入存放數據的路徑,如:"c:\data"        ',PathStr) then
              begin
                PathStr:=Trim(PathStr);
                if AnsiContainsText(PathStr,'.') then EDatabaseFile.text:=ExtractFilePath(PathStr);
                EDatabaseFile.text:=PathStr;
                DatabaseBDE.AliasName:=Trim(ComboBox1.Text);
                Session.AddStandardAlias(Trim(ComboBox1.Text),PathStr,'PARADOX');//STANDARD,ORACLE,SYBASE,INTERBASE,PARADOX
                Session.SaveConfigFile;    //BDE配置文件存盤
                Session.GetAliasNames(ComboBox1.Items);
                MessageBox(Handle,pchar('別名"'+ComboBox1.Text+'"已成功創建!'),'別名創建',MB_OK);
                Screen.Cursor:=crDefault;
              end;
            except
            Screen.Cursor:=crDefault;
            application.MessageBox('創建別名失敗，請檢查系統權限和數據庫路徑是否正確!','創建別名失敗',0);
            end;
          end;
      end else begin Screen.Cursor:=crDefault; application.MessageBox('老兄有沒有搞錯呀，數據庫沒選擇你要打開什么呀？','打開數據庫錯誤',0); end;
  end;
  N1.Enabled:=True;
  N3.Enabled:=True;
  N4.Enabled:=True;
  BOutoToFile.Enabled:=True;
  BSqlCommand.Enabled:=True;
  LTableList.ItemIndex:=LTableList_ItemIndex;
  LTableListClick(Sender);
  Screen.Cursor:=crDefault;
  except
    Screen.Cursor:=crDefault;
    application.MessageBox('連接數據庫失敗，請檢查數據源路徑或別名和數據格式以及登陸用戶密碼是否正確!','打開數據庫錯誤',0);
  end;
end;

procedure TForm1.EDatabaseFileClick(Sender: TObject);
begin
try
if OpenDialog1.Execute then EDatabaseFile.Text:=OpenDialog1.FileName;
except
end;
end;


procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
DBFunctions.DBGridRecordSize(Column);  //調用返回DBGrid控件字段寬度的過程
end;

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
DBFunctions.DBGrid1TitleSort(Column);
end;

procedure TForm1.BOutoToFileClick(Sender: TObject);
var  Date:TStrings;
begin
try
SaveToFile.FileName:=LTableList.Items[LTableList.ItemIndex];
if SaveToFile.Execute then
  begin
  Application.ProcessMessages;
  Screen.Cursor:=crAppStart;
  Date:=TStringList.Create;
  if SameText(Rightstr(pchar(SaveToFile.FileName),4),'.txt') then
     DBFunctions.DBGridToTxt(DBGrid1,Date,' ',LTableList.Items[LTableList.ItemIndex]) else DBFunctions.DBGridToHtml(DBGrid1,Date,LTableList.Items[LTableList.ItemIndex]);
  Date.SaveToFile(pchar(SaveToFile.FileName));
  Screen.Cursor:=crDefault;
  end;
except
end;
end;

procedure TForm1.BSqlCommandClick(Sender: TObject);
begin
if trim(SqlStr.text)<>'' then
  begin
    Screen.Cursor:=crAppStart;
    Application.ProcessMessages;
    if RadioGroup1.Items[RadioGroup1.ItemIndex]='BDE' then
    begin
      with QueryBDE do
      begin
        try
        Close;
        Sql.Clear;
        DatabaseName:=DatabaseBDE.DatabaseName;
        SQL.Add(Pchar(trim(SqlStr.text)));
        if LeftStr(trim(SqlStr.text),6)<>'select' then ExecSQL else Open;
        LTableList.Items.Clear;
        DatabaseBDE.GetTableNames(LTableList.Items);
        DataSource1.DataSet:=QueryBDE;
        Screen.Cursor:=crDefault;
        except
        Screen.Cursor:=crDefault;
        showmessage('SQL命令語法有誤,沒有成功執行！');
        end;
      end;
    end else
    begin
      with ADOQuery1 do
      begin
        try
        Close;
        SQL.Clear;
        Connection:=ADOConnection1;
        SQL.Add(Pchar(trim(SqlStr.text)));
        if LeftStr(trim(SqlStr.text),6)<>'select' then ExecSQL else Open;
        LTableList.Items.Clear;
        ADOConnection1.GetTableNames(LTableList.Items);
        DataSource1.DataSet:=ADOQuery1;
        Screen.Cursor:=crDefault;
        except
        Screen.Cursor:=crDefault;
        showmessage('SQL命令語法有誤,沒有成功執行！');
        end;
      end;
    end;
    DBGrid1.DataSource:=DataSource1;
    LTableList.ItemIndex:=LTableList_ItemIndex;
    if  LeftStr(trim(SqlStr.text),6)<>'select' then LTableListClick(Sender);
    DBFunctions.DBGridAutoSize(DBGrid1,15);//調用對DBGrid控件數據進行自動字段寬度的處理過程
    Screen.Cursor:=crDefault;
  end else showmessage('有沒有搞錯呀，你命令都沒輸入執行什么呀？');
end;

procedure TForm1.N2Click(Sender: TObject);
begin
  Session.DeleteAlias(Trim(ComboBox1.Text));
end;

procedure TForm1.N3Click(Sender: TObject);
begin
  SqlStr.Text:='DROP TABLE '+LTableList.Items[LTableList.ItemIndex]+';';
  ADOQuery1.Close;
  ADOQuery1.Active:=False;
  QueryBDE.Close;
  QueryBDE.Active:=False;
  BSqlCommandClick(Sender);
  N4Click(Sender);
end;

procedure TForm1.N4Click(Sender: TObject);
begin
  if RadioGroup1.Items[RadioGroup1.ItemIndex]='BDE' then
    begin
      DatabaseBDE.GetTableNames(LTableList.Items);
      LTableList.ItemIndex:=LTableList_ItemIndex;
    end else
    begin
      ADOConnection1.GetTableNames(LTableList.Items);
      LTableList.ItemIndex:=LTableList_ItemIndex;
    end;
    LTableListClick(Sender);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if RadioGroup1.Items[RadioGroup1.ItemIndex]='ADO' then
     begin
       if (ComboBox1.Text='=====驅動類型=====') or (ComboBox1.Text='') then
         begin
           EDatabaseFile.Enabled:=False;
           EUser.Enabled:=False;
           EPass.Enabled:=False;
           BOpenDatabase.Enabled:=False;
           SqlStr.Enabled:=False;
           BSqlCommand.Enabled:=False;
           BOutoToFile.Enabled:=False;
         end else
         begin
           EDatabaseFile.Enabled:=True;
           EUser.Enabled:=True;
           EPass.Enabled:=True;
           BOpenDatabase.Enabled:=True;;
           if (ComboBox1.Text='Access Database') or (ComboBox1.Text='OLEDB.3.51 *.mdb') or (ComboBox1.Text='OLEDB.4.0 *.mdb') then
             begin
               OpenDialog1.DefaultExt:='*.mdb';
             end else
           if ComboBox1.Text='dBASE *.dbf;*.?dx' then
             begin
               OpenDialog1.DefaultExt:='*.dbf;*.db;*.?dx';
             end else
           if ComboBox1.Text='VFP Datebase *.dbf' then
             begin
               OpenDialog1.DefaultExt:='*.dbf;*.db';
             end else
           if ComboBox1.Text='VFP Datebase *.dbc' then
             begin
               OpenDialog1.DefaultExt:='*.dbc';
             end else
           if ComboBox1.Text='SQL Server' then
             begin
               EDatabaseFile.Enabled:=False;
             end else
           if ComboBox1.Text='搜索數據源別名...' then
             begin
               ComboBox1.Items.Clear;
               Session.GetAliasNames(ComboBox1.Items);
               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;
           end;
     end else
     begin
       if (ComboBox1.Text='打開文件...') then
         begin
           EDatabaseFile.Enabled:=True;
           EUser.Enabled:=True;
           EPass.Enabled:=True;
           BOpenDatabase.Enabled:=True;
           OpenDialog1.DefaultExt:='*.dbf,*.db,*.dbc,*.?dx';
         end else
       if ComboBox1.Text='搜索數據源別名...' then
         begin
           ComboBox1.Items.Clear;
           Session.GetAliasNames(ComboBox1.Items);
           ComboBox1.Items.Add('打開文件...');
           ComboBox1.Items.Add('搜索數據源別名...');
           ComboBox1.Text:='打開文件...';
         end else
       if (ComboBox1.Text<>'') then
         begin
           EDatabaseFile.Enabled:=False;
           EUser.Enabled:=True;
           EPass.Enabled:=True;
           BOpenDatabase.Enabled:=True;
           N2.Enabled:=True;
         end;
     end;
end;


procedure TForm1.N1Click(Sender: TObject);
begin
  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;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
RadioGroup1Click(Sender);
end;

end.
上一頁 12
?? 文件大小 1619 K
?? 上傳用戶 spy0207
?? 所屬分類 Delphi控件源碼
??? 相關標簽

#數據庫 #看程序
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? unit1.pas

?? 快捷鍵說明
