frmmanrecord11.frm

随着计算机应用的普及

         Left            =   240
         TabIndex        =   25
         Top             =   1800
         Width           =   975
      End
      Begin VB.Label Label4 
         Caption         =   "Label4"
         Height          =   135
         Left            =   600
         TabIndex        =   24
         Top             =   1920
         Width           =   15
      End
      Begin VB.Label Label3 
         Caption         =   "毕业时间："
         Height          =   375
         Left            =   240
         TabIndex        =   22
         Top             =   1440
         Width           =   975
      End
      Begin VB.Label Label2 
         Caption         =   "专    业："
         Height          =   255
         Index           =   4
         Left            =   240
         TabIndex        =   18
         Top             =   720
         Width           =   975
      End
      Begin VB.Label Label2 
         Caption         =   "学    历："
         Height          =   255
         Index           =   3
         Left            =   240
         TabIndex        =   17
         Top             =   360
         Width           =   975
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "员工基本信息"
      Height          =   3135
      Left            =   720
      TabIndex        =   7
      Top             =   480
      Width           =   3735
      Begin VB.ComboBox Combo5 
         Height          =   300
         ItemData        =   "frmManRecord11.frx":0072
         Left            =   1320
         List            =   "frmManRecord11.frx":007C
         TabIndex        =   53
         Top             =   1440
         Width           =   2175
      End
      Begin VB.ComboBox Combo4 
         Height          =   300
         ItemData        =   "frmManRecord11.frx":0088
         Left            =   1320
         List            =   "frmManRecord11.frx":009B
         TabIndex        =   30
         Top             =   1080
         Width           =   2175
      End
      Begin VB.ComboBox Combo1 
         Height          =   300
         ItemData        =   "frmManRecord11.frx":00C2
         Left            =   1320
         List            =   "frmManRecord11.frx":00CF
         TabIndex        =   21
         Top             =   2520
         Width           =   2175
      End
      Begin VB.TextBox txtItem 
         Height          =   270
         Index           =   0
         Left            =   1320
         MaxLength       =   8
         TabIndex        =   0
         Top             =   360
         Width           =   2175
      End
      Begin VB.TextBox txtItem 
         Height          =   270
         Index           =   1
         Left            =   1320
         MaxLength       =   10
         TabIndex        =   1
         Top             =   720
         Width           =   2175
      End
      Begin VB.TextBox txtItem 
         Height          =   270
         Index           =   3
         Left            =   1320
         MaxLength       =   10
         TabIndex        =   2
         Top             =   1800
         Width           =   2175
      End
      Begin VB.TextBox txtItem 
         Height          =   270
         Index           =   4
         Left            =   1320
         MaxLength       =   40
         TabIndex        =   3
         Top             =   2160
         Width           =   2175
      End
      Begin VB.Label Label1 
         Caption         =   "婚姻状况："
         Height          =   255
         Left            =   240
         TabIndex        =   20
         Top             =   2520
         Width           =   975
      End
      Begin VB.Label Label2 
         Caption         =   "编    号："
         Height          =   255
         Index           =   0
         Left            =   240
         TabIndex        =   13
         Top             =   360
         Width           =   975
      End
      Begin VB.Label Label2 
         Caption         =   "姓    名："
         Height          =   255
         Index           =   1
         Left            =   240
         TabIndex        =   12
         Top             =   720
         Width           =   975
      End
      Begin VB.Label Label2 
         Caption         =   "性    别："
         Height          =   255
         Index           =   2
         Left            =   240
         TabIndex        =   11
         Top             =   1440
         Width           =   975
      End
      Begin VB.Label Label2 
         Caption         =   "生    日："
         Height          =   255
         Index           =   12
         Left            =   240
         TabIndex        =   10
         Top             =   1800
         Width           =   975
      End
      Begin VB.Label Label2 
         Caption         =   "籍    贯："
         Height          =   255
         Index           =   13
         Left            =   240
         TabIndex        =   9
         Top             =   2160
         Width           =   975
      End
      Begin VB.Label Label2 
         Caption         =   "所在部门编号："
         Height          =   255
         Index           =   16
         Left            =   120
         TabIndex        =   8
         Top             =   1080
         Width           =   1335
      End
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "返回 (&X)"
      Height          =   375
      Left            =   10080
      TabIndex        =   6
      Top             =   1680
      Width           =   1215
   End
   Begin VB.CommandButton cmdSave 
      Caption         =   "保存 (&S)"
      Height          =   375
      Left            =   10080
      TabIndex        =   5
      Top             =   480
      Width           =   1215
   End
End
Attribute VB_Name = "frmAddyginfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Private Sub Command1_Click()
    Dim mrc As ADODB.Recordset
   ' Dim txtSQL As String
   Dim MsgText As String

    
    ' Dim mrc As ADODB.Recordset

Private Sub cmdSave_Click()


Dim txtSQL As String
Set mrc = New ADODB.Recordset
With mrc
.ActiveConnection = cnn
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
End With
txtSQL = "insert into 员工信息表 (ygid,ygname,ygdept,ygsex,ygbirthday,ygplace,ygmarriage,ygeducation,ygspecial,Start_Date,End_Date,School_Org,Title,English,ygdate-in company,ygdate-in department,ygstatus,ygdate,ygno,ygdentify-past,ygstatus-past,ygoffice-past,ygremark1)  values('" & txtItem(0).Text & "','" & txtItem(1).Text & "','" & Combo4.Text & "','" & Combo5.Text & "','" & txtItem(3).Text & "','" & txtItem(4).Text & "','" & Combo1.Text & "','" & Combo2.Text & "','" & txtItem(6).Text & "','" & Text2.Text & "','" & txtItem(7).Text & "','" & Text1.Text & "','" & Text3.Text & "','" & Combo3.Text & "','" & txtItem(14).Text & "','" & txtItem(16).Text & "','" & txtItem(9).Text & "','" & txtItem(8).Text & "','" & txtItem(17).Text & "','" & txtItem(11).Text & "','" & txtItem(13).Text & "','" & txtItem(12).Text & "','" & txtItem(8).Text & "'" & ")"
    

 mrc.Open txtSQL
MsgBox "员工基本信息录入成功！"
txtSQL = "select * from 员工信息表  where ygid='" & txtItem(0).Text & "'"
 mrc.Open txtSQL
Set DataGrid1.DataSource = mrc
DataGrid1.ReBind
If isAdding = False Then isAdding = True
Exit Sub
er:
MsgBox Err.Description
End Sub
    





Private Sub cmdExit_Click()
    
    Unload Me
End Sub