?? guodaofei.frm
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -