📄 frmedit.frm
字号:
Begin VB.TextBox txtFields
DataField = "负责人"
DataSource = "datPrimaryRS"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 8
Left = 5520
TabIndex = 6
Top = 360
Width = 2295
End
Begin VB.TextBox txtFields
DataField = "使用状况"
DataSource = "datPrimaryRS"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 9
Left = 1680
TabIndex = 5
Top = 885
Width = 2295
End
Begin VB.TextBox txtFields
DataField = "使用年限"
DataSource = "datPrimaryRS"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 10
Left = 5520
TabIndex = 4
Top = 840
Width = 2295
End
Begin VB.TextBox txtFields
DataField = "注销日期"
DataSource = "datPrimaryRS"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 11
Left = 1680
TabIndex = 3
Top = 1440
Width = 2295
End
Begin VB.TextBox txtFields
DataField = "备注"
DataSource = "datPrimaryRS"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 12
Left = 1680
TabIndex = 2
Top = 1920
Width = 6135
End
Begin VB.CheckBox Check1
Caption = "已注销"
DataField = "注销"
DataSource = "datPrimaryRS"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5400
TabIndex = 1
Top = 1320
Width = 1335
End
Begin VB.Label lblLabels
Caption = "使用部门:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 7
Left = 480
TabIndex = 13
Top = 360
Width = 1815
End
Begin VB.Label lblLabels
Caption = "负责人:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 8
Left = 4560
TabIndex = 12
Top = 330
Width = 1815
End
Begin VB.Label lblLabels
Caption = "使用状况:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 9
Left = 480
TabIndex = 11
Top = 885
Width = 1815
End
Begin VB.Label lblLabels
Caption = "使用年限:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 10
Left = 4320
TabIndex = 10
Top = 840
Width = 1815
End
Begin VB.Label lblLabels
Caption = "注销日期:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 11
Left = 480
TabIndex = 9
Top = 1440
Width = 1815
End
Begin VB.Label lblLabels
Caption = "备注:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 12
Left = 960
TabIndex = 8
Top = 1965
Width = 1815
End
End
Begin MSAdodcLib.Adodc datPrimaryRS
Height = 330
Left = 360
Top = 5760
Visible = 0 'False
Width = 8160
_ExtentX = 14393
_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 = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = " "
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
End
Attribute VB_Name = "frmNew"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdaddfj_Click() '调用增加附件窗体
Load frmAddFJ '
frmAddFJ.txtFields(0).Text = Me.txtFields(0).Text
frmAddFJ.Show
End Sub
Private Sub cmdcancel_Click()
Unload Me '卸载窗体
End Sub
Private Sub cmdSave_Click()
Dim msg As String
Dim errormsg As String
If txtFields(0).Text = "" Then '检查输入
errormsg = MsgBox("请输入资产编号!", vbCritical + vbOKOnly, "错误!")
txtFields(0).SetFocus
Exit Sub
End If
If txtFields(1).Text = "" Then '检查输入
errormsg = MsgBox("请输入资产分类!", vbCritical + vbOKOnly, "错误!")
txtFields(1).SetFocus
Exit Sub
End If
If txtFields(2).Text = "" Then '检查输入
errormsg = MsgBox("请输入资产名称!", vbCritical + vbOKOnly, "错误!")
txtFields(2).SetFocus
Exit Sub
End If
msg = MsgBox("增加记录吗?", vbInformation + vbOKCancel, "增加记录")
If msg = "1" Then '确定
datPrimaryRS.Recordset.Update '保存数据
cmdaddfj.Enabled = True '允许添加附件
Else
Exit Sub
End If
End Sub
Private Sub Form_Load()
'设定数据源
datPrimaryRS.ConnectionString = constr
datPrimaryRS.RecordSource = "select 资产编号,资产分类,资产名称,资产型号,生产单位,购买日期,购买价格,使用部门,负责人,使用状况,使用年限,注销日期,备注,注销 from 资产信息表"
datPrimaryRS.Refresh
'增加记录
datPrimaryRS.Recordset.AddNew
'不允许增加附件
cmdaddfj.Enabled = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
Screen.MousePointer = vbDefault
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -