frmdeptmanage.frm

该软件非常适合学校小型数据管理

         Left            =   -71520
         TabIndex        =   9
         Top             =   2280
         Width           =   1215
      End
      Begin VB.CommandButton CmdAdd 
         Caption         =   "添加(&A)"
         Height          =   375
         Left            =   -71520
         TabIndex        =   6
         Top             =   840
         Width           =   1215
      End
      Begin VB.CommandButton CmdEdit 
         Caption         =   "编辑(&E)"
         Height          =   375
         Left            =   -71520
         TabIndex        =   5
         Top             =   1320
         Width           =   1215
      End
      Begin VB.CommandButton CmdDelete 
         Caption         =   "删除(&D)"
         Height          =   375
         Left            =   -71520
         TabIndex        =   4
         Top             =   1800
         Width           =   1215
      End
      Begin VB.CommandButton CmdReTurn 
         Caption         =   "返回(&R)"
         Height          =   375
         Left            =   -71520
         TabIndex        =   2
         Top             =   2760
         Width           =   1215
      End
      Begin VB.PictureBox Picture1 
         Height          =   2415
         Left            =   -74760
         ScaleHeight     =   2355
         ScaleWidth      =   2955
         TabIndex        =   1
         Top             =   720
         Width           =   3015
         Begin VB.TextBox TxtDeptName 
            Enabled         =   0   'False
            Height          =   270
            Left            =   1080
            MaxLength       =   20
            TabIndex        =   8
            Top             =   1035
            Width           =   1695
         End
         Begin VB.Label LblDeptName 
            AutoSize        =   -1  'True
            Caption         =   "团队名称："
            Height          =   180
            Left            =   120
            TabIndex        =   7
            Top             =   1080
            Width           =   900
         End
      End
      Begin VB.CommandButton CmdMoves 
         Caption         =   "移动(&Z)"
         Height          =   375
         Left            =   -71520
         TabIndex        =   18
         Top             =   2280
         Width           =   1215
      End
   End
   Begin WinXPC_Engine.WindowsXPC WinXPDeptManage 
      Left            =   720
      Top             =   240
      _ExtentX        =   6588
      _ExtentY        =   1085
      ColorScheme     =   2
      Common_Dialog   =   0   'False
   End
End
Attribute VB_Name = "FrmDeptManage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmodState()
TxtTitleName.Enabled = True      '//使之变成可用
CmdAdds.Visible = False          '//将按钮隐藏
CmdEdits.Visible = False
CmdDel.Visible = False
CmdMoves.Visible = False
CmdSaves.Visible = True          '//将按钮显示
cmdcancel.Enabled = False
End Sub
Private Sub CmdState()
TxtDeptName.Enabled = True      '//使之变成可用
CmdAdd.Visible = False          '//将按钮隐藏
CmdEdit.Visible = False
CmdDelete.Visible = False
CmdMove.Visible = False
CmdSave.Visible = True          '//将按钮显示
CmdReTurn.Enabled = False
End Sub
Private Sub CmdAdd_Click()
RsDept.AddNew                   '//在记录集中添加一新行
TxtDeptName.Text = Empty        '//清空文本框
Call CmdState
End Sub
Private Sub CmdAdds_Click()
RsTitle.AddNew                   '//在记录集中添加一新行
TxtTitleName.Text = Empty        '//清空文本框
Call CmodState
End Sub

Private Sub cmdcancel_Click()
Unload Me
End Sub

Private Sub CmdDel_Click()
If MsgBox("确定要删除吗？", vbInformation + vbYesNo, "删除团队") = vbYes Then
On Error GoTo ERRDel                 '//错误捕捉
        RsTitle.Delete               '//删除记录集数据
        Call CmdMoves_Click
    End If
Exit Sub                             '//错误处理
ERRDel:
    MsgBox "至少有一个职务", , "验证错误"
End Sub

Private Sub CmdDelete_Click()
If MsgBox("确定要删除吗？", vbInformation + vbYesNo, "删除团队") = vbYes Then
On Error GoTo ERRDel                '//错误捕捉
        RsDept.Delete               '//删除记录集数据
        Call CmdMove_Click
    End If
Exit Sub                            '//错误处理
ERRDel:
    MsgBox "至少有一个团队", , "验证错误"
End Sub

Private Sub CmdEdit_Click()
Call CmdState
End Sub

Private Sub CmdEdits_Click()
Call CmodState
End Sub

Private Sub CmdMove_Click()
RsDept.MoveNext             '//记录集向下移动
If RsDept.EOF Then
    RsDept.MoveFirst        '//记录集移动到第一行
End If
    TxtDeptName.Text = RsDept.Fields(0).Value   '//窗体加载时将记录集中数据读入文本框
End Sub
Private Sub CmdMoves_Click()
RsTitle.MoveNext             '//记录集向下移动
If RsTitle.EOF Then
    RsTitle.MoveFirst        '//记录集移动到第一行
End If
    TxtTitleName.Text = RsTitle.Fields(0).Value   '//窗体加载时将记录集中数据读入文本框
End Sub

Private Sub CmdReTurn_Click()
Unload Me
End Sub
Private Sub CmdSave_Click()
RsDept.Fields(0).Value = Trim(TxtDeptName.Text)
On Error GoTo ERRUp                 '//捕捉错误
    RsDept.Update                   '//更新记录集
    MsgBox "数据已保存", , "保存成功"
    CmdAdd.Visible = True           '//将按钮显示
    CmdEdit.Visible = True
    CmdDelete.Visible = True
    CmdMove.Visible = True
    CmdSave.Visible = False         '//将按钮隐藏
    CmdReTurn.Enabled = True
    
    TxtDeptName.Enabled = False
Exit Sub            '//错误处理
ERRUp:
    MsgBox "团队名不能为空", , "验证错误"
End Sub
Private Sub CmdSaves_Click()
RsTitle.Fields(0).Value = Trim(TxtTitleName.Text)
On Error GoTo ERRUp                 '//捕捉错误
    RsTitle.Update                  '//更新记录集
    MsgBox "数据已保存", , "保存成功"
    CmdAdds.Visible = True          '//将按钮显示
    CmdEdits.Visible = True
    CmdDel.Visible = True
    CmdMoves.Visible = True
    CmdSaves.Visible = False        '//将按钮隐藏
    cmdcancel.Enabled = True
Exit Sub            '//错误处理
ERRUp:
    MsgBox "职务不能为空", , "验证错误"
End Sub

Private Sub Command5_Click()
Unload Me
End Sub

Private Sub Form_Load()
WinXPDeptManage.InitSubClassing

Me.Left = Frmmdimain.Width / 4
Me.Top = Frmmdimain.Height / 6

If RsTitle.State = adStateClosed Then    '//记录集状态
    RsTitle.Open "会员职务", DBCON, adOpenKeyset, adLockPessimistic, adCmdTable
End If
If RsTitle.EOF = False Then      '//判断记录集是否到尾
    TxtTitleName.Text = RsTitle.Fields(0).Value
Else
    TxtTitleName.Text = Empty
End If
If RsDept.State = adStateClosed Then    '//记录集状态
    RsDept.Open "团队管理", DBCON, adOpenKeyset, adLockPessimistic, adCmdTable
End If
If RsDept.EOF = False Then      '//判断记录集是否到尾
    TxtDeptName.Text = RsDept.Fields(0).Value
Else
    TxtDeptName.Text = Empty
End If
End Sub