--- 理解LZ的意思COMBOBOX的ITEM内容1,2,3,4,确认,取消 COMBOBOX选‘确认’则新增内容为1234 COMBOBOX选‘取消’则新增内容为空procedure TForm1.Button3Click(Sender: TObject); var i: integer; s: string; begin if DBcombobox1.Text='全部' then Begin for i:=0 to DBcombobox1.Items.Count-1 do Begin if (DBcombobox1.Items.Strings[i]<>'取消' )or (DBcombobox1.Items.Strings[i]<>'全部') then s:= s+DBcombobox1.Items.Strings[i]; End; Adoquery1.FieldByName('name').AsString:=s ; End else if DBcombobox1.Text='取消' then Adoquery1.FieldByName('name').AsString:='' Else Adoquery1.FieldByName('name').AsString:=DBcombobox1.Text ; Adoquery1.Post ; end;procedure TForm1.Button4Click(Sender: TObject); begin Adoquery1.Insert ; Showmessage(DBcombobox1.Text); end;
Create table a(name varchar(20),score int procedure TForm1.Button3Click(Sender: TObject); var i: integer; s: string; begin if DBcombobox1.Text='全部' then Begin for i:=0 to DBcombobox1.Items.Count-1 do s:= s+DBcombobox1.Items.Strings[i]; Adoquery1.FieldByName('name').AsString:=s ; End else if DBcombobox1.Text='取消' then Begin Adoquery1.FieldByName('name').AsString:='' ; Adoquery1.FieldByName('score').AsInteger :=1; End Else Adoquery1.FieldByName('name').AsString:=DBcombobox1.Text ; Adoquery1.Post ; end;procedure TForm1.Button4Click(Sender: TObject); begin Adoquery1.Insert ; end; select * from a /* 1 1234全部取消 NULL*/
DBCombobox.item.Add('全部');
DBCombobox.item.Add(' ');
到時候再選擇事件里判斷一下DBCombobox.text的值來篩選數據。
使用TCombobox吧,提供OnChange方法和DataSet.Filter,可以完成你的要求.
理解LZ的意思COMBOBOX的ITEM内容1,2,3,4,确认,取消
COMBOBOX选‘确认’则新增内容为1234
COMBOBOX选‘取消’则新增内容为空procedure TForm1.Button3Click(Sender: TObject);
var
i: integer;
s: string;
begin if DBcombobox1.Text='全部' then
Begin
for i:=0 to DBcombobox1.Items.Count-1 do
Begin
if (DBcombobox1.Items.Strings[i]<>'取消' )or (DBcombobox1.Items.Strings[i]<>'全部') then
s:= s+DBcombobox1.Items.Strings[i];
End;
Adoquery1.FieldByName('name').AsString:=s ;
End
else if DBcombobox1.Text='取消' then
Adoquery1.FieldByName('name').AsString:=''
Else
Adoquery1.FieldByName('name').AsString:=DBcombobox1.Text ;
Adoquery1.Post ;
end;procedure TForm1.Button4Click(Sender: TObject);
begin
Adoquery1.Insert ;
Showmessage(DBcombobox1.Text);
end;
Create table a(name varchar(20),score int
procedure TForm1.Button3Click(Sender: TObject);
var
i: integer;
s: string;
begin if DBcombobox1.Text='全部' then
Begin
for i:=0 to DBcombobox1.Items.Count-1 do
s:= s+DBcombobox1.Items.Strings[i];
Adoquery1.FieldByName('name').AsString:=s ;
End
else if DBcombobox1.Text='取消' then
Begin
Adoquery1.FieldByName('name').AsString:='' ;
Adoquery1.FieldByName('score').AsInteger :=1;
End
Else
Adoquery1.FieldByName('name').AsString:=DBcombobox1.Text ;
Adoquery1.Post ;
end;procedure TForm1.Button4Click(Sender: TObject);
begin
Adoquery1.Insert ;
end;
select * from a
/*
1
1234全部取消 NULL*/