form19.frm

VB编写的企业管理系统

      ForeColor       =   &H00FF00FF&
      Height          =   375
      Left            =   480
      TabIndex        =   10
      Top             =   4680
      Width           =   1095
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "原职务"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF00FF&
      Height          =   495
      Left            =   480
      TabIndex        =   8
      Top             =   3600
      Width           =   1575
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "新部门名称"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF00FF&
      Height          =   615
      Left            =   480
      TabIndex        =   6
      Top             =   2640
      Width           =   1575
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "原部门名称"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF00FF&
      Height          =   615
      Left            =   480
      TabIndex        =   4
      Top             =   1680
      Width           =   1335
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "员工姓名"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF00FF&
      Height          =   375
      Left            =   480
      TabIndex        =   2
      Top             =   960
      Width           =   1335
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "员工编号"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF00FF&
      Height          =   375
      Left            =   480
      TabIndex        =   0
      Top             =   360
      Width           =   1335
   End
End
Attribute VB_Name = "Form17"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public str1 As String                         '保存修改时的SQL语句
Public ID As Integer                              '保存记录编号
Private baddflag As Boolean

Private Sub AID_KeyDown(KeyCode As Integer, Shift As Integer)
    TabToEnter KeyCode
End Sub

Private Sub Combo1_LostFocus()
    Dim sql As String
    Dim rs As New ADODB.Recordset
    sql = "select sname,sdept,sposition from basic where sid='" & Me.Combo1.Text & "'"
    Set rs = TransactSQL(sql)
    If rs.EOF = False Then
        Me.Text1 = rs(0)                           '初始化员工姓名
        Me.Text2 = rs(1)
        Me.Text3 = rs(2)
    Else
        MsgBox "员工编号输入错误，或者没有这个员工！", vbOKOnly + vbExclamation, "警告！"
        Me.Combo1 = ""
        Me.Combo1.SetFocus
        'Me.Combo1.ListIndex = 0
    End If
    rs.Close
End Sub
Private Sub checkinput()
    If Me.Text4 = "" Then
            MsgBox "请输入新的职务！", vbOKOnly + vbExclamation, "警告！"
            Me.Text4.SetFocus
        ElseIf Me.Text5 = "" Or IsDate(Me.Text5) = False Then
            MsgBox "请输入正确的调出时间！", vbOKOnly + vbExclamation, "警告！"
            Me.Text5 = ""
            Me.Text5.SetFocus
        ElseIf Me.Text6 = "" Or IsDate(Me.Text6) = False Then
            MsgBox "请输入正确的调入时间！", vbOKOnly + vbExclamation, "警告！"
            Me.Text6 = ""
            Me.Text6.SetFocus
        Else
            baddflag = True
    End If
End Sub

    

Private Sub Command1_Click()
Dim sql As String
    Dim rs As New ADODB.Recordset
    baddflag = False
    Call checkinput
    If baddflag = True Then
    If flag = 1 Then                                    '添加记录
        Call checkinput
        sql = "select * from away"
        Set rs = TransactSQL(sql)
        rs.AddNew
        rs.Fields(1) = Me.Combo1
        rs.Fields(2) = Me.Text1
        rs.Fields(3) = Me.Text2
        rs.Fields(4) = Me.Combo2
        rs.Fields(5) = Me.Text3
        rs.Fields(6) = Me.Text4
        rs.Fields(7) = Me.Text5
        rs.Fields(8) = Me.Text6
        rs.Fields(9) = Me.Text7
        rs.Update
        rs.Close
        sql = "update basic set sdept='" & Me.Combo2 & "', sposition='"
        sql = sql & Me.Text4 & "' where sid='" & Me.Combo1 & "'"
        TransactSQL (sql)
        MsgBox "已经添加调动信息！", vbOKOnly + vbExclamation, "添加结果！"
        sql = "select * from away order by ID"
        Form12.Adodc1.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\person.mdb"
         Form12.Adodc1.RecordSource = sql
        If sql <> "" Then
             Form12.Adodc1.Refresh
        End If
        Set Form12.DataGrid1.DataSource = Form12.Adodc1.Recordset
         Form12.DataGrid1.Refresh
         Form12.Show
         Form12.ZOrder 0
        Call init
        
        Me.ZOrder 0
    Else                                                 '修改记录
        Call checkinput
        sql = "update basic set sdept='" & Me.Combo2 & "', sposition='"
        sql = sql & Me.Text4 & "' where sid='" & Me.Combo1 & "'"
        TransactSQL (sql)
        sql = "update away set aolddept='" & Me.Text2 & "', anewdept='"
        sql = sql & Me.Combo2 & "',aoldposition='" & Me.Text3
        sql = sql & "',anewposition='" & Me.Text4 & "',aouttime=#" & Me.Text5
        sql = sql & "#,aintime=#" & Me.Text6 & "# where ID=" & ID
        TransactSQL (sql)
      
        MsgBox "已经修改信息！", vbOKOnly + vbExclamation, "修改结果！"
        Unload Me
        sql = "select * from away order by ID"
        With Form12.Adodc1                   '重新设置记录集
            .RecordSource = sql
            .Refresh
        End With
        With Form12.DataGrid1               '重新绑定记录集
            .ReBind
        End With
        Form12.Show
        Form12.ZOrder 0
    End If
    End If
End Sub

Private Sub Command2_Click()
 Unload Me
  Exit Sub
End Sub

Private Sub Form_Load()
    Dim sql As String
    Dim rs As New ADODB.Recordset
    Dim firstname As String
    If flag = 1 Then
        sql = "select sid, sname,sdept,sposition from basic order by sid"
        Set rs = TransactSQL(sql)
        If rs.EOF = False Then
            rs.MoveFirst
            Me.Text1 = rs(1)
            Me.Text2 = rs(2)
            Me.Text3 = rs(3)
            While Not rs.EOF
                Me.Combo1.AddItem rs(0)
                rs.MoveNext
            Wend
            rs.Close
            Me.Combo1.ListIndex = 0
        End If
        sql = "select distinct sdept from basic"
        Set rs = TransactSQL(sql)
        If rs.EOF = False Then
            rs.MoveFirst
            While Not rs.EOF
                Me.Combo2.AddItem rs(0)
                rs.MoveNext
            Wend
            rs.Close
            Me.Combo2.ListIndex = 0
            
        End If
        Me.Text5 = Date
        Me.Text6 = Date
    End If
End Sub

Private Sub init()
    Dim sql As String
    Dim rs As New ADODB.Recordset
    Dim firstname As String
    sql = "select sid ,sname,sdept,sposition from basic order by sid"
    Set rs = TransactSQL(sql)
    If rs.EOF = False Then
        rs.MoveFirst
        Me.Text1 = rs(1)
        Me.Text2 = rs(2)
        Me.Text3 = rs(3)
        While Not rs.EOF
            Me.Combo1.AddItem rs(0)
            rs.MoveNext
        Wend
        rs.Close
        Me.Combo1.ListIndex = 0
    End If
    sql = "select distinct sdept from basic"
    Set rs = TransactSQL(sql)
    If rs.EOF = False Then
        rs.MoveFirst
        While Not rs.EOF
            Me.Combo2.AddItem rs(0)
            rs.MoveNext
        Wend
        rs.Close
        Me.Combo2.ListIndex = 0
    End If
    Me.Text5 = Date
    Me.Text6 = Date
    Me.Text4 = ""
End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub