---------------------------个小问题!!!

Question

我已经实现了mdi子窗体的动态添加、修改，
现在最好做的删除确不会做了，我想实现的是：点击主窗体上的添加　删除　修改　能对当前打开并激活的子窗体进行操作
添加修改是这样实现的：当前打开form 一点添加就打开form1(做好的)
是用这个过程实现的
procedure  Tmainform.ShowForm(str:string);
var
   fmname:TForm;
begin
   if  GetClass(str)  <>nil  then
     begin
         fmname:=TFormClass(FindClass(str)).Create(self);
         fmname.showmodal;
   end;
end;在form1里有一个确定 按钮 一点确定就：
procedure Tcangkuform1.Button1Click(Sender: TObject);
begin
if mainform.flag='1' then  //添加
  begin
    if cangkumc.text='' then
    ShowMessage('仓库名不能为空!')
    else
    begin
      dm.DataModule1.cangku_table.edit;
      dm.DataModule1.cangku_table.append;
      dm.DataModule1.cangku_table.fieldbyname('cangkumc').asstring:=cangkumc.text;
      dm.DataModule1.cangku_table.post;
    end;
  end;
if mainform.flag='2' then  //修改
  begin
     dm.DataModule1.cangku_table.Edit ;
     dm.DataModule1.cangku_table.FieldByName('cangkumc').AsString:= cangkumc.Text ;
     dm.DataModule1.cangku_table.Post;
     close;
  end;
end;而删除怎么做？begin
if messagedlg('确定要删除记录？',mtinformation,[mbno,mbyes],0)=mrYes
then
begin
dm.datamodule1.str.Edit ;
dm.datamodule1.str.delete;
end;
是用这个吧 但如何动态实现呀？

Answer 1

是删除记录吗
你的就行呀
或者sql语句

Answer 2

回复人： frjfanding1234() ( ) 信誉：98  2004-09-08 10:17:00  得分: 0  回复人： frjfanding123() ( ) 信誉：94  2004-09-08 11:48:00  得分: 0

Answer 3

是这样的，我有两个号，一个frjfanding123 一人个frjfanding1234
我用一个号问，有人答对就把分全给他　一般的人不给分　
如何都没回答对就自己用另一个号收分，这样就不行？

Answer 4

hehe
你的信誉分少了是因为我投诉你了
上次你的一个相同的问题开了3、4个帖子，其中前2、3个最后都自己把分收回去了。最后一个给了一个给你原来帖子链接的和一个来接分的。你觉得这样的方式合适么？不说你的问题其实没多么复杂，很多人都给了你思路，就差没一句一句给你写出来了。光算你这么没礼貌的到处发贴扰人耳目，最后你就好意思搞明白了自己拿分走掉？这样的态度让别人怎么有心情关心你的问题呢？
如果你的问题真的得不到满意回答，可以转到灌水区把分给掉（这样不会增加得分者的专家分），但是不要自己收回去了，别人顶顶贴也是对你的关心啊。如果你真的可用分那么紧张，我可以给你一点。