F
fuxin198311
Unregistered / Unconfirmed
GUEST, unregistred user!
功能是在combobox4中选取一值后就在其它组件中显示相对应的值 但是我发现字段phone没有显示数据库的是值,而字段bz说没有找到 但是我的数据库中的表有这个字段呀 其它的可显示 代码是这样的
procedure Tcust_dengjiForm.ComboBox4Change(Sender: TObject);
begin
with query3 do
begin
close;
sql.Clear ;
sql.Text:='select * from cust_destine_xxb where cust_name='''+combobox4.Text+'''';
open ;
edit2.Text:=query3.FieldByName('phone').AsString ;
edit3.Text:=query3.FieldByName('mobile_hao').AsString ;
combobox1.Text:=query3.FieldByName('time_type').AsString ;
datetimepicker1.Datetime:=query3.FieldByName('destine_time').AsDatetime;
edit2.Text:=query3.FieldByName('destine_money').AsString ;
combobox2.Text:=query3.FieldByName('fj_type').AsString ;
combobox3.Text:=query3.FieldByName('fj_name').AsString ;
memo1.Lines.Text:=query3.FieldByName('bz').AsString ;
end;
end;
我真是搞不懂
procedure Tcust_dengjiForm.ComboBox4Change(Sender: TObject);
begin
with query3 do
begin
close;
sql.Clear ;
sql.Text:='select * from cust_destine_xxb where cust_name='''+combobox4.Text+'''';
open ;
edit2.Text:=query3.FieldByName('phone').AsString ;
edit3.Text:=query3.FieldByName('mobile_hao').AsString ;
combobox1.Text:=query3.FieldByName('time_type').AsString ;
datetimepicker1.Datetime:=query3.FieldByName('destine_time').AsDatetime;
edit2.Text:=query3.FieldByName('destine_money').AsString ;
combobox2.Text:=query3.FieldByName('fj_type').AsString ;
combobox3.Text:=query3.FieldByName('fj_name').AsString ;
memo1.Lines.Text:=query3.FieldByName('bz').AsString ;
end;
end;
我真是搞不懂