?? 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 + -