Question

delphi 如何去数据库中的值，和combobox中的值进行判断

我现在想做的是在上面的combobox里输入数值，如果数据库中有该数值，则提醒，没有可以输入，求解答





Answer 1

如果是输入，你为什么要用combobox?何不用EDIT？

你是想要上面这5个字段全进行判断还是只有一个？

可以这样：

如利用单证员判断：假定你用的是sql 数据库,adoquery 

把以下程序写入combobox1的onexit事件里

with adoquery do
begin
if active then close;
sql:='select * from db ';
prepare;
open;
end;
filtered:=false;
filter:='单证员='+queredstr(trim(combobox1.text));
filtered:=true;
if   adoquery.reordcount>0 then 
begin
    showmessage('已存在！')
    exit;
end;

以上只是以单证员为例简单定了下，字段名什么只是参考。你自己改下吧。。

但其实不建议你这样做，因为combobox控件的最大作用是选择，而不是用来输入

再有就是输入时没办法判断内容的合理性。。

追问

我这么写的但是一直存在，是不是应该查找列的值啊

追答

既然一直存在那就真的存在..仔细检查下!

Answer 2

点击保存时先做一个数据查询，有该数值则提醒，没有即保存成功，不知道是不是这个意思

追问

对 就是这个意思 ，现在最大的困难就是判断combobox值是否存在数据库中，不知道怎么写

追答

java里面有查询数据库后为空的判断语句，*** is empty
哦，对了，delphi是判断ADOQuery.RecordCount > 0表示有数据了

追问

adoquery_cx.FieldValues['biaoshiliushuihao']=+trim(ComboBox_danzhengliushuihao.text);
我想调出数据库的值然后进行判断 ，你能详细一点的代码吗？可以加分

追答

这段是用户登录的代码，查询到数据库中用户名密码正确后，用户即可获得相应的功能，希望对你有帮助

procedure TForm3.plogin;
begin
with ADOLogin do
begin
close;
sql.Clear;
sql.Add('select * from psd where Agent_Id = :a and Psd = :b') ;
parameters.ParamByName('a').Value:=trim(edit1.Text);
parameters.ParamByName('b').Value:=trim(edit2.Text);
open;
end;
if ADOLogin.RecordCount >0 then //通过验证时
begin
application.MessageBox('通过验证','提示',64);
Form1.AgentName := ADOLogin.fieldbyname('Agent_Name').Value;
Form1.AgentNum:=trim(Edit1.Text);
//Form1.N6.Enabled:=True;
//Form1.N5.Enabled:=True;
//Form1.N4.Enabled:=True;
ADODataSet1.Active := False;
ADODataSet1.CommandText:= 'select * from Menu where agent_id = '+Form1.AgentNum;
ADODataSet1.Active := True;