当前位置: 首页 > 图文教程 > 开发语言 > Delphi > Delphi中数据网格DBGrid应用
Delphi中数据网格DBGrid应用
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-30 浏览: 58 :: 
收藏到网摘:
n/a
一、DBGrid中的下拉列表
在DBGrid网格中实现下拉列表，设置好DBGrid中该字段的PickList字符串列表、初始的序号值DropDownRows即可。以职工信息库中的籍贯字段（字符串类型）为例，具体设计步骤如下：
1、在窗体上放置Table1、DataSource1、DBGrid1、DBNavigator1等控件对象，按下表设置各个对象的属性:
| 对象 | 属性 | 设定值 | | Table1 | DataBase | sy1 | | TableName | zgk.dbf | //职工信息库 | | DataSource1 | DataSet | Table1 | | DbGrid1 | DataSource | DataSource1 | | DBNavigator1 | DataSource | Datasource1 |
2、双击Table1
在弹出的Form1.Table1窗口中，用右键弹出快捷菜单，单击AddFields菜单项；选择所有的字段后，按OK按钮。
3、修改第2步新增字段的DisplayLabel属性。以Table1ZGBH字段为例，在ObjectInspector窗口中选择Table1ZGBH
修改属性DisplayLabel=职工编号，其余字段类似。
4、双击DBGrid1
在弹出的Editing DBGrid1.Columns窗口中，单击AddallFields按钮，增加Table1的所有字段。
5、在EditingDBGrid1.Columns窗口，选择jg这一行，切换到ObjectInspector窗口，修改它的PickList.Strings为“湖北枝江市、北京市、河南平顶山市、浙江德清市”
6、在Form1.Oncreate事件中写 入语句：
Table1.Open;
7、F9运行，用鼠标点击某个记录的籍贯字段，右边即出现一个按钮，点击这个按钮，可出现一个下拉列表，包含第5步中输入的四行字符串，可用鼠标进行选择。当然也可以自行输入一个并不属下拉列表中的字符串。
二、DBGrid中的查找字段
所谓查找字段(LookUpField)，即DBGrid 中的某个关键字段的数值来源于另外一个数据库的相应字段。运用查找字段技术，不仅可以有效的避免输入错误，而且DBGrid的显示方式更为灵活，可以不显示关键字段，而显示源数据库中相对应的另外一个字段的数据。
例如，我们在DBGrid中显示和编辑职工信息，包括职工编号、职工姓名、籍贯、所在单位编号，而单位编号来源于另一个数据库表格——单位库，称“单位编号”为关键字段。如果我们直接显示和编辑单位编号的话，将会面对1、2、3等非常不直观的数字，编辑时极易出错。但是如果显示和编辑的是单位库中对应的单位名称话，将非常直观。这就是DBGrid的所支持的查找字段带来的好处。
实现DBGrid的查找字段同样不需要任何语句，具体设计步骤如下：
1、在窗体上放置Table1、Table2、DataSource1、DBGrid1、DBNavigator1等控件对象，按下表设置各个对象的属性:
| 对象 | 属性 | 设定值 | | Table1 | DataBase | sy1 | | TableName | zgk.dbf | //职工信息库 | | Table2 | DataBase | sy1 | | TablenAME | dwk.dbf | //单位信息库 | | DataSource1 | DataSet | Table1 | | DbGrid1 | DataSource | DataSource1 | | DBNavigator1 | DataSource | Datasource1 |
2、双击Table1
在弹出的Form1.Table1窗口中，用右键弹出快捷菜单，单击AddFields菜单项；选择所有的字段后，按OK按钮。
3、修改第2步新增字段的DisplayLabel属性。以Table1ZGBH字段为例，在ObjectInspector窗口中选择Table1ZGBH
修改属性DisplayLabel=职工编号，其余字段类似。
4、设置Table1DWBH.Visible=False。
5、在Form1.Table1窗口，用右键弹出快捷菜单，单击NewField菜单项，新增一个查找字段DWMC，在弹出的窗口设置相应的属性
按OK按钮确认；在ObjectInspector窗口，设置Table1DWMC.DisplayLabel=单位名称。
6、在Form1.Oncreate事件中写 入语句：
Table1.Open;
7、按F9运行，当光标移至某个记录的单位名称字段时，用鼠标点击该字段，即出现一个下拉列表，点击右边的下箭头，可在下拉列表中进行选择。在这里可以看出，下拉列表的内容来自于单位信息库，并
|
|
繁體中文
评论 (0) 