varActio
TCloseActio
begi
ifMessageDlg你选择了系统退出，退出将不能启动管理系统，是否真的退出？mtCo
firmatio
mbYesmbNo0mrYesthe
actio
caFree如果单击的是按钮，则退出elseACTIONcaNo
e如果单击否按钮，则继续系统登录e
dprocedureTForm1Butto
1ClickSe
derTObjectvarlasttimea
ameapasssqlstrstri
g定义四个字符串a
ameapass分别用来存放用户名和密码，sqltr存放查询语句。begi
i
clogi
timesiflogi
timesmaxtimesthe
begi
showmessage登录次数过多，退出系统applicatio
Termi
atee
delsebegi
ifle
gthtrimedit1Text0orle
gthtrimedit2Text0the
begi
a
ametrimedit1Textapasstrimedit2Textsqlstrselectfromt_userwhereuser
amea
amea
duserpassapassADOQuery1Closeadoquery1SQLClearadoquery1SQLAddsqlstrADOQuery1Ope
ifadoquery1RecordCou
t0the
begi
lasttimedatetimetostrdatesqlstrupdatet_usersettimestimes1lasttimelasttimewhereuser
amea
ameADOQuery1CloseADOQuery1SQLClearADOQuery1SQLAddsqlstrADOQuery1ExecSQL执行SQL语句更新；showmessage登录成功！
fe
delsebegi
showmessage请输入正确的用户名和密码edit1SetFocus取输入焦点；edit1SelectAll选择文本框的所有内容e
de
de
de
de
d保存，运行就OK啦。我实验的，没有问题。若有问题，请大家自己查看下吧！
fr