功能不错的vb工资管理系统
源代码在线查看： frm系统信息维护.frm
VERSION 5.00
Begin VB.Form frm系统信息维护
BorderStyle = 3 'Fixed Dialog
Caption = "机关事业单位通用工资管理系统维护"
ClientHeight = 3765
ClientLeft = 1095
ClientTop = 330
ClientWidth = 5940
ControlBox = 0 'False
LinkTopic = "Form3"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3765
ScaleWidth = 5940
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 3000
Style = 2 'Dropdown List
TabIndex = 6
Top = 2130
Width = 1515
End
Begin VB.PictureBox picButtons
Align = 2 'Align Bottom
Appearance = 0 'Flat
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 420
Left = 0
ScaleHeight = 420
ScaleWidth = 5940
TabIndex = 18
Top = 3000
Width = 5940
Begin VB.CommandButton cmd关闭
Cancel = -1 'True
Caption = "返回(&Q)"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 2315
TabIndex = 8
Top = 30
Width = 1455
End
End
Begin VB.Data datPrimaryRS
Align = 2 'Align Bottom
Caption = " "
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3420
Visible = 0 'False
Width = 5940
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 = 7
Left = 1290
MaxLength = 13
TabIndex = 7
Top = 2580
Width = 2685
End
Begin VB.TextBox txtFields
DataField = "长城卡类别"
DataSource = "datPrimaryRS"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 6
Left = 1590
MaxLength = 6
TabIndex = 16
Top = 2160
Width = 1095
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 = 5
Left = 1830
MaxLength = 30
TabIndex = 5
Top = 1710
Width = 3675
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 = 4
Left = 1260
MaxLength = 12
TabIndex = 4
Top = 1290
Width = 1785
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
IMEMode = 3 'DISABLE
Index = 3
Left = 4500
MaxLength = 6
PasswordChar = "*"
TabIndex = 3
Top = 900
Width = 945
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 = 2
Left = 1530
MaxLength = 10
TabIndex = 2
Top = 855
Width = 1365
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 = 1
Left = 1620
MaxLength = 10
TabIndex = 1
Top = 420
Width = 1305
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 = 285
Index = 0
Left = 1260
MaxLength = 40
TabIndex = 0
Top = 60
Width = 4155
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 = 120
TabIndex = 17
Top = 2670
Width = 1125
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 = 6
Left = 120
TabIndex = 15
Top = 2250
Width = 1425
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 = 5
Left = 120
TabIndex = 14
Top = 1800
Width = 1665
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 = 4
Left = 120
TabIndex = 13
Top = 1350
Width = 1095
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 = 3
Left = 3090
TabIndex = 12
Top = 960
Width = 1365
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 = 2
Left = 120
TabIndex = 11
Top = 930
Width = 1365
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 = 1
Left = 120
TabIndex = 10
Top = 510
Width = 1455
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 = 0
Left = 120
TabIndex = 9
Top = 60
Width = 1095
End
End
Attribute VB_Name = "frm系统信息维护"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmd关闭_Click()
If Len(Trim(txtFields(0))) = 0 Or Len(Trim(txtFields(2))) = 0 Or Len(Trim(txtFields(3))) = 0 Or Len(Trim(txtFields(6))) = 0 Or Len(Trim(txtFields(7))) = 0 Then
hxfyn = MsgBox("单位名称、系统使用人及使用密码、长城卡类别、单位代号、在职应发项数及代扣项数必须填写！", 48)
Else
Screen.MousePointer = vbDefault
Unload Me
Set wdb = wws.OpenDatabase(xtlj + "dwxx.mdb")
Set wtb1 = wdb.OpenRecordset("dwxx", dbOpenTable)
yhdw = wtb1("单位名称")
syr = wtb1("系统使用人")
SYRMM = wtb1("使用人密码")
dwdh = wtb1("单位代号")
dwccklb = wtb1("长城卡类别")
wdb.Close
End If
End Sub
Private Sub Combo1_Click()
txtFields(6).Text = Combo1.Text
End Sub
Private Sub datPrimaryRS_Error(DataErr As Integer, Response As Integer)
'错误处理程序代码置于此处
'想要忽略错误，注释掉下一行
'想要俘获它们，在此添加代码处理它们
MsgBox "Data error event hit err:" & Error$(DataErr)
Response = 0 '忽略错误
End Sub
Private Sub datPrimaryRS_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'为 dynasets 和快照显示当前记录位置
datPrimaryRS.Caption = "Record: " & (datPrimaryRS.Recordset.AbsolutePosition + 1)
End Sub
Private Sub datPrimaryRS_Validate(Action As Integer, Save As Integer)
'验证代码置于此处
'下列动作发生时该事件被调用
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
Screen.MousePointer = vbDefault
End Select
Screen.MousePointer = vbHourglass
End Sub
Private Sub Form_Load()
Combo1.AddItem "普通卡"
Combo1.AddItem "借记卡"
datPrimaryRS.DatabaseName = xtlj & "dwxx.mdb"
datPrimaryRS.RecordSource = "select * from [dwxx]"
datPrimaryRS.Refresh
End Sub
Private Sub Form_Unload(Cancel As Integer)
Screen.MousePointer = vbDefault
End Sub
