📄 frmzjdj.frm
字号:
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Index = 11
Left = 3840
TabIndex = 65
Top = 1800
Width = 975
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "一级品"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Index = 10
Left = 3840
TabIndex = 64
Top = 2310
Width = 975
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "留用数"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Index = 5
Left = 3840
TabIndex = 63
Top = 2760
Width = 975
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "站二级"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Index = 4
Left = 3840
TabIndex = 62
Top = 3240
Width = 975
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "送检日期"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Index = 2
Left = 240
TabIndex = 61
Top = 2160
Width = 1275
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "站报废"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Index = 6
Left = 360
TabIndex = 60
Top = 2700
Width = 975
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "站机人"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Index = 8
Left = 390
TabIndex = 59
Top = 1080
Width = 975
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "部门名称"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Index = 9
Left = 240
TabIndex = 58
Top = 480
Width = 1275
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "擦片人"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Index = 0
Left = 360
TabIndex = 57
Top = 1680
Width = 975
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "规 格"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Index = 7
Left = 3960
TabIndex = 56
Top = 1320
Width = 975
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "品 名"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Index = 1
Left = 3960
TabIndex = 55
Top = 765
Width = 975
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "返工数"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Index = 12
Left = 360
TabIndex = 54
Top = 3720
Width = 975
End
End
End
End
Attribute VB_Name = "Frmzjdj02"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim CmdExe As ADODB.Command
Dim LConRs As ADODB.Recordset
Dim Mrc As ADODB.Recordset
Dim AddFlg As Boolean
Dim CBJ As String
Dim TxtSql As String
Private Sub LoadChild(Lbj As String)
CmbZjr.Clear
CmbCpr.Clear
Dim RsXs As ADODB.Recordset
Set RsXs = New ADODB.Recordset
RsXs.Open "select * from Bs_员工明细 where 部门名称 = '" & Lbj & "'", Cw_DataEnvi.DataConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
Do While Not RsXs.EOF
CmbZjr.AddItem RsXs!员工姓名
CmbCpr.AddItem RsXs!员工姓名
RsXs.MoveNext
Loop
RsXs.Close
Set RsXs = Nothing
End Sub
Private Sub CmbBmmc_Click()
Call LoadChild(CmbBmmc.Text)
End Sub
Private Sub CmbCK3_LostFocus()
CmbCK4.Text = CmbCK3.Text
End Sub
Private Sub CmbCpr_Click()
Call ToolList
End Sub
Private Sub CmbPM_Click()
If Trim(CmbPM.Text) = "" Then
CmbPM.SetFocus
Else
Dim Mrc As ADODB.Recordset
Set Mrc = New ADODB.Recordset
TxtSql = "select * from Bs_产品图号 where 品名='" & CmbPM.Text & "'"
Mrc.Open Trim$(TxtSql), Cw_DataEnvi.DataConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
If Mrc.EOF = True Then
CmbPM.SetFocus
MsgBox "请正确填选品名！"
Exit Sub
End If
CmbTH.Text = Mrc!图号
TxtGG.Text = Mrc!规格
Mrc.Close
End If
End Sub
Private Sub CmbTH_Click()
If Trim(CmbTH.Text) = "" Then
CmbTH.SetFocus
Else
Dim Mrc As ADODB.Recordset
Set Mrc = New ADODB.Recordset
TxtSql = "select * from Bs_产品图号 where 图号='" & CmbTH.Text & "'"
Mrc.Open Trim$(TxtSql), Cw_DataEnvi.DataConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
If Mrc.EOF = True Then
CmbTH.SetFocus
MsgBox "请正确填选图号！"
Exit Sub
End If
CmbPM.Text = Mrc!品名
TxtGG.Text = Mrc!规格
Mrc.Close
End If
End Sub
Private Sub CmbZjr_Click()
Call ToolList
End Sub
Private Sub CmdSec_Click()
'On Error GoTo ErrLine
Dim dd(4) As Boolean
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -