📄 form_tongji.frm
字号:
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\database.mdb;Persist Security Info=False"
OLEDBString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\database.mdb;Persist Security Info=False"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "select * from 产品信息"
Caption = "Adodc3"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSAdodcLib.Adodc Adodc2
Height = 375
Left = 3120
Top = 960
Visible = 0 'False
Width = 1200
_ExtentX = 2117
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\database.mdb;Persist Security Info=False"
OLEDBString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\database.mdb;Persist Security Info=False"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "select * from 工序表"
Caption = "Adodc2"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSAdodcLib.Adodc Adodc1
Height = 330
Left = 3120
Top = 600
Visible = 0 'False
Width = 1200
_ExtentX = 2117
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\database.mdb;Persist Security Info=False"
OLEDBString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\database.mdb;Persist Security Info=False"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.CommandButton Command1
Caption = "统计"
Height = 375
Left = 120
TabIndex = 4
Top = 5160
Width = 855
End
Begin MSComCtl2.DTPicker endl
Height = 375
Left = 3000
TabIndex = 3
Top = 120
Width = 1335
_ExtentX = 2355
_ExtentY = 661
_Version = 393216
Format = 156827649
CurrentDate = 39507
End
Begin MSComCtl2.DTPicker start
Height = 375
Left = 1080
TabIndex = 1
Top = 120
Width = 1335
_ExtentX = 2355
_ExtentY = 661
_Version = 393216
Format = 156827649
CurrentDate = 39507
End
Begin VB.Label Label7
Caption = "产品"
Height = 255
Left = 120
TabIndex = 8
Top = 1200
Width = 615
End
Begin VB.Label Label4
Caption = "职员名"
Height = 255
Left = 120
TabIndex = 7
Top = 1680
Width = 855
End
Begin VB.Label Label3
Caption = "工序"
Height = 255
Left = 120
TabIndex = 6
Top = 600
Width = 855
End
Begin VB.Label Label2
Caption = "到"
Height = 255
Left = 2640
TabIndex = 2
Top = 240
Width = 255
End
Begin VB.Label Label1
Caption = "选择时间"
Height = 255
Left = 120
TabIndex = 0
Top = 240
Width = 855
End
End
Attribute VB_Name = "Form_tongji"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim zysl As Integer
Dim gz() As Integer
Dim zygz() As String '职员工资列表
Dim zgz As Integer
'Dim gx() As String '工序表
Private Sub Command1_Click()
Dim lls, hgps, hgl, bhgps As Integer
Dim hgpdj, kkdj, gz, zgz As Single
Dim loc As Double
sql = "SELECT 产品信息.名称 AS 产品名称, 产品信息.规格型号 as 规格型号, 工序名, 职员名, 职员表.职员号, 领料数, 合格品数, 不合格品数, 合格品数/领料数 AS 合格率,日期"
sql = sql + " FROM 产品信息, 工序表, 职员表, 统计表"
sql = sql + " WHERE 统计表.规格型号=产品信息.规格型号 and 统计表.工序号=工序表.工序号 and 统计表.职员号=职员表.职员号"
sql = sql + " and 日期 Between #" + Str(start.value) + "# and #" + Str(endl.value) + "#"
If Combo1.text <> "" Then
sql = sql + " and 工序表.工序名='" & Combo1.text & "'"
End If
If Combo2.text <> "" Then
sql = sql + " and 产品信息.名称='" & Combo2.text & "'"
End If
If Combo3.text <> "" Then
sql = sql + " and 职员表.职员名='" & Combo3.text & "'"
End If
sql = sql + " order by 统计表.职员号"
Adodc1.RecordSource = sql
Adodc1.Refresh
Dim top As String
top = "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN"
top = top + "http://www.w3.org/TR/html4/loose.dtd'>" + vbCrLf
top = top + "<html>" + vbCrLf
top = top + "<head>" + vbCrLf
top = top + "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" + vbCrLf
top = top + "<title>工资发放表</title>" + vbCrLf
top = top + "<style type='text/css'>" + vbCrLf
top = top + "<!--" + vbCrLf
top = top + ".style1 {font-size: 12px}" + vbCrLf
top = top + "-->" + vbCrLf
top = top + "</style>" + vbCrLf
top = top + "</head>" + vbCrLf
top = top + "<body>" + vbCrLf
Dim midl As String
Adodc4.Refresh
zysl = Adodc4.Recordset.RecordCount
ReDim zygz(5, zysl) As String
Dim n As Integer
n = 0
Dim temp As String
If Check_only.value = 0 Then
top = top + "<table border='1' cellpadding='0' cellspacing='0' bordercolor='#000000'>" + vbCrLf
top = top + "<tr align='center'>" + vbCrLf
top = top + "<td height='34' colspan='12'><h2>作业统计表</h2></td>" + vbCrLf
top = top + "</tr>" + vbCrLf
top = top + "<tr class='style1'>" + vbCrLf
top = top + "<td width='52'><span class='style1'>职员名</span></td>" + vbCrLf
top = top + "<td width='53'><span class='style1'>工序</span></td>" + vbCrLf
top = top + "<td width='75' height='10'>产品名称</td>" + vbCrLf
top = top + "<td width='64'><span class='style1'>产品型号</span></td>" + vbCrLf
top = top + "<td width='52'><span class='style1'>职员号</span></td>" + vbCrLf
top = top + "<td width='63'><span class='style1'>日期</span></td>" + vbCrLf
top = top + "<td width='47'><span class='style1'>领料数</span></td>" + vbCrLf
top = top + "<td width='74'><span class='style1'>合格品数量</span></td>" + vbCrLf
top = top + "<td width='85'><span class='style1'>不合格品数量</span></td>" + vbCrLf
top = top + "<td width='46'><span class='style1'>合格率</span></td>" + vbCrLf
'top = top + "<td width='36'><span class='style1'>单价</span></td>" + vbCrLf
'top = top + "<td width='38'><span class='style1'>金额</span></td>" + vbCrLf
'top = top + "<td width='72'><span class='style1'>实发工资</span></td>" + vbCrLf
top = top + "</tr>" + vbCrLf
End If
While Not Adodc1.Recordset.EOF
If Check_only.value = 0 Then
midl = midl + " <tr class='style1'>"
midl = midl + "<td height='10'><span class='style1'></span>" + Adodc1.Recordset.Fields("职员名") + "</td>" + vbCrLf
End If
If temp <> Adodc1.Recordset.Fields("职员名") Then
temp = Adodc1.Recordset.Fields("职员名")
n = n + 1
End If
If Check_only.value = 0 Then
midl = midl + "<td height='10'><span class='style1'></span>" + Adodc1.Recordset.Fields("工序名") + "</td>" + vbCrLf
End If
zygz(3, n) = Adodc1.Recordset.Fields("工序名")
If Check_only.value = 0 Then
midl = midl + "<td height='10'><span class='style1'></span>" + Adodc1.Recordset.Fields("产品名称") + "</td>" + vbCrLf
midl = midl + "<td height='10'><span class='style1'></span>" + Adodc1.Recordset.Fields("规格型号") + "</td>" + vbCrLf
End If
zygz(1, n) = Adodc1.Recordset.Fields("职员名")
If Check_only.value = 0 Then
midl = midl + "<td height='10'><span class='style1'></span>" + Adodc1.Recordset.Fields("职员号") + "</td>" + vbCrLf
End If
zygz(2, n) = Adodc1.Recordset.Fields("职员号")
If Check_only.value = 0 Then
midl = midl + "<td height='10'><span class='style1'></span>" + Str(Adodc1.Recordset.Fields("日期")) + "</td>" + vbCrLf
midl = midl + "<td height='10'><span class='style1'></span>" + Str(Adodc1.Recordset.Fields("领料数")) + "</td>" + vbCrLf
End If
zygz(4, n) = Str(Val(zygz(4, n)) + Val(Adodc1.Recordset.Fields("领料数")))
If Check_only.value = 0 Then
midl = midl + "<td height='10'><span class='style1'></span>" + Str(Adodc1.Recordset.Fields("合格品数")) + "</td>" + vbCrLf
End If
zygz(5, n) = Str(Val(zygz(5, n)) + Val(Adodc1.Recordset.Fields("合格品数")))
If Check_only.value = 0 Then
midl = midl + "<td height='10'><span class='style1'></span>" + Str(Adodc1.Recordset.Fields("不合格品数")) + "</td>" + vbCrLf
midl = midl + "<td height='10'><span class='style1'></span>" + Left(Str(Val(Str(Adodc1.Recordset.Fields("合格率"))) * 100), 5) + "%</td>" + vbCrLf
'midl = midl + "<td height='10'><span class='style1'></span>" + Adodc1.Recordset.Fields("规格型号") + "</td>" + vbCrLf
'midl = midl + "<td height='10'><span class='style1'></span></td>" + vbCrLf
' midl = midl + "<td height='10'><span class='style1'></span></td>" + vbCrLf
midl = midl + "</tr>"
End If
Adodc1.Recordset.MoveNext
Wend
Dim cn As Integer
For I = 0 To 15
If Check1(I).value = 1 Then
cn = cn + 1
End If
cn = cn + 1
Next
midl = midl + "</table><p><table border='1' cellpadding='0' cellspacing='0' bordercolor='#000000'>"
midl = midl + "<tr>"
midl = midl + "<td colspan='" & cn & "' align='center'><h2>工资发放表</h2></td>"
midl = midl + "</tr>"
midl = midl + "<tr>"
If Check1(15).value = 1 Then
midl = midl + "<td width='30' class='style1'>行次</td>"
End If
midl = midl + "<td width='45' class='style1'>职员名</td>"
If Check1(14).value = 1 Then
midl = midl + "<td width='45' class='style1'>天数</td>"
End If
If Check1(2).value = 1 Then
midl = midl + "<td width='30' class='style1'>工序</td>"
End If
If Check1(3).value = 1 Then
midl = midl + "<td width='60' class='style1'>产品名称</td>"
End If
If Check1(4).value = 1 Then
midl = midl + "<td width='60' class='style1'>规格型号</td>"
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -