shu:=length(skje1);
skje1:=leftstr(skje1,shu);
shu:=length(kh2);
kh2:=leftstr(kh2,shu);
shu:=length(ye2);
ye2:=leftstr(ye2,shu);
shu:=length(sktime2);
sktime2:=leftstr(sktime2,shu);
shu:=length(skje2);
skje2:=leftstr(skje2,shu);
end;
begin
cx:=CreateQ('SELECT * FROM 过程表_普通卡刷卡次序', -1);
bz:=Qeof(cx);
if bz<>1 then
begin
kh1:=QFDValue(cx,'电子车票卡编号');
ye1:=QFDValue(cx,'电子车票卡余额');
sktime1:=QFDValue(cx,'刷卡日期');
skje1:=QFDValue(cx,'本此刷卡消费金额');
while bz<>1 do
begin
bz:=Qmov(cx,1);
bz:=Qeof(cx);
if bz<>1 then
begin
kh2:=QFDValue(cx,'电子车票卡编号');
ye2:=QFDValue(cx,'电子车票卡余额');