📄 frmbuy.frm
字号:
EndProperty
ForeColor = &H00404040&
Height = 375
Left = 6600
TabIndex = 14
Top = 1080
Width = 615
End
Begin VB.Label Label1
BackColor = &H00FFC0C0&
Caption = "所属实验室"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Index = 7
Left = 3960
TabIndex = 11
Top = 1800
Width = 1095
End
Begin VB.Label Label1
BackColor = &H00FFC0C0&
Caption = "保修年限"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Index = 6
Left = 240
TabIndex = 10
Top = 2640
Width = 975
End
Begin VB.Label Label1
BackColor = &H00FFC0C0&
Caption = "金额"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Index = 5
Left = 3960
TabIndex = 9
Top = 1080
Width = 975
End
Begin VB.Label Label1
BackColor = &H00FFC0C0&
Caption = "购置日期"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 255
Index = 4
Left = 240
TabIndex = 8
Top = 1800
Width = 975
End
Begin VB.Label Label1
BackColor = &H00FFC0C0&
Caption = "供应商"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Index = 3
Left = 3960
TabIndex = 7
Top = 360
Width = 1335
End
Begin VB.Label Label1
BackColor = &H00FFC0C0&
Caption = "设备类型"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Index = 2
Left = 240
TabIndex = 6
Top = 1080
Width = 855
End
Begin VB.Label Label1
BackColor = &H00FFC0C0&
Caption = "设备编号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Index = 0
Left = 240
TabIndex = 5
Top = 360
Width = 975
End
End
End
Attribute VB_Name = "frmbuy"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*********************************************
'模块名称：设备购置管理
'模块功能：购置新设备时，完成对设备的添加，即将设备信息添加到数据库
'版本 ：1.0版
'代码编写者：熊锋
'编写日期：2006-11-6
'*********************************************
Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
Private Sub Combo2_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
Private Sub Combo3_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
Private Sub EquAdd_Click() '添加新购置的设备到设备信息表中
Dim rs As New ADODB.Recordset '定义记录集，用于打开设备信息表
If txtid = "" Then
MsgBox "设备编号不能为空"
Exit Sub
End If
If Combo2.Text = "请选择" Then
MsgBox "供应商必须选择"
Exit Sub
End If
If Combo1.Text = "请选择" Then
MsgBox "设备类型必须选择"
Exit Sub
End If
If Txtmon.Text = "" Then
MsgBox "设备购置金额必须填写"
Exit Sub
End If
If IsNumeric(Txtmon) = False Then
MsgBox "金额必须为数字"
Exit Sub
End If
If Val(Txtmon.Text) > 50000 Then
MsgBox "金额不得超过50000元"
Exit Sub
End If
If Combo3.Text = "请选择" Then
MsgBox "所属实验室必须选择"
Exit Sub
End If
If Txtye.Text = "" Then
MsgBox "保修年限必须填写"
Exit Sub
End If
If IsNumeric(Txtye) = False Then
MsgBox "保修年限必须为数字"
Exit Sub
End If
If Val(Txtye.Text) > 5 Then
MsgBox "保修年限不得超过5年"
Exit Sub
End If
rs.Open "select * from Equip_Info where Equip_ID='" & Trim(txtid.Text) & "'", DBCnn, adOpenStatic, adLockOptimistic
If rs.RecordCount > 0 Then '判断是否存在与输入设备编号相同的设备
MsgBox "已存在编号为'" & Trim(txtid.Text) & "'的设备，不能添加相同编号的设备！"
Exit Sub
Else '没有相同设备时，添加设备到设备信息表中
rs.AddNew
rs.Fields("Equip_ID") = txtid.Text
rs.Fields("Type_ID") = Left(Combo1.Text, InStrRev(Combo1.Text, "_") - 1) '提取设备类型编号
rs.Fields("Orter_ID") = Left(Combo2.Text, InStrRev(Combo2.Text, "_") - 1) '提取生产厂家编号
rs.Fields("Equip_Date") = DTPicker1.Value
rs.Fields("Equip_Price") = Txtmon.Text
rs.Fields("Equip_Year") = Txtye.Text
rs.Fields("Lab_ID") = Left(Combo3.Text, InStrRev(Combo3.Text, "_") - 1) '提取实验室编号
rs.Fields("Equip_Else") = RTxtBox1.Text
rs.Update
MsgBox "设备添加成功！"
'完成事务日志的填写
rslog.Open "select * from Log_Info where 操作员=''", DBCnn, adOpenStatic, adLockOptimistic
rslog.AddNew
rslog.Fields("操作员") = frmlog.txtuser.Text
rslog.Fields("日期") = Date
rslog.Fields("操作时间") = Time
rslog.Fields("操作模块") = "设备购置管理界面"
rslog.Fields("操作") = "添加"
rslog.Fields("备注") = "设备编号：" & txtid.Text
rslog.Update
rslog.Close
rs.Close
txtid.Text = ""
Combo1.Text = "请选择"
Combo2.Text = "请选择"
Combo3.Text = "请选择"
Txtmon.Text = ""
Txtye.Text = ""
RTxtBox1.Text = ""
End If
End Sub
Private Sub Form_Load() '将设备类型信息，供应商信息，实验室信息添加到列表中，便于添加设备时进行选择
Dim rs1 As New ADODB.Recordset '定义记录集，用于打开设备供应商信息表
Dim rs2 As New ADODB.Recordset '定义记录集，用于打开设备类型信息表
Dim rs3 As New ADODB.Recordset '定义记录集，用于打开实验室信息表
'将供应商添加到列表中
rs1.Open "select Orter_ID,Orter_Name from Orter_Info", DBCnn, adOpenStatic, adLockOptimistic
If rs1.RecordCount > 0 Then
rs1.MoveFirst
Do While rs1.EOF = False
Combo2.AddItem rs1.Fields("Orter_ID") & "_ " & rs1.Fields("Orter_Name")
rs1.MoveNext
Loop
rs1.Close
End If
'将设备类型添加到列表中
rs2.Open "select Type_ID,Type_Name from EquType_Info", DBCnn, adOpenStatic, adLockOptimistic
If rs2.RecordCount > 0 Then
rs2.MoveFirst
Do While rs2.EOF = False
Combo1.AddItem rs2.Fields("Type_ID") & "_ " & rs2.Fields("Type_Name")
rs2.MoveNext
Loop
rs2.Close
End If
'将实验室添加到列表中
rs3.Open "select * from Lab_Info", DBCnn, adOpenStatic, adLockOptimistic
If rs3.RecordCount > 0 Then
rs3.MoveFirst
Do While rs3.EOF = False
Combo3.AddItem rs3.Fields("Lab_ID") & "_ " & rs3.Fields("Lab_Name")
rs3.MoveNext
Loop
rs3.Close
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -