combobox控件(50分)

  • 主题发起人 主题发起人 yongwang518
  • 开始时间 开始时间
Y

yongwang518

Unregistered / Unconfirmed
GUEST, unregistred user!
现有一个数据表,比如表名t_codename
有两个字段f_code,f_name
现在想将f_name中的中文名称显示在combobox中,当选择名称时
在label中显示对应的代码f_code

不想通过选择的中文名称再在数据表中查找它的代码这个方法,请问有没有其它的方法
 
用combobox控件行吗?
还是用dbcombobox
or dblookupcombobox
 
代码:
const
  s = 'select f_code from t_codename where f_name = %s';
begin
  Query1.SQL.Text := Format(s, [Combobox1.Text]);
  QUery1.Open;
  label1.Caption := Query1.FieldValues['f_code'];
end;
 
好象没有,除非你的数据有某种规律。
 
combobox.item.indexof(f_name)可以找到相应的f_name
 
netfool说的不是我的意思
dz2050说的我不是大明白
希望多指教
 
方法很多啊,可以先存到某个数据结构中去,比如单链表
然后在选择的时候从单链表中找就行了
其实在数据表中查找它的代码也很好啊,可以动态创建查询组件添加sql语句用完马上释放嘛
 
有没有人知道呀,很急的
 
可以用两个combobox,然后用时钟把它们设成同步.
 
可以先把 f_name 的所有的项加到 combobox 中,
然后在 combobox 中选择一项时,在表 t_codename 中查找到它所在的记录,
取出 f_code 的值,设为lable1.caption 就行!

 
可以!参考以下添加 复选框的例子:

43. 在DELPHI中利用API实现网格内组件的嵌入
Delphi中向TDBGrid添加组件是一件十分麻烦的事情。笔者在这里向大家介绍一种利用WIN32 API函数在TDBGRID中嵌入CHECKBOX组件的方法。
TDBGrid部件是用于显示和编辑数据库表中记录信息的重要部件,它是我们在程序设计过程中要经常使用的一个强有力的工具。TDBGrid具有很多重要的属性,我们可以在程序设计阶段和程序运行过程中进行设置。TDBGrid部件中有很多重要的属性,我们在这里重点介绍Option属性和DefaultDrawing属性,其他属性及其设置方法请参看联机帮助文件。
Options属性:它是TDBGrid部件的一个扩展属性,在程序设计阶段设置Options属性可以控制TDBGrid部件的显示特性和对事件的响应特性。
DefalultDrawing属性:该属性是布尔型属性,它用于控制网格中各网格单元的绘制方式。在缺省情况下,该属性的值为True,也就是说Delphi使用网格本身缺省的方法绘制网格中各网格单元,并填充各网格单元中的内容,各网格单元中的数据根据其对应的字段部件的DisplayFormat属性和EidtFormat属性进行显示和绘制。如果DefaulDrawing属性被设置为False,Delphi不会自动地绘制网格中各网格单元和网格单元中的数据,用户必须自己为TDBGrid部件的OnDrawDataCell事件编写相应的程序以用于绘制各网格单元和其中的数据。
需要注意的是,当一个布尔字段得到焦点时,TDBGrid.Options中的gdEditing属性不能被设置成为可编辑模式。另外,TDBGrid.DefaultDrawing属性不要设置为FALSE,否则,就不能得到网格中画布属性的句柄。
程序设计开始时就应考虑:需要设定一变量来存储原始的TDBGrid.Options的所有属性值。这样,当一boolean字段所在栏得到焦点时将要关闭TDBGrid.Options中gdEditing的可编辑模式。与此相对应,若该栏失去焦点时,就要重新恢复原始的TDBGrid.Options的所有属性值。
在实例中可以通过鼠标点击或敲打空格键改变布尔值,这样就需要触发TDBGrid.OnCellClick事件和TDBGrid.OnKeyDown事件。因为这两个事件都是改变单元格中逻辑字段的布尔值,所以为了减少代码的重复最好创建一个私有过程(SaveBoolean;)来完成逻辑值的输入,以后,在不同的事件中调用此过程即可。
对TDBGrid.OnDrawColumnCell事件的处理是整个程序的关键。处理嵌入组件的显示的传统方法是:在表单上实际添加组件对象,然后对组件的位置属性与网格中单元格的位置属性进行调整,以达到嵌入的视觉效果。这种方法虽然可行但代码量大,实际运行时控制性很差。笔者采用的方法是充分利用WIN32 API函数:DrawFrameControl(),由于此函数可以直接画出Checkbox组件,所以就无须在表单中实际添加组件。如何使用API函数:DrawFrameControl()是本程序技巧所在。
在TDBGrid.OnDrawColumnCell事件中,我想大家会注意到:设定一个整型数组常数,而这个返回的整数值是与布尔值相一致的,如果字段是逻辑字段,则只将其布尔值放入数组中,提供给DrawFrameControl()函数中的状态参数进行调用,从而实现了Checkbox组件在网格中的嵌入效果。
源代码如下:
type   TForm1 = class(TForm)
DataSource1 : TDataSource;
Table1 : TTable;
DBGrid1 : TDBGrid;
procedure DBGrid1DrawColumnCell(Sender: TObject;const Rect: TRect;
DataCol: Integer;Column: TColumn; State: TGridDrawState);
procedure DBGrid1ColEnter(Sender: TObject);
procedure DBGrid1ColExit(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure DBGrid1KeyDown(Sender: TObject; var Key:
Word;Shift: TShiftState);
private { Private declarations }
OriginalOptions : TDBGridOptions;
procedure SaveBoolean;
public { Public declarations }
end;
{...}
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
//这个整数值将按照布尔值返回,并送入数组
CtrlState : array[Boolean] of Integer =
(DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED);
Begin
//确保只有在逻辑字段才能插入组件
if Column.Field.DataType = ftBoolean then   
begin
DBGrid1.Canvas.FillRect(Rect);     DrawFrameControl(DBGrid1.Canvas.Handle, Rect,
DFC_BUTTON, CtrlState[Column.Field.AsBoolean]);
end;
end;
procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
//确保该栏是逻辑字段
if DBGrid1.SelectedField.DataType = ftBoolean then
begin
OriginalOptions := DBGrid1.Options;
DBGrid1.Options := DBGrid1.Options - [dgEditing];
end;
end;
procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
//确保该栏是逻辑字段
if DBGrid1.SelectedField.DataType = ftBoolean then
DBGrid1.Options := OriginalOptions;
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
//确保该栏是逻辑字段
if DBGrid1.SelectedField.DataType = ftBoolean then SaveBoolean();
end;
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
//确保该栏是逻辑字段和空格键在键盘中被敲击
if ( Key = VK_SPACE ) and ( DBGrid1.SelectedField.DataType = ftBoolean ) then
SaveBoolean();
end;
procedure TForm1.SaveBoolean;
begin
DBGrid1.SelectedField.Dataset.Edit;
DBGrid1.SelectedField.AsBoolean :=
not DBGrid1.SelectedField.AsBoolean;
DBGrid1.SelectedField.Dataset.Post;
end;

以上源程序在PWIN+DELPHI5.0环境调试通过,可以直接引用。
 
后退
顶部