delphi TDBGridEh 里面镶嵌下拉列表
来源:互联网 发布:linux 限制登录次数 编辑:程序博客网 时间:2024/05/29 19:50
创建下拉列表
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, Grids, DBGridEh, DBCtrls;
type
TForm1 = class(TForm)
DBGrid1: TDBGridEh;
btn1: TButton;
con1: TADOConnection;
qry1: TADOQuery;
ds1: TDataSource;
ds2: TDataSource;
qry2: TADOQuery;
DBComboBox1: TDBComboBox;
ds3: TADODataSet;
procedure btn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var
i:Integer;
begin
qry1.SQL.Clear;
qry1.Close;
qry1.SQL.Add('select top 10 * from [t_Student]');
qry1.Open;
for i:=0 to DBComboBox1.Items.Count-1 do
begin
//核心代码就在这里了
DBGrid1.Columns[1].PickList.add(DBComboBox1.Items.Strings[i]); //我们把DBCombox里面的数据进行填充进去,用DBGrid1.Columns[1].PickList属性进行添加。效果如
end;end;
end.
创建日历表格
在数据库将字段建立成datetime类型的。
0 0
- delphi TDBGridEh 里面镶嵌下拉列表
- [转]Delphi下拉列表框
- ListView镶嵌在ScrollView里面
- Delphi中StringGrid动态绑定下拉列表
- delphi ADVStringGrid 怎么显示下拉列表
- delphi ADVStringGrid 怎么显示下拉列表
- delphi ADVStringGrid 怎么显示下拉列表
- delphi自动调整combobox下拉列表宽度
- delphi自动调整combobox下拉列表宽度
- Delphi使用pageControl实现镶嵌窗体
- TDBGRIDEH合计
- 使用超链接将页面镶嵌在easyUI的框架里面
- 下拉列表
- 下拉列表
- 下拉列表
- 下拉列表
- 下拉列表
- 下拉列表
- FFT算法的物理意义
- 按一个文件夹下的所有文件名,在另一个文件夹下创建文本文件。
- git push 后合并之前的commit
- (46)获取JDK所支持的全部字符集
- CUDA 深入浅出谈
- delphi TDBGridEh 里面镶嵌下拉列表
- C++中如何使类不能继承
- 安装虚拟机报错The msi failed
- 关于textarea中原格式输出html代码
- 好吧,我已经过时了
- java 自定义注解
- 如何用Spring将Service注入到Servlet中(注解模式)
- C++ 虚基类
- 【百度地图API】建立全国银行位置查询系统(一)——如何创建地图