用DbGrid制作edit录入时的下拉提示框

最新推荐文章于 2020-05-09 10:26:48 发布
最新推荐文章于 2020-05-09 10:26:48 发布
阅读量1.1k 收藏 2
点赞数
分类专栏： Delphi 文章标签： table delphi dataset integer 数据库 程序开发
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/y0617/article/details/312346
版权
　 　 http://www.week5.net 　 2004年12月01日 　

在Delphi语言中提拱了不少数据输入的方法,如可从数据库中选择或人工输入的控件有:DBListBox、DBComboBox、DBLookupListBox、DBLookupComboBox等。但对于这样一个例子:数据库名为dm.db,其中有两个字段:
    代码:Code
    名称:Name
要求根据用户输入的代码,去获取该代码对应的名称。
 
    一般的用户并不知道代码和名称的对应关系,如让用户输入代码,选出对应的名称,由于上述的控件不能使操作人员看到代码和名称的对应关系,如让用户根据代码用下拉框去查找到对应的该条纪录的名称,将很难操作。
 
    根据这种情况,我编制了下面程序,把DBGrid做为Edit的下拉列表框辅助操作,在DBGrid中直观地显示出代码和名称的对应关系,并且能够根据用户录入代码的变化情况,随时更新DBGrid中的记录指针,使用户可以直观方便地点取所需要的名字,而且DBGrid是依据用户在Edit中输入代码时才显现,跳出Edit框即消失。这种方法既为用户录入提供了方便,又不影响界面的整体美观,效果不错。现把该程序提供给大家,你们可根据自己的需要,对程序进行加工处理,应用于程序开发中,希望起到抛砖引玉的作用。
 
【问题】：做这样一个小程序:让用户输入代码,然后将名称显示在窗体上。
 
1、首先我们可以建立一个Form,在此Form中增加控件:
最低0.47元/天 解锁文章
y0617
关注
  • 0
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
DBGrid(下拉框外部数据)
暴风的专栏
05-12 538
procedure Tyw_bjgl_new_fm.DBGridEh1MouseDown(Sender: TObject;  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);  var  strcpbh:string;  begin  strcpbh:=dbgrideh1.Columns.Items[0].DisplayText; 
delphi中实现dbgrid数据的显示随edit文本框的内容而选中
yongyuanbutao123的专栏
01-29 1056
procedure TForm1.Edit1Change(Sender: TObject); begin ClientDataSet1.Locate('班级编号',trim(edit1.Text),[lopartialkey]); end;
DBGRID中实现下拉列表
懒猫的专栏
02-27 1810
技巧之一： 在DBGrid 中实现类DBComboBox列表方法要实现的功能：在DBGrid网格中输入字段时，单击字段可出现一个下拉列表(类似于DBComboBox），用户可从中选择需要的字段内容，列表框中是固定的几个选项如男、女等。实现方法举例：假如数据表中有一个“性别”字段，我们让这个字段具有下拉列表功能。在窗体上放置Table、DataSource、DBGrid组件各一个，将三者搭配起来，
Delphi在DBGrid中插入下拉组合框
06-26
Delphi2007典型开发实例--在DBGrid中插入下拉组合框源代码！
用Delphi实现百度下拉框例子（下拉内容来至数据库）
10-15
这是一个带源码的Demo,下载即可用,点里面的Exe文件可以看效果
Delphi编辑框自动提示完成功能
无幻
04-01 8029
最近在想要使用当鼠标进入编辑框，或者在编辑框输入某个字符就会在编辑框上面或者下面弹出可参考输入内容，就像谷歌搜索框一样，如下图所示： 要想完成这个功能，就必须得需要shell32.dll的支持，涉及到Shell外壳编程，在参考《Delphi深度探索》一书中的《实现AutoC
在DBGrid表格控件中实现下拉表格控件
xiongmao000738
11-26 4506
一、DBGrid网格处理的原理         Delphi提供了功能强大的DBGrid组件，以方便进行数据库应用程序设计。但是如果我们仅仅利用DBGrid组件，每一个获得焦点（Grid）只是一个简单的文本编辑框，不方便用户输入数据。Delphi也提供了一些其他数据组件来方便用户输入，比如DBComboBox，DBCheckBox等组件，但这些组件却没有DBGrid功能强大。
DBGrid 添加下拉列表控件
12-09
1.QQ:513187410 2.保证无毒 3.简单,方便,实用 4.实例可以自行改用 5.如有非法,本人无法律责任,由改动代码人负责！ 6.需要更多本人作品,查找标签“朱建强” 7.请下载,杀毒后再使用！
C1TrueDBGrid以C1TrueDBDropdown显示下拉列表过滤（代码可用）
04-14
5. 处理FilterChanged事件：当用户选择下拉列表中的值时，需要捕获FilterChanged事件，更新Grid的过滤条件。 下面是一个简单的C#代码示例，演示如何实现这一功能： ```csharp using C1.Win.C1TrueDBGrid; using C1...
可以添加下拉选择框的文本输入框
07-03
在一些文字模板中，一些关键字的内容是固定的几种,为了方便输入，可以将关键字内容设置成可选择下拉框，再把其可能值添加为下拉框列表内容，以后再录入时，直接选择就可以了
自动显示下拉列表框
05-29
通过Edit实现像百度一样，录入时自动显示相配的提示下拉框。
delphi写ComboBox下拉DBGrid第三方控件的例子
01-18
然后，设置TcxComboBox的DropdownGrid属性为一个新的TcxDBGrid实例，这样下拉时就会显示这个DBGrid。 对于TcxDBGrid，我们可以定制列宽、样式、排序等功能，以适应数据的显示需求。通过绑定Fields到Grid的Columns，...
使用没有连接到数据库的 DBGrid 演示.zip_dbgrid
09-20
然而，在"使用没有连接到数据库的 DBGrid 演示.zip"这个示例中，我们看到的是一个不依赖于直接数据库连接的 DBGrid 使用方法。 首先，FORM1.FRM 和 FORM1.FRX 文件是 Delphi 中窗体（Form）的设计和实现代码。FORM1...
利用devexpress的gridLookUpEdit制作多选下拉框带过滤
包子大叔的笔记
05-09 2710
先写一个 GridCheckMarksSelection 类 class GridCheckMarksSelection { #region Fileds RepositoryItemGridLookUpEdit _currentRepository; protected ArrayList selection; protected String checkColumnFieldName = "CheckMarkSelecti
使cxgrid中某列下拉列表自动下拉
9807146wang的专栏
02-01 1993
Grid_infoDBTableView1.DataController.FocusedRowIndex:= self.Grid_infoDBTableView1.DataController.RowCount;   Grid_infoDBTableView1.Controller.FocusedColumnIndex :=4;   Grid_info.SetFocus;   Grid_in
delphi dbgrid下拉选择
最新发布
07-09
在Delphi中，DBGrid没有内置的下拉选择功能。但是我们可以通过一些技巧来实现下拉选择。 一种常见的方法是创建一个隐藏的ComboBox组件，并将其放置在DBGrid上方。当用户单击需要进行下拉选择的单元格时，我们可以根据单元格的位置和数据源获取该单元格对应的数据，然后将数据填充到ComboBox中并显示。 当用户选择下拉列表中的某个选项时，我们可以通过ComboBox的OnChange事件来更新DBGrid单元格的值，并将ComboBox隐藏起来。 下面是一个简单的示例代码： ```delphi unit MainForm; interface uses // 其他引用的单元 type TForm1 = class(TForm) DBGrid1: TDBGrid; ComboBox1: TComboBox; DataSource1: TDataSource; // 其他声明的组件和数据源 procedure DBGrid1CellClick(Column: TColumn); procedure ComboBox1Change(Sender: TObject); private { Private declarations } procedure ShowComboBox; procedure HideComboBox; procedure FillComboBox(AColumn: TColumn); procedure UpdateDBGridValue(AColumn: TColumn); public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.DBGrid1CellClick(Column: TColumn); begin if Column.Field.DataType = ftString then begin FillComboBox(Column); ShowComboBox; end; end; procedure TForm1.ComboBox1Change(Sender: TObject); begin UpdateDBGridValue(DBGrid1.SelectedField as TColumn); HideComboBox; end; procedure TForm1.ShowComboBox; begin ComboBox1.Visible := True; ComboBox1.SetBounds(DBGrid1.Left + DBGrid1.Columns[DBGrid1.SelectedIndex].Width + 1, DBGrid1.Top + DBGrid1.RowHeights[0] * (DBGrid1.SelectedField.Index + 1), DBGrid1.Columns[DBGrid1.SelectedIndex].Width, DBGrid1.RowHeights[0]); ComboBox1.BringToFront; end; procedure TForm1.HideComboBox; begin ComboBox1.Visible := False; end; procedure TForm1.FillComboBox(AColumn: TColumn); var i: Integer; begin ComboBox1.Clear; // 根据数据源填充ComboBox内容 if AColumn.Field.DataSet.Active then begin AColumn.Field.DataSet.First; while not AColumn.Field.DataSet.Eof do begin ComboBox1.Items.Add(AColumn.Field.AsString); AColumn.Field.DataSet.Next; end; end; end; procedure TForm1.UpdateDBGridValue(AColumn: TColumn); begin if (AColumn.Field.DataType = ftString) and (DBGrid1.SelectedField = AColumn) then begin AColumn.Field.Value := ComboBox1.Text; end; end; end. ``` 需要注意的是，这只是一个简单的示例代码，实际中还涉及更多的细节和逻辑处理。通过以上方法，我们就可以在Delphi中实现DBGrid的下拉选择功能。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值