form6.frm

VB编写的企业管理系统

            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   3600
         TabIndex        =   16
         Top             =   1080
         Width           =   975
      End
      Begin VB.Label Label9 
         BackColor       =   &H00FFFF80&
         Caption         =   "专业"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   3600
         TabIndex        =   15
         Top             =   720
         Width           =   495
      End
      Begin VB.Label Label8 
         BackColor       =   &H00FFFF80&
         Caption         =   "学历"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   3600
         TabIndex        =   14
         Top             =   360
         Width           =   855
      End
      Begin VB.Label Label7 
         BackColor       =   &H00FFFF80&
         Caption         =   "出生日期"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   480
         TabIndex        =   9
         Top             =   2400
         Width           =   975
      End
      Begin VB.Label Label6 
         BackColor       =   &H00FFFF80&
         Caption         =   "年龄"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   480
         TabIndex        =   8
         Top             =   1920
         Width           =   615
      End
      Begin VB.Label Label5 
         BackColor       =   &H00FFFF80&
         Caption         =   "籍贯"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   480
         TabIndex        =   7
         Top             =   1440
         Width           =   855
      End
      Begin VB.Label Label4 
         BackColor       =   &H00FFFF80&
         Caption         =   "性别"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   480
         TabIndex        =   6
         Top             =   1080
         Width           =   855
      End
      Begin VB.Label Label3 
         BackColor       =   &H00FFFF80&
         Caption         =   "员工姓名"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   480
         TabIndex        =   5
         Top             =   720
         Width           =   975
      End
      Begin VB.Label Label2 
         BackColor       =   &H00FFFF80&
         Caption         =   "员工编号"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   480
         TabIndex        =   4
         Top             =   360
         Width           =   1095
      End
   End
   Begin VB.Label Label1 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFC0&
      Caption         =   "       员工基本信息"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   615
      Left            =   480
      TabIndex        =   0
      Top             =   120
      Width           =   3615
   End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim i

Private Sub addNewRecord()
    Dim sql As String
    Dim rs As New ADODB.Recordset
    sql = "select * from basic"
        Set rs = TransactSQL(sql)
        rs.AddNew                                 '添加新记录
            rs.Fields(0) = Trim(Me.Text1(0))
            rs.Fields(1) = Trim(Me.Text1(1))
            rs.Fields(2) = Combo1.Text
            rs.Fields(3) = Trim(Me.Text1(2))
            rs.Fields(4) = Trim(Me.Text1(3))
            rs.Fields(5) = Trim(Me.Text1(4))
            rs.Fields(6) = Trim(Me.Text1(5))
            rs.Fields(7) = Trim(Me.Text1(6))
            rs.Fields(8) = Trim(Me.Text1(7))
            rs.Fields(9) = Trim(Me.Text1(8))
            rs.Fields(10) = Trim(Me.Text1(9))
            rs.Fields(11) = Trim(Me.Text1(10))
            rs.Fields(12) = Trim(Me.Text1(11))
            rs.Fields(13) = Trim(Me.Text1(12))
            rs.Fields(14) = Trim(Me.Text1(13))
            rs.Fields(15) = Trim(Me.Text1(14))
            rs.Fields(16) = Trim(Me.Text1(15))
            rs.Fields(17) = Trim(Me.Text1(16))
        rs.Update

        rs.Close
End Sub

Private Sub init()                               '初始化
       For i = 0 To 16
       Me.Combo1.ListIndex = 0
       Me.Text1(i).Text = ""
       Next
       ' Me.Text1(1).SetFocus
End Sub
   

Private Sub Command1_Click()
    Dim sql As String
    Dim temp As String
    Dim num As Integer
    Dim rs As New ADODB.Recordset
    If Trim(Me.Text1(1)) = "" Then                 '判断员工姓名是否为空
        MsgBox "请输入员工姓名！", vbOKOnly + vbExclamation, "警告！"
        Me.Text1(1).SetFocus
        Exit Sub
    End If
    If Trim(Me.Text1(3)) = "" Then                       '判断年龄是否为空
        MsgBox "请输入员工年龄！", vbOKOnly + vbExclamation, "警告！"
        Me.Text1(2).SetFocus
        Exit Sub
    End If
    If Trim(Me.Text1(4)) = "" Then                  '判断生日是否为空
        MsgBox "请输入员工生日！", vbOKOnly + vbExclamation, "警告！"
        Me.Text1(3).SetFocus
        Exit Sub
    End If
    If Trim(Me.Text1(13)) = "" Then                      '判断部门是否为空
        MsgBox "请输入员工所在部门！", vbOKOnly + vbExclamation, "警告！"
        Me.Text1(4).SetFocus
        Exit Sub
    End If
    If Trim(Me.Text1(15)) = "" Then                  '判断职务是否为空
        MsgBox "请输入员工职务！", vbOKOnly + vbExclamation, "警告！"
        Me.Text1(5).SetFocus
    Exit Sub
    End If
    If Not IsDate(Me.Text1(4)) Then                 '判断生日的格式
        MsgBox "生日请按照(yyyy-mm-dd)方式输入！", vbOKOnly + vbExclamation, "警告！"
        Me.Text1(4).SetFocus
        Exit Sub
        Else
        Me.Text1(4) = Format(Me.Text1(4), "yyyy-mm-dd")
        End If
    If Not IsDate(Me.Text1(11)) Then                 '判断参加工作时间的格式
        MsgBox "参加工作时间请按照(yyyy-mm-dd)方式输入！", vbOKOnly + vbExclamation, "警告！"
        Me.Text1(11).SetFocus
        Exit Sub
    Else
        Me.Text1(11) = Format(Me.Text1(11), "yyyy-mm-dd")
    End If
    If Not IsDate(Me.Text1(12)) Then                  '判断加入本公司时间格式
        MsgBox "进入本公司时间请按照(yyyy-mm-dd)方式输入！", vbOKOnly + vbExclamation, "警告！"
        Me.Text1(12).SetFocus
        Exit Sub
    Else
        Me.Text1(12) = Format(Me.Text1(12), "yyyy-mm-dd")
    End If
    If Not IsDate(Me.Text1(14)) Then                 '判断起薪时间格式
        MsgBox "起薪时间请按照(yyyy-mm-dd)方式输入！", vbOKOnly + vbExclamation, "警告！"
        Me.Text1(14).SetFocus
        Exit Sub
    Else
        Me.Text1(14) = Format(Me.Text1(14), "yyyy-mm-dd")
    End If
    
    If flag = 1 Then                               '添加操作
        sql = "select * from basic where sname='" & Trim(Me.Text1(1))
        sql = sql & "' and sgender='" & Combo1.Text & "' and sbirthday='"
        sql = sql & Trim(Me.Text1(4)) & "' and sdept='" & Trim(Me.Text1(13))
        sql = sql & "' and sposition='" & Trim(Me.Text1(15)) & "'"
        Set rs = TransactSQL(sql)
        If rs.EOF = False Then                     '判断是否已经存在员工记录
             MsgBox "已经存在这个员工的记录！", vbOKOnly + vbExclamation, "警告！"
             Me.Text1(1).SetFocus
             Me.Text1(1).SelStart = 0
             rs.Update
             rs.Close
        Else
        Call addNewRecord
        MsgBox "记录已经成功添加！", vbOKOnly + vbExclamation, "添加结果！"
        sql = "update number1 set  num= num+1"       '计数器加1
        TransactSQL (sql)
        sql = "select * from number1"               '员工编号初始化
        Set rs = TransactSQL(sql)
        num = rs(0)
        num = num + 1
        temp = Right(Format(100000000 + num), 7)
        Me.Text1(0) = "A" & temp
        rs.Close
        Call init
         sql = "select * from basic"          '显示信息列表
        form6.createList (sql)
       
        form6.Show
        form6.ZOrder 0
        Me.ZOrder 0                              '显示窗体继续添加
        End If
    ElseIf flag = 2 Then                         '修改操作
        sql = "update basic set sgender='" & Combo1.Text & "',splace='"
        sql = sql & Trim(Me.Text1(2)) & "', sage=" & Trim(Me.Text1(3))
        sql = sql & ",sbirthday='" & Trim(Me.Text1(4)) & "',"
        sql = sql & "sdegree='" & Trim(Me.Text1(5)) & "',"
        sql = sql & "sspecial='" & Trim(Me.Text1(6)) & "',"
        sql = sql & "saddress='" & Trim(Me.Text1(7)) & "',"
        sql = sql & "scode='" & Trim(Me.Text1(8)) & "',"
        sql = sql & "stel='" & Trim(Me.Text1(9)) & "',semail='" & Trim(Me.Text1(10)) & "',"
        sql = sql & "sworktime='" & Trim(Me.Text1(11)) & "',"
        sql = sql & "sintime='" & Trim(Me.Text1(12)) & "',"
        sql = sql & "sdept='" & Trim(Me.Text1(13)) & "',spaytime='" & Trim(Me.Text1(14))
        sql = sql & "',sposition='" & Trim(Me.Text1(15)) & "',"
        sql = sql & "sremark='" & Trim(Me.Text1(16)) & "' where sid='" & Trim(Me.Text1(0)) & "'"
        TransactSQL (sql)
       
        MsgBox "记录已经成功修改！", vbOKOnly + vbExclamation, "修改结果！"
        Unload Me
         sql = "select * from basic"
        form6.createList (sql)
       
        form6.Show
    End If
End Sub

Private Sub Command2_Click()
Unload Me
    Exit Sub
End Sub

Private Sub Form_Load()
    Dim rs As New ADODB.Recordset
    Dim sql As String
    Dim num As Integer
    Dim temp As String
    Call init
    If flag = 1 Then                           '判断为添加信息
        Me.Caption = "添加" + Me.Caption
        Combo1.ListIndex = 0
        sql = "select * from number1"
        Set rs = TransactSQL(sql)
        num = rs(0)       '有错误
        num = num + 1
        temp = Right(Format(10000000 + num), 7)
        Me.Text1(0) = "P" & temp
        rs.Close
    ElseIf flag = 2 Then                      '判断为修改信息
        Set rs = TransactSQL(gSQL)
        If rs.EOF = False Then
        With rs
            Me.Text1(0) = rs(0)
            Me.Text1(1) = rs(1)
            Me.Combo1 = rs(2)
            Me.Text1(2) = rs(3)
            Me.Text1(3) = rs(4)
            Me.Text1(4) = rs(5)
            Me.Text1(5) = rs(6)
            Me.Text1(6) = rs(7)
            Me.Text1(7) = rs(8)
            Me.Text1(8) = rs(9)
            Me.Text1(9) = rs(10)
            Me.Text1(10) = rs(11)
            Me.Text1(11) = rs(12)
            Me.Text1(12) = rs(13)
            Me.Text1(13) = rs(14)
            Me.Text1(14) = rs(15)
            Me.Text1(15) = rs(16)
            Me.Text1(16) = rs(17)
        End With
        rs.Close
        Me.Caption = "修改" & Me.Caption
        Me.Text1(0).Enabled = False
        Me.Text1(1).Enabled = False
        Else
            MsgBox "目前没有员工！", vbOKOnly + vbExclamation, "警告！"
        End If
    End If
End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub