社区
Delphi
帖子详情
DBGrid与PopupMenu菜单结合问题,帮忙谢谢.
santafeng
2003-08-22 03:00:15
现在DBGrid没有数据部分可以调用PopupMenu菜单,但我想有数据的时候调用另一PopupMenu菜单.功能有设置密码,删除,重命名,属性,帮助,
在点没有数据部分时候PopupMenu菜单功能有,新用户,刷新,帮助
具体怎么实现,谢谢各位.
...全文
27
4
打赏
收藏
DBGrid与PopupMenu菜单结合问题,帮忙谢谢.
现在DBGrid没有数据部分可以调用PopupMenu菜单,但我想有数据的时候调用另一PopupMenu菜单.功能有设置密码,删除,重命名,属性,帮助, 在点没有数据部分时候PopupMenu菜单功能有,新用户,刷新,帮助 具体怎么实现,谢谢各位.
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
liuyangxuan
2003-08-22
打赏
举报
回复
给点分吧。
liuyangxuan
2003-08-22
打赏
举报
回复
在:Procedor TForm.FormGreat
begin...
end;
santafeng
2003-08-22
打赏
举报
回复
to cxreal(夜晚的猪) ( )
你写的代码在那个事件上面写啊?
cxreal
2003-08-22
打赏
举报
回复
dbgrid1.popupmenu:=nil;
if dbgrid1.datasource.dataset.recordcount > 0 then
dbgrid1.popupmenu:=popupmenu1
else
dbgrid1.popupmenu:=popupmenu2;
Delphi如何一次删除
db
grid
多条记录的例子.rar
Delphi演示如何一次删除网格数据表
db
grid
中的多条记录,小技巧不过挺实用,希望对大家的Delphi编程有所帮助。以下是实现一次删除多条记录的相关代码供参考: if
DB
Grid
1.SelectedRows.Count >1 then s:= '真的要删除这些记录吗?'; if Application.MessageBox (Pchar(s),'删除多条记录',mb_iconinformation mb_yesNo)=idYes then begin
DB
Grid
1.DataSource.DataSet.DisableControls ; i:=0; While i<=
DB
Grid
1.SelectedRows.Count -1 do begin
DB
Grid
1.DataSource.DataSet.Bookmark:=
DB
Grid
1.SelectedRows.Items[i]; //重要在这里取得bookmark TempBookmark :=
DB
Grid
1.Datasource.Dataset.GetBookmark;
DB
Grid
1.DataSource.DataSet.GotoBookmark(TempBookMark);
DB
Grid
1.DataSource.DataSet.Delete ;
DB
Grid
1.DataSource.DataSet.FreeBookmark (TempBookMark); Inc(i); end;
DB
Grid
1.DataSource.DataSet.EnableControls; end; 更多代码请您在本页面下载源码。
Delphi读入数据到
DB
Grid
并向Word中插入表格.rar
Delphi7.0读入数据到
DB
Grid
并向Word中插入表格,其实就是Delphi向Word中插入表格,测试数据由Delphi从SQLSERVER中读取,然后放入
DB
Grid
中,再将
DB
Grid
网格中的数据通过Word转换成表格。 begin if TString
Grid
(
DB
Grid
1).RowCount>0 then begin //创建一个word对象 wordApp:=CreateOleObject('Word.Application'); wordApp.Visible:=true; //创建一个word文档 wordDoc:=wordApp.Documents.Add(); wordDoc.Select; wrdSelection:=wordApp.selection; //创建一个表格 wordDoc.Tables.Add(wrdSelection.Range,ADOQuery1.RecordCount 1,
DB
Grid
1.FieldCount,2,0); for i:=1 to
DB
Grid
1.FieldCount do //设置首行的字体为粗体 begin wordDoc.Tables.Item(1).Cell(1,i).Range.Bold:=true; wordDoc.Tables.Item(1).Cell(1,i).Range.InsertAfter(
DB
Grid
1.Columns[i-1].Field.FieldName); end;
DB
Grid
1.DataSource.DataSet.First; //当前行为首行 for y:=2 to ADOQuery1.RecordCount 1 do //向表中添加数据 begin for i:=1 to
DB
Grid
1.FieldCount do wordDoc.Tables.Item(1).Cell(y,i).Range.InsertAfter(
Db
Grid
1.Fields[i-1].NewValue);
DB
Grid
1.DataSource.DataSet.Next; //下一行 end; end else showmessage('T
DB
Grid
表中无数据,不能向Word中插入表格。') end;
unigui-
db
grid
标准按钮-加序号 sqlite.rar
unigui-
db
grid
标准按钮-加序号 sqlite.rar
精彩编程与编程技巧-在运行时维护
DB
GRID
的栏位宽度...
精彩编程与编程技巧-在运行时维护
DB
GRID
的栏位宽度 ...
Delphi 改变
DB
grid
控件选中时的单元格颜色.rar
Delphi 改变
DB
grid
控件选中时的单元格颜色,一般在默认状态下,
DB
grid
在行被选中时是深蓝色的,本程序将改变这个深蓝色为用户自定义颜色。操作方法很简单:当选中
DB
grid
任意行时,点击上部的任意颜色值,此时就已经将
DB
Grid
控件的选中行颜色改变为用户选中的颜色。
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章