📄 量本利分析.frm
字号:
TabIndex = 36
Top = 3450
Width = 765
End
Begin VB.Label Label23
BackStyle = 0 'Transparent
Caption = "车补收入"
Height = 345
Left = 5310
TabIndex = 35
Top = 3450
Width = 765
End
Begin VB.Label Label22
BackStyle = 0 'Transparent
Caption = "合 计"
Height = 345
Left = 8400
TabIndex = 34
Top = 3450
Width = 765
End
Begin VB.Label Label17
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label17"
Height = 315
Left = 1650
TabIndex = 33
Top = 4050
Width = 1515
End
Begin VB.Label Label18
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label18"
Height = 225
Left = 4710
TabIndex = 32
Top = 4050
Width = 1665
End
Begin VB.Label Label19
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label19"
Height = 315
Left = 8130
TabIndex = 31
Top = 4050
Width = 1425
End
Begin VB.Line Line4
X1 = 86.657
X2 = 699.298
Y1 = 120.914
Y2 = 120.914
End
Begin VB.Line Line5
Index = 1
X1 = 538.077
X2 = 538.077
Y1 = 79.926
Y2 = 163.951
End
Begin VB.Line Line5
Index = 2
X1 = 419.176
X2 = 419.176
Y1 = 79.926
Y2 = 163.951
End
Begin VB.Line Line5
Index = 3
X1 = 197.496
X2 = 197.496
Y1 = 79.926
Y2 = 163.951
End
Begin VB.Line Line5
Index = 4
X1 = 298.26
X2 = 298.26
Y1 = 81.975
Y2 = 166
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
Caption = "利 润"
Height = 315
Left = 5100
TabIndex = 30
Top = 1350
Width = 825
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = "利润基数"
Height = 315
Left = 6780
TabIndex = 29
Top = 1380
Width = 825
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "增减工资"
Height = 315
Left = 8790
TabIndex = 28
Top = 1380
Width = 825
End
Begin VB.Label Label11
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label11"
Height = 315
Left = 4800
TabIndex = 27
Top = 1950
Width = 1305
End
Begin VB.Label Label12
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label12"
Height = 315
Left = 6540
TabIndex = 26
Top = 1950
Width = 1245
End
Begin VB.Label Label13
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label13"
Height = 345
Left = 8460
TabIndex = 25
Top = 1950
Width = 1335
End
Begin VB.Shape Shape3
BorderWidth = 2
FillColor = &H00C0E0FF&
FillStyle = 0 'Solid
Height = 2235
Left = 630
Top = 5190
Width = 10245
End
Begin VB.Shape Shape2
BorderWidth = 2
FillColor = &H00C0E0FF&
FillStyle = 0 'Solid
Height = 1275
Left = 1290
Top = 3210
Width = 9075
End
Begin VB.Shape Shape1
BorderColor = &H80000002&
BorderWidth = 2
FillColor = &H00C0E0FF&
FillStyle = 0 'Solid
Height = 1245
Left = 1290
Top = 1170
Width = 9135
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "单车量本利分析表"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 435
Left = 4170
TabIndex = 24
Top = 180
Width = 3075
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "单车收入表"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 525
Left = 4620
TabIndex = 23
Top = 2610
Width = 2025
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "单车成本表"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 495
Left = 4650
TabIndex = 22
Top = 4650
Width = 2535
End
Begin VB.Label Label40
BackStyle = 0 'Transparent
Caption = "Label40"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 285
Left = 1350
TabIndex = 21
Top = 780
Width = 1515
End
Begin VB.Label Label41
BackStyle = 0 'Transparent
Caption = "Label41"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 3240
TabIndex = 20
Top = 780
Width = 1395
End
Begin VB.Label Label42
BackStyle = 0 'Transparent
Caption = "Label42"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 315
Left = 7350
TabIndex = 19
Top = 780
Width = 3495
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "收 入"
Height = 315
Left = 1560
TabIndex = 13
Top = 6720
Width = 825
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "成 本"
Height = 315
Left = 3450
TabIndex = 12
Top = 6720
Width = 825
End
End
Attribute VB_Name = "量本利分析"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim cx() As Integer, Rs(20) As Integer, K As Integer, Kp As Integer
Dim Sr(20, 3) As Single, A1(20, 2) As Single, Cb(20, 3) As Single
Dim I As Integer, J As Integer, P As Integer, Datedata As String, CC As String
Private Sub Form_Load()
Dim Cxs As String, Cxtj1 As String, Cxtj2 As String
Dim Result As Integer, Temp As Integer
Dim Q As String, W As Integer
Q = Me.hwnd
W = 0
Disabled Q, W
Open App.Path + "\" + "Date.txt" For Input As #1
Input #1, Datedata
Close #1
Open App.Path + "\" + "CC.txt" For Input As #2
Input #2, CC
Close #2
If Datedata = " " Then
MsgBox " 请先作日期选择 ！ ", vbExclamation, "提示信息"
Unload Me
日期选择.Show
Exit Sub
End If
Result = MsgBox(" 现准备对 " + Datedata + " 的数据作综合统计，点击确认开始统计，" + Chr(13) + "点击取消可以重新选择统计日期 ！ ", vbExclamation + vbOKCancel, "提示信息")
If Result <> 1 Then
Unload Me
Exit Sub
End If
Data1.DatabaseName = App.Path + "\" + "班组统计.mdb"
Data2.DatabaseName = App.Path + "\" + "班组统计.mdb"
Data3.DatabaseName = App.Path + "\" + "班组统计.mdb"
Data4.DatabaseName = App.Path + "\" + "原始记录.mdb"
Data5.DatabaseName = App.Path + "\" + "原始记录.mdb"
Data6.DatabaseName = App.Path + "\" + "原始记录.mdb"
Data5.Refresh
Data6.Refresh
Cxtj1 = "发车日期": Cxtj2 = "车次"
Cxs = "[" + Cxtj1 + "] =" + "'" + Datedata + "'" + "And" + "[" + Cxtj2 + "] =" + "'" + CC + "'"
Data4.RecordSource = "Select * From 日期车次 Where" & Cxs
Data4.Refresh
Data4.Recordset.Close
Cxs = "[" + Cxtj1 + "]" + "=" + "'" + Datedata + "'"
Select Case Text4(3)
Case "第一组"
Data1.RecordSource = "Select * from B1 where" & Cxs
Case "第二组"
Data1.RecordSource = "Select * from B2 where" & Cxs
Case "第三组"
Data1.RecordSource = "Select * from B3 where" & Cxs
Case "第四组"
Data1.RecordSource = "Select * from B4 where" & Cxs
Case "第五组"
Data1.RecordSource = "Select * from B5 where" & Cxs
Case "第六组"
Data1.RecordSource = "Select * from B6 where" & Cxs
Case "第七组"
Data1.RecordSource = "Select * from B7 where" & Cxs
Case "第八组"
Data1.RecordSource = "Select * from B8 where" & Cxs
End Select
Data1.Refresh
If Text1(1) = "" Then
MsgBox " 请先作区段密度统计 ！ ", vbExclamation
Unload Me
Exit Sub
End If
Data1.Recordset.MoveLast
K = Data1.Recordset.RecordCount
ReDim cx(K) As Integer
Data1.Recordset.MoveFirst
K = 0
Do While Data1.Recordset.EOF = False
K = K + 1
cx(K) = Text1(2)
Rs(cx(K)) = Text1(3)
Data1.Recordset.MoveNext
Loop
Kp = K
Data1.Recordset.Close
Select Case Text4(3)
Case "第一组"
Data2.RecordSource = "Select * from J1 where" & Cxs
Case "第二组"
Data2.RecordSource = "Select * from J2 where" & Cxs
Case "第三组"
Data2.RecordSource = "Select * from J3 where" & Cxs
Case "第四组"
Data2.RecordSource = "Select * from J4 where" & Cxs
Case "第五组"
Data2.RecordSource = "Select * from J5 where" & Cxs
Case "第六组"
Data2.RecordSource = "Select * from J6 where" & Cxs
Case "第七组"
Data2.RecordSource = "Select * from J7 where" & Cxs
Case "第八组"
Data2.RecordSource = "Select * from J8 where" & Cxs
End Select
Data2.Refresh
If Text2(4) = "" Then
MsgBox " 请先作金额统计 ！ ", vbExclamation
Unload Me
Exit Sub
End If
Data2.Recordset.MoveLast
K = Data2.Recordset.RecordCount
ReDim cx(K) As Integer
Data2.Recordset.MoveFirst
K = 0
Do While Data2.Recordset.EOF = False
K = K + 1
cx(K) = Text2(2): Sr(cx(K), 1) = Text2(3): Sr(cx(K), 2) = Text2(4)
Sr(cx(K), 3) = Val(Text2(5))
A1(cx(K), 1) = Val(Text2(3)) + Val(Text2(4))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -