再問:如何取得把Object存入Database的Sample Code |
尚未結案
|
naposhao
初階會員 發表:18 回覆:38 積分:31 註冊:2002-10-13 發送簡訊給我 |
|
naposhao
初階會員 發表:18 回覆:38 積分:31 註冊:2002-10-13 發送簡訊給我 |
敬告各位同志: 本人多謝William提供的資料,已掌握了初步的重點。 以下是成功把Components放在database的例子。 unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables; type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
ttt: TTable;
DataSource1: TDataSource;
tttNbr: TAutoIncField;
tttB: TBlobField;
Button2: TButton;
FontDialog1: TFontDialog;
procedure Button1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button2Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
procedure Label1DblClick(Sender: TObject);
private
{ Private declarations }
K:TBLOBstream;
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); // 由db讀回Component
begin
ttt.edit;
K := TBLOBstream.Create(tttB, bmReadWrite);
K.ReadComponent(Label1);
K.Free;
end; procedure TForm1.FormActivate(Sender: TObject);
begin
ttt.Open;
end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if ttt.State in [dsEdit, dsInsert] then ttt.post;
ttt.Close;
end; procedure TForm1.Button2Click(Sender: TObject); // 把Component寫到db
begin
ttt.Edit;
K := TBLOBstream.Create(tttB, bmReadWrite);
K.WriteComponent(Label1);
K.Free;
end; procedure TForm1.Label1Click(Sender: TObject);//試驗把component改變
begin
if Label1.Caption = 'Label1'
then Label1.Caption := 'Label2'
else Label1.Caption := 'Label1';
end; procedure TForm1.Label1DblClick(Sender: TObject);//試驗把component改變
begin
if FontDialog1.Execute then begin
Label1.Font := FontDialog1.Font;
end;
end; end.
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |