不讓User在DbGrid下隨便新增資料的問題. 1.DBGrid下需新增資料 2.資料的來源是TQuery從一個資料表所Select出的 例如: No Name Da1 Da2 01 John AA 12 02 Jane AB 10 03 Mary CA 52 3.請問我要如何在新增的Button按下時能夠讓User 選擇要上述要新增的資料,然後按下確定的Button後 將資料新增至我所要存檔的TABLE中.

在form1按下button後 form2會跑出來  使用者選form2內的query1所篩選的record後 按確定後 form2關閉  所選的資料會加入form1上的table1中

在form1中
procedure TForm1.Button1Click(Sender: TObject);
begin
try
  form1:=tform1.create(application);
      form2.query1.close;
      form2.query1.sql.clear;
      form2.query1.sql.add('select no,name,da1,da2 from
      資料表  where no between 1 and 3');
      form2.query1.open;    
  form1.showMODAL;    
  finally
  form1.free;
end;
end;

在form2中 按下button確定鈕 procedure TForm2.Button1Click(Sender: TObject); begin form1.table1.insert; form1.table1.fieldbyname('no').asstring:= query1.fieldbyname('no').asstring; form1.table1.fieldbyname('name').asstring:= query1.fieldbyname('name').asstring; form1.table1.fieldbyname('da1').asstring:= query1.fieldbyname('da1').asstring; form1.table1.fieldbyname('da2').asstring:= query1.fieldbyname('da2').asstring; form1.table1.post; close; end; 「堅持」從洗馬桶做起 Aric 發表人 - huangeider 於 2003/11/10 12:23:14

不讓User在DbGrid下隨便新增資料的問題.    1.DBGrid下需新增資料    2.資料的來源是TQuery從一個資料表所Select出的 例如: No Name Da1 Da2 01 John AA 12 02 Jane AB 10 03 Mary CA 52     3.請問我要如何在新增的Button按下時能夠讓User 選擇要上述要新增的資料,然後按下確定的Button後 將資料新增至我所要存檔的TABLE中.    4.另外一個條件是新增時可能只有要新增No='02'的這一筆紀錄 我應該如何做?

1 當form2出現時在form2中正常下應有tdbgrid相連到query1 此時使用者就可以選擇要加入的record了 當按下確定後所新增的就是當時所選的record了 如選了no 為02的record再按確定button鈕後no 02那筆資料 就會新增到table1中 2 若要把程式寫死了,直接在用query1時作篩選no 為02的出來 不用show出form2直接就可以新增 3 若已知要新增的某筆代號 不用query篩選也可以用table 作if locate('no',02,[])=true的動作,把要選的資料找出來 再作新增 2跟3都可以在form1用一個button或元件作 「堅持」從洗馬桶做起 Aric