insert into qkb(xianghao,qianming,jinge,shijian,dianhua,dianwei,beizhu) value(edit1.text,edit2.text,edit3.text,edit4.text,edit5.text,ComboBox1.Text,edit6.text);
我用的是edit组件,以上代码是写在button的click事件里,实现一点button就向表qkb添加edit上面写的数据。
我在线等,请大家帮忙。
我用的是edit组件,以上代码是写在button的click事件里,实现一点button就向表qkb添加edit上面写的数据。
我在线等,请大家帮忙。
edit2.text,edit3.text,edit4.text,edit5.text,ComboBox1.Text,edit6.text);
var
str: string;
begin
str := 'insert into qkb(xianghao,qianming,jinge,shijian,dianhua,dianwei,beizhu) '+
'values '+'('''+edit1.text+''','+
''''+edit2.text+''','''+edit3.text+''','''+edit4.text+''','''+edit5.text+''','+
''''+ComboBox1.Text+''','''+edit6.text+''')';
end;