在Delphi中,放入一个combobox1或一个edit1,并且有一个以建好的供货商信息表,那么在程序中如何写代码来判断该供应商编号不存在呀!
解决方案 »
- 字符加密解密函数,如果有中文就会解密不出来
- 如何在inputbox中输入以‘*’形式显示的密码?
- 刚才调查了一圈Q中朋友的工资,现总结几条。
- 编码转换问题
- 如何让ComboBox完整显示Items里面很长的字符串,就是有什么办法控制ComboBox下拉列表的宽度???
- 如何在选中combobox选项时,事实上是选择了另一个数值.(是为了sql查询).
- Delphi如何将回车写入XML文件?
- 请问一个关于meno的文字添加问题
- 我怎么才能打开一个html文件并让用户做一些修改并另存为自己的文件呢?
- 关于初学者学习sqlserver请教
- 怎么取出鼠标坐标?
- 这样写代码运行正常,但为什么login窗口没出现呢??
with AdoQuery1 do
begin
close;
sql.clear;
sql.add('select distinct 供应商编号 from 供货商信息表');
Open;
while not eof do
comboBox1.Items.add(FieldByName('供应商编号').asString);
end;
with adoQuery1 do
begin
close;
sql.clear;
sql.text:= 'select * from 供货商信息表 where 供应商编号='''+ combobox1.text + '''';
Open;
if eof then
//没有此编号
else
;//有。
end;
with adoQuery1 do
begin
close;
sql.clear;
sql.text:= 'select * from 供货商信息表 where 供应商编号='''+ combobox1.text + '''';
Open;
if recordCount =0 then
//没有此编号
else
;//有。
end;