📄 frmautowaste.frm
字号:
VERSION 5.00
Begin VB.Form frmAutoWaste
BorderStyle = 3 'Fixed Dialog
Caption = "自动采集的损耗"
ClientHeight = 3750
ClientLeft = 45
ClientTop = 330
ClientWidth = 6150
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 3750
ScaleWidth = 6150
ShowInTaskbar = 0 'False
Begin VB.ComboBox cmbDevName
Height = 300
Left = 855
Style = 2 'Dropdown List
TabIndex = 16
Top = 975
Width = 1500
End
Begin VB.ListBox lstSumDev
Height = 1320
Left = 840
MultiSelect = 2 'Extended
TabIndex = 15
Top = 1770
Width = 1500
End
Begin VB.ComboBox cmbBuild
Height = 300
Left = 855
Style = 2 'Dropdown List
TabIndex = 14
Top = 1410
Width = 1500
End
Begin VB.CommandButton cmdWrite
Caption = "写入"
Height = 375
Left = 3135
TabIndex = 13
Top = 3255
Width = 1290
End
Begin VB.CommandButton cmdCancel
Caption = "返回"
Height = 375
Left = 4590
TabIndex = 12
Top = 3255
Width = 1290
End
Begin VB.Frame Frame1
Caption = "统计日期"
Height = 735
Left = 120
TabIndex = 7
Top = 120
Width = 5910
Begin VB.ComboBox cmbDate1
Height = 300
Left = 1170
Style = 2 'Dropdown List
TabIndex = 9
Top = 270
Width = 1500
End
Begin VB.ComboBox cmbDate2
Height = 300
Left = 3915
Style = 2 'Dropdown List
TabIndex = 8
Top = 270
Width = 1635
End
Begin VB.Label Label1
Caption = "日期一:"
Height = 330
Left = 405
TabIndex = 11
Top = 315
Width = 780
End
Begin VB.Label Label5
Caption = "日期二:"
Height = 330
Left = 3060
TabIndex = 10
Top = 315
Width = 690
End
End
Begin VB.Frame Frame2
Height = 2190
Left = 2565
TabIndex = 0
Top = 900
Width = 3465
Begin VB.CommandButton cmdAverageWst
Caption = "平均损耗量"
Height = 375
Left = 210
TabIndex = 3
Top = 1575
Width = 1230
End
Begin VB.CommandButton cmdDateSum2
Caption = "日期二总量"
Height = 375
Left = 210
TabIndex = 2
Top = 840
Width = 1230
End
Begin VB.CommandButton cmdDateSum1
Caption = "日期一总量"
Height = 375
Left = 210
TabIndex = 1
Top = 300
Width = 1230
End
Begin VB.Label lblNowSum
BorderStyle = 1 'Fixed Single
Height = 360
Left = 1725
TabIndex = 6
Top = 855
Width = 1545
End
Begin VB.Label lblAverageWst
BorderStyle = 1 'Fixed Single
Height = 360
Left = 1710
TabIndex = 5
Top = 1575
Width = 1545
End
Begin VB.Label lblLastSum
BorderStyle = 1 'Fixed Single
Height = 360
Left = 1710
TabIndex = 4
Top = 300
Width = 1545
End
End
Begin VB.Label Label2
Caption = "表类型:"
Height = 285
Left = 120
TabIndex = 19
Top = 990
Width = 690
End
Begin VB.Label Label3
Caption = "总表:"
Height = 330
Left = 315
TabIndex = 18
Top = 1815
Width = 465
End
Begin VB.Label Label4
Caption = "楼:"
Height = 195
Left = 495
TabIndex = 17
Top = 1455
Width = 330
End
End
Attribute VB_Name = "frmAutoWaste"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/07/09
'描 述：CBB三表户外计量系统 Ver 5.2
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Dim rcSumDev As Recordset
Dim CondStr As String
Dim rcDevsMap As Recordset
Dim rcUserDev As Recordset
Public Sub fillDate()
Dim rcUserData As Recordset
Dim rcDate As Recordset
Set rcUserData = dbCbb.OpenRecordset("Userdata", dbOpenDynaset)
SQL = "select distinct format(date,""yyyy-mm-dd"") as sDate "
SQL = SQL + "from userdata"
Set rcDate = dbCbb.OpenRecordset(SQL)
Do While Not rcDate.EOF
cmbDate1.AddItem rcDate!sDate
cmbDate2.AddItem rcDate!sDate
rcDate.MoveNext
Loop
rcUserData.Close
cmbDate1.AddItem ""
cmbDate2.AddItem ""
End Sub
Private Sub cmbBuild_Click()
ClearLbl
lstSumDev.Clear
filllstUserDev
End Sub
Private Sub cmbDate1_Click()
ClearLbl
End Sub
Private Sub cmbDate2_click()
ClearLbl
End Sub
Private Sub cmbDevName_click()
ClearLbl
End Sub
Private Sub cmdAverageWst_Click()
'On Error GoTo ProcError
Dim AverageWst As Double
Dim ConStr As String
Dim QBuild As String
Dim Unit As String
Dim SQL As String
Dim rcCurUserNum As Recordset
Dim CurUserNum As Integer
Dim sum1 As Integer
Dim sum2 As Integer
Dim strUser As String
Dim DevType As Integer
CondStr = ""
QBuild = Trim(cmbBuild.Text)
CondStr = IIf(QBuild = "", CondStr, CondStr + "buildID=""" + QBuild + """and ")
strUser = Trim(lstSumDev.Text)
If (InStr(strUser, "单元")) <> 0 Then
num1 = InStr(strUser, "/")
num2 = InStr(strUser, "单")
QUnit = Mid$(strUser, num1 + 1, num2 - num1 - 1)
Else
QUnit = ""
End If
CondStr = IIf(QUnit = "", CondStr, CondStr + "Unit=""" + QUnit + """and ")
If CondStr <> "" Then
CondStr = Left(CondStr, Len(CondStr) - 4)
Else
Exit Sub
End If
SQL = "select * from UserMap "
SQL = SQL + "where " + CondStr
SQL = SQL + " and trim(UserName)<>""总表"""
Set rcCurUserNum = dbCbb.OpenRecordset(SQL)
rcDevsMap.FindFirst "Name =""" + Format(cmbDevName.Text) + """"
If Not rcDevsMap.NoMatch Then
DevType = rcDevsMap!TypeID
End If
If rcCurUserNum.RecordCount > 0 Then
rcCurUserNum.MoveFirst
CurUserNum = 0
Do While Not rcCurUserNum.EOF
rcUserDev.FindFirst "UserID =" + Format(rcCurUserNum!UserID) & "And DevType =" + Format(DevType)
If Not rcUserDev.NoMatch Then
CurUserNum = CurUserNum + 1
End If
rcCurUserNum.MoveNext
Loop
If CurUserNum = 0 Then
MsgBox "当前总表没有用户使用！", 64, "用户损耗"
Exit Sub
End If
Else
MsgBox "当前总表没有用户使用！", 64, "用户损耗"
Exit Sub
End If
If IsNumeric(Trim(lblNowSum.Caption)) And IsNumeric(Trim(lblLastSum.Caption)) Then
AverageWst = CStr(Val(Val(Trim(lblNowSum.Caption)) - Val(Trim(lblLastSum.Caption))) / Val(CurUserNum))
lblAverageWst.Caption = " " & Format(AverageWst, "#########0.0")
Else
MsgBox "当前总表没有有效数据！", 64, "用户损耗"
End If
Exit Sub
ProcError:
ProcErr
End Sub
Private Sub cmdCancel_Click()
rcDevsMap.Close
rcUserDev.Close
Unload Me
End Sub
Private Sub cmdDateSum1_Click()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -