ADO主從表該如何操作,如新增、修改、刪除? |
尚未結案
|
lovelvye
一般會員 發表:5 回覆:10 積分:3 註冊:2003-03-17 發送簡訊給我 |
|
Mickey
版主 發表:77 回覆:1882 積分:1390 註冊:2002-12-11 發送簡訊給我 |
|
ticky
初階會員 發表:35 回覆:69 積分:25 註冊:2002-11-12 發送簡訊給我 |
剛好我是新新手 procedure TForm1.Button1Click(Sender: TObject);
begin
ADOTable1.First; //第一筆
end; procedure TForm1.Button4Click(Sender: TObject);
begin
ADOTable1.Last; //最後筆
end; procedure TForm1.Button2Click(Sender: TObject);
begin
If ADOTable1.Bof then
ADOTable1.First //上一筆
else
ADOTable1.Prior;
end; procedure TForm1.Button3Click(Sender: TObject);
begin
IF ADOTable1.Eof then //下一筆
ADOTable1.Last
else
ADOTable1.Next;
end; procedure TForm1.Button5Click(Sender: TObject);
begin
ADOTable1.Append; //新增
ADOTable1.Post;
end; procedure TForm1.Button6Click(Sender: TObject);
begin
close; //離開
end; procedure TForm1.Button9Click(Sender: TObject);
var Found:Boolean;
begin
Found:=ADOTable1.Locate('mm_sn',Edit1.Text,[loPartialKey]);
if Found=False
then showMessage('找不到編號')
end; procedure TForm1.Button10Click(Sender: TObject);
begin
ADOTable1.Delete; //刪除
end; procedure TForm1.Button11Click(Sender: TObject);
begin
ADOTable1.Edit; //修改
ADOTable1.Post;
end; end. 您就像個小孩子,世界上最遙遠的愛情就是我在你面前你卻不知道我愛你(小懷子)
|
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
|
lovelvye
一般會員 發表:5 回覆:10 積分:3 註冊:2003-03-17 發送簡訊給我 |
|
JamesLiang
初階會員 發表:54 回覆:78 積分:31 註冊:2003-02-13 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |