delphi网吧管理系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](九)

function Tform1.jgjs(shangji:string;xiaji:string;MM:string):string;
var
  tt,xiaoshi,fenzhong,allmoney:string;
begin
tt:='';
xiaoshi:='';
fenzhong:='';
allmoney:='';

 //tt:=timetostr(now()-strtodatetime(DM.ADOTgltemp.Lookup('卡编号',edit1.Text,'上机时间')));
 tt:=timetostr(strtodatetime(xiaji)-strtodatetime(shangji));
 xiaoshi:=copy(tt,1,2);
 if copy(xiaoshi,2,2)=':' then
 xiaoshi:=copy(xiaoshi,1,1);
 xiaoshi:=floattostr(strtofloat(xiaoshi)*strtofloat(MM));//小时位的计算

 if copy(tt,3,1)=':' then
    fenzhong:=copy(tt,4,2)
 else
    fenzhong:=copy(tt,3,2);
 fenzhong:=copy(floattostr(strtofloat(fenzhong)/60*strtofloat(MM)),1,4);// 分钟位的计算

 result:=floattostr(strtofloat(xiaoshi)+strtofloat(fenzhong));//总金额的计算

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
 moneyall:double;
 ok,ss,xx:string;

begin
ss:='';
xx:='';

 if key=#13 then
   if (DM.ADOTgltemp.Lookup('卡编号',edit1.Text,'卡编号')=Null) then
      begin

       DM.ADOTgl.Append;
       DM.ADOTgl.FieldByName('卡编号').AsString:=edit1.Text;
       DM.ADOTgl.FieldByName('上机时间').AsString:=datetimetostr(now());
       DM.ADOTgl.FieldByName('操作员').AsString:=DBEyhm.Text;
       DM.ADOTgl.Post;
       DM.ADOTgltemp.Append;
       DM.ADOTgltemp.FieldByName('卡编号').AsString:=edit1.Text;
       DM.ADOTgltemp.FieldByName('上机时间').AsString:=datetimetostr(now());
       DM.ADOTgltemp.Post;
       edit1.Text:='';
       DBText1.Caption:=inttostr(strtoint(DBtext1.Caption)-1);
       DM.ADOQuery1.Close;
       DM.ADOQuery1.Open;
       DM.ADOQuery2.Close;
       DM.ADOQuery2.Open;
      end
   else
      begin

       dm.ADOTgl.Locate('卡编号;上机时间',vararrayof([DM.ADOTgltemp.Lookup('卡编号',edit1.Text,'卡编号'),DM.ADOTgltemp.Lookup('卡编号',edit1.Text,'上机时间')]),[]);
       dm.ADOTgl.Edit;
       DM.ADOTgl.FieldByName('下机时间').AsString:=datetimetostr(now());
       DM.ADOTgl.UpdateBatch;

      DM.ADOTgl.Edit;

      DM.ADOTjggl.First;
      ok:='';
      repeat
      begin
         if strtodatetime(DBEsj.

首页 上一页 6 7 8 9 10 11 12 下一页 尾页 9/14/14