如何解除及鎖定ADOTable1的資料 |
尚未結案
|
sexy613
一般會員 發表:15 回覆:24 積分:7 註冊:2002-12-30 發送簡訊給我 |
|
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
|
sexy613
一般會員 發表:15 回覆:24 積分:7 註冊:2002-12-30 發送簡訊給我 |
|
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, StdCtrls, Mask, DBCtrls, ExtCtrls; type TForm1 = class(TForm) DBNavigator1: TDBNavigator; DBEdit1: TDBEdit; Table1: TTable; DataSource1: TDataSource; procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn); procedure DataSource1StateChange(Sender: TObject); private CanEdit : Boolean; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn); begin CanEdit := Button in [nbInsert,nbEdit]; end; procedure TForm1.DataSource1StateChange(Sender: TObject); begin if not CanEdit and (Table1.State in [dsEdit,dsInsert]) then Table1.Cancel; end; end.我是用 TTable 但轉成 ADOTable 是一樣的 |
sexy613
一般會員 發表:15 回覆:24 積分:7 註冊:2002-12-30 發送簡訊給我 |
SORRY 我還是不太清楚耶 以下的指令 不了解的地方是 : 一、 我不是用DBNaviator的元件 我是用ToolButton 建立 上一筆 下一筆
新增 移除 等的按鍵 。 所以我不知道要在哪加入以下的指令 : procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
CanEdit := Button in [nbInsert,nbEdit];
end; 二、 我有再DataSource 裡打入以下的程式碼 可是它有偵測出錯誤 她不認
是 CanEdit這個指令耶 。 procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
if not CanEdit and (ADOTable1.State in [dsEdit,dsInsert]) then
ADOTable1.Cancel; end; 所以懇請大大再次幫幫我著個可憐的新手 拜託拜託 多謝 !
|
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
|
sexy613
一般會員 發表:15 回覆:24 積分:7 註冊:2002-12-30 發送簡訊給我 |
我又要說聲Sorry la 因為我的程式又有問題了 現在有關瀏覽鍵的上一筆 下一筆 以及 編輯鍵的 新增 刪除 都沒問題 但是 唯讀 儲存鍵有問題啊 請大大幫我看一下 在幫我一次 以下是我的程式碼: 這是儲存鍵的程式碼:
procedure TForm1.ToolButton7Click(Sender: TObject);
begin
CanEdit := True;
IF ADOTable1.State=dsEdit Then
ADOTable1.Post;
end; 這是新增鍵的程式碼:
procedure TForm1.ToolButton5Click(Sender: TObject);
begin
CanEdit := True;
ADOTable1.Insert;
end; 這是在DataSource1下的程式碼:
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
if not CanEdit and (ADOTable1.State in [dsEdit,dsInsert]) then
ADOTable1.Cancel; end; 拜託大大再次幫幫我 THANK U VERY MUCH !
|
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
|
mustapha.wang
資深會員 發表:89 回覆:409 積分:274 註冊:2002-03-13 發送簡訊給我 |
|
sexy613
一般會員 發表:15 回覆:24 積分:7 註冊:2002-12-30 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |