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

       Edit1.Text:='';

       DM.ADOQuery1.Close;
       DM.ADOQuery1.Open;
       DM.ADOQuery2.Close;
       DM.ADOQuery2.Open;

       DBtext1.Caption:=inttostr(strtoint(DBtext1.Caption)+1);
      end;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
  sdgl.ShowModal;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label2.Caption:=datetimetostr(now());
end;

procedure TForm1.PC1Click(Sender: TObject);
begin
 ddgl.ShowModal;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
  mrjg.ShowModal;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
if DBEqx.Text='admin' then
  dlgl.ShowModal
else
  showmessage('您没有这个权限');

end;

procedure TForm1.N4Click(Sender: TObject);
begin
denglu.ShowModal;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
DM.ADOC.Execute;
DM.ADOTgltemp.Active:=true;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
shanchu.ShowModal;
end;

end.

首页 上一页 11 12 13 14 下一页 尾页 14/14/14