?? frmadduser.frm
字號:
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column04
DataField = "雇用日期"
Caption = "雇用日期"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
ColumnAllowSizing= 0 'False
ColumnWidth = 794.835
EndProperty
BeginProperty Column01
ColumnAllowSizing= 0 'False
ColumnWidth = 1005.165
EndProperty
BeginProperty Column02
ColumnAllowSizing= 0 'False
ColumnWidth = 794.835
EndProperty
BeginProperty Column03
ColumnAllowSizing= 0 'False
ColumnWidth = 450.142
EndProperty
BeginProperty Column04
ColumnAllowSizing= 0 'False
EndProperty
EndProperty
End
End
End
Attribute VB_Name = "frmAddUser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rsAddUser As ADODB.Recordset
Dim strMaxNum As String
Dim psw As String
Dim AddOrEdit As Boolean
'Dim blnIsSQL As Boolean
Private Sub CmdAct_Click(Index As Integer)
Dim blnIsTrue As Boolean
With rsAddUser
Select Case Index
Case 0
blnIsTrue = Save()
If Not blnIsTrue Then
Exit Sub
End If
.UpdateBatch
If .RecordCount <> 0 Then
.MoveLast
End If
Case 1
.CancelUpdate
If .RecordCount <> 0 Then
.MoveFirst
End If
End Select
End With
Call IsEdit(False)
Me.DataGrid.Refresh
End Sub
Private Sub CmdDep_Click(Index As Integer)
Dim intNum As Integer
Select Case Index
Case 0 '增加模式
AddOrEdit = True
Call AddNew
Case 1 '編輯模式
AddOrEdit = False
Call IsEdit(True)
Me.txtname.SetFocus
Case 2 '查詢模式
Case 3 '刪除模式
intNum = MsgBox("確認刪除當前記錄嗎?", vbYesNo + vbQuestion, "刪除確認")
If intNum = vbYes Then
With rsAddUser
.Delete
.UpdateBatch
If .RecordCount <> 0 Then
.MoveFirst
Else
For intNum = 1 To 4
Me.CmdDep(intNum).Enabled = False
Next
End If
End With
End If
Case 4 '列表
Case 5
Unload Me
End Select
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
EnterToTab KeyAscii
End Sub
Private Sub Form_Load()
' Dim SQL As String
'Set rs = New Recordset
'
' rs.CursorLocation = adUseClient
'
' SQL = "select * from 雇員表"
' Set rs = ExecuteSQL(SQL)
Set rsAddUser = DEaccp.rsComAddUser
Call Display
Call IsEdit(False)
End Sub
Private Sub IsEdit(blnIsEdit As Boolean)
Dim intNum As Integer
'Me.TxtID.Enabled = blnIsEdit
Me.txtname.Enabled = blnIsEdit
Me.Txtpsw.Enabled = blnIsEdit
Me.TxtPhone.Enabled = blnIsEdit
Me.Txtadd.Enabled = blnIsEdit
Me.DCPost.Enabled = blnIsEdit
Me.CbSex.Enabled = blnIsEdit
Me.Data.Enabled = blnIsEdit
'Me.DataGrid.Enabled = Not blnIsEdit
For intNum = 0 To 1
Me.CmdAct(intNum).Enabled = blnIsEdit
Next
' If blnIsSQL = True Then
' CmdDep(0).Enabled = False
' CmdDep(3).Enabled = False
' End If
For intNum = 0 To 5
Me.CmdDep(intNum).Enabled = Not blnIsEdit
Next
If rsAddUser.RecordCount = 0 Then
For intNum = 1 To 4
Me.CmdDep(intNum).Enabled = False
Next
End If
End Sub
Private Sub AddNew()
With rsAddUser
If .RecordCount = 0 Then
strMaxNum = 0
Else
.MoveLast
strMaxNum = rsAddUser!雇員編號
End If
.AddNew "雇員編號", Format(CLng(strMaxNum) + 1, "0####")
Call IsEdit(True)
Me.txtname.SetFocus
Call DClist
End With
End Sub
Private Sub Display()
With Me.TxtId
Set .DataSource = rsAddUser
.DataField = "雇員編號"
End With
With Me.txtname
Set .DataSource = rsAddUser
.DataField = "雇員名"
End With
With Me.Txtpsw
Set .DataSource = rsAddUser
.DataField = "密碼"
End With
With Me.TxtPhone
Set .DataSource = rsAddUser
.DataField = "電話"
End With
With Me.Txtadd
Set .DataSource = rsAddUser
.DataField = "地址"
End With
' With Me.Data
' Set .DataSource = rsAddUser
' .DataField = "雇用日期"
' End With
End Sub
Private Sub DClist()
If AddOrEdit Then
Me.Data = Date
Else
Me.Data = rsAddUser!雇用日期
End If
End Sub
Private Function Save() As Boolean
If Trim(Me.txtname.Text) = "" Then
MsgBox "雇員名稱不能為空!", vbOKOnly + vbCritical, "添加雇員錯誤"
Me.txtname.SetFocus
Save = False
Exit Function
End If
If Trim(Me.Txtpsw.Text) = "" Then
MsgBox "密碼不能為空!", vbOKOnly + vbCritical, "添加雇員錯誤"
Me.Txtpsw.SetFocus
Save = False
Exit Function
End If
If Me.DCPost.Text = "" Then
MsgBox "請選擇職位!", vbOKOnly + vbCritical, "添加雇員錯誤"
Me.DCPost.SetFocus
Save = False
Exit Function
End If
If Me.CbSex.Text = "" Then
MsgBox "請選擇性別!", vbOKOnly + vbCritical, "添加雇員錯誤"
Me.CbSex.SetFocus
Save = False
Exit Function
End If
Dim SQLName As String
Dim rsName As ADODB.Recordset
SQLName = "select * from 雇員表 where 雇員名='" & Me.txtname.Text & "'"
Set rsName = New Recordset
Set rsName = ExecuteSQL(SQLName)
If AddOrEdit Then
If Not rsName.EOF Then
MsgBox "雇員名稱重復!請重新輸入新的雇員名稱!", vbOKOnly + vbCritical, "添加雇員錯誤"
SendKeys "{home}+{end}"
Me.txtname.SetFocus
Exit Function
Save = False
End If
End If
If Me.Data > Date Then
MsgBox "雇用日期不能大于今天的日期!", vbOKOnly + vbCritical, "添加雇員錯誤"
Me.Data.SetFocus
Me.Data = Date
Exit Function
Save = False
End If
Save = True
rsName.Close
Set rsName = Nothing
End Function
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If CmdDep(5).Enabled = False Then
MsgBox "請先退出編輯狀態后再退出該程序!", , "提示"
Cancel = True
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
rsAddUser.Close
Set rsAddUser = Nothing
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -