📄 工资效益表.frm
字号:
VERSION 5.00
Object = "{06299620-5364-11D3-BAAD-0000E8CA617B}#1.0#0"; "Vbnpr32d.ocx"
Begin VB.Form 工资效益表
BorderStyle = 1 'Fixed Single
Caption = "工资效益表"
ClientHeight = 1980
ClientLeft = 2850
ClientTop = 3210
ClientWidth = 7545
Icon = "工资效益表.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 1980
ScaleWidth = 7545
Visible = 0 'False
Begin VB.TextBox Text4
DataField = "班组"
DataSource = "Data4"
Height = 270
Index = 2
Left = 5940
TabIndex = 12
Text = "Text4"
Top = 2550
Visible = 0 'False
Width = 885
End
Begin VB.TextBox Text4
DataField = "车次"
DataSource = "Data4"
Height = 270
Index = 1
Left = 5940
TabIndex = 11
Text = "Text4"
Top = 2250
Visible = 0 'False
Width = 885
End
Begin VB.Data Data4
Caption = "Data4"
Connect = "Access"
DatabaseName = "C:\定稿程序\第六章\原始记录.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 5550
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "日期车次"
Top = 1770
Visible = 0 'False
Width = 1815
End
Begin VB.TextBox Text3
DataField = "成本"
DataSource = "Data3"
Height = 270
Index = 2
Left = 4320
TabIndex = 10
Text = "Text3"
Top = 2655
Visible = 0 'False
Width = 885
End
Begin VB.TextBox Text3
DataField = "车厢"
DataSource = "Data3"
Height = 270
Index = 1
Left = 4320
TabIndex = 9
Text = "Text3"
Top = 2310
Visible = 0 'False
Width = 885
End
Begin VB.TextBox Text2
DataField = "车补收入"
DataSource = "Data2"
Height = 270
Index = 4
Left = 2370
TabIndex = 8
Text = "Text2"
Top = 3360
Visible = 0 'False
Width = 885
End
Begin VB.TextBox Text2
DataField = "票价收入"
DataSource = "Data2"
Height = 270
Index = 3
Left = 2370
TabIndex = 7
Text = "Text2"
Top = 3015
Visible = 0 'False
Width = 885
End
Begin VB.TextBox Text2
DataField = "车厢"
DataSource = "Data2"
Height = 270
Index = 2
Left = 2370
TabIndex = 6
Text = "Text2"
Top = 2655
Visible = 0 'False
Width = 885
End
Begin VB.TextBox Text2
DataField = "发车日期"
DataSource = "Data2"
Height = 270
Index = 1
Left = 2370
TabIndex = 5
Text = "Text2"
Top = 2310
Visible = 0 'False
Width = 885
End
Begin VB.TextBox Text1
DataField = "车补人数"
DataSource = "Data1"
Height = 270
Index = 4
Left = 540
TabIndex = 4
Text = "Text1"
Top = 3360
Visible = 0 'False
Width = 885
End
Begin VB.TextBox Text1
DataField = "站售人数"
DataSource = "Data1"
Height = 270
Index = 3
Left = 540
TabIndex = 3
Text = "Text1"
Top = 3015
Visible = 0 'False
Width = 885
End
Begin VB.TextBox Text1
DataField = "车厢"
DataSource = "Data1"
Height = 270
Index = 2
Left = 540
TabIndex = 2
Text = "Text1"
Top = 2655
Visible = 0 'False
Width = 885
End
Begin VB.TextBox Text1
DataField = "发车日期"
DataSource = "Data1"
Height = 270
Index = 1
Left = 540
TabIndex = 1
Text = "Text1"
Top = 2310
Visible = 0 'False
Width = 885
End
Begin VB.Data Data3
Caption = "Data3"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 3735
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "C2"
Top = 1770
Visible = 0 'False
Width = 1815
End
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 1935
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "J2"
Top = 1770
Visible = 0 'False
Width = 1815
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 120
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "B2"
Top = 1770
Visible = 0 'False
Width = 1815
End
Begin vbNpr32D.vb5prn vb5prn1
Left = 1710
Top = 5700
_ExtentX = 1032
_ExtentY = 979
prnOrientation = -1 'True
AppMode = -1 'True
End
Begin VB.Label Label1
Caption = "统计完毕，单击鼠标左键返回工作选项 ！"
BeginProperty Font
Name = "华文行楷"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 525
Left = 720
TabIndex = 0
Top = 600
Width = 6075
End
End
Attribute VB_Name = "工资效益表"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Rs1(20, 2) As Integer, Sr1(20, 2) As Single, Cb1(20) As Single
Dim Rs2(20, 2) As Integer, Sr2(20, 2) As Single, Cb2(20) As Single
Dim cx(20) As Integer, K As Integer, Datedata As String
Dim Cxs As String, Cxtj1 As String, Cxtj2 As String, Num As Integer
Public Nx As Integer, Bz As String, CC As String
Private Sub Form_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim Result As Integer
Data1.DatabaseName = App.Path + "\" + "班组统计.mdb"
Data2.DatabaseName = App.Path + "\" + "班组统计.mdb"
Data3.DatabaseName = App.Path + "\" + "班组统计.mdb"
Data4.DatabaseName = App.Path + "\" + "原始记录.mdb"
Open App.Path + "\" + "Date.txt" For Input As #1
Input #1, Datedata
Close #1
If Datedata = " " Then
MsgBox " 请选择计算日期 ！ ", vbExclamation
Nx = 1: CC = "238"
Open App.Path + "\" + "Ni.txt" For Output As #1
Write #1, Nx, CC
Close #1
Unload Me
Exit Sub
End If
CC = "238"
Cxtj1 = "发车日期": Cxtj2 = "车次"
Cxs = "[" + Cxtj1 + "]" + "=" + "'" + Datedata + "'"
Data4.RecordSource = "Select * from 日期车次 where" & Cxs
Data4.Refresh
If Text4(1) <> "238" Then
Datedata = Format(CDate(Datedata) - 2, "yyyy年m月d日")
End If
Result = MsgBox(" 现准备对 " + Datedata + " 的数据作工资效益统计，点击确认开始统计，" + Chr(13) + "点击取消可以重新选择统计日期 ！ ", vbExclamation + vbOKCancel, "提示信息")
If Result = 2 Then
Nx = 1: CC = "238"
Open App.Path + "\" + "Ni.txt" For Output As #1
Write #1, Nx, CC
Close #1
日期选择.Show
Unload Me
Exit Sub
End If
Cxs = "[" + Cxtj1 + "]" + "=" + "'" + Datedata + "'" + "And" + "[" + Cxtj2 + "]" + "=" + "'" + "238" + "'"
Data4.RecordSource = "Select * from 日期车次 where" & Cxs
Data4.Refresh
Bz = Text4(2)
Cxs = "[" + Cxtj1 + "]" + "=" + "'" + Datedata + "'"
Select Case Text4(2)
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 " 没有" + Datedata + "数据，请作" + Datedata + "的区段密度统计 ！ "
Unload Me
Exit Sub
End If
K = 0
Do While Data1.Recordset.EOF = False
K = K + 1
cx(K) = Text1(2): Rs2(cx(K), 1) = Text1(3): Rs2(cx(K), 2) = Text1(4)
Data1.Recordset.MoveNext
Loop
Data1.Recordset.Close
Select Case Text4(2)
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 "第七组"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -