请问如在dbgrid某一栏中加上check组件?来表示逻辑型的值.
解决方案 »
- 类型转换
- 谁用过PowerTCP Emulation for ActiveX的VT Control终端显示控件,没发显示中文啊,求救。
- Delphi写的DLL如何按别名导出函数
- s:=tstrings.Create; SetStrProp(s,'text', 'the text'); 这样为什么不可以???????????????
- 请问怎样创建ActiveX控件的接口属性?????????????????????????????????????????
- 怎样才能让toolbar可以拖动到窗体的任意位置
- cobi(我是小心,我只有五岁):你好,我有一个很小的程序,实现不了查询的功能,帮我看看吧!
- BDE能同时维持多少个BDE会话期间呢??(既,同时能建立几个对specific database的联结
- paradox有没有象access的自动编号功能吗?
- 5-1我还在工作谁能帮帮我,一个SQL书记快速导入导出的方法
- 靠!今天登录验证码是:11111,不说了散分。
- [求助]Delphi7要如何根据某字段值改变其他字段值呢?
在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窗口中,单击AddallF ds按钮,增加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运行,当光标移至某个记录的单位名称字段时,用鼠标点击该字段,即出现一个下拉列表,点击右边的下箭头,可在下拉列表中进行选择。在这里可以看出,下拉列表的内容来自于单位信息库,并且不能输入其他内容。
三、DBGrid中的下拉列表和查找字段的区别
虽然DBGrid中的下拉列表和查找字段,都是以下拉列表的形式出现的,但两者有很大的差别。
1、用PickList属性设置的下拉列表,它的数据是手工输入的,虽然也可以在程序中修改,但动态特性显然不如直接由另外数据库表格提取数据的查找字段。
2、用PickList属性设置的下拉列表,允许输入不属于下拉列表中的数据,但查找字段中只能输入源数据库中关键字段中的数据,这样更能保证数据的完整性。
3、用PickList属性设置的下拉列表设计较为简单。
(要初始化stringGrid组件的时候,要先设置它的宽度)
算了给你代码吧这个不好说
第一个,设置stringGrid的宽度
strGrd.ColWidths[1]:=round(strtofloat(inttostr(intWidth))*0.12);
editSubNetID.Left:=strGrd.CellRect(2,0).left+Left;
editSubNetID.Width:=strGrd.ColWidths[2];
editSubNetID.Height:=strGrd.DefaultRowHeight;这是放到第二列的如果要放到别的列那么strGrd.CellRect(xxx,0).left 就可以了
这是初始stringGrid在单击stringGrid 事件里
定义一个距形 oCellRect:TRect; oCellRect:=strGrd.CellRect(2,Arow); with editSubNetID do
begin
Visible:=true;
if (ARow=1) and (OCellRect.Top=0) then
begin
intTop:=(strgrdMember.DefaultRowHeight*ARow)+(strgrdMember.Top)+2;
Top:=intTop;
end
else
begin
Top:=OCellRect.Top+strgrdMember.Top+2;
end;
Height:=self.strgrdMember.DefaultRowHeight;
Text:=strCurSubNetID;
end;
再设置对应的高,就可以了,可能有点乱呵呵
希望对你有用