📄 addcur.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form AddCur
Caption = "添加报销记录"
ClientHeight = 7005
ClientLeft = 60
ClientTop = 450
ClientWidth = 7830
LinkTopic = "Form1"
ScaleHeight = 7005
ScaleWidth = 7830
StartUpPosition = 3 'Windows Default
Begin VB.Frame Frame1
Caption = "报销记录添加"
Height = 6735
Left = 120
TabIndex = 0
Top = 120
Width = 7575
Begin VB.CommandButton Command2
Caption = "放弃退出"
Height = 495
Left = 4080
TabIndex = 15
Top = 6120
Width = 3135
End
Begin VB.CommandButton Command1
Caption = "确定提交"
Height = 495
Left = 360
TabIndex = 14
Top = 6120
Width = 3135
End
Begin VB.ComboBox Combo2
Height = 300
Left = 5160
TabIndex = 13
Text = "Combo2"
Top = 1200
Width = 2175
End
Begin VB.TextBox Text4
Height = 4215
Left = 120
MultiLine = -1 'True
TabIndex = 6
Text = "AddCur.frx":0000
Top = 1800
Width = 7215
End
Begin VB.ComboBox Combo1
Height = 300
Left = 2640
TabIndex = 5
Text = "Combo1"
Top = 600
Width = 2175
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 255
Left = 2640
TabIndex = 4
Top = 1200
Width = 2175
_ExtentX = 3836
_ExtentY = 450
_Version = 393216
Format = 662831105
CurrentDate = 38012
End
Begin VB.TextBox Text3
Height = 270
Left = 120
TabIndex = 3
Text = "Text3"
Top = 1200
Width = 2175
End
Begin VB.TextBox Text2
Height = 270
Left = 5160
TabIndex = 2
Text = "Text2"
Top = 600
Width = 2175
End
Begin VB.TextBox Text1
Height = 270
Left = 120
TabIndex = 1
Text = "Text1"
Top = 600
Width = 2175
End
Begin VB.Label Label7
Caption = "报销说明"
Height = 255
Left = 120
TabIndex = 16
Top = 1560
Width = 1815
End
Begin VB.Label Label6
Caption = "报销部门"
Height = 255
Left = 5160
TabIndex = 12
Top = 960
Width = 1815
End
Begin VB.Label Label5
Caption = "报销人ID编号"
Height = 255
Left = 120
TabIndex = 11
Top = 960
Width = 1815
End
Begin VB.Label Label4
Caption = "报销日期"
Height = 255
Left = 2640
TabIndex = 10
Top = 960
Width = 1815
End
Begin VB.Label Label3
Caption = "报销金额"
Height = 255
Left = 5160
TabIndex = 9
Top = 360
Width = 1815
End
Begin VB.Label Label2
Caption = "报销类别"
Height = 255
Left = 2640
TabIndex = 8
Top = 360
Width = 1815
End
Begin VB.Label Label1
Caption = "报销单号"
Height = 255
Left = 120
TabIndex = 7
Top = 360
Width = 1815
End
End
End
Attribute VB_Name = "AddCur"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
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 '判断报销人ID输入框不为空
MsgBox "报销人ID不能为空! ", vbCritical
Text3.SetFocus
Exit Sub
End If
If Text4.Text = "" Then '判断报销说明输入框不为空
MsgBox "报销说明不能为空！", vbCritical
Text4.SetFocus
Exit Sub
End If
If Not IsNumeric(Text2.Text) Then '判断资产数目必须是数字
MsgBox "资产数目必须是数字！", vbCritical
Text2.SetFocus
Exit Sub
End If
If Combo1.ListIndex = -1 Then '判断报销类别下拉列表必须选择
MsgBox "报销类别必须选择！", vbCritical
Combo1.SetFocus
Exit Sub
End If
If Combo2.ListIndex = -1 Then '判断部门下拉列表必须选择
MsgBox "部门必须选择！", vbCritical
Combo2.SetFocus
Exit Sub
End If
If DbHandle.DbConnection Then '打开DSN数据库源连接
sql = "TBL_CUR" '对流动资产表进行操作
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
rs.Filter = "CUR_ID='" & Text1.Text & "'" '选择指定ID的记录
rs.Open sql, DbFinance
If DbHandle.resultcount(rs) = 1 Then '如果记录已经存在则提示对话框并且关闭数据库
MsgBox "报销单编号已经存在！", vbExclamation
rs.Close
DbHandle.DbClose
Exit Sub
End If
rs.Close
sql = "TBL_USER" '如果记录不存在打开职工表进一步验证职工ID号是否存在
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
rs.Filter = "USER_ID='" & Text3.Text & "'"
rs.Open sql, DbFinance
If DbHandle.resultcount(rs) <> 1 Then '如果职工ID记录不存在则提示错误对话框并且关闭数据库
MsgBox "错误，不存在的职工ID号！", vbExclamation
Text3.SetFocus
rs.Close
Set rs = Nothing '释放结果记录集
DbHandle.DbClose
Exit Sub
Else
rs.Close
sql = "TBL_CUR" '如果职工和报销单号都没有问题就打开流动资产表添加新记录
rs.Filter = ""
rs.Open sql, DbFinance
rs.AddNew
rs("CUR_ID") = Text1.Text '报销单编号
rs("CUR_TYPE") = Combo1.ItemData(Combo1.ListIndex) '报销类别
rs("CUR_MONEY") = Val(Text2.Text) '报销金额
rs("CUR_USER") = Text3.Text '报销职工的ID
rs("CUR_DATE") = Me.DTPicker1.Value '报销时间
rs("CUR_PART") = Combo2.ItemData(Combo2.ListIndex) '报销部门
rs("CUR_REMARK") = Text4.Text '报销说明
rs.Update
rs.Close
End If
DbHandle.DbClose
MsgBox "报销记录成功添加！"
Unload Me
Else '数据库打开失败则提示并关闭数据库
MsgBox "数据库错误！", vbExclamation
DbHandle.DbClose
End
End If
End Sub
Private Sub Command2_Click()
Unload Me '取消添加并且返回主窗体
End Sub
Private Sub Form_Load()
Dim sql As String
Dim rs As New ADODB.Recordset
Me.Left = (Screen.Width - Me.ScaleWidth) / 2 '居中显示当前窗体
Me.Top = (Screen.Height - Me.ScaleHeight) / 2
If DbHandle.DbConnection Then '打开数据库连接
sql = "TBL_CURTYPE" '将报销类别从数据库中取出来并且显示在下拉列表中
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
rs.Filter = ""
rs.Open sql, DbFinance
Do While rs.EOF = False '从查找出来的结果集中循环加入下拉列表中,并且记录每个报销类别编号
Combo1.AddItem (rs("CURTYPE_NAME"))
Combo1.ItemData(Combo1.NewIndex) = rs("CURTYPE_ID")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing '添加完成释放结果集
DbHandle.DbClose
Else '打开数据库失败弹出错误窗体
MsgBox "数据库错误！", vbExclamation
DbHandle.DbClose
End
End If
If DbHandle.DbConnection Then '再次打开数据库提取部门信息
sql = "TBL_PART" '对部门表进行全部选择
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
rs.Filter = ""
rs.Open sql, DbFinance
Do While rs.EOF = False '对选择出来的部门结果集遍历,加入下拉列表中
Combo2.AddItem (rs("PART_NAME"))
Combo2.ItemData(Combo2.NewIndex) = rs("PART_ID")
rs.MoveNext
Loop
rs.Close '完成下拉列表的动态添加,释放结果集资源,关闭数据库连接
Set rs = Nothing
DbHandle.DbClose
Else '打开数据库失败弹出错误窗体
MsgBox "数据库错误！", vbExclamation
DbHandle.DbClose
End
End If
Text1.Text = "" '初始化窗体元素属性
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text4.MaxLength = 100
Combo1.Text = ""
Combo2.Text = ""
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -