cashxin2002
版主
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](http://delphi.ktop.com.tw/download.php?download=upload/4800378c02ded_Xin.jpg) 發表:231 回覆:2555 積分:1937 註冊:2003-03-28
發送簡訊給我
|
您好! 當然是需要有資料集元件(如Table, Query, ADOTable, ADOQuery等等)來擷取資料表啊! 無論是再小的資料庫, 只要是對其有擷取, 異動, 存儲的動作, 皆要使用資料集元件. 參考看看! =====================
努力,相信會獲得美麗!
忻晟
------ 忻晟
|
P.D.
版主
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](http://delphi-ktop-com-tw.my-hot.com/download/upload/4d3347caa4141_pdlogo.jpg) 發表:603 回覆:4038 積分:3874 註冊:2006-10-31
發送簡訊給我
|
引言:
開啟資料庫OR資料表,非得用TABLE,QUERY元件嗎?有沒有直接一點的方式?
因為有時只是要開一個小小資料表來取得基本資料,或簡單比對,但是卻也要
拉一個TABLE元件,不打緊,還要設定連絡等等,很不方便,有沒有像
USE TABLENAME這類或其他方式,方便一點的?請高手來解答一下,新手白吃問
,多包涵~ ~*呂政全*~
>>< face="Verdana, Arial, Helvetica"> 早期使用DOS DATABASE 沒有物件觀念, 所以一切都是以 COMMAND 來實現, 到
了WINDOW時代, OOP, 物件導向, 事件驅向行為取代了原有DOS的做法, 所以都要
以物件來處理, 但並不一定要拉一個物件才可以讀檔, 你還是可以寫程式來做
其實如果你去查 USE 的用法(INCLUDE 宣告), USE 也不是一行指令完成的, 所
以你可以把開檔的程式寫成一個FUNCTION, 以下是一個沒有直接在FORM上建立 TTable, TDataSoruce 可以開檔的範例(但仍是引用BDE的功能)
1.建一個 DBGRID1, 及兩個BUTTON
unit Unit1; interface uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, Grids, DBGrids, DBTables; type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
newTable: TTable;
newDSource: TDataSource;
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject);
begin
newTable:= TTable.Create(self);
newDSource:= TDataSource.Create(self);
newDSource.DataSet:= newTable;
DBGrid1.DataSource:= newDSource;
newTable.DatabaseName:= 'D:\DELPHI\MOTOAIR';
newTable.TableName:= 'OTHERSYS.DB';
newTable.Open;
end; procedure TForm1.Button2Click(Sender: TObject);
begin
newTable.Close;
end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
newTable.Free;
end; end. 你可以應用這樣的方式, 把TTable變成一個function來call, 提供你參考
|