?? frm_user.frm
字號:
VERSION 5.00
Begin VB.Form frm_user
Caption = "hp_users"
ClientHeight = 2955
ClientLeft = 1110
ClientTop = 345
ClientWidth = 5520
LinkTopic = "Form1"
ScaleHeight = 2955
ScaleWidth = 5520
Begin VB.CommandButton cmdClose
Caption = "&Close"
Height = 300
Left = 4440
TabIndex = 18
Top = 2300
Width = 975
End
Begin VB.CommandButton cmdUpdate
Caption = "&Update"
Height = 300
Left = 3360
TabIndex = 17
Top = 2300
Width = 975
End
Begin VB.CommandButton cmdRefresh
Caption = "&Refresh"
Height = 300
Left = 2280
TabIndex = 16
Top = 2300
Width = 975
End
Begin VB.CommandButton cmdDelete
Caption = "&Delete"
Height = 300
Left = 1200
TabIndex = 15
Top = 2300
Width = 975
End
Begin VB.CommandButton cmdAdd
Caption = "&Add"
Height = 300
Left = 120
TabIndex = 14
Top = 2300
Width = 975
End
Begin VB.Data Data1
Align = 2 'Align Bottom
Connect = "Access 2000;"
DatabaseName = "E:\work\廣州友聯\src\warehouse\DB-Access\hunterPOS.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "hp_users"
Top = 2610
Width = 5520
End
Begin VB.TextBox txtFields
DataField = "userGroup"
DataSource = "Data1"
Height = 285
Index = 6
Left = 2040
TabIndex = 13
Top = 1960
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "address"
DataSource = "Data1"
Height = 285
Index = 5
Left = 2040
MaxLength = 50
TabIndex = 11
Top = 1640
Width = 3375
End
Begin VB.TextBox txtFields
DataField = "e-mail"
DataSource = "Data1"
Height = 285
Index = 4
Left = 2040
MaxLength = 50
TabIndex = 9
Top = 1320
Width = 3375
End
Begin VB.TextBox txtFields
DataField = "phone"
DataSource = "Data1"
Height = 285
Index = 3
Left = 2040
MaxLength = 50
TabIndex = 7
Top = 1000
Width = 3375
End
Begin VB.TextBox txtFields
DataField = "password"
DataSource = "Data1"
Height = 285
Index = 2
Left = 2040
MaxLength = 50
TabIndex = 5
Top = 680
Width = 3375
End
Begin VB.TextBox txtFields
DataField = "username"
DataSource = "Data1"
Height = 285
Index = 1
Left = 2040
MaxLength = 50
TabIndex = 3
Top = 360
Width = 3375
End
Begin VB.TextBox txtFields
DataField = "usercode"
DataSource = "Data1"
Height = 285
Index = 0
Left = 2040
MaxLength = 50
TabIndex = 1
Top = 40
Width = 3375
End
Begin VB.Label lblLabels
Caption = "userGroup:"
Height = 255
Index = 6
Left = 120
TabIndex = 12
Top = 1980
Width = 1815
End
Begin VB.Label lblLabels
Caption = "address:"
Height = 255
Index = 5
Left = 120
TabIndex = 10
Top = 1660
Width = 1815
End
Begin VB.Label lblLabels
Caption = "e-mail:"
Height = 255
Index = 4
Left = 120
TabIndex = 8
Top = 1340
Width = 1815
End
Begin VB.Label lblLabels
Caption = "phone:"
Height = 255
Index = 3
Left = 120
TabIndex = 6
Top = 1020
Width = 1815
End
Begin VB.Label lblLabels
Caption = "password:"
Height = 255
Index = 2
Left = 120
TabIndex = 4
Top = 700
Width = 1815
End
Begin VB.Label lblLabels
Caption = "username:"
Height = 255
Index = 1
Left = 120
TabIndex = 2
Top = 380
Width = 1815
End
Begin VB.Label lblLabels
Caption = "usercode:"
Height = 255
Index = 0
Left = 120
TabIndex = 0
Top = 60
Width = 1815
End
End
Attribute VB_Name = "frm_user"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdAdd_Click()
Data1.Recordset.AddNew
End Sub
Private Sub cmdDelete_Click()
'this may produce an error if you delete the last
'record or the only record in the recordset
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End Sub
Private Sub cmdRefresh_Click()
'this is really only needed for multi user apps
Data1.Refresh
End Sub
Private Sub cmdUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub Data1_Error(DataErr As Integer, Response As Integer)
'This is where you would put error handling code
'If you want to ignore errors, comment out the next line
'If you want to trap them, add code here to handle them
MsgBox "Data error event hit err:" & Error$(DataErr)
Response = 0 'throw away the error
End Sub
Private Sub Data1_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'This will display the current record position
'for dynasets and snapshots
Data1.Caption = "Record: " & (Data1.Recordset.AbsolutePosition + 1)
'for the table object you must set the index property when
'the recordset gets created and use the following line
'Data1.Caption = "Record: " & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
'This is where you put validation code
'This event gets called when the following actions occur
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
End Select
Screen.MousePointer = vbHourglass
End Sub
Private Sub Form_Load()
Data1.DatabaseName = g_dbPath
sqlData = "select * from hp_users where 1=1 order by usercode"
Data1.RecordSource = sqlData
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -