代码如下:
procedure TForm4.Button6Click(Sender: TObject);
var
chr:array[1..100] of string;
begin
with ADOQuery3 do
begin
Close;
SQL.Clear ;
SQL.Text:='insert into Jichu_Table(Number,Name,Age,Sex,Tel,Addr,Other) values (:chr[1],:chr[2],:chr[3],:chr[4],:chr[5],:chr[6],:chr[7])';
Parameters.ParamByName('chr[1]').Value:=trim(edit20.Text);
Parameters.ParamByName('chr[2]').Value:=trim(edit21.Text);
Parameters.ParamByName('chr[3]').Value:=trim(edit22.Text);
Parameters.ParamByName('chr[4]').Value:=trim(edit23.Text);
Parameters.ParamByName('chr[5]').Value:=trim(edit24.Text);
Parameters.ParamByName('chr[6]').Value:=trim(edit25.Text);
Parameters.ParamByName('chr[7]').Value:=trim(edit26.Text);
ExecSQL;
end;
end;
procedure TForm4.Button6Click(Sender: TObject);
var
chr:array[1..100] of string;
begin
with ADOQuery3 do
begin
Close;
SQL.Clear ;
SQL.Text:='insert into Jichu_Table(Number,Name,Age,Sex,Tel,Addr,Other) values (:chr[1],:chr[2],:chr[3],:chr[4],:chr[5],:chr[6],:chr[7])';
Parameters.ParamByName('chr[1]').Value:=trim(edit20.Text);
Parameters.ParamByName('chr[2]').Value:=trim(edit21.Text);
Parameters.ParamByName('chr[3]').Value:=trim(edit22.Text);
Parameters.ParamByName('chr[4]').Value:=trim(edit23.Text);
Parameters.ParamByName('chr[5]').Value:=trim(edit24.Text);
Parameters.ParamByName('chr[6]').Value:=trim(edit25.Text);
Parameters.ParamByName('chr[7]').Value:=trim(edit26.Text);
ExecSQL;
end;
end;
解决方案 »
- 如何在系统中注册dll?
- FreeCommunication 版本 4.5 已经出来了!
- 正在用Delphi做个类似按键精灵的游戏辅助程序,遇到困难,请大家帮忙
- 兄弟们这是为什么呀?!帮忙看看
- 要用Combobox类读取数据库中的某个字段中某些值作为combobox类的items,有什么好方法?help me
- 问题还是有,“关于paradox的密码框的问题,马上给分”
- Query为何删除不掉Dbase数据库中的记录?代码如下
- 请问如何进入绘图模式?进入后都有那些命令可用??
- ???????????????????????
- 在delphi中怎样设置主从关系?
- TreeView不会弄了。从发一下.
- 这个VC++ 的回调函数如何转换
俺刚学Delphi不久,公司逼的!