📄 zhigong.frm

📁 学校管理系统 V1.0 正式企业版是一款面向中小型企业、个体私营企业
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
         Height          =   255
         Index           =   12
         Left            =   -74760
         TabIndex        =   37
         Top             =   720
         Width           =   975
      End
      Begin VB.Label Label 
         Caption         =   "学    历："
         Height          =   255
         Index           =   1
         Left            =   240
         TabIndex        =   36
         Top             =   1248
         Width           =   975
      End
      Begin VB.Label Label 
         Caption         =   "入校日期："
         Height          =   255
         Index           =   9
         Left            =   3480
         TabIndex        =   35
         Top             =   2832
         Width           =   975
      End
      Begin VB.Label Label 
         Caption         =   "职    务："
         Height          =   255
         Index           =   6
         Left            =   3480
         TabIndex        =   34
         Top             =   1248
         Width           =   975
      End
      Begin VB.Label Label 
         Caption         =   "基本工资："
         Height          =   255
         Index           =   8
         Left            =   3480
         TabIndex        =   33
         Top             =   2304
         Width           =   975
      End
      Begin VB.Label Label 
         Caption         =   "特    长："
         Height          =   255
         Index           =   7
         Left            =   3480
         TabIndex        =   32
         Top             =   1776
         Width           =   975
      End
      Begin VB.Label Label 
         Caption         =   "民    族："
         Height          =   255
         Index           =   5
         Left            =   240
         TabIndex        =   31
         Top             =   3360
         Width           =   975
      End
      Begin VB.Label Label 
         Caption         =   "年    龄："
         Height          =   255
         Index           =   4
         Left            =   240
         TabIndex        =   30
         Top             =   2832
         Width           =   975
      End
      Begin VB.Label Label 
         Caption         =   "生    日："
         Height          =   255
         Index           =   3
         Left            =   240
         TabIndex        =   29
         Top             =   2304
         Width           =   975
      End
      Begin VB.Label Label 
         Caption         =   "性    别："
         Height          =   255
         Index           =   2
         Left            =   240
         TabIndex        =   28
         Top             =   1800
         Width           =   975
      End
      Begin VB.Label Label 
         Caption         =   "姓    名："
         Height          =   255
         Index           =   0
         Left            =   240
         TabIndex        =   27
         Top             =   720
         Width           =   975
      End
   End
   Begin VB.Menu m1 
      Caption         =   "操作(&F)"
      Begin VB.Menu m11 
         Caption         =   "增加记录"
      End
      Begin VB.Menu m12 
         Caption         =   "修改记录"
      End
      Begin VB.Menu m13 
         Caption         =   "删除记录"
      End
      Begin VB.Menu m14 
         Caption         =   "保存记录"
      End
      Begin VB.Menu m1Line01 
         Caption         =   "-"
      End
      Begin VB.Menu m15 
         Caption         =   "关闭"
      End
   End
   Begin VB.Menu m2 
      Caption         =   "视图(&V)"
      Begin VB.Menu m21 
         Caption         =   "上一条"
      End
      Begin VB.Menu m22 
         Caption         =   "下一条"
      End
      Begin VB.Menu m2Line01 
         Caption         =   "-"
      End
      Begin VB.Menu m23 
         Caption         =   "基本资料"
      End
      Begin VB.Menu m24 
         Caption         =   "联系资料"
      End
      Begin VB.Menu m25 
         Caption         =   "其他资料"
      End
      Begin VB.Menu m26 
         Caption         =   "总览全局"
      End
   End
End
Attribute VB_Name = "frmZhiGong"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim conn As New ADODb.Connection
Dim rs As New ADODb.Recordset
Dim strSql As String
Dim strCheck As String

Private Sub cmdAdd_Click()

strCheck = "增加"

lockInput (False)

For I = 0 To 19
Text(I).Text = ""
Next I
Text(0).SetFocus

cmdAdd.Enabled = False
cmdEdit.Enabled = False
cmdDel.Enabled = False
cmdPrev.Enabled = False
cmdNext.Enabled = False
cmdSave.Enabled = True
End Sub

Private Sub cmdDel_Click()

If MsgBox("确定要删除姓名为【" & Text(0).Text & "】的记录吗？", vbYesNo, "提示") = vbYes Then

    rs.Delete
    rs.MovePrevious

    If rs.BOF Or rs.EOF Or rs.RecordCount = 0 Then
    MsgBox "已经没有记录！"
    For I = 0 To 9
    Text(I).Text = ""
    Next I
    lockInput (False)
    cmdDel.Enabled = False
    cmdPrev.Enabled = False
    cmdNext.Enabled = False
    cmdAdd.Enabled = True
    cmdEdit.Enabled = False
    cmdDel.Enabled = False
    cmdSave.Enabled = False
    Exit Sub
    Else
    cmdDel.Enabled = True
    cmdPrev.Enabled = True
    cmdNext.Enabled = True
    dispInfo
    End If
End If


End Sub

Private Sub cmdEdit_Click()

strCheck = "修改"
lockInput (False)

cmdAdd.Enabled = False
cmdEdit.Enabled = False
cmdDel.Enabled = False
cmdPrev.Enabled = False
cmdNext.Enabled = False
cmdSave.Enabled = True
End Sub

Private Sub cmdNext_Click()

rs.MoveNext
cmdPrev.Enabled = True
If rs.EOF Then
rs.MovePrevious
cmdNext.Enabled = False
Else
dispInfo
End If

End Sub

Private Sub cmdPrev_Click()

rs.MovePrevious
cmdNext.Enabled = True
If rs.BOF Then
rs.MoveNext
cmdPrev.Enabled = False
Else
dispInfo
End If

End Sub

Private Sub cmdSave_Click()

If strCheck = "增加" Then

rs.AddNew
rs.Fields("姓名") = Text(0).Text
rs.Fields("学历") = Text(1).Text
rs.Fields("性别") = Text(2).Text
rs.Fields("生日") = Text(3).Text
rs.Fields("年龄") = Text(4).Text
rs.Fields("民族") = Text(5).Text
rs.Fields("编号") = Text(6).Text
rs.Fields("职务") = Text(7).Text
rs.Fields("特长") = Text(8).Text
rs.Fields("基本工资") = Text(9).Text
rs.Fields("入校日期") = Text(10).Text
rs.Fields("家庭电话") = Text(11).Text
rs.Fields("手机号码") = Text(12).Text
rs.Fields("QQ号码") = Text(13).Text
rs.Fields("UC号码") = Text(14).Text
rs.Fields("邮政编码") = Text(15).Text
rs.Fields("家庭住址") = Text(16).Text
rs.Fields("个人主页") = Text(17).Text
rs.Fields("电子邮件") = Text(18).Text
rs.Fields("备注") = Text(19).Text

rs.Update
lockInput (True)
cmdAdd.Enabled = True
cmdEdit.Enabled = True
cmdDel.Enabled = True
cmdPrev.Enabled = True
cmdNext.Enabled = True
cmdSave.Enabled = False
MsgBox ("添加成功！")

ElseIf strCheck = "修改" Then

rs.Fields("姓名") = Text(0).Text
rs.Fields("学历") = Text(1).Text
rs.Fields("性别") = Text(2).Text
rs.Fields("生日") = Text(3).Text
rs.Fields("年龄") = Text(4).Text
rs.Fields("民族") = Text(5).Text
rs.Fields("编号") = Text(6).Text
rs.Fields("职务") = Text(7).Text
rs.Fields("特长") = Text(8).Text
rs.Fields("基本工资") = Text(9).Text
rs.Fields("入校日期") = Text(10).Text
rs.Fields("家庭电话") = Text(11).Text
rs.Fields("手机号码") = Text(12).Text
rs.Fields("QQ号码") = Text(13).Text
rs.Fields("UC号码") = Text(14).Text
rs.Fields("邮政编码") = Text(15).Text
rs.Fields("家庭住址") = Text(16).Text
rs.Fields("个人主页") = Text(17).Text
rs.Fields("电子邮件") = Text(18).Text
rs.Fields("备注") = Text(19).Text

rs.Update
lockInput (True)
cmdAdd.Enabled = True
cmdEdit.Enabled = True
cmdDel.Enabled = True
cmdPrev.Enabled = True
cmdNext.Enabled = True
cmdSave.Enabled = False
MsgBox ("修改成功！")

Else
MsgBox "没有修改，不能保存！"
End If
End Sub

Private Sub Form_Load()

Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2

DBpath = App.Path + "\database\school.mdb"
strSql = "provider=Microsoft.Jet.oledb.4.0;data source=" & DBpath & ";Jet OLEDB:Database Password=" & pwd & ";"
conn.Open strSql

strSql = "Select * from [职工档案]"
rs.Open strSql, conn, adOpenKeyset, adLockPessimistic

dispInfo
lockInput (True)

End Sub

Private Sub lockInput(yn As Boolean)

For I = 0 To 19
Text(I).Locked = yn
Next I

End Sub



Private Sub dispInfo()

Text(0).Text = rs.Fields("姓名")
Text(1).Text = rs.Fields("学历")
Text(2).Text = rs.Fields("性别")
Text(3).Text = rs.Fields("生日")
Text(4).Text = rs.Fields("年龄")
Text(5).Text = rs.Fields("民族")
Text(6).Text = rs.Fields("编号")
Text(7).Text = rs.Fields("职务")
Text(8).Text = rs.Fields("特长")
Text(9).Text = rs.Fields("基本工资")
Text(10).Text = rs.Fields("入校日期")
Text(11).Text = rs.Fields("家庭电话")
Text(12).Text = rs.Fields("手机号码")
Text(13).Text = rs.Fields("QQ号码")
Text(14).Text = rs.Fields("UC号码")
Text(15).Text = rs.Fields("邮政编码")
Text(16).Text = rs.Fields("家庭住址")
Text(17).Text = rs.Fields("个人主页")
Text(18).Text = rs.Fields("电子邮件")
Text(19).Text = rs.Fields("备注")

End Sub

Private Sub Form_Unload(Cancel As Integer)

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing

End Sub

Private Sub m11_Click()
cmdAdd_Click
End Sub

Private Sub m12_Click()
cmdEdit_Click
End Sub

Private Sub m13_Click()
cmdDel_Click
End Sub

Private Sub m14_Click()
cmdSave_Click
End Sub

Private Sub m15_Click()
Unload Me
End Sub

Private Sub m21_Click()
cmdPrev_Click
End Sub

Private Sub m22_Click()
cmdNext_Click
End Sub

Private Sub m23_Click()
SSTab1.Tab = 0
End Sub

Private Sub m24_Click()
SSTab1.Tab = 1
End Sub

Private Sub m25_Click()
SSTab1.Tab = 2
End Sub

Private Sub m26_Click()
SSTab1.Tab = 3
End Sub

Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)
 
 If KeyAscii = 13 Then
 SendKeys "{TAB}"
 End If
 
End Sub
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -