员工信息.frm

图书馆管理系统的实现

            EndProperty
            _Version        =   393216
         End
         Begin MSDataGridLib.DataGrid DataGrid 
            Bindings        =   "员工信息.frx":058A
            Height          =   4455
            Left            =   120
            TabIndex        =   2
            Top             =   120
            Width           =   9375
            _ExtentX        =   16536
            _ExtentY        =   7858
            _Version        =   393216
            AllowUpdate     =   0   'False
            HeadLines       =   1
            RowHeight       =   17
            FormatLocked    =   -1  'True
            BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Caption         =   "员  工  信  息  浏  览"
            ColumnCount     =   6
            BeginProperty Column00 
               DataField       =   "emp_id"
               Caption         =   "员工编号"
               BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                  Type            =   0
                  Format          =   ""
                  HaveTrueFalseNull=   0
                  FirstDayOfWeek  =   0
                  FirstWeekOfYear =   0
                  LCID            =   2052
                  SubFormatType   =   0
               EndProperty
            EndProperty
            BeginProperty Column01 
               DataField       =   "emp_name"
               Caption         =   "员工姓名"
               BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                  Type            =   0
                  Format          =   ""
                  HaveTrueFalseNull=   0
                  FirstDayOfWeek  =   0
                  FirstWeekOfYear =   0
                  LCID            =   2052
                  SubFormatType   =   0
               EndProperty
            EndProperty
            BeginProperty Column02 
               DataField       =   "emp_sex"
               Caption         =   "性别"
               BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                  Type            =   0
                  Format          =   ""
                  HaveTrueFalseNull=   0
                  FirstDayOfWeek  =   0
                  FirstWeekOfYear =   0
                  LCID            =   2052
                  SubFormatType   =   0
               EndProperty
            EndProperty
            BeginProperty Column03 
               DataField       =   "emp_salary"
               Caption         =   "工资"
               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       =   "emp_tel"
               Caption         =   "联系电话"
               BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                  Type            =   0
                  Format          =   ""
                  HaveTrueFalseNull=   0
                  FirstDayOfWeek  =   0
                  FirstWeekOfYear =   0
                  LCID            =   2052
                  SubFormatType   =   0
               EndProperty
            EndProperty
            BeginProperty Column05 
               DataField       =   "emp_sid"
               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 
                  ColumnWidth     =   734.74
               EndProperty
               BeginProperty Column01 
                  ColumnWidth     =   989.858
               EndProperty
               BeginProperty Column02 
                  ColumnWidth     =   645.165
               EndProperty
               BeginProperty Column03 
                  ColumnWidth     =   2085.166
               EndProperty
               BeginProperty Column04 
                  ColumnWidth     =   2085.166
               EndProperty
               BeginProperty Column05 
                  ColumnWidth     =   2085.166
               EndProperty
            EndProperty
         End
      End
   End
End
Attribute VB_Name = "frmEmployee"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub CmdAdd_Click()
    CmdSave.Enabled = True
    frmAddEmployee.Show
    frmAddEmployee.FramAddEmoloyee.Visible = True
    frmAddEmployee.FramEdit.Visible = False
End Sub

Private Sub CmdEdit_Click()
    CmdSave.Enabled = True
    frmAddEmployee.Show
    frmAddEmployee.FramAddEmoloyee.Visible = False
    frmAddEmployee.FramEdit.Visible = True
End Sub

Private Sub CmdExit_Click()
    'Adodc1.Recordset.CancelUpdate
    'Adodc1.Recordset.Delete
    Adodc1.Refresh
    Unload Me
End Sub

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

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

Private Sub CmdNext_Click()
    If Adodc1.Recordset.AbsolutePosition = Adodc1.Recordset.RecordCount Then
        Adodc1.Recordset.MoveLast
    Else
        Adodc1.Recordset.MoveNext
    End If
End Sub

Private Sub CmdPrevious_Click()
    If Adodc1.Recordset.AbsolutePosition = 1 Then
        Adodc1.Recordset.MoveFirst
    Else
        Adodc1.Recordset.MovePrevious
    End If
End Sub

Private Sub CmdSave_Click()
    Adodc1.Recordset.Update
    Adodc1.Refresh
    MsgBox "信息保存成功！", vbOKOnly + vbInformation, "保存信息"
    CmdSave.Enabled = False
End Sub

Private Sub CmdShanChu_Click()
    If MsgBox("确定要删除此行吗？", vbYesNo + vbQuestion, "删除记录") = vbYes Then
        Adodc1.Recordset.Delete
        Adodc1.Recordset.Update
        Adodc1.Refresh
    End If
    
End Sub

Private Sub Form_Load()
    frmEmployee.Left = 1000
    frmEmployee.Top = 66
    frmEmployee.Height = 6600
    frmEmployee.Width = 10125
End Sub



Private Sub xpcmdbutton1_Click()
    Adodc1.Recordset.CancelUpdate
    Adodc1.Refresh
End Sub