【搞定】TComBox**

wj0623

帮忙下载一下9楼的附件，调试一下，谢谢

zfang

楼主，你的包里好像什么都没有啊？
不过我用你的代码在你给的包里试了，可以出来的阿！！
（你的包里那个功能没有指定主窗体，窗体里也没有任何控件和代码）
下面是我用你上面的代码试的效果图

wj0623

不会吧 我在本机试了 好久都没有结果。 郁闷

wj0623

你描述一下你实现这个过程呢？

zfang

那把你的那个界面效果贴出来看看阿

我没有做什么啊，就用你上面的代码在你给的包里简单做的，虽然你给的包里什么都没有...

wj0623

我直接在功能上添加一个TComBox   然后写入上面代码

wj0623

你把你刚才实现的打个包 我看看呢

wj0623

窗体中没有引用组件：直接用代码实现 （未实现）： 如下：
unit MainForm;

interface

uses
  Business.System, Business.Forms ,Business.Model, Business.Data;

type
  TMainForm = class(TForm)
    ComboBox1: TComboBox;

    DataSetBroker1: TDataSetBroker;
    InfoBroker1: TInfoBroker;
     procedure BizFormCreate(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation
    procedure TMainForm.BizFormCreate(Sender: TObject);
    begin
   ComboBox1.Clear;
  with TQuery.Create(Self) do
  try
    ConnectionString := 'DATABASEURL=Biz:\JQGL\JQGLSJK.DATABASE';
    CommandText := 'Select SBLX from SBMXB';
    Open;
    while not Eof do
    begin
        ComboBox1.Items.Add(FieldByName('SBLX').AsString);
      Next;
    end;
  finally
    Free;

end;
end;
end.

zfang

这个我也没做什么啊，你看看吧
你把这个拷贝粘贴就可以了。

wj0623

你导成brp文件呢  不知道你这个怎么看？