guodaofei.frm

是用VB^开发的办公室车辆使用管理软件

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Begin VB.Form guodaofei 
   Caption         =   "过道费考核统计表"
   ClientHeight    =   6945
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9825
   LinkTopic       =   "Form1"
   ScaleHeight     =   6945
   ScaleWidth      =   9825
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      Height          =   270
      Left            =   1200
      TabIndex        =   11
      Top             =   2520
      Visible         =   0   'False
      Width           =   1575
   End
   Begin VB.CommandButton Command2 
      Caption         =   "修 改"
      Height          =   495
      Left            =   6480
      TabIndex        =   10
      Top             =   480
      Width           =   1095
   End
   Begin VB.ComboBox Combo3 
      Height          =   300
      Left            =   3120
      TabIndex        =   6
      Top             =   600
      Width           =   1335
   End
   Begin VB.ComboBox Combo2 
      Height          =   300
      Left            =   3120
      TabIndex        =   5
      Top             =   120
      Width           =   1935
   End
   Begin VB.ComboBox Combo1 
      Height          =   300
      Left            =   840
      TabIndex        =   4
      Top             =   600
      Width           =   1455
   End
   Begin MSMask.MaskEdBox Mask 
      Height          =   375
      Left            =   960
      TabIndex        =   3
      Top             =   120
      Width           =   855
      _ExtentX        =   1508
      _ExtentY        =   661
      _Version        =   393216
      MaxLength       =   5
      Mask            =   "9999年"
      PromptChar      =   "_"
   End
   Begin VB.CommandButton Command1 
      Caption         =   "查  询"
      Height          =   495
      Left            =   5400
      TabIndex        =   1
      Top             =   480
      Width           =   1095
   End
   Begin MSFlexGridLib.MSFlexGrid MSF 
      Height          =   5055
      Left            =   120
      TabIndex        =   0
      Top             =   1200
      Width           =   9015
      _ExtentX        =   15901
      _ExtentY        =   8916
      _Version        =   393216
      FixedCols       =   0
      AllowUserResizing=   3
   End
   Begin VB.Label Label13 
      Caption         =   "司机:"
      Height          =   255
      Left            =   2400
      TabIndex        =   9
      Top             =   720
      Width           =   855
   End
   Begin VB.Label Label12 
      Caption         =   "车牌:"
      Height          =   255
      Left            =   2400
      TabIndex        =   8
      Top             =   240
      Width           =   615
   End
   Begin VB.Label Label11 
      Caption         =   "车型:"
      Height          =   375
      Left            =   360
      TabIndex        =   7
      Top             =   720
      Width           =   615
   End
   Begin VB.Label Label1 
      Caption         =   "日 期:"
      Height          =   375
      Left            =   360
      TabIndex        =   2
      Top             =   240
      Width           =   735
   End
End
Attribute VB_Name = "guodaofei"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim i As Integer
Dim result As Recordset
Dim sql As String

Private Sub Combo1_Click()
        Text1.Visible = False
        MSF.Clear
        MSF.Rows = 2
        MSF.FormatString = "  日 期   |^      路    线      |^  次数 |^ 单次计费标准  |^  金额 |^  总计 |^  实际  |^   超出  "
      sql = "select * from cheliangmingcheng where 车型='" & Trim(Combo1.Text) & "'"
       result.Open sql, con, adOpenStatic, adLockOptimistic
       If result.RecordCount <> 0 Then
              result.MoveFirst
              Do While Not result.EOF
                  Combo2.Text = Trim(result("车牌"))
                  Combo3.Text = Trim(result("司机"))
                
                  result.MoveNext
              Loop
        End If
        result.Close
End Sub

Private Sub Command1_Click()
        MSF.Clear
        MSF.Rows = 2
        MSF.FormatString = "  日 期   |^      路    线      |^  次数 |^ 单次计费标准  |^  金额 |^  总计 |^  实际  |^   超出  "
        MSF.MergeCells = flexMergeRestrictRows
        MSF.MergeCol(0) = True
       
       sql = "select * from guodaofei where  车型='" & Trim(Combo1.Text) & "' and 日期 like '" & Trim(Mask.Text) & "%' order by 日期"
       result.Open sql, con, adOpenStatic, adLockOptimistic
         If result.RecordCount <> 0 Then
              result.MoveFirst
              i = 1
              Do While Not result.EOF
                   MSF.TextArray(i * MSF.Cols) = Mid(Trim(result("日期")), 6, 3)
                   MSF.TextArray(i * MSF.Cols + 1) = Trim(result("路线"))
                   MSF.TextArray(i * MSF.Cols + 2) = Trim(result("次数"))
                   MSF.TextArray(i * MSF.Cols + 3) = Trim(result("单次计费标准"))
                   MSF.TextArray(i * MSF.Cols + 4) = Trim(result("金额"))
                   MSF.TextArray(i * MSF.Cols + 5) = Trim(result("总计"))
                   MSF.TextArray(i * MSF.Cols + 6) = Trim(result("实际"))
                   MSF.TextArray(i * MSF.Cols + 7) = Val(Trim(result("实际"))) - Val(Trim(result("总计")))
                   MSF.MergeCol(5) = True
                   MSF.MergeCol(6) = True
                   MSF.Rows = MSF.Rows + 1
                   i = i + 1
                   result.MoveNext
              Loop
        End If
        result.Close
        Dim s, s1, s2 As Double
        For i = 1 To MSF.Rows - 2
            s = s + Val(Trim(MSF.TextArray(i * MSF.Cols + 4)))
        Next i
         MSF.TextArray((MSF.Rows - 1) * MSF.Cols) = "合计"
         MSF.TextArray((MSF.Rows - 1) * MSF.Cols + 4) = s
        sql = "select distinct 日期,总计,实际 from guodaofei where 车型='" & Trim(Combo1.Text) & "' and 日期 like '" & Trim(Mask.Text) & "%' order by 日期"
        result.Open sql, con, adOpenStatic, adLockOptimistic
         If result.RecordCount <> 0 Then
              result.MoveFirst
              Do While Not result.EOF
                 s1 = s1 + Val(Trim(result("总计")))
                 s2 = s2 + Val(Trim(result("实际")))
                 result.MoveNext
              Loop
         End If
         MSF.TextArray((MSF.Rows - 1) * MSF.Cols + 5) = s1
         MSF.TextArray((MSF.Rows - 1) * MSF.Cols + 6) = s2
         MSF.TextArray((MSF.Rows - 1) * MSF.Cols + 7) = s2 - s1
         result.Close
End Sub

Private Sub Command2_Click()
     If MsgBox("确认修改吗?", vbYesNo, "警告") = vbNo Then
         Exit Sub
     End If
     sql = "delete from  guodaofei where 车型='" & Trim(Combo1.Text) & "' and 车牌='" & Trim(Combo2.Text) & "'"
     result.Open sql, con, adOpenStatic, adLockOptimistic
     For i = 1 To MSF.Rows - 2
             sql = "insert into guodaofei values('" & Trim(Mask.Text) & Trim(MSF.TextArray(i * MSF.Cols)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 1)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 2)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 3)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 4)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 5)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 6)) & "','" & Trim(Combo1.Text) & "','" & Trim(Combo2.Text) & "','" & Trim(Combo3.Text) & "')"
         '    MsgBox sql
             result.Open sql, con, adOpenStatic, adLockOptimistic
     Next i
   '  result.Close
     MsgBox "修改完成"
End Sub

Private Sub Form_Load()
         Move Screen.Width / 2 - guodaofei.Width / 2, Screen.Height / 2 - guodaofei.Height / 2
         MSF.FormatString = "  日 期   |^      路    线      |^  次数 |^ 单次计费标准  |^  金额 |^  总计 |^  实际  |^   超出  "
         Mask.Text = Format(Date, "yyyy年")
        

'         MSF.Rows = 74
'         For i = 1 To MSF.Rows - 1
'              If i < 7 Then
'                    MSF.TextArray(i * MSF.Cols) = " 1月 "
'              ElseIf i >= 7 And i < 13 Then
'                     MSF.TextArray(i * MSF.Cols) = " 2月 "
'              ElseIf i >= 13 And i < 19 Then
'                     MSF.TextArray(i * MSF.Cols) = " 3月 "
'              ElseIf i >= 19 And i < 25 Then
'                     MSF.TextArray(i * MSF.Cols) = " 4月 "
'              ElseIf i >= 25 And i < 31 Then
'                     MSF.TextArray(i * MSF.Cols) = " 5月 "
'              ElseIf i >= 31 And i < 37 Then
'                     MSF.TextArray(i * MSF.Cols) = " 6月 "
'              ElseIf i >= 37 And i < 43 Then
'                     MSF.TextArray(i * MSF.Cols) = " 7月 "
'              ElseIf i >= 43 And i < 49 Then
'                     MSF.TextArray(i * MSF.Cols) = " 8月 "
'              ElseIf i >= 49 And i < 55 Then
'                     MSF.TextArray(i * MSF.Cols) = " 9月 "
'              ElseIf i >= 55 And i < 61 Then
'                     MSF.TextArray(i * MSF.Cols) = " 10月 "
'
'              ElseIf i >= 61 And i < 67 Then
'                     MSF.TextArray(i * MSF.Cols) = " 11月 "
'              ElseIf i >= 67 And i < 73 Then
'                     MSF.TextArray(i * MSF.Cols) = " 12月 "
'              End If
'
'         Next i
          Call aa
          Set result = New Recordset
          sql = "select * from cheliangmingcheng "
          result.Open sql, con, adOpenStatic, adLockOptimistic
         If result.RecordCount <> 0 Then
              result.MoveFirst
              Do While Not result.EOF
                  Combo1.AddItem Trim(result("车型"))
                  result.MoveNext
              Loop
         End If
         result.Close
      
End Sub

Private Sub MSF_Click()
       If (MSF.Col = 1 Or MSF.Col = 2 Or MSF.Col = 3) And MSF.Row >= 1 And MSF.Row < MSF.Rows - 1 Then
            Text1.Visible = True
            Text1.SetFocus
            Text1.Text = Trim(MSF.TextArray(MSF.Row * MSF.Cols + MSF.Col))
            Text1.Top = MSF.Top + MSF.CellTop
            Text1.Left = MSF.Left + MSF.CellLeft
            Text1.Width = MSF.CellWidth
        Else
              Text1.Visible = False
        End If
End Sub

Private Sub Text1_Change()
       Dim s, s1, s2, s3 As Double
       s1 = 0
     
       MSF.Text = Text1.Text
       If MSF.Col = 2 Then
            MSF.TextArray(MSF.Row * MSF.Cols + 4) = Val(Trim(MSF.TextArray(MSF.Row * MSF.Cols + 2))) * Val(Trim(MSF.TextArray(MSF.Row * MSF.Cols + 3)))
          '  MsgBox MSF.TextArray(MSF.Row * MSF.Cols)
            For i = 1 To MSF.Rows - 1
                If Trim(MSF.TextArray(MSF.Row * MSF.Cols)) = Trim(MSF.TextArray(i * MSF.Cols)) Then
                   s = s + Val(Trim(MSF.TextArray(i * MSF.Cols + 4)))
                End If
            Next i
            For i = 1 To MSF.Rows - 1
                If Trim(MSF.TextArray(MSF.Row * MSF.Cols)) = Trim(MSF.TextArray(i * MSF.Cols)) Then
                     MSF.TextArray(i * MSF.Cols + 5) = s
                     MSF.TextArray(i * MSF.Cols + 7) = Val(Trim(MSF.TextArray(i * MSF.Cols + 6))) - s
                End If
            Next i
            
           For i = 1 To MSF.Rows - 2
                   s1 = s1 + Val(Trim(MSF.TextArray(i * MSF.Cols + 4)))
                 '  MsgBox s1
                  If i > 1 And Trim(MSF.TextArray(i * MSF.Cols)) <> Trim(MSF.TextArray((i - 1) * MSF.Cols)) Then
                      s2 = s2 + Val(Trim(MSF.TextArray(i * MSF.Cols + 5)))
                      s3 = s3 + Val(Trim(MSF.TextArray(i * MSF.Cols + 7)))
                  End If
                  If i = 1 Then
                      s2 = s2 + Val(Trim(MSF.TextArray(i * MSF.Cols + 5)))
                      s3 = s3 + Val(Trim(MSF.TextArray(i * MSF.Cols + 7)))
                  End If
           Next i
           MSF.TextArray((MSF.Rows - 1) * MSF.Cols + 4) = s1
           MSF.TextArray((MSF.Rows - 1) * MSF.Cols + 5) = s2
           MSF.TextArray((MSF.Rows - 1) * MSF.Cols + 7) = s3
       End If
End Sub