控件:edit1,edit2,combobox1;
edit1//输入id
edit2//对同一个id输入数值
combobox1//对同一个id输入i次edit2要求:
1、对同一个id输入i次数值,次数用combobox1.text显示,edit2输入相应第I次的数值,edit2每输入一个数值,combobox1自动i+1,直到对edit1的第i次数值输入完毕
2、在edit1跳出焦点时作个选择,对edit1要输入几次数值现在我对第一个要求是这样做的,不知道对不对,请教大虾,第二个要求如果不用FORM实现,还能用什么函数,messagedlg好象不行,只能做两种选择procedure TForm1.edt3Exit(Sender: TObject);
var
i,point:integer;
begin
i:=combobox1.Items;
for point:=0 to i-1 do
begin
with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('insert into Ttesterrors(tablenum,errors1)');
sql.Add('values('''+trim(edit1.Text)+''','''+trim(edt1.Text)+''')');
prepared;
open;
end;
end;
if point>(i-1) then
begin
showmessage('已经输入结束!');
end;
end;
edit1//输入id
edit2//对同一个id输入数值
combobox1//对同一个id输入i次edit2要求:
1、对同一个id输入i次数值,次数用combobox1.text显示,edit2输入相应第I次的数值,edit2每输入一个数值,combobox1自动i+1,直到对edit1的第i次数值输入完毕
2、在edit1跳出焦点时作个选择,对edit1要输入几次数值现在我对第一个要求是这样做的,不知道对不对,请教大虾,第二个要求如果不用FORM实现,还能用什么函数,messagedlg好象不行,只能做两种选择procedure TForm1.edt3Exit(Sender: TObject);
var
i,point:integer;
begin
i:=combobox1.Items;
for point:=0 to i-1 do
begin
with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('insert into Ttesterrors(tablenum,errors1)');
sql.Add('values('''+trim(edit1.Text)+''','''+trim(edt1.Text)+''')');
prepared;
open;
end;
end;
if point>(i-1) then
begin
showmessage('已经输入结束!');
end;
end;
=====================================
TComboBox有add吗?是Items.Add吧?区别你看一眼参数不就知道喽至于你提的问题我理解起来有困难,实在没法解答啊!@_@
谢谢了,解决完就结贴
I: integer;
begin
for I:= 1 to 10 do
begin
combobox1.Items.Add(inttostr(I));
end;
end;