第一次机房收费系统之管理员显示值班教师

2024-03-27 02:08

本文主要是介绍第一次机房收费系统之管理员显示值班教师,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!

操作流程:

在窗体加载时直接显示数据。

使用数据库表:

worklog_info(存放用户上下机记录)

具体代码如下:

Option Explicit
Dim H As Single '定义窗体高的变量 '定义窗体高的变量
Dim W As Single '定义窗体高的变量 '定义窗体宽的变量Private Sub cmdOFF_Click()Unload frmDutyTeacher
End SubPrivate Sub Form_Load()H = Me.HeightW = Me.WidthWith MSHFlexGrid.Rows = 1.TextMatrix(0, 0) = "记录号".TextMatrix(0, 1) = "教师".TextMatrix(0, 2) = "级别".TextMatrix(0, 3) = "登录日期".TextMatrix(0, 4) = "登录时间".TextMatrix(0, 5) = "机器名"End With
End SubPrivate Sub Form_Resize()'对worklog_info表操作Dim mrcworklog As ADODB.Recordset '用于存放记录集Dim worklogSQL As String '用于存放SQL语句Dim worklogMsgText As String '用于存放返回信息worklogSQL = "select * from worklog_info where status='True'"Set mrcworklog = ExecuteSQL(worklogSQL, worklogMsgText)'查看是否存在WORKLOG的记录If mrcworklog.EOF = True ThenMsgBox "没有值班教师!", vbOKOnly + vbInformation, "提示"ElseWith MSHFlexGridDo While mrcworklog.EOF = False.Rows = .Rows + 1.CellAlignment = 4.TextMatrix(.Rows - 1, 0) = Trim(mrcworklog.Fields(0)).TextMatrix(.Rows - 1, 1) = Trim(mrcworklog.Fields(1)).TextMatrix(.Rows - 1, 2) = Trim(mrcworklog.Fields(2)).TextMatrix(.Rows - 1, 3) = Trim(mrcworklog.Fields(3)).TextMatrix(.Rows - 1, 4) = Trim(mrcworklog.Fields(4)).TextMatrix(.Rows - 1, 5) = Trim(mrcworklog.Fields(7))mrcworklog.MoveNextLoopEnd Withmrcworklog.CloseEnd IfMe.Height = HMe.Width = WMe.PaintPicture Me.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight '实现背景图随窗体变大而改变
End Sub

优化方面:

Dim H As Single '定义窗体高的变量 '定义窗体高的变量
Dim W As Single '定义窗体高的变量 '定义窗体宽的变量
Private Sub Form_Load()H = Me.HeightW = Me.Width
End SubPrivate Sub Form_Resize()Me.Height = HMe.Width = WMe.PaintPicture Me.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight '实现背景图随窗体变大而改变
End Sub

这篇关于第一次机房收费系统之管理员显示值班教师的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/850610

相关文章

使用Python构建一个高效的日志处理系统

《使用Python构建一个高效的日志处理系统》这篇文章主要为大家详细讲解了如何使用Python开发一个专业的日志分析工具,能够自动化处理、分析和可视化各类日志文件,大幅提升运维效率,需要的可以了解下... 目录环境准备工具功能概述完整代码实现代码深度解析1. 类设计与初始化2. 日志解析核心逻辑3. 文件处

Windows环境下解决Matplotlib中文字体显示问题的详细教程

《Windows环境下解决Matplotlib中文字体显示问题的详细教程》本文详细介绍了在Windows下解决Matplotlib中文显示问题的方法,包括安装字体、更新缓存、配置文件设置及编码調整,并... 目录引言问题分析解决方案详解1. 检查系统已安装字体2. 手动添加中文字体(以SimHei为例)步骤

golang程序打包成脚本部署到Linux系统方式

《golang程序打包成脚本部署到Linux系统方式》Golang程序通过本地编译(设置GOOS为linux生成无后缀二进制文件),上传至Linux服务器后赋权执行,使用nohup命令实现后台运行,完... 目录本地编译golang程序上传Golang二进制文件到linux服务器总结本地编译Golang程序

Linux系统性能检测命令详解

《Linux系统性能检测命令详解》本文介绍了Linux系统常用的监控命令(如top、vmstat、iostat、htop等)及其参数功能,涵盖进程状态、内存使用、磁盘I/O、系统负载等多维度资源监控,... 目录toppsuptimevmstatIOStatiotopslabtophtopdstatnmon

linux重启命令有哪些? 7个实用的Linux系统重启命令汇总

《linux重启命令有哪些?7个实用的Linux系统重启命令汇总》Linux系统提供了多种重启命令,常用的包括shutdown-r、reboot、init6等,不同命令适用于不同场景,本文将详细... 在管理和维护 linux 服务器时,完成系统更新、故障排查或日常维护后,重启系统往往是必不可少的步骤。本文

SpringSecurity显示用户账号已被锁定的原因及解决方案

《SpringSecurity显示用户账号已被锁定的原因及解决方案》SpringSecurity中用户账号被锁定问题源于UserDetails接口方法返回值错误,解决方案是修正isAccountNon... 目录SpringSecurity显示用户账号已被锁定的解决方案1.问题出现前的工作2.问题出现原因各

Mac系统下卸载JAVA和JDK的步骤

《Mac系统下卸载JAVA和JDK的步骤》JDK是Java语言的软件开发工具包,它提供了开发和运行Java应用程序所需的工具、库和资源,:本文主要介绍Mac系统下卸载JAVA和JDK的相关资料,需... 目录1. 卸载系统自带的 Java 版本检查当前 Java 版本通过命令卸载系统 Java2. 卸载自定

基于Python实现一个简单的题库与在线考试系统

《基于Python实现一个简单的题库与在线考试系统》在当今信息化教育时代,在线学习与考试系统已成为教育技术领域的重要组成部分,本文就来介绍一下如何使用Python和PyQt5框架开发一个名为白泽题库系... 目录概述功能特点界面展示系统架构设计类结构图Excel题库填写格式模板题库题目填写格式表核心数据结构

Linux系统中的firewall-offline-cmd详解(收藏版)

《Linux系统中的firewall-offline-cmd详解(收藏版)》firewall-offline-cmd是firewalld的一个命令行工具,专门设计用于在没有运行firewalld服务的... 目录主要用途基本语法选项1. 状态管理2. 区域管理3. 服务管理4. 端口管理5. ICMP 阻断

RedisTemplate默认序列化方式显示中文乱码的解决

《RedisTemplate默认序列化方式显示中文乱码的解决》本文主要介绍了SpringDataRedis默认使用JdkSerializationRedisSerializer导致数据乱码,文中通过示... 目录1. 问题原因2. 解决方案3. 配置类示例4. 配置说明5. 使用示例6. 验证存储结果7.