表:
人事表有 bh( 编号) xm(姓名).....
合同表有 员工编号 合同期工资.....页面:编号:(combobox1) 姓名:(combobox2) 基本工资:(Edit1)
现在能实现的是 选定编号下拉控件能自动绑定姓名列 但是却不能自动绑定基本工资列 以下是我的代码:procedure Tfrm_gzsz.ComboBox1Change(Sender: TObject);
begin
with data1.ADOpublic do
begin
close;
sql.Clear;
sql.Add('select * from 人事表 where bh=:a');
parameters.ParamByName('a').Value:=combobox1.Text;
open;
end;
combobox2.Text:=data1.ADOpublic.FieldByName('xm').Value;
with data1.ADOpublic do
begin
close;
sql.Clear;
sql.Add('select * from 合同表 where 员工编号:=');
sql.Add(combobox1.Text);
open;
end;
Edit1.Text:=data1.ADOpublic.FieldValues['合同期工资']
end;错在哪里啊? 各位帮帮我啊````````
人事表有 bh( 编号) xm(姓名).....
合同表有 员工编号 合同期工资.....页面:编号:(combobox1) 姓名:(combobox2) 基本工资:(Edit1)
现在能实现的是 选定编号下拉控件能自动绑定姓名列 但是却不能自动绑定基本工资列 以下是我的代码:procedure Tfrm_gzsz.ComboBox1Change(Sender: TObject);
begin
with data1.ADOpublic do
begin
close;
sql.Clear;
sql.Add('select * from 人事表 where bh=:a');
parameters.ParamByName('a').Value:=combobox1.Text;
open;
end;
combobox2.Text:=data1.ADOpublic.FieldByName('xm').Value;
with data1.ADOpublic do
begin
close;
sql.Clear;
sql.Add('select * from 合同表 where 员工编号:=');
sql.Add(combobox1.Text);
open;
end;
Edit1.Text:=data1.ADOpublic.FieldValues['合同期工资']
end;错在哪里啊? 各位帮帮我啊````````
解决方案 »
- edit没有属性可以设置只能输入数字吗?vc都有的阿。
- 怎样通过代码建立菜单项?
- 在线等待===> 在哪儿设置弹出子菜单啊
- 急,兄弟姐妹快来看看!!!高分等待你!在线等!!!!!!!!!!!
- 老总让做一个信息管理系统,没有范围,各方面的信息。而且类别、字段都得留着给他输,汇总、分析没法弄,这可怎么做?
- 谁用过ExpressQuantumGrid For Delphi6
- 对表操作的语句中的TField能否使用变量?
- 在SQL Server 中SQL语句连接与嵌套的效率的那个更高?
- 请教NameNick(三三)关于用PDU模式发送中文短信息!
- stringgrid中动态生成若干个combobox问题
- 如何实现点击查询按纽 将结果输出在另一个窗体的label中?
- 如何在一个窗体中调用另一个窗体中的子窗体
begin
close;
sql.Clear;
sql.Add('select * from 合同表 where 员工编号='); //不用:
sql.Add(combobox1.Text);
open;
end;