date 和下拉列表

1 unit MainForm;
2
3 interface
4
5 uses
6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 Dialogs, StdCtrls, DB, ADODB, Mask, DBCtrls;
8
9 type
10 TMain = class(TForm)
11 ADOConnection: TADOConnection;
12 ADOQuery: TADOQuery;
13 CmbView: TComboBox;
14 ADOQueryid: TAutoIncField;
15 ADOQueryname: TStringField;
16 ADOQuerymima: TStringField;
17 ADOQueryquanx: TStringField;
18 procedure CmbViewDropDown(Sender: TObject);
19 private
20 list:TStringList;
21 { Private declarations }
22 public
23 { Public declarations }
24 end;
25
26 var
27 Main: TMain;
28
29 implementation
30
31 {$R *.dfm}
32
33 procedure TMain.CmbViewDropDown(Sender: TObject);
34 begin
35 list := TStringlist.Create;
36 ADOQuery.SQL.Text := 'select * from useadmin';
37 ADOQuery.Open ;
38 {fieldname是你要取的字段名，tablename是你要读取的表
39 数据库连接组建的连接字符串我没有做，你自己修改下}
40 with ADOQuery do
41 begin
42 while not Eof do
43 begin
44 {读取每一列的字段值插入list变量}
45 list.Add(ADOQuery.FieldByName('name').Text);
46 ADOQuery.Next;
47 end;
48 end;
49 CmbView.Items := list;
50 end;
51
52 end.

_____________________________________________________________________________________________

 

 

向下拉列表添加字段有以下几种方法：

1、在属性栏—>items中,进行字符串的添加

2、一个组件加载另一个组件的字段
cbname.items.assign(combox.items);

3、利用数据集向组件进行字段进行添加
cbname.items.clear; //cbname是下拉列表组件的Name
with 数据查询器 do
begin
Close;
SQL.clear;
SQL.ADD('查询数据字符串')；
OPEN;
while not EOF do
begin
cbname.items.add(fieldbyname('字段名').AsString);
Next;
end;
Close;
end;

_____________________________________________________________________________

 

formshow事件
datetimepicker1.date=date();