if adojbcx1.Active then
adojbcx1.Active := False;
adojbcx1.SQL.Clear;
adojbcx1.SQL.Add('select sum(jyje) as jbje from [caozuolog] where [czry]=''' + gsUser + ''' and [zffs]=''微信'' and [jbbz]=0');
adojbcx1.Active := true;
lbwx.Caption := FormatCurr('0.00', adojbcx1.FieldByName('jbje').AsCurrency);
adojbcx1.Active := False;
procedure TMainForm.Timer2Timer(Sender: TObject);
begin
Lbl_Time.Caption := ‘温馨提示:请在’ + Format(’%0.2d’, [TimeCount mod 60]) + ‘秒内完成支付’;
TimeCount := TimeCount - 1;
if (RDwx.Checked) and (RD2.Checked) then
begin
btnQuery1Click(nil);
imgsk.Visible := true;
end
else
if (RDzfb.Checked) and (RD2.Checked) then
begin
Button66Click(nil);
imgsk.Visible := true;
end;
if TimeCount = 0 then
begin
Timer2.Enabled := False;
Lbl_Time.Caption := ‘’;
barMessage.Panels1.Text := ‘’;
barMessage.Panels3.Text := ‘’;
Application.MessageBox(‘对不起您已超时,支付失败’, ‘支付失败’, MB_OK + MB_ICONWARNING);
if RDwx.Checked then
Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + ‘/images/a1.bmp’)
else
Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + ‘/images/a2.bmp’);
end;
end;
请发表评论