?? 會員基本信息管理.frm

?? 工會管理系統源代碼
?? FRM
?? 第 1 頁 / 共 3 頁
字號:
上一頁 1 23
      Width           =   1980
   End
   Begin VB.Label Label16 
      AutoSize        =   -1  'True
      Caption         =   "請注意格式：2004-04-01"
      Height          =   180
      Index           =   1
      Left            =   11820
      TabIndex        =   27
      Top             =   3240
      Width           =   1980
   End
   Begin VB.Label Label16 
      AutoSize        =   -1  'True
      Caption         =   "請注意格式：2004-04-01"
      Height          =   180
      Index           =   2
      Left            =   4740
      TabIndex        =   14
      Top             =   4080
      Width           =   1980
   End
End
Attribute VB_Name = "會員基本信息管理"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub cancelCommand_Click()
        txtAddress.Enabled = False
        txtBirthdate.Enabled = False
        txtComment.Enabled = False
        txtDept.Enabled = False
        txtDuty.Enabled = False
        txtEducation.Enabled = False
        txtJobtime.Enabled = False
        txtJointime.Enabled = False
        txtName.Enabled = False
        txtNation.Enabled = False
        txtPersona.Enabled = False
        txtPolitical.Enabled = False
        txtPopulation.Enabled = False
        txtWife.Enabled = False
        comboSex.Enabled = False
        firstCommand.Enabled = True
        previousCommand.Enabled = True
        nextCommand.Enabled = True
        lastCommand.Enabled = True
        editCommand.Enabled = True
        updateCommand.Enabled = False
        cancelCommand.Enabled = False
        deleteCommand.Enabled = True
        Command2.Enabled = True
        Command3.Enabled = False
        Command1.Enabled = True
        Adodc1.Refresh
End Sub

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Command2_Click()
    txtAddress.Enabled = True
    txtBirthdate.Enabled = True
    txtComment.Enabled = True
    txtDept.Enabled = True
    txtDuty.Enabled = True
    txtEducation.Enabled = True
    txtJobtime.Enabled = True
    txtJointime.Enabled = True
    txtName.Enabled = True
    txtNation.Enabled = True
    txtPersona.Enabled = True
    txtPolitical.Enabled = True
    txtPopulation.Enabled = True
    txtWife.Enabled = True
    comboSex.Enabled = True
    firstCommand.Enabled = False
    previousCommand.Enabled = False
    nextCommand.Enabled = False
    lastCommand.Enabled = False
    editCommand.Enabled = False
    updateCommand.Enabled = False
    cancelCommand.Enabled = False
    deleteCommand.Enabled = False
    Command2.Enabled = False
    Command3.Enabled = True
    Command1.Enabled = False
    Adodc1.Recordset.AddNew
End Sub

Private Sub Command3_Click()
    If Not (Testtxt(txtAddress.Text) And Testtxt(txtBirthdate.Text) And Testtxt(txtComment.Text) And Testtxt(txtDept.Text) And Testtxt(txtDuty.Text) And Testtxt(txtEducation.Text) And Testtxt(txtJobtime.Text) And Testtxt(txtJointime.Text) And Testtxt(txtName.Text) And Testtxt(txtNation.Text) And Testtxt(txtPersona.Text) And Testtxt(txtPolitical.Text) And Testtxt(txtPopulation.Text) And Testtxt(txtWife.Text)) Then
        MsgBox "信息輸入不完整，請檢查并確認信息！", vbOKOnly + vbExclamation, "請注意"
        txtName.SetFocus
        Exit Sub
    End If
    If Not IsNumeric(Trim(txtPopulation)) Then
        MsgBox "家庭人口，請輸入數字！", vbOKOnly + vbExclamation, "請注意"
        txtPopulation.SetFocus
        Exit Sub
    End If
    If Not (IsDate(txtBirthdate.Text) And IsDate(txtJobtime.Text) And IsDate(txtJointime.Text)) Then
        MsgBox "日期時間格式應為：YYYY-MM-DD，請確認輸入無誤！", vbOKOnly + vbExclamation, "請注意"
        txtBirthdate.SetFocus
    Else
        Adodc1.Recordset.Update
        Call LogPlug("會員信息", "添加新會員：" & Trim(txtName.Text))
        MsgBox "添加會員信息成功！", vbOKOnly + vbExclamation, "恭喜"
        Adodc1.Recordset.MoveLast
    End If
        txtAddress.Enabled = False
        txtBirthdate.Enabled = False
        txtComment.Enabled = False
        txtDept.Enabled = False
        txtDuty.Enabled = False
        txtEducation.Enabled = False
        txtJobtime.Enabled = False
        txtJointime.Enabled = False
        txtName.Enabled = False
        txtNation.Enabled = False
        txtPersona.Enabled = False
        txtPolitical.Enabled = False
        txtPopulation.Enabled = False
        txtWife.Enabled = False
        comboSex.Enabled = False
        firstCommand.Enabled = True
        previousCommand.Enabled = True
        nextCommand.Enabled = True
        lastCommand.Enabled = True
        editCommand.Enabled = True
        updateCommand.Enabled = False
        cancelCommand.Enabled = False
        deleteCommand.Enabled = True
        Command2.Enabled = True
        Command3.Enabled = False
        Command1.Enabled = True
End Sub

Private Sub deleteCommand_Click()
    str2 = MsgBox("你確定刪除當前記錄嗎？！", vbOKCancel, "刪除當前記錄")
    If str2 = vbOK Then
        Call LogPlug("會員信息", "刪除會員：" & Trim(txtName.Text) & "的信息。")
        If Adodc1.Recordset.RecordCount = 1 Then
            Adodc1.Recordset.Delete
            Unload Me
            Me.Show
        Else
            Adodc1.Recordset.MoveNext
            If Adodc1.Recordset.EOF Then
                Adodc1.Recordset.MoveLast
                Adodc1.Recordset.Delete
                Adodc1.Recordset.MoveFirst
            Else
                Adodc1.Recordset.MovePrevious
                Adodc1.Recordset.Delete
                Adodc1.Recordset.MoveNext
            End If
        End If
    End If
        txtAddress.Enabled = False
        txtBirthdate.Enabled = False
        txtComment.Enabled = False
        txtDept.Enabled = False
        txtDuty.Enabled = False
        txtEducation.Enabled = False
        txtJobtime.Enabled = False
        txtJointime.Enabled = False
        txtName.Enabled = False
        txtNation.Enabled = False
        txtPersona.Enabled = False
        txtPolitical.Enabled = False
        txtPopulation.Enabled = False
        txtWife.Enabled = False
        comboSex.Enabled = False
        firstCommand.Enabled = True
        previousCommand.Enabled = True
        nextCommand.Enabled = True
        lastCommand.Enabled = True
        editCommand.Enabled = True
        updateCommand.Enabled = False
        cancelCommand.Enabled = False
        deleteCommand.Enabled = True
        Command2.Enabled = True
        Command3.Enabled = False
        Command1.Enabled = True
End Sub

Private Sub editCommand_Click()
    txtAddress.Enabled = True
    txtBirthdate.Enabled = True
    txtComment.Enabled = True
    txtDept.Enabled = True
    txtDuty.Enabled = True
    txtEducation.Enabled = True
    txtJobtime.Enabled = True
    txtJointime.Enabled = True
    txtName.Enabled = True
    txtNation.Enabled = True
    txtPersona.Enabled = True
    txtPolitical.Enabled = True
    txtPopulation.Enabled = True
    txtWife.Enabled = True
    comboSex.Enabled = True
    firstCommand.Enabled = False
    previousCommand.Enabled = False
    nextCommand.Enabled = False
    lastCommand.Enabled = False
    editCommand.Enabled = False
    updateCommand.Enabled = True
    cancelCommand.Enabled = True
    deleteCommand.Enabled = True
    Command2.Enabled = False
    Command3.Enabled = False
    Command1.Enabled = False
End Sub

Private Sub firstCommand_Click()
    Adodc1.Recordset.MoveFirst
End Sub

Private Sub Form_Load()
    Dim Sc As String
    Sc = "driver={Microsoft Access Driver (*.mdb)};dbq=" & App.Path & "\tradeunion.mdb"
    Set cn = New ADODB.Connection
    cn.Open Sc
    Dim OneQuerySql As String
    OneQuerySql = "select* from 會員基本信息表"
    Dim AdoRsTradeMem As New ADODB.Recordset
    If AdoRsTradeMem.State = adStateOpen Then
        AdoRsTradeMem.Close
    End If
    AdoRsTradeMem.Open OneQuerySql, cn, adOpenKeyset, adLockOptimistic
    Set Adodc1.Recordset = AdoRsTradeMem
    If Adodc1.Recordset.EOF Then
        MsgBox "系統內不存在任何會員基本信息，請先添加會員信息", vbOKOnly + vbExclamation, "警告"
        txtAddress.Enabled = True
        txtBirthdate.Enabled = True
        txtComment.Enabled = True
        txtDept.Enabled = True
        txtDuty.Enabled = True
        txtEducation.Enabled = True
        txtJobtime.Enabled = True
        txtJointime.Enabled = True
        txtName.Enabled = True
        txtNation.Enabled = True
        txtPersona.Enabled = True
        txtPolitical.Enabled = True
        txtPopulation.Enabled = True
        txtWife.Enabled = True
        comboSex.Enabled = True
        firstCommand.Enabled = False
        previousCommand.Enabled = False
        nextCommand.Enabled = False
        lastCommand.Enabled = False
        editCommand.Enabled = False
        updateCommand.Enabled = False
        cancelCommand.Enabled = False
        deleteCommand.Enabled = False
        Command2.Enabled = False
        Command3.Enabled = True
        Command1.Enabled = False
        Adodc1.Recordset.AddNew
        Exit Sub
    Else
        Adodc1.Recordset.MoveFirst
        txtAddress.Enabled = False
        txtBirthdate.Enabled = False
        txtComment.Enabled = False
        txtDept.Enabled = False
        txtDuty.Enabled = False
        txtEducation.Enabled = False
        txtJobtime.Enabled = False
        txtJointime.Enabled = False
        txtName.Enabled = False
        txtNation.Enabled = False
        txtPersona.Enabled = False
        txtPolitical.Enabled = False
        txtPopulation.Enabled = False
        txtWife.Enabled = False
        comboSex.Enabled = False
        firstCommand.Enabled = True
        previousCommand.Enabled = True
        nextCommand.Enabled = True
        lastCommand.Enabled = True
        editCommand.Enabled = True
        updateCommand.Enabled = False
        cancelCommand.Enabled = False
        deleteCommand.Enabled = True
        Command2.Enabled = True
        Command3.Enabled = False
        Command1.Enabled = True
    End If
End Sub

Private Sub lastCommand_Click()
    Adodc1.Recordset.MoveLast
End Sub

Private Sub nextCommand_Click()
    If Adodc1.Recordset.EOF Then
        Adodc1.Recordset.MoveFirst
    Else
        Adodc1.Recordset.MoveNext
    End If
End Sub

Private Sub previousCommand_Click()
    If Adodc1.Recordset.BOF Then
        Adodc1.Recordset.MoveLast
    Else
        Adodc1.Recordset.MovePrevious
    End If
End Sub

Private Sub updateCommand_Click()
    If Not (Testtxt(txtAddress.Text) And Testtxt(txtBirthdate.Text) And Testtxt(txtComment.Text) And Testtxt(txtDept.Text) And Testtxt(txtDuty.Text) And Testtxt(txtEducation.Text) And Testtxt(txtJobtime.Text) And Testtxt(txtJointime.Text) And Testtxt(txtName.Text) And Testtxt(txtNation.Text) And Testtxt(txtPersona.Text) And Testtxt(txtPolitical.Text) And Testtxt(txtPopulation.Text) And Testtxt(txtWife.Text)) Then
        MsgBox "信息輸入不完整，請檢查并確認信息！", vbOKOnly + vbExclamation, "請注意"
        txtName.SetFocus
        Exit Sub
    End If
    If Not IsNumeric(Trim(txtPopulation)) Then
        MsgBox "家庭人口，請輸入數字！", vbOKOnly + vbExclamation, "請注意"
        txtPopulation.SetFocus
        Exit Sub
    End If
    If Not (IsDate(txtBirthdate.Text) And IsDate(txtJobtime.Text) And IsDate(txtJointime.Text)) Then
        MsgBox "日期時間格式應為：YYYY-MM-DD，請確認輸入無誤！", vbOKOnly + vbExclamation, "請注意"
        txtBirthdate.SetFocus
    Else
        Adodc1.Recordset.Update
        Call LogPlug("會員信息", "修改會員：" & Trim(txtName.Text) & "的信息。")
        MsgBox "修改會員信息成功！", vbOKOnly + vbExclamation, "恭喜"
    End If
        txtAddress.Enabled = False
        txtBirthdate.Enabled = False
        txtComment.Enabled = False
        txtDept.Enabled = False
        txtDuty.Enabled = False
        txtEducation.Enabled = False
        txtJobtime.Enabled = False
        txtJointime.Enabled = False
        txtName.Enabled = False
        txtNation.Enabled = False
        txtPersona.Enabled = False
        txtPolitical.Enabled = False
        txtPopulation.Enabled = False
        txtWife.Enabled = False
        comboSex.Enabled = False
        firstCommand.Enabled = True
        previousCommand.Enabled = True
        nextCommand.Enabled = True
        lastCommand.Enabled = True
        editCommand.Enabled = True
        updateCommand.Enabled = False
        cancelCommand.Enabled = False
        deleteCommand.Enabled = True
        Command2.Enabled = True
        Command3.Enabled = False
        Command1.Enabled = True
End Sub
上一頁 1 23
?? 文件大小 60 K
?? 上傳用戶 haorenkv3
?? 所屬分類數值算法/人工智能
??? 相關標簽

#管理系統 #源代碼
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? 會員基本信息管理.frm

?? 快捷鍵說明
