BackStyle       =   0  'Transparent
         Caption         =   "工作日期"
         Height          =   195
         Left            =   3360
         TabIndex        =   22
         Top             =   2085
         Width           =   720
      End
      Begin VB.Label Label11 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "家庭電話"
         Height          =   180
         Left            =   6120
         TabIndex        =   21
         Top             =   1656
         Width           =   720
      End
      Begin VB.Label Label25 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "籍貫"
         Height          =   180
         Left            =   6120
         TabIndex        =   20
         Top             =   792
         Width           =   360
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "性別"
         Height          =   180
         Left            =   3360
         TabIndex        =   19
         Top             =   360
         Width           =   360
      End
      Begin VB.Label Label28 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "政治面貌"
         Height          =   180
         Left            =   3360
         TabIndex        =   18
         Top             =   792
         Width           =   720
      End
      Begin VB.Label Label21 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "工作證號(hào)"
         Height          =   195
         Left            =   6120
         TabIndex        =   17
         Top             =   1230
         Width           =   720
      End
   End
End
Attribute VB_Name = "FrmStaffEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Modify As Boolean

Private Sub Cmd_Cancel_Click()
  FrmStaffMan.TmpOk = False
  Unload Me
End Sub

Private Sub Cmd_OK_Click()
  With MyStaff
  '姓名
  .Staff_Name = MakeStr(txtStaff_Name)
  '性別
  .Sex = ComboSex.Text
  '民族
  .Nationality = MakeStr(txtNationality)
  '生日
  If IsDate(ComboBirth.Text) = False Then
    MsgBox "請(qǐng)選擇正確的出生日期"
    Exit Sub
  End If
  .Birth = ComboBirth.Text
  '政治面貌
  .Political_Party = MakeStr(txtPolitical_Party)
  '籍貫
  .Family_Place = MakeStr(txtFamily_Place)
  '身份證號(hào)
  .Id_Card = MakeStr(txtId_Card)
  '學(xué)生證號(hào)
  .WorkID = MakeStr(txtWorkID)
  '家庭電話
  .Home_phone = MakeStr(txtHomePhone)
  '居住地址
  .Residence = MakeStr(txtResidence)
  '郵政編號(hào)
  .Postcode = MakeStr(txtPostcode)
  '工作日期
  If IsDate(ComboInDate.Text) = False Then
    MsgBox "請(qǐng)選擇正確的參加工作日期"
    Exit Sub
  End If
  .InDate = ComboInDate.Text
  '職務(wù)
  .Title = MakeStr(txtTitle)
  '備注
  .Memo = MakeStr(txtMemo)
  '填表時(shí)間
  dd = Date
  dd = Format(dd, "yyyy-mm-dd")
  t = Time
  tt = Trim(Str(Hour(t))) + ":" + Trim(Str(Minute(t))) + ":" + Trim(Str(Second(t)))
  .Fillin_Time = dd + "  " + tt
  '部門編號(hào)
  .Depart_Id = CurDepart.Depart_Id
  '根據(jù)變量Modify,判斷是插入新數(shù)據(jù),還是修改已有的數(shù)據(jù)
  If Modify = False Then
    .Insert
  Else
    .Update (CurStaff.Staff_Id)
  End If
  End With
  '設(shè)置員工管理窗體中的狀態(tài)標(biāo)識(shí)
  FrmStaffMan.TmpOk = True
  Unload Me
End Sub

Private Sub ComboBirth_GotFocus()
  '將焦點(diǎn)設(shè)置為下一個(gè)控件，否則將反復(fù)執(zhí)行此過(guò)程
  txtPolitical_Party.SetFocus
  '如果ComboBirth中包含日期，則將它賦值到FrmDateSel中
  If ComboBirth.Text <> "" Then
    FrmDateSel.OriDate = ComboBirth.Text
  Else
    FrmDateSel.OriDate = ""
  End If
  '設(shè)置FrmDateSel窗體的位置
  FrmDateSel.Left = Me.Left + ComboBirth.Left + 350
  FrmDateSel.Top = Me.Top + ComboBirth.Top + ComboBirth.Height + 450
  FrmDateSel.Show 1
  '將選擇的日期顯示到ComboBirth控件中
  ComboBirth.Text = FrmDateSel.OriDate
End Sub

Private Sub ComboInDate_GotFocus()
  txtTitle.SetFocus
  
  If ComboInDate.Text <> "" Then
    FrmDateSel.OriDate = ComboInDate.Text
  Else
    FrmDateSel.OriDate = ""
  End If
  FrmDateSel.Left = Me.Left + ComboInDate.Left
  FrmDateSel.Top = Me.Top + ComboInDate.Top + ComboInDate.Height - FrmDateSel.Height
  
  FrmDateSel.Show 1
  
  ComboInDate.Text = FrmDateSel.OriDate
End Sub

Private Sub Form_Load()
  If Modify = False Then
    txtStaff_Name = ""
    ComboSex.ListIndex = 0
    txtNationality = ""
    ComboBirth.Text = ""
    txtPolitical_Party = ""
    txtFamily_Place = ""
    txtId_Card = ""
    txtWorkID = ""
    txtHomePhone = ""
    txtResidence = ""
    txtPostcode = ""
    ComboInDate.Text = ""
    txtTitle = ""
    txtMemo = ""
  Else
    With CurStaff
    '姓名
    txtStaff_Name = .Staff_Name
    '性別
    If InCombo(.Sex, ComboSex) = True Then
      ComboSex.Text = .Sex
    End If
    '民族
    txtNationality = .Nationality
    '生日
    ComboBirth.Text = .Birth
    '政治面貌
    txtPolitical_Party = .Political_Party
    '籍貫
    txtFamily_Place = .Family_Place
    '身份證
    txtId_Card = .Id_Card
    '學(xué)生證
    txtWorkID = .WorkID
    '家庭電話
    txtHomePhone = .Home_phone
    '家庭住址
    txtResidence = .Residence
    '郵政編碼
    txtPostcode = .Postcode
    '工作時(shí)間
    ComboInDate.Text = .InDate
    '職務(wù)
    txtTitle = .Title
    '備注
    txtMemo = .Memo
    End With
  End If
End Sub

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

End Sub

Private Sub txtWorkID_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtStaff_Name_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtFamily_Place_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtHomePhone_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtId_Card_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtMemo_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtNationality_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtPolitical_Party_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtPostcode_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
  If In_Int(KeyAscii) = False Then
    KeyAscii = 0
  End If
End Sub

Private Sub txtResidence_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub


Private Sub txtTitle_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub