?? shujuku.pas
字號:
unit shujuku;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, ExtCtrls, Menus;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
OpenDialog1: TOpenDialog;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
DBGrid1: TDBGrid;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;
Button2: TButton;
ADOTable1: TADOTable;
ADOConnection1: TADOConnection;
xuanze: TButton;
dakai: TButton;
Button5: TButton;
Panel2: TPanel;
Splitter1: TSplitter;
ComboBox1: TComboBox;
Label5: TLabel;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Button3: TButton;
ADOConnection2: TADOConnection;
ADOTable2: TADOTable;
DBGrid2: TDBGrid;
ComboBox2: TComboBox;
Label9: TLabel;
DataSource2: TDataSource;
Label10: TLabel;
Edit8: TEdit;
procedure Button1Click(Sender: TObject);
procedure xuanzeClick(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Edit5KeyPress(Sender: TObject; var Key: Char);
procedure ComboBox2Change(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure dakaiClick(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOTable1.insertRecord([edit1.Text,edit2.Text,edit3.Text,edit4.Text])
end;
procedure TForm1.xuanzeClick(Sender: TObject);
var
str1,str2,str3:string;
begin
if ADOConnection1.Connected then ADOConnection1.Close;
if OpenDialog1.Execute then
begin
//Provider=Microsoft.Jet.OLEDB.4.0;Data Source=hyydb1.mdb;Persist Security Info=False
str1:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=';
str2:=openDialog1.FileName;
str3:= ';Persist Security Info=False';
ADOConnection1.ConnectionString:=str1+str2+str3;
ADOConnection1.GetTableNames(ComboBox1.Items);
end;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ADOTable1.Active then ADOTable1.Close;
ADOTable1.TableName:=ComboBox1.Items[ComboBox1.ItemIndex];
try
ADOTable1.Open;
except
ShowMessage('連接出錯啦!');
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
{
Provider=SQLOLEDB.1;Password=
sa
;Persist Security Info=True;User ID=
sa
;Initial Catalog=Northwind;Data Source=
127.0.0.1
}
if (edit5.text='') and (edit6.text='') and (edit7.Text='') then
ShowMessage('輸入信息有誤')
else
begin
if adoconnection2.Connected then ADOConnection2.Close;
ADOConnection2.ConnectionString:='Provider=SQLOLEDB.1;Password='
+edit7.Text+
';Persist Security Info=True;User ID= '
+edit6.Text+
';Initial Catalog='
+edit8.Text+
';Data Source= '
+edit5.Text;
ADOConnection2.GetTableNames(ComboBox2.Items);
end;
end;
procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0','1','2','3','4','5','6','7','8','9','.',#8]) then
key:= #0;
end;
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
ADOTable2.TableName:=ComboBox2.Items[ComboBox2.ItemIndex];
try
adotable2.open
except
showmessage('連接出錯')
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
ADOTable1.Close;
end;
procedure TForm1.dakaiClick(Sender: TObject);
begin
ADOTable1.Open;
end;
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
edit1.Text:=ADOTable1.Fields[0].AsString;
edit2.Text:=ADOTable1.Fields[1].AsString;
edit3.Text:=ADOTable1.Fields[2].AsString;
edit4.Text:=ADOTable1.Fields[3].AsString;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -