![](https://img-blog.csdnimg.cn/20201014180756780.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
第一次机房
任书含 廊坊师范提高班 十五期
Eureka ^ 7
展开
-
机房下机总结
机房下机是一个比较复杂的过程,同样涉及多个数据表间的数据交换,同时还涉及到时间的计算及金钱的计算。特别是金钱的计算,是整个机房系统的中的重中之重,需要仔细研究,可以肯定的是没有一个网吧希望有一个算不准钱的机房系统。 这是我下机的数据流程图。 这是我的下机代码: ...原创 2018-12-30 21:17:17 · 217 阅读 · 5 评论 -
机房上机总结
因为机房的上下机涉及到的表比较多,因此需要在进行程序的编写前构建好数据流程图。以下是我自己所做的数据流程图,可能不太全面如有不足,请斧正。 Private Sub Command1_Click() Dim txtSQL As String Dim MsgText As String Dim i As Integer Dim mrc1 As New ADODB.Rec...原创 2018-12-30 11:31:38 · 273 阅读 · 7 评论 -
机房优化(导出Excel篇)
在上周与师父的机房第一遍验收中发现了很多没有注意到的小问题。其中师父点出了我的导出Excel的不足,并给我提出了建议。于是经过了大量的尝试我找到了三种导出Excel的方法。 方法一 这种方法是我最开始使用的方法 private cmdoutfile_click() Dim ExcelApp As excel.Application Dim ExcelBook As excel.Wo...原创 2019-01-26 11:32:24 · 331 阅读 · 12 评论 -
机房优化
在跨过了机房的三座大山之后,我们更要回过头来,看看我们所做的窗体有哪些功能需要完善。 1.组合查询之退格 思路:利用timer的特性,实时判断用户的选择,达到实现退格的目的。 Private Sub Timer1_Timer() If ComboCombine1.Text = "" Then Combofield2.Enabled = False Combo...原创 2019-02-21 16:04:07 · 330 阅读 · 12 评论 -
机房结账
感受 机房项目总共有三个大难点,其中比较重要的分别是上下机和结账,而组合查询因为没有涉及到金钱,所以暂居两者之后。之前我曾分享了自己对于上机,下机的想法,所以这次我就来写写结账窗体的那二三事。 1.预载用户列 Private Sub Form_Load() Dim txtSQL As String Dim Msgtext As String Dim mrc As ADODB...原创 2019-02-20 11:45:02 · 285 阅读 · 9 评论 -
组合查询
感受 在刚开始接触机房时,就一直听项目进度走的快的人说。机房项目中有个三座大山。其中组合查询是嘘头最高的,称谁碰谁懵逼。在设计组合查询这个窗体时,我其实也挺担心的。但是做着做着突然发现所谓的组合查询其实早在学生信息系统的时候就悄悄的出现了一次。 不知道还有多少人对这个有印象,其实他就是一个组合查询的实例。 在做完这个组合查询的窗体之后,我就知道了其实组合查询其实并不难,难的是静下心来,去查这些相...原创 2019-02-20 15:16:57 · 231 阅读 · 10 评论