?? 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 '屏幕中心
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 '缺省游標
DefaultType = 2 '使用 ODBC
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 = 1185
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -