



全文预览已结束
下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1)登陆窗体代码设计窗体代码主要实现了连接数据库的功能,这里用于连接用户信息表。其程序如下:Private Sub Form_Load()Dim i As Integer If App.PrevInstance Then MsgBox (程序已经运行,不能再次装载。), vbExclamation Unload Me End If 本段代码用于判定本程序是否已经装载于内存中,以避免程序的多重启动 i = 0 Open App.Path + user.ini For Input As #1 Do While Not EOF(1) Input #1, user(i), pws(i), state(i), Emplo(i) If state(i) = A Then Combo1.AddItem user(i) End If i = i + 1 Loop Close #1 Combo1.ListIndex = 1 在窗口装载阶段读取用户设置文件获取用户信息 并装载于用户列表框中End Sub(2)“取消”按钮是退出登录界面,退出系统的。其代码如下:Private Sub CmdCancel_Click() Unload Me End End Sub(3)“确定”按钮代码设计“确定”按钮代码主要实现了用户登陆时,用户名和密码的认证,当用户名或密码错误时,系统提示错误。其程序如下:Private Sub cmdOK_Click() If txtPassword = pws(Combo1.ListIndex) Then CurId = Combo1.ListIndex EmploID = Emplo(CurId) CurUser = user(CurId) CurPsw = pws(CurId) Me.Hide Load FrmMain FrmMain.Show Else MsgBox Invalid Password, try again!, , Login txtPassword.SetFocus SendKeys Home+End End If End Sub(1)窗体选择的单击事件代码设计窗体选择的单击事件代码主要实现了进入本系统所有模块的功能,这里有以下几个模块,它们分别是员工信息模块,假条信息模块,工资管理模块,用户设置模块等/其程序如下:Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 Call showemployee 显示员工信息模块 Case 2 Call showleave 显示假条信息模块 Case 3 Call showsalary 显示工资信息模块 Case 4 If frmLogin.CurUser = root Then FrmSys.Show Else FrmPsw.Show Pwin = Frmmain FrmMain.Enabled = False End If End SelectEnd Sub(2)命令按钮的单击事件代码设计命令按钮的代码主要实现了进入本系统部分主要模块的功能,这里有以下几个功能,它们分别是编辑,删除,查询,设置。其程序如下:Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 edit FrmEdit.Show FrmMain.Enabled = False Case 2 del If DBGA.SelBookmarks.Count = 1 Then If MsgBox(确定要删除吗?, vbOKCancel, 确定) = vbOK Then DataA.Recordset.Delete cuAp = 0 Else MsgBox 请选择要删除的条目! End If Case 3 seek FrmSearch.Show Case 4 setup FrmSetup.Show End SelectEnd Sub(3)口令修改的主要代码设计“确定”按钮的代码主要实现了用户密码的修改功能,当旧密码错误或两次新密码输入不一致时,系统会提示错误。其程序如下:Private Sub cmdOK_Click() Dim fil, i, Usercount As Integer If TxtNew1.Text TxtNew2.Text Then MsgBox two times no yizhi TxtNew1.SetFocus TxtNew2.Text = SendKeys Home+End Exit Sub ElseIf Txtold.Text frmLogin.CurPsw Then MsgBox old password wrong Txtold.SetFocus TxtNew1.Text = TxtNew2.Text = SendKeys Home+End Exit Sub Else fil = FreeFile() Open App.Path + user.ini For Input As #fil i = 0 Do While Not EOF(fil) Input #fil, user(i), pws(i) Input #fil, state(i), Emplo(i) i = i + 1 Loop Usercount = i Close #fil pws(frmLogin.CurId) = TxtNew1.Text frmLogin.CurPsw = TxtNew1.Text fil = FreeFile() Open App.Path + user.ini For Output As #fil For i = 0 To Usercount - 1 Print #fil, user(i); ,; pws(i); ,; state(i); ,; Emplo(i) Next i Close #fil Txtold.Text = TxtNew1.Text = TxtNew2.Text = Me.Hid
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- DB13T 5144-2019 宠物饲料生产企业检验化验室建设指南
- DB13T 5003-2019 水利水电工程建筑信息模型应用标准
- 科技感家居小电器行业深度调研及发展项目商业计划书
- 罕见病基因治疗临床转化行业深度调研及发展项目商业计划书
- 浙江省联考考试试题及答案
- 浙江成人自考考试题库及答案
- 招行应聘笔试题目及答案
- 韵律操教师面试题及答案
- 运输部业务员笔试题目及答案
- 云南供电笔试题目及答案
- (2025)纪检监察业务知识考试题及含答案
- 网络安全技术实操技能考核试题及答案
- (正式版)HGT 6313-2024 化工园区智慧化评价导则
- 《分析化学》期末考试试卷(A)及答案
- 烧烤店菜单模板
- 11-059 职业技能鉴定指导书 继电保护(第二版)(11-059职业技能鉴定指导书职业标准试题库)
- GMP基础知识(新员工培训)
- LGJ钢芯铝绞线参数
- 机械加工工艺卡片实例(共12页)
- 油库安全点检表
- 金属材料力学性能检测样品制样作业指导书
评论
0/150
提交评论