机房收费系统之常用语句

【前言】

       机房收费系统在验收的时候，师父最后给我提了一个建议，希望我可以关于机房收费系统的常用语句总结一下，那些固定的语句以后也会经常会用到，总结一下对于以后的学习比较有利，自己也较有同感，因此写下这篇博客。

 

【正文】

一、对于数据库的增、删、改、查

<定义>：

<span style="font-size:18px;">   Dim mrc As ADODB.Recordset
   Dim txtSQL As String
   Dim Msgtext As String
</span>

<增>：

   <span style="font-size:18px;"> mrc.AddNew
    With mrc
        .Fields(1) = txtCardID.Text
        .Fields(2) = txtSID.Text
        .Fields(3) = txtName.Text
        .Fields(4) = txtDepart.Text
        .Fields(5) = txtSex.Text
        .Fields(6) = txtOndate.Text
        .Fields(7) = txtOntime.Text
        .Fields(8) = txtOffdate.Text
        .Fields(9) = txtOfftime.Text
        .Fields(10) = txtContime.Text
        .Fields(11) = Val(txtConsume.Text)
        .Fields(12) = Val(txtCash.Text)
        .Fields(13) = "正常下机"
        .Fields(14) = Winsock1.LocalHostName
    End With
    mrc.Update</span>

<查>：

查询条件限制为1条：

  <span style="font-size:18px;">  </span><span style="font-size:18px;">txtSQL = "select * from online_info where cardno='" & Trim(txtCardID.Text) & "'"
   Set mrc = ExecuteSQL(txtSQL, Msgtext)</span>

查询条件限制为多条：

<span style="font-size:18px;">   txtSQL = "select * from student_Info where cardno ='" & Trim(txtCardID.Text) & "'and status='" & "不使用" & "'"
   Set mrcStudent = ExecuteSQL(txtSQL, Msgtext)</span>

对于SQL数据库的一些操作经常会出现很多引号，容易出现错误，不明白如何将这些引号断开来看，下图是根据自己的理解来划分引号的位置（如果大家有不同的见解，希望我们可以讨论）：

 

二、对于MDI窗体及窗体上的图片，如何将子窗体在运行的时候显示

<定义API函数>：

<span style="font-size:18px;">Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
</span>

 

<将窗体显示>：

<span style="font-size:18px;">SetParent frmReCashRecord.hWnd, Picture1.hWnd</span>

 

三、将数据库中的信息显示在MSFlexGrid1控件中

<span style="font-size:18px;">With MSFlexGrid1
            .CellAlignment = 4
            .Rows = 1
            .TextMatrix(0, 0) = "用户名"
            .TextMatrix(0, 1) = "姓名"
            .TextMatrix(0, 2) = "开户人"
        
        Do While mrc.EOF = False
            .Rows = .Rows + 1
            .TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields(0))
            .TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields(3))
            .TextMatrix(.Rows - 1, 2) = Trim(mrc.Fields(1))
            mrc.MoveNext
        Loop
End With</span>

 

四、对于MDI窗体，如何使在打开第二个窗体时将第一个窗体最小化在MDI窗体的左下端

<span style="font-size:18px;">Private Sub form_Activate()
    Dim a As Form
    For Each a In Forms
        If a.Name <> frmMain.Name And a.Name <> Me.Name Then
           a.WindowState = 1         '1为窗体最小化，0为正常，2为最大
             Me.ZOrder 0     '日结账单窗体显示在MDI窗体的最前端
          End If
    Next
End Sub</span>

 

五、将MSFlexGrid控件中的信息导出到Excel表

<span style="font-size:18px;">Public Sub OutDataToExcel(Flex As MSFlexGrid) '导出至Excel表的过程
   Dim s As String
   Dim i As Integer
   Dim j As Integer
   Dim k As Integer
   On Error GoTo ert
   Me.MousePointer = 11
   Dim Excelapp As Excel.Application
   Set Excelapp = New Excel.Application
   On Error Resume Next
   DoEvents
   Excelapp.SheetsInNewWorkbook = 1 '代表新插入工作表的个数
   Excelapp.Workbooks.Add
   Excelapp.ActivateSheet.Cells(1, 3) = s
   Excelapp.Range("C1").Select
   Excelapp.Selection.Font.FontStyle = "Bold"
   Excelapp.Selection.Font.Size = 16
   With Flex
   k = .Rows
   For i = 0 To k - 1
   For j = 0 To .Cols - 1
   DoEvents
   Excelapp.ActivateSheet.Cells(3 + i, j + 1) = "'" & .TextMatrix(i, j)
   Next j
   Next i
   End With
   Me.MousePointer = 0
   Excelapp.Visible = True  
ert:
   If Not (Excelapp Is Nothing) Then
   Excelapp.Quit
   End If
  
End Sub

Private Sub cmdExcel_Click()
    OutDataToExcel MSFlexGrid1
End Sub</span>

六、关于选择日期的时候，出现起始和终止日期，设置温馨提示（不可晚于目前日期、终止日期不可小于起始日期）

<span style="font-size:18px;">Private Sub DTPicker1_change()
    If DTPicker1.Value > Date Then
        MsgBox "起始日期晚于目前日期，请验证", vbOKOnly + vbExclamation, "警告"
        DTPicker1.Value = Date
    End If
End Sub

Private Sub DTPicker2_change()
    If DTPicker2.Value > Date Then
        MsgBox "终止日期晚于目前日期，请验证", vbOKOnly + vbExclamation, "警告"
        DTPicker2.Value = Date
    End If
    Dim a As Integer
    a = DateDiff("d", DTPicker1.Value, DTPicker2.Value)
    If a <= 0 Then
        MsgBox "终止日期需晚于起始日期，请验证", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    End If

End Sub</span>

【总结】

       在总结的过程中，再次加深了对这些常用语句的印象。学习完后总结是必不可少的，这篇博客希望可以对大家有所帮助，在以后前进的道路上多回头看看。