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

最新活动：微信集50个赞就可获取任意一篇钻石会员文档。详情见微信集赞换文档

delphi网吧管理系统[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](九) copy(yuanshi,1,pos('.',yuanshi)-1))+1;
end
else
result:=strtofloat(yuanshi);

end;

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

delphi网吧管理系统[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](九)由毕业论文网（www.huoyuandh.com）会员上传。