在线等待求救一个delphi最简单的问题

Question

DBCOMBOBO怎么样才可以把ITEMS里的字段给选择上去。
具体的是这样的，我做通讯录时间，把每个客户归按省份分类
我在DBCOMBOBO的ITEMS里增加了北京、上海、浙江等、
但运行起来下拉单选择不进去？

Answer 1

你的dbcombobox的DataSource和DataField没设置吧

Answer 2

补充：由于你说的不太清楚，你说要分类，而不是用dbcombobox的items中的值去修改某个表的某字段的值，所以建议不用dbcombobox,而用combobox,然后根据combox的不同选择构造select语句进行筛选，不知你的需求是否如此

Answer 3

谢谢！是我的DataSource和DataField没设置没有设置！还有问题求救：
我在做通讯录时，有个增加朋友的窗体，上面有个“确定”的按钮，我按下后，为什么连窗体

Answer 4

谢谢！是我的DataSource和DataField没设置没有设置！还有问题求救：
我在做通讯录时，有个增加朋友的窗体，上面有个“确定”的按钮，我按下后，为什么连窗体
一起退出了，我要的是增加好后，按“确定”，窗体不退出，可以继续增加，
我原来的“确定”按钮是这样写的：“DataModule7.ADODataSet1.Post;”，你说我可以加上“DBEDIT1.TEXT:='';DBEDIT2.TEXT:=''DBEDIT3.TEXT:=''”(DBEDIT1'DBEDIT2,DBEDIT3分别代表通讯录里的字段)？？
等待中…………

Answer 5

不需要加上：DBEDIT1.TEXT:='';DBEDIT2.TEXT:=''DBEDIT3.TEXT:='' adodataset1.post;之后，
再加上 adodataset1.append;或 adodataset1.insert;
就会继续添加，
你检查一下按确定按钮后有没有关闭窗体的语句。

Answer 6

1:  BitBtnOK.ModalResult := False;
2:  BtnOKClick(BitBtnOKClick)
    begin
      ...
      //Close;  (if Close procedure is exists, replace it with calling the procedure that adds a new friend.)
    end;

Answer 7

谢谢！是的，用DataModule7.ADODataSet1.Post;DataModule7.ADODataSet1.Append;可以的，另外要退出的问题是因为我的BitBtnOK.ModalResult 没有设置好（这里谢谢swayi21(微斯人)）。
还有一个简单问题问一下，下面的程序那里错了，不能运行
begin
   if DBComboBox1.Text:='' then ShowMessage('所属省份不能为空')
   else
DataModule7.ADODataSet1.Post;
DataModule7.ADODataSet1.Append;
   end
end;

Answer 8

begin
   if DBComboBox1.Text:='' then ShowMessage('所属省份不能为空')
   else
DataModule7.ADODataSet1.Append;
DataModule7.ADODataSet1.Post;   end
end;

Answer 9

确实还是使用ComboBox1吧！然后把具体的Combobox的Item直接添加或者赋值来解决了！

Answer 10

begin
  if DBComboBox1.Text    =   '' then // if DBComboBox1.ItemIndex = -1 then
    ShowMessage('所属省份不能为空')
  else begin
    DataModule7.ADODataSet1.Append;
    DataModule7.ADODataSet1.Post;
  end
end;

Answer 11

This example appends a new record to a client dataset when the user clicks a button. The two fields ALPHANUMERIC and INTEGER are filled from the contents of two edit controls.procedure TForm1.Button1Click(Sender: TObject);
begin
ClientDataSet1.Append;
ClientDataSet1.FieldValues['ALPHANUMERIC'] := Edit1.text;
ClientDataSet1.FieldValues['INTEGER'] := StrToInt(Edit2.text);
ClientDataSet1.Post;
end;

Answer 12

设置dbcombobox的DataSource和DataField属性吧

Answer 13

好象只能用DBComboBox1的索引进行选择.
DBComboBox1.ItemIndex:=所选择记录的索引值

Answer 14

DBComboBox1.ItemIndex:= DBComboBox1.Items.IndexOf(值) ;

Answer 15

if DBComboBox1.ItemIndex=-1 then ShowMessage('所属省份不能为空')