?? frm臨發修改.frm
字號:
VERSION 5.00
Begin VB.Form frm臨發修改
BorderStyle = 3 'Fixed Dialog
Caption = "臨時發放庫修改"
ClientHeight = 2370
ClientLeft = 1095
ClientTop = 330
ClientWidth = 5550
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2370
ScaleWidth = 5550
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
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 = 285
Index = 2
Left = 1020
MaxLength = 4
TabIndex = 2
Top = 390
Width = 1275
End
Begin VB.PictureBox picButtons
Align = 2 'Align Bottom
Appearance = 0 'Flat
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 420
Left = 0
ScaleHeight = 420
ScaleWidth = 5550
TabIndex = 10
Top = 1455
Width = 5550
Begin VB.CommandButton Command1
Caption = "定位(&S)"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1260
TabIndex = 12
Top = 30
Width = 1305
End
Begin VB.CommandButton cmd關閉
Caption = "關閉(&C)"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 3510
TabIndex = 5
Top = 30
Width = 1185
End
End
Begin VB.Data datPrimaryRS
Align = 2 'Align Bottom
Caption = " "
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 495
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 1875
Width = 5550
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 = 4
Left = 1380
TabIndex = 4
Top = 1050
Width = 1935
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 = 285
Index = 3
Left = 1110
MaxLength = 10
TabIndex = 3
Top = 720
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 = 285
Index = 1
Left = 3210
MaxLength = 8
TabIndex = 1
Top = 60
Width = 1935
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 = 285
Index = 0
Left = 1020
MaxLength = 6
TabIndex = 0
Top = 60
Width = 1275
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 = 11
Top = 375
Width = 735
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 = 9
Top = 1080
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 = 2
Left = 120
TabIndex = 8
Top = 720
Width = 735
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 = 2430
TabIndex = 7
Top = 90
Width = 735
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 = 6
Top = 60
Width = 735
End
End
Attribute VB_Name = "frm臨發修改"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim hxfjd As Integer
Private Sub cmd關閉_Click()
Screen.MousePointer = vbDefault
Unload Me
End Sub
Private Sub Command1_Click()
HXFFHBJ = False
HXFGH = ""
frm定位.Show 1
If HXFFHBJ = True Then
datPrimaryRS.Recordset.MoveFirst
Do While Not datPrimaryRS.Recordset.EOF And Trim(datPrimaryRS.Recordset("工號")) <> Trim(HXFGH)
datPrimaryRS.Recordset.MoveNext
If datPrimaryRS.Recordset.EOF Then Exit Do
Loop
If datPrimaryRS.Recordset.EOF Then
hxfyn = MsgBox("指定工號不存在！", 48)
datPrimaryRS.Recordset.MoveFirst
End If
End If
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_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then
If hxfjd < 4 Then
txtFields(hxfjd + 1).SetFocus
SendKeys "{Home}+{End}"
End If
End If
If KeyCode = vbKeyUp Then
If hxfjd >= 1 And hxfjd <= 4 Then
txtFields(hxfjd - 1).SetFocus
SendKeys "{Home}+{End}"
End If
End If
If KeyCode = vbKeyPageUp And Not datPrimaryRS.Recordset.BOF Then
datPrimaryRS.Recordset.MovePrevious
If datPrimaryRS.Recordset.BOF Then datPrimaryRS.Recordset.MoveFirst
End If
If KeyCode = vbKeyPageDown And Not datPrimaryRS.Recordset.EOF Then
datPrimaryRS.Recordset.MoveNext
If datPrimaryRS.Recordset.EOF Then datPrimaryRS.Recordset.MoveLast
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Screen.MousePointer = vbDefault
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -