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();