• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号
登陆 注册

DELPHI中登录窗体完美实现

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
  1. 工程文件   
  2.   
  3.     
  4.   
  5. program stuResult;   
  6.   
  7. uses   
  8.   Forms,   
  9.   controls,   
  10.   login in 'login.pas' {loginform},   
  11.   MainFrm in 'MainFrm.pas' {mainform},   
  12.   resultFrm in 'resultFrm.pas' {resultform},   
  13.   dmFrm in 'dmFrm.pas' {DM: TDataModule},   
  14.   termAdd in 'termAdd.pas' {termForm},   
  15.   classAdd in 'classAdd.pas' {classForm},   
  16.   courseAdd in 'courseAdd.pas' {courseForm},   
  17.   specialFrm in 'specialFrm.pas' {specialForm},   
  18.   specialBrowseFrm in 'specialBrowseFrm.pas' {specialBrowseForm},   
  19.   specialModifyFrm in 'specialModifyFrm.pas' {specialModifyForm},   
  20.   studentFrm in 'studentFrm.pas' {studentForm},   
  21.   userfrm in 'userfrm.pas' {userForm},   
  22.   about in 'about.pas' {AboutBox},   
  23.   sysSetFrm in 'sysSetFrm.pas' {sysSetForm};   
  24.   
  25. {$R *.res}   
  26.   
  27. begin   
  28.   Application.Initialize;   
  29.   Application.CreateForm(TDM, DM);   
  30.   Application.CreateForm(Tmainform, mainform); //主窗体MDI和登录窗体fsNormal的visible属性为false   
  31.   loginform:=Tloginform.Create(Application);   
  32.   loginform.ShowModal;   
  33.   application.Run;   
  34. end.   
  35.   
  36.     
  37.   
  38. 登录窗体   
  39.   
  40.     
  41.   
  42. procedure Tloginform.Button1Click(Sender: TObject);   
  43. begin   
  44.   DM.ADOQuery1.Close;   
  45.   DM.ADOQuery1.SQL.Clear;   
  46.   DM.ADOQuery1.SQL.Text:='Select * From tbUser where 用户名='''+Edit1.Text+''' and 密码='''+edit2.Text+'''';   
  47.   DM.ADOQuery1.Open;   
  48.   if DM.ADOQuery1.Bof and DM.ADOQuery1.Eof then   
  49.     begin   
  50.       Application.MessageBox('用户名或密码错误','出错',0+48);   
  51.       Edit1.SetFocus;   
  52.       Edit1.SelectAll;   
  53.     end   
  54.   else  
  55.     begin   
  56.       mainform.Show;   
  57.       loginform.Hide;   
  58.       loginform.FreeOnRelease;   
  59.     end;   
  60. end;  

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
Delphi10.2非官方补丁合集发布时间：2022-07-18
下一篇：
Delphi使用WindowsAPI函数AnimateWindow实现窗体特效发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap