有哪些信誉好的足球投注网站- 1、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
登录代码：var
loginform: Tloginform;
times:integer;
implementation
uses mainUnit;
{$R *.dfm}
procedure Tloginform.Button1Click(Sender: TObject);
var
asql,limication:string;
begin
if times2 then
begin
showmessage(错误次数太多,退出登录);
close;
end;
if trim(self.user.Text)= then
begin
showmessage(请输入用户名);
self.user.SetFocus;
exit;
end;
if trim(self.pass.Text)= then
begin
showmessage(请输入密码);
self.user.SetFocus;
exit;
end;
asql:=select * from tusers where LoginUserID=+self.user.Text+ and LoginPassWord=+self.pass.Text+;
with loginadoquery do
begin
close;
sql.Clear;
sql.add(asql);
open;
if loginadoquery.recordcount0 then
begin
limication:=fieldvalues[limication];
if limication=0 then
begin
showmessage(欢迎管理员成功登录);
mainform.Show;
loginform.Hide;
end;
if limication=1 then
begin
showmessage(欢迎操作员成功登录);
mainform.Show;
loginform.Hide;
mainform.ToolButton2.Enabled:=false;
mainform.ToolButton3.Enabled:=false;
mainform.ToolButton4.Enabled:=false;
mainform.N11.Enabled:=false;
mainform.N12.Enabled:=false;
mainform.N13.Enabled:=false;
end;
end
else
begin
showmessage(用户名或密码错误);
times:=times+1; //times 是全局变量，要在上面就定义的
self.user.SetFocus;
end;
end;
end;
procedure Tloginform.FormCreate(Sender: TObject);
begin
times:=0;//在窗体创建时赋予times初始值为0
end;
procedure Tloginform.Button2Click(Sender: TObject);
begin
close;
end;
procedure Tloginform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;
添加代码：procedure Taddform.Button1Click(Sender: TObject);
var
asql:string;
begin
asql:=insert into temployees(employeeid,deptid,EmployeeName,BirthDay,Tel,HomeAddr) values(+self.Edit1.Text+,+self.DBLookupCombo
文档评论（0）