frminfo.frm

这是一个人事管理系统演示版,用 vb和sql 开发的

            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   1080
         TabIndex        =   14
         Top             =   6120
         Width           =   975
      End
      Begin VB.Label Label7 
         Caption         =   "联系电话"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   1080
         TabIndex        =   13
         Top             =   5400
         Width           =   975
      End
      Begin VB.Label Label6 
         Caption         =   "家庭地址"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   1080
         TabIndex        =   11
         Top             =   4680
         Width           =   1455
      End
      Begin VB.Label Label5 
         Caption         =   "专业技能"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   1080
         TabIndex        =   9
         Top             =   3960
         Width           =   1455
      End
      Begin VB.Label Label4 
         Caption         =   "教育程度"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   1080
         TabIndex        =   7
         Top             =   3240
         Width           =   1575
      End
      Begin VB.Label 生日 
         Caption         =   "生日"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1080
         TabIndex        =   5
         Top             =   2520
         Width           =   495
      End
      Begin VB.Label Label3 
         Caption         =   "性别"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1080
         TabIndex        =   2
         Top             =   1920
         Width           =   1455
      End
      Begin VB.Label Label1 
         Caption         =   "姓名"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   1080
         TabIndex        =   1
         Top             =   480
         Width           =   615
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_Change()

End Sub

Private Sub Command1_Click()
Dim intcount As Integer
Dim txtsql As Integer
Dim msgtest As String
Dim smeg As String
Dim i As Integer
For intcount = 1 To 2
 If Trim(Text(intcount) & "") = "" Then
    Select Case intcount
        Case 1
            smeg = "编号"
        Case 2
            smeg = "姓名"
        End Select
        smeg = smeg & "不能为空!"
        MsgBox smeg, vbOKOnly + vbExclamation, "警告"
        Text(intcount).SetFocus
        Exit Sub
     End If
    Next intcount
    If Trim(Text3 & "") <> "" Then
        If Not IsDate(Text3) Then
            MsgBox "维修时间应输入日期（yyyy-mm-dd）！", vbOKOnly + vbExclamation, "警告"
            Text3.SetFocus
            Exit Sub
        Else
            Text3 = Format(Text3, "yyyy-mm-dd")
        End If
    End If
    txtsql = "select * from person where id=trim(text1)"
        Set mrc = ExecuteSQL(txtsql, msgtext)
        If mrc.EOF = False Then
            MsgBox "已经存在此维修记录！", vbOKOnly + vbExclamation, "警告"
            Text1.SetFocus
            Exit Sub
        End If




    '再加入新记录
    txtsql = "select * from person"
    Set mrc = ExecuteSQL(txtsql, msgtext)
    mrc.AddNew
    mrc.Fields(3) = Trim(Text1)
    mrc.Fields(0) = Trim(Text2)
    mrc.Fields(1) = Trim(cboitem.Text)
    mrc.Fields(2) = Trim(Text3)
    mrc.Fields(5) = Trim(Text4)
    mrc.Fields(6) = Trim(Text5)
    mrc.Fields(7) = Trim(Text6)
    mrc.Fields(8) = Trim(Text7)
    mrc.Fields(9) = Trim(Text8)
   
    mrc.Update
    mrc.Close
    If gintmode = 1 Then
        MsgBox "记录添加成功！", vbOKOnly + vbExclamation, " 警告"
        For i = 0 To 8
            Text(i).Text = ""
                mblChange = False
        Next i
        '显示窗体，可以继续添加内容
        
        gintmode = 0
        
    
  
End Sub

Private Sub Command2_Click()
 If mblChange Then
        If MsgBox("保存当前记录的变化吗？", vbOKCancel + vbExclamation, "警告") = vbOK Then
            '保存
            Call Command1_Click
        End If
    End If
    Unload Me
End Sub

Private Sub Form_Load()
Dim msgtext As String
Dim intcount As Integer
With cboitem
    .AddItem "男"
    .AddItem "女"
End With
cboitem.ListIndex = 0
    
    
End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label8_Click()

End Sub

Private Sub Label9_Click()

End Sub

Private Sub 生日_Click()

End Sub