function TAddData.QueryInput(DataBase1:TDatabase;cQuery:TQuery;recordnum:integer):boolean;
var
icount,i:integer;
ntmp:integer;
str:string;
sexflag:integer;
ftmp:single;
begin
randomize;
cQuery.Close;
cQuery.SQL.Clear;
cQuery.SQL.Add('insert into members_1 (工号,姓名,性别,年龄,所属车间) values(:id1,:id2,:id3,:id4,:id5)');
//事务开始
Database1.StartTransaction;
cquery.Prepare;
for icount:=1 to recordnum do
begin
//以下是往每个字段填数据
str:='';
str:=inttostr(icount);
for i:=1 to 5-length(str) do
str:='0'+str;
cquery.ParamByName('id1').asstring:=str;
str:='';
str:=str+strsurname[random(4)];
for i:=1 to 2 do
begin
ntmp:=random(19);
case ntmp of
2,3,5,6,10:sexflag:=1;
else
sexflag:=0;
end;
str:=str+strfirstname[ntmp];
end;
cquery.ParamByName('id2').asstring:=str;
str:='';
if sexflag=0 then
str:='男'
else
str:='女';
cquery.ParamByName('id3').asstring:=str;