开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
AddPay.frm
资源名称：financial_manage.rar　[点击查看]
上传用户：cntx88
上传日期：2022-08-07
资源大小：169k
文件大小：7k
源码类别：

企业管理

开发平台：

Visual Basic

AddPay.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form AddPay 
  3.    Caption         =   "添加"
  4.    ClientHeight    =   4020
  5.    ClientLeft      =   60
  6.    ClientTop       =   450
  7.    ClientWidth     =   3675
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   4020
  10.    ScaleWidth      =   3675
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.Frame Frame1 
  13.       Caption         =   "添加工资记录"
  14.       Height          =   3735
  15.       Left            =   120
  16.       TabIndex        =   0
  17.       Top             =   120
  18.       Width           =   3375
  19.       Begin VB.CommandButton Command2 
  20.          Caption         =   "取消"
  21.          Height          =   495
  22.          Left            =   1800
  23.          TabIndex        =   11
  24.          Top             =   2880
  25.          Width           =   1215
  26.       End
  27.       Begin VB.CommandButton Command1 
  28.          Caption         =   "确定"
  29.          Height          =   495
  30.          Left            =   360
  31.          TabIndex        =   10
  32.          Top             =   2880
  33.          Width           =   1215
  34.       End
  35.       Begin VB.ComboBox Combo2 
  36.          Height          =   300
  37.          Left            =   1920
  38.          TabIndex        =   7
  39.          Text            =   "Combo2"
  40.          Top             =   2160
  41.          Width           =   855
  42.       End
  43.       Begin VB.ComboBox Combo1 
  44.          Height          =   300
  45.          ItemData        =   "AddPay.frx":0000
  46.          Left            =   360
  47.          List            =   "AddPay.frx":0002
  48.          TabIndex        =   6
  49.          Text            =   "Combo1"
  50.          Top             =   2138
  51.          Width           =   1215
  52.       End
  53.       Begin VB.TextBox Text2 
  54.          Height          =   270
  55.          Left            =   360
  56.          TabIndex        =   3
  57.          Text            =   "Text2"
  58.          Top             =   1440
  59.          Width           =   2655
  60.       End
  61.       Begin VB.TextBox Text1 
  62.          Height          =   270
  63.          Left            =   360
  64.          TabIndex        =   1
  65.          Text            =   "Text1"
  66.          Top             =   720
  67.          Width           =   2655
  68.       End
  69.       Begin VB.Label Label5 
  70.          Caption         =   "月"
  71.          Height          =   255
  72.          Left            =   2880
  73.          TabIndex        =   9
  74.          Top             =   2190
  75.          Width           =   255
  76.       End
  77.       Begin VB.Label Label4 
  78.          Caption         =   "年"
  79.          Height          =   255
  80.          Left            =   1680
  81.          TabIndex        =   8
  82.          Top             =   2190
  83.          Width           =   255
  84.       End
  85.       Begin VB.Label Label3 
  86.          Caption         =   "工资月份"
  87.          Height          =   255
  88.          Left            =   360
  89.          TabIndex        =   5
  90.          Top             =   1800
  91.          Width           =   1215
  92.       End
  93.       Begin VB.Label Label2 
  94.          Caption         =   "月工资"
  95.          Height          =   255
  96.          Left            =   360
  97.          TabIndex        =   4
  98.          Top             =   1200
  99.          Width           =   1215
  100.       End
  101.       Begin VB.Label Label1 
  102.          Caption         =   "职工ID"
  103.          Height          =   255
  104.          Left            =   360
  105.          TabIndex        =   2
  106.          Top             =   480
  107.          Width           =   2175
  108.       End
  109.    End
  110. End
  111. Attribute VB_Name = "AddPay"
  112. Attribute VB_GlobalNameSpace = False
  113. Attribute VB_Creatable = False
  114. Attribute VB_PredeclaredId = True
  115. Attribute VB_Exposed = False
  116. Option Explicit
  118. Private Sub Command1_Click()
  119.     Dim sql As String
  120.     Dim rs As New ADODB.Recordset
  121.     Dim paydate As String       '工资月份
  122.     
  123.     If Text1.Text = "" Then     '确保需要填写的文本框都填写正确的信息
  124.         MsgBox "职工ID不能为空！", vbCritical
  125.         Text1.SetFocus
  126.         Exit Sub
  127.     End If
  128.     If Text2.Text = "" Then
  129.         MsgBox "月工资不能为空！", vbCritical
  130.         Text2.SetFocus
  131.         Exit Sub
  132.     End If
  133.     If Not IsNumeric(Text2.Text) Then       '月工资对话框必须填写数字
  134.         MsgBox "月工资必须是数字！", vbCritical
  135.         Text2.SetFocus
  136.         Exit Sub
  137.     End If
  138.     If Combo1.ListIndex = -1 Then       '确保年份列表被选择
  139.         MsgBox "年份必须选择！", vbCritical
  140.         Combo1.SetFocus
  141.         Exit Sub
  142.     End If
  143.     If Combo2.ListIndex = -1 Then       '确保月份列表被选择
  144.         MsgBox "月份必须选择！", vbCritical
  145.         Combo2.SetFocus
  146.         Exit Sub
  147.     End If
  148.     paydate = Combo1.List(Combo1.ListIndex) & "-" & Combo2.List(Combo2.ListIndex)
  149.     '组合年份和月份
  150.     If DbHandle.DbConnection Then
  151.         sql = "TBL_USER"        '查找职工表,确定输入职工ID是存在的.
  152.         rs.CursorType = adOpenDynamic
  153.         rs.LockType = adLockOptimistic
  154.         rs.Filter = "USER_ID='" & Text1.Text & "'"
  155.         rs.Open sql, DbFinance
  156.         If DbHandle.resultcount(rs) <> 1 Then       '不存在则提示出错,退出
  157.             MsgBox "错误，不存在的职工ID号！", vbExclamation
  158.             Text1.SetFocus
  159.             rs.Close
  160.             Set rs = Nothing
  161.             DbHandle.DbClose
  162.             Exit Sub
  163.         End If
  164.         rs.Close
  165.         
  166.         sql = "TBL_PAY"     '搜索月工资表确保输入的工资记录是不存在的
  167.         rs.CursorType = adOpenDynamic
  168.         rs.LockType = adLockOptimistic
  169.         rs.Filter = "PAY_USER='" & Text1.Text & "' AND PAY_DATE='" & paydate & "'"
  170.         rs.Open sql, DbFinance
  171.         If DbHandle.resultcount(rs) = 1 Then        '存在则提示出错,退出
  172.             MsgBox "工资记录已经存在！", vbExclamation
  173.             rs.Close
  174.             DbHandle.DbClose
  175.             Exit Sub
  176.         Else        '不存在则新添加工资记录
  177.             rs.Close
  178.             rs.Filter = ""
  179.             rs.Open sql, DbFinance
  180.             rs.AddNew
  181.             rs("PAY_USER") = Text1.Text     '职工ID
  182.             rs("PAY_DATE") = paydate        '发放工资月份
  183.             rs("PAY_MONEY") = Val(Text2.Text)   '发放金钱数目
  184.             rs.Update
  185.             rs.Close
  186.         End If
  187.         DbHandle.DbClose
  188.         MsgBox "工资记录成功添加！"
  189.         Unload Me
  190.     Else        '打开数据库失败则提示出错退出
  191.         MsgBox "数据库错误！", vbExclamation
  192.         DbHandle.DbClose
  193.         End
  194.     End If
  195. End Sub
  197. Private Sub Command2_Click()
  198.     Unload Me       '返回主窗体
  199. End Sub
  201. Private Sub Form_Load()
  202.     Dim i As Long
  203.     
  204.     Me.Left = (Screen.Width - Me.ScaleWidth) / 2        '窗体居中化
  205.     Me.Top = (Screen.Height - Me.ScaleHeight) / 2
  206.     For i = 2003 To 2030        '下拉列表设置显示年份是2003-2030年间
  207.         Combo1.AddItem Trim(Str(i))
  208.     Next i
  209.     For i = 1 To 12         '下拉列表设置显示月份是1-12月间
  210.         Combo2.AddItem Trim(Str(i))
  211.     Next i
  212.     Text1.Text = ""     '初始化窗体元素属性
  213.     Text2.Text = ""
  214.     Combo1.Text = ""
  215.     Combo2.Text = ""
  216. End Sub
  218. Private Sub Form_Unload(Cancel As Integer)
  219.     On Error Resume Next
  220.     DbHandle.DbClose        '关闭窗体时关闭数据库连接
  221. End Sub