L
linger_2
Unregistered / Unconfirmed
GUEST, unregistred user!
我想做两个按钮，全部选中Dbgrid的数据，然后点击全部删除则全部记录被从数据库内删除，请问该如何实现？
有没有现成的代码可以copy一下啊？[
]
有没有现成的代码可以copy一下啊？[
]
您正在使用一款已经过时的浏览器！部分功能不能正常使用。
请尝试升级或使用 其他浏览器。
请尝试升级或使用 其他浏览器。
D
dongberlin
Unregistered / Unconfirmed
GUEST, unregistred user!
你可以不用全部选中DBGrid的数据.
你可以用Delete from TableName就可以删除所记录.
你可以用Delete from TableName就可以删除所记录.
S
sword_liu
Unregistered / Unconfirmed
GUEST, unregistred user!
如果是删除的话，要从数据库里把资料清空就可以了。
X
X-man
Unregistered / Unconfirmed
GUEST, unregistred user!
用一个循环把选中的记录delete不就得啦!
Z
zhihuali
Unregistered / Unconfirmed
GUEST, unregistred user!
2:
procedure TForm1.Button1Click(Sender: TObject);
begin
with DBGrid1.DataSource.DataSet do
begin
DisableControls;
First;
while not Eof do
begin
Delete;
end;
EnableControls;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
with DBGrid1.DataSource.DataSet do
begin
DisableControls;
First;
while not Eof do
begin
Delete;
end;
EnableControls;
end;
end;
B
blue_morning
Unregistered / Unconfirmed
GUEST, unregistred user!
选择全部按钮用循环把DBGrid的Selected状态设为True.
删除按钮则去删除数据表
删除按钮则去删除数据表
B
blue2000
Unregistered / Unconfirmed
GUEST, unregistred user!
同意Blue_morning，不过要设multiselected:=true;
L
linger_2
Unregistered / Unconfirmed
GUEST, unregistred user!
zhihuali, 你的代码为什么在我这里不能运行呢？
bluemorning,我不是删除表而是清空表内的数据
bluemorning,我不是删除表而是清空表内的数据
Z
zhihuali
Unregistered / Unconfirmed
GUEST, unregistred user!
我刚试了一下，是可以的，不过可能你是用 QUERY 吧，如果是这样，
要把 RequestLive:=True;同时在QUERY查询中也有一些限制，比如不能
用 GROUP BY，ORDER BY 等等。
要把 RequestLive:=True;同时在QUERY查询中也有一些限制，比如不能
用 GROUP BY，ORDER BY 等等。
雁
雁孤行
Unregistered / Unconfirmed
GUEST, unregistred user!
table1.empty;
M
maming
Unregistered / Unconfirmed
GUEST, unregistred user!
这样不好，大家想，如果当前只显示了10条，而我只想删除这10条的话，大家的见意就不对了，
用这个办法，dbgrid.selectrows方法，很好用，就是一个Tbookmark,
先让当前显示的加进selectrows,然后就可以删除一，你看一下selectrows的help吧！有例子。
用这个办法，dbgrid.selectrows方法，很好用，就是一个Tbookmark,
先让当前显示的加进selectrows,然后就可以删除一，你看一下selectrows的help吧！有例子。
L
linger_2
Unregistered / Unconfirmed
GUEST, unregistred user!
恩，我还想做一个全部选中的按钮该如何实现呢？
J
jqw
Unregistered / Unconfirmed
GUEST, unregistred user!
use Ehlib 's DBGridEh
L
linger_2
Unregistered / Unconfirmed
GUEST, unregistred user!
哪位仁兄可以说的详细一点啊？
555，我听的是云里雾里啊
555，我听的是云里雾里啊
Z
zealots
Unregistered / Unconfirmed
GUEST, unregistred user!
用ip的 wwdbgrid,
先加一个整型的计算字段如 selected，
把指向wwdbgrid的数据集打开，
然后双击wwdbgrid，在Selected Files 中选中 selected 字段，点击 Edit Contorl页面，
选择CheckBox，在把下面的yes改为1 no 改委0
最后写事件：---全选
procedure TForm1.Button1Click(Sender: TObject);
begin
wwdbgrid1.SelectedList.clear;
wwdbgrid1.SelectAll;
end;
先加一个整型的计算字段如 selected，
把指向wwdbgrid的数据集打开，
然后双击wwdbgrid，在Selected Files 中选中 selected 字段，点击 Edit Contorl页面，
选择CheckBox，在把下面的yes改为1 no 改委0
最后写事件：---全选
procedure TForm1.Button1Click(Sender: TObject);
begin
wwdbgrid1.SelectedList.clear;
wwdbgrid1.SelectAll;
end;
Z
zealots
Unregistered / Unconfirmed
GUEST, unregistred user!
要全部删除更简单，
Query1.sql.Clear;
Query1.sql.Add('delect 表名');
Query1.ExecSQL;
Query1.sql.Clear;
Query1.sql.Add('delect 表名');
Query1.ExecSQL;
L
linger_ok
Unregistered / Unconfirmed
GUEST, unregistred user!
恩
L
linger_2
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
Similar threads
- 回复
- 4
- 查看
- 4K