📄 fixfixed2.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form fixFixed2
Caption = "修改固定资产"
ClientHeight = 6165
ClientLeft = 60
ClientTop = 450
ClientWidth = 7140
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 6165
ScaleWidth = 7140
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame2
Height = 1095
Left = 120
TabIndex = 17
Top = 4800
Width = 6855
Begin VB.CommandButton Command2
Caption = "放弃修改"
Height = 615
Left = 3720
TabIndex = 21
Top = 240
Width = 2895
End
Begin VB.CommandButton Command1
Caption = "修改资产信息"
Default = -1 'True
Height = 615
Left = 240
TabIndex = 20
Top = 240
Width = 2895
End
End
Begin VB.Frame Frame1
Caption = "固定资产修改"
Height = 4575
Left = 120
TabIndex = 0
Top = 120
Width = 6855
Begin VB.TextBox Text7
Appearance = 0 'Flat
Height = 270
Left = 2520
TabIndex = 19
Text = "Text7"
Top = 1440
Width = 1815
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
Height = 1335
Left = 240
MaxLength = 100
MultiLine = -1 'True
TabIndex = 15
Text = "fixFixed2.frx":0000
Top = 3000
Width = 6375
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
Height = 270
Left = 4800
TabIndex = 13
Text = "Text5"
Top = 1440
Width = 1815
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 255
Left = 2520
TabIndex = 11
Top = 2280
Width = 1815
_ExtentX = 3201
_ExtentY = 450
_Version = 393216
Format = 27000833
CurrentDate = 38012
End
Begin VB.ComboBox PartCombo
Height = 300
Left = 240
TabIndex = 10
Text = "Combo1"
Top = 2280
Width = 1815
End
Begin VB.TextBox Text4
Appearance = 0 'Flat
Height = 270
Left = 240
TabIndex = 7
Text = "Text4"
Top = 1440
Width = 1815
End
Begin VB.TextBox Text3
Appearance = 0 'Flat
Height = 270
Left = 4800
TabIndex = 6
Text = "Text3"
Top = 600
Width = 1815
End
Begin VB.TextBox Text2
Appearance = 0 'Flat
Height = 270
Left = 2520
TabIndex = 4
Text = "Text2"
Top = 600
Width = 1815
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
Enabled = 0 'False
Height = 270
Left = 240
TabIndex = 1
Text = "Text1"
Top = 600
Width = 1815
End
Begin VB.Label Label9
Caption = "经手人ID"
Height = 255
Left = 2520
TabIndex = 18
Top = 1200
Width = 1335
End
Begin VB.Label Label8
Caption = "资产说明"
Height = 255
Left = 240
TabIndex = 16
Top = 2760
Width = 2055
End
Begin VB.Label Label7
Caption = "联系电话"
Height = 255
Left = 4800
TabIndex = 14
Top = 1200
Width = 1455
End
Begin VB.Label Label6
Caption = "购买日期"
Height = 255
Left = 2520
TabIndex = 12
Top = 2040
Width = 1455
End
Begin VB.Label Label5
Caption = "购买部门"
Height = 255
Left = 240
TabIndex = 9
Top = 2040
Width = 1215
End
Begin VB.Label Label4
Caption = "单价（元）"
Height = 255
Left = 240
TabIndex = 8
Top = 1200
Width = 1335
End
Begin VB.Label Label3
Caption = "资产数目"
Height = 255
Left = 4800
TabIndex = 5
Top = 360
Width = 1335
End
Begin VB.Label Label2
Caption = "资产名称"
Height = 255
Left = 2520
TabIndex = 3
Top = 360
Width = 1575
End
Begin VB.Label Label1
Caption = "资产编号"
Height = 255
Left = 240
TabIndex = 2
Top = 360
Width = 1575
End
End
End
Attribute VB_Name = "fixFixed2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim sql As String
Dim rs As New ADODB.Recordset
If Text1.Text = "" Then '检查输入数据是否有效以及输入是否完整
MsgBox "资产编号不能为空！", vbCritical
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "资产名称不能为空！", vbCritical
Text2.SetFocus
Exit Sub
End If
If Text3.Text = "" Then
MsgBox "资产数目不能为空！", vbCritical
Text3.SetFocus
Exit Sub
End If
If Text4.Text = "" Then
MsgBox "资产单价不能为空！", vbCritical
Text4.SetFocus
Exit Sub
End If
If Text7.Text = "" Then
MsgBox "经手人ID不能为空！", vbCritical
Text7.SetFocus
Exit Sub
End If
If Text5.Text = "" Then
MsgBox "联系电话不能为空！", vbCritical
Text5.SetFocus
Exit Sub
End If
If Text6.Text = "" Then
MsgBox "资产说明不能为空！", vbCritical
Text6.SetFocus
Exit Sub
End If
If Not IsNumeric(Text3.Text) Then
MsgBox "资产数目必须是数字！", vbCritical
Text3.SetFocus
Exit Sub
End If
If Not IsNumeric(Text4.Text) Then
MsgBox "资产单价必须是数字！", vbCritical
Text4.SetFocus
Exit Sub
End If
If PartCombo.ListIndex = -1 Then
MsgBox "部门必须选择！", vbCritical
PartCombo.SetFocus
Exit Sub
End If
If DbHandle.DbConnection Then
sql = "TBL_USER" '打开职工表,查询输入的职工ID是否存在
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
rs.Filter = "USER_ID='" & Text7.Text & "'"
rs.Open sql, DbFinance
If DbHandle.resultcount(rs) <> 1 Then '不存在要求用户重新输入职工ID号
MsgBox "错误，不存在的ID号！", vbExclamation
Text7.SetFocus
rs.Close
Set rs = Nothing
DbHandle.DbClose
Exit Sub
End If
rs.Close
sql = "TBL_FIXED"
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
rs.Filter = "FIXED_ID='" & Text1.Text & "'"
rs.Open sql, DbFinance '如果职工存在,定位固定资产表中的记录,修改记录属性值
rs("FIXED_NAME") = Text2.Text
rs("FIXED_NUM") = Val(Text3.Text)
rs("FIXED_MONEY") = Val(Text4.Text)
rs("FIXED_PART") = PartCombo.ItemData(PartCombo.ListIndex)
rs("FIXED_USER") = Text7.Text
rs("FIXED_PHONE") = Text5.Text
rs("FIXED_DATE") = DTPicker1.Value
rs("FIXED_REMARK") = Text6.Text
rs.Update
rs.Close '释放资源,提示修改成功,返回主窗体
MsgBox "固定资产信息成功修改！"
Unload Me
Else '数据库连接出错,退出
MsgBox "数据库错误！", vbExclamation
DbHandle.DbClose
End
End If
End Sub
Private Sub Command2_Click()
Unload Me '返回主窗体
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -