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

.UpdateBatch;

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.

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