Procedure tform1.openo1click (sender: Tobject); // file-> open..begin if OpenDialog1.execute1 Edit1.text: = OPENDIALOG1.FILENAME; END;
procedure TForm1.BBTNOpenClick (Sender: TObject); // open the database var szPath: string; // begin ListBox1.Clear path for receiving an input; ADOConnection1.Close; ADOQuery1.Close; ADOQuery1.Active: = False; // LTableList_ItemIndex : = 0; if Trim (ComboBoBox1.text) <> '' Then Begin Datasource1.DataSet: = adoQuery1; adoconnection1.loginprompt: = false; tryness; try = 'oleDb.4.0 * .mdb' Then Begin ADOConnection1.ConnectionString: = 'Provider = Microsoft.Jet.OLEDB.4.0; Data Source =' Edit1.Text '; Persist Security Info = False; Jet OLEDB: Database Password =' EdtPwd.Text ''; end else
if Trim (ComboBoX1.text) = 'SQL Server' Then // Require IP, Database Login Username and Password Begin Szpath: = '(Local)'; if Not InputQuery ('SQL Server', "Please enter you to connect SQL server name or IP local available (local) or 127.0.0.1 ', szpath) THEN EXIT; edit1.text: = trim (szpath); szpath: =' pubs '; if Not InputQuery (' Database Selection ',' Please enter The database name you want to open, such as: pubs', szpath) kiln = 'provider = sqloledb.1; password =' edtpwd.text '; persist security info = true; user id =' edtuser .Text '; Initial Catalog =' Szpath '; Data Source =' Edit1.Text '';
/
Adoconnection1.open; adoconnection1.gettablenames (listbox1.items); statusbar1.simpletext: = 'connection database success! '; EXCEPT Application.MessageBox (' connection database failed! ',' Error ', 0); ed; end; end; end; procedure tform1.bbtnexecsqlclick (sender: Tobject); begin if edtsql.text < > '' 'Ten Try AdoQuery1.close; adoQuery1.sql.clear; adoQuery1.connection: = adoconnection1; adoQuery1.sql.add (Pchar (Trim (Trim (Trim (Trim (Trim (Trim (Trim (Trim (Trim (EDTSQL.TEXT), 6 ) <> 'select' then ADOQuery1.ExecSQL else ADOQuery1.Open; ListBox1.Items.Clear; ADOConnection1.GetTableNames (Listbox1.Items); DataSource1.DataSet: = ADOQuery1; DBGrid1.DataSource: = DataSource1; except showmessage ( 'SQL command The syntax is incorrect, no successful execution! '); END;
procedure TForm1.ListBox1Click (Sender: TObject); begin if Listbox1.ItemIndex <> -1 then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.Connection: = ADOConnection1; ADOQuery1.SQL.Add (Pchar ( 'Select * from ' Listbox1.items [listbox1.itemindex] '; ')); try adoquery1.open; Except Application.MessageBox (' Data table has problems, no normal open! ',' Prompt ', 0); end; datasource1. DataSet: = adoquery1; dbgrid1.datasource: = Datasource1; End;
END;
Procedure tForm1.abouta1click (sender: TOBJECT); begin form2.showmodal;
End.
