P
peoplexiao
Unregistered / Unconfirmed
GUEST, unregistred user!
同一个文档,第一次导入,同第二次导入的顺序会不一样,第一次导入时第一笔资料在第一行,第二次导入这个文档时第一笔资料在第三行了,不知道怎么回事!望高手帮忙更改一下下面的程式,谢谢!程式如下
rocedure TForm1.BitBtn1Click(Sender: TObject); var str,datapath,filepath,recordstr:string; tefile1:textfile; j,i:integer; str1,str2,str3,str4:string; str5,str6,str7,str8:string; str9,str10,str11,str12:string;begin if opendialog1.Execute then begin datapath:=opendialog1.filename; filepath:=extractfilename(datapath); assignfile(tefile1,datapath); reset(tefile1); try j:=0; while not eof(tefile1) do begin application.ProcessMessages; readln(tefile1,str); recordstr:=str; inc(j); i:=0; while pos(#9,recordstr)>0 do begin str:=copy(recordstr,1,pos(#9,recordstr)-1); case i of 0:str1:=str; 1:str2:=str; 2:str3:=str; 3:str4:=str; 4:str5:=str; 5:str6:=str; 6:str7:=str; 7:str8:=str; 8:str9:=str; 9:str10:=str; 10:str11:=str; end; i:=i+1; recordstr:=copy(recordstr,(pos(#9,recordstr)+1),length(recordstr)); if i=11 then str12:=trim(uppercase(recordstr)); end; adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Text:='insert into qh(name,time,up,qty,opi_dif,qty_in,qty_off,up_ave,up_buy,up_sell,opi,BSPK) values('+''''+str1+''''+','+''''+str2+''''+','+''''+str3+''''+','; adoquery1.SQL.Text:=adoquery1.SQL.Text +''+''''+str4+''''+','+''''+str5+''''+','+''''+str6+''''+','+''''+str7+''''+','+''''+str8+''''+','+''''+str9+''''+','; adoquery1.SQL.Text:=adoquery1.SQL.Text +''+''''+str10+''''+','+''''+str11+''''+','+''''+str12+''''+')'; adoquery1.Prepared; adoquery1.ExecSQL; end; messagebox(getactivewindow(),'当前数据导入完毕!','提示',MB_OK+mb_iconexclamation); except closefile(tefile1); end;end;end;
rocedure TForm1.BitBtn1Click(Sender: TObject); var str,datapath,filepath,recordstr:string; tefile1:textfile; j,i:integer; str1,str2,str3,str4:string; str5,str6,str7,str8:string; str9,str10,str11,str12:string;begin if opendialog1.Execute then begin datapath:=opendialog1.filename; filepath:=extractfilename(datapath); assignfile(tefile1,datapath); reset(tefile1); try j:=0; while not eof(tefile1) do begin application.ProcessMessages; readln(tefile1,str); recordstr:=str; inc(j); i:=0; while pos(#9,recordstr)>0 do begin str:=copy(recordstr,1,pos(#9,recordstr)-1); case i of 0:str1:=str; 1:str2:=str; 2:str3:=str; 3:str4:=str; 4:str5:=str; 5:str6:=str; 6:str7:=str; 7:str8:=str; 8:str9:=str; 9:str10:=str; 10:str11:=str; end; i:=i+1; recordstr:=copy(recordstr,(pos(#9,recordstr)+1),length(recordstr)); if i=11 then str12:=trim(uppercase(recordstr)); end; adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Text:='insert into qh(name,time,up,qty,opi_dif,qty_in,qty_off,up_ave,up_buy,up_sell,opi,BSPK) values('+''''+str1+''''+','+''''+str2+''''+','+''''+str3+''''+','; adoquery1.SQL.Text:=adoquery1.SQL.Text +''+''''+str4+''''+','+''''+str5+''''+','+''''+str6+''''+','+''''+str7+''''+','+''''+str8+''''+','+''''+str9+''''+','; adoquery1.SQL.Text:=adoquery1.SQL.Text +''+''''+str10+''''+','+''''+str11+''''+','+''''+str12+''''+')'; adoquery1.Prepared; adoquery1.ExecSQL; end; messagebox(getactivewindow(),'当前数据导入完毕!','提示',MB_OK+mb_iconexclamation); except closefile(tefile1); end;end;end;