![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
第一次机房收费系统
文章平均质量分 90
谷艳爽faye
这个作者很懒,什么都没留下…
展开
-
第一次机房收费系统之结账
机房收费系统终于快弄完了,在结账的时候会有选择用户名,而选择了用户名操作员的真实姓名就会随着出现。那么就需要的form_load中添加用户名,在用户名点击事件中加载真实姓名。Private Sub Form_Load() Dim txtSQL As String Dim MsgText As String Dim user As ADODB.Recordset Dim user1 As ADODB.Recordset txtSQL = "select原创 2020-05-30 20:07:55 · 201 阅读 · 9 评论 -
第一次机房收费系统之添加、删除、更新用户
添加用户添加用户的时候跟之前注册的信息差不多,开始还是先判断各个文本框是否为空----核对密码是否一致----判断数据库里是否有此ID代码展示Private Sub cmdOK_Click() Dim user As ADODB.Recordset Dim txtSQL As String Dim Msgtext As String If txtUserName.Text = "" Then MsgBox "?用户名不能为空", vb原创 2020-05-26 10:38:14 · 255 阅读 · 8 评论 -
第一次机房收费系统之下机
做下机的时候刚开始是一点思路都没有的,只是知道一个大概的框架,但是里面的细节比如说更新哪个表、删除哪个表,什么时候删除等,这些还是不是太明白。但是把想法体现在流程图上就会清晰很多。在这个窗体中涉及到的表有basicdata(进行单价对比)、lin表、online表、student表。代码展示在下机的过程中,首先判断卡号是否为空,是否已经上机If txtCardNum.Text = "" Then '判断卡号是否为空 MsgBox "请输入卡号上机", vbOKOnly原创 2020-05-25 10:22:15 · 2531 阅读 · 7 评论 -
第一次机房收费系统之选中学生下线
选中学生下线这个窗体的思路比较简单,以下是我的流程图。代码段展示:根据流程图,我们首先是要选中要下机的学生,所以在MSHFlexGrid1中,选中某一行,这一行要有变色,用来区分是否选中。Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)Dim col As Integer If MSHFlexGrid1.TextMatrix(MSHFl原创 2020-05-24 09:19:20 · 281 阅读 · 12 评论