FormCreate(Sender: TObject);
var
J: Integer;
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('Select 产品名称’
From 你的数据库名称 ');
Open;
First;
for J := 0 to RecordCount - 1 do
begin
ComboBox1.Items.Add(FieldByName('产品名称').AsString);
Next;
end;
Close;
end;
[此贴子已经被作者于2004-11-16 11:04:52编辑过]
/bbs/UploadFile/2005-3/2005320191459674.gif" border="0" onload="if(this.width>screen.width*0.7) {this.resized=true; this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized=true; this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {return true;} else {window.open('http://www./bbs/UploadFile/2005-3/2005320191459674.gif');}" onmousewheel="return imgzoom(this);" alt="" />