frmempedit.frm

ERP简易物料管理系统,主要是学习用VB编写ERP的例子.

      Width           =   300
   End
   Begin VB.Label LblCancel 
      BackStyle       =   0  'Transparent
      Caption         =   "取 消"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   6720
      MouseIcon       =   "FrmEmpEdit.frx":1488
      MousePointer    =   99  'Custom
      TabIndex        =   65
      Top             =   6960
      Width           =   855
   End
   Begin VB.Image Image4 
      Height          =   300
      Left            =   6120
      Picture         =   "FrmEmpEdit.frx":1792
      Top             =   6960
      Width           =   300
   End
End
Attribute VB_Name = "FrmEmpEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Modify As Boolean
Private Sub ComboContractSign_GotFocus()
    txtPosition.SetFocus
    
    If ComboContractSign.Text <> "" Then
        FrmDateSel.OriDate = ComboContractSign.Text
    Else
        FrmDateSel.OriDate = ""
    End If
    FrmDateSel.Left = Me.Left + ComboContractSign.Left + 350
    FrmDateSel.Top = Me.Top + ComboContractSign.Top + ComboContractSign.Height - FrmDateSel.Height
    
    FrmDateSel.Show 1
    
    ComboContractSign.Text = FrmDateSel.OriDate
End Sub

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

Private Sub ComboUpper_GotFocus()
    Dim TmpId As Integer
    '将焦点设置为下一个控件，否则将反复执行此过程
    txtBaseWage.SetFocus
    '保存CurDep
    TmpId = CurDep.Dep_Id
    '设置FrmEmpSel窗体的位置
    FrmEmpSel.Left = Me.Left + ComboUpper.Left + 350 - FrmEmpSel.Width
    FrmEmpSel.Top = Me.Top + ComboUpper.Top - FrmEmpSel.Height + 450
    FrmEmpSel.Show 1
    '将选择的员工姓名显示到ComboUpper控件中
    ComboUpper.Text = UpperEmp.Emp_Name
    '恢复CurDep
    CurDep.Dep_Id = TmpId
    CurDep.GetInfo (CurDep.Dep_Id)
End Sub

Private Sub Form_Load()
    If Modify = False Then
        txtEmp_Name = ""
        ComboSex.ListIndex = 0
        ComboState.ListIndex = 0
        txtNationality = ""
        ComboBirth.Text = ""
        txtPolitical_Party = ""
        txtFamily_Place = ""
        txtPcId = ""
        txtId_Card = ""
        txtBadgeID = ""
        txtTouristID = ""
        txtOfficePhone = ""
        txtHomePhone = ""
        txtMobile = ""
        txtBp = ""
        txtFiles_Keep_Org = ""
        txtResidence = ""
        txtHukou = ""
        txtPostcode = ""
        txtPolice_Post = ""
        txtStreet_Office = ""
        ComboHireDate.Text = ""
        txtWorking_Years = ""
        ComboContractSign.Text = ""
        txtPosition = ""
        txtTitle = ""
        ComboUpper.Text = ""
        txtBase_Wage = ""
        txtPosition_Wage = ""
        txtFillin_Person = ""
        txtPerformance = ""
        txtTouristExp = ""
        txtMemo = ""
    Else
        With CurEmp
            
            '姓名
            txtEmp_Name = .Emp_Name
            '性别
            If InCombo(.Sex, ComboSex) = True Then
                ComboSex.Text = Trim(.Sex)
            End If
            
            txtNationality = .Nationality
            ComboBirth.Text = .Birth
            txtPolitical_Party = .Political_Party
            txtFamily_Place = .Family_Place
            If InCombo(.Marital_Condition, ComboMarital) = True Then
                ComboMarital.Text = Trim(.Marital_Condition)
            End If
            txtCulture_Level = .Culture_Level
            txtPcId = .PcId
            txtId_Card = .Id_Card
            txtBadgeID = .BadgeID
            txtOfficePhone = .Office_phone
            txtHomePhone = .Home_phone
            txtMobile = .Mobile
            txtBp = .Bp
            txtFiles_Keep_Org = .Files_Keep_Org
            txtResidence = .Residence
            txtHukou = .Hukou
            txtPostcode = .Postcode
            txtPolice_Post = .Police_Post
            txtStreet_Office = .Street_Office
            ComboHireDate.Text = .HireDate
            txtWorking_Years = .Working_Years
            ComboContractSign.Text = .Contract_Sign_Date
            txtPosition = .Position
            txtTitle = .Title
            ComboUpper.Text = MyEmp.GetName(.UpperId)
            txtBaseWage = .Base_Wage
            txtBasePrize = .Base_Prize
            txtFillin_Person = .Fillin_Person
            txtMemo = .Memo
            
        End With
    End If
End Sub



Private Sub LblCancel_Click()
    FrmEmpMan.TmpOk = False
    Unload Me
End Sub

Private Sub LblOK_Click()
    With MyEmp
        
        '姓名
        .Emp_Name = MakeStr(txtEmp_Name)
        '性别
        .Sex = ComboSex.Text
        '员工状态
        .State = ComboState.ListIndex + 1
        '民族
        .Nationality = MakeStr(txtNationality)
        '生日
        If IsDate(ComboBirth.Text) = False Then
            MsgBox "请选择正确的出生日期"
            Exit Sub
        End If
        .Birth = ComboBirth.Text
        '政治面貌
        .Political_Party = MakeStr(txtPolitical_Party)
        '文化程度
        .Culture_Level = MakeStr(txtCulture_Level)
        '婚姻状况
        .Marital_Condition = MakeStr(ComboMarital)
        '籍贯
        .Family_Place = MakeStr(txtFamily_Place)
        '档案电脑号
        .PcId = MakeStr(txtPcId)
        '身份证号
        .Id_Card = MakeStr(txtId_Card)
        '工作证号
        .BadgeID = MakeStr(txtBadgeID)
        '办公电话
        .Office_phone = MakeStr(txtOfficePhone)
        '家庭电话
        .Home_phone = MakeStr(txtHomePhone)
        '移动电话
        .Mobile = MakeStr(txtMobile)
        'BP机
        .Bp = MakeStr(txtBp)
        '档案存放地
        .Files_Keep_Org = MakeStr(txtFiles_Keep_Org)
        '居住地址
        .Residence = MakeStr(txtResidence)
        '户口所在地
        .Hukou = MakeStr(txtHukou)
        '邮政编号
        .Postcode = MakeStr(txtPostcode)
        '户口所在地派出所
        .Police_Post = MakeStr(txtPolice_Post)
        '户口所在地街道
        .Street_Office = MakeStr(txtStreet_Office)
        '本企业工龄起始日期
        If IsDate(ComboHireDate.Text) = False Then
            MsgBox "请选择正确的本企业工龄起始日期"
            Exit Sub
        End If
        .HireDate = ComboHireDate.Text
        '工龄
        .Working_Years = Val(txtWorking_Years)
        '签订劳动合同日期
        If IsDate(ComboContractSign.Text) = False Then
            MsgBox "请选择正确的签订劳动合同日期"
            Exit Sub
        End If
        .Contract_Sign_Date = ComboContractSign.Text
        '岗位
        .Position = MakeStr(txtPosition)
        '职务
        .Title = MakeStr(txtTitle)
        '上级员工
        .UpperId = UpperEmp.Emp_Id
        '基本工资
        .Base_Wage = Val(txtBaseWage)
        '奖金基数
        .Base_Prize = Val(txtBasePrize)
        '填表人
        .Fillin_Person = MakeStr(txtFillin_Person)
        '备注
        .Memo = MakeStr(txtMemo)
        '填表时间
        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
        '部门编号
        .Dep_Id = CurDep.Dep_Id
        
        If Modify = False Then
            .Insert
        Else
            .Update (CurEmp.Emp_Id)
        End If
        
    End With
    '设置员工信息管理窗体中的状态标识
    FrmEmpMan.TmpOk = True
    Unload Me
End Sub

Private Sub ComboBirth_GotFocus()
    '将焦点设置为下一个控件，否则将反复执行此过程
    txtPolitical_Party.SetFocus
    '如果ComboBirth中包含日期，则将它赋值到FrmDateSel中
    If ComboBirth.Text <> "" Then
        FrmDateSel.OriDate = ComboBirth.Text
    Else
        FrmDateSel.OriDate = ""
    End If
    '设置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 txtBadgeID_KeyPress(KeyAscii As Integer)
    EnterTAB (KeyAscii)
End Sub

Private Sub txtBasePrize_KeyPress(KeyAscii As Integer)
    EnterTAB (KeyAscii)
    If In_Single(KeyAscii) = False Then
        KeyAscii = 0
    End If
End Sub

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

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

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

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

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

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

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

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

Private Sub txtHukou_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 txtMobile_KeyPress(KeyAscii As Integer)
    EnterTAB (KeyAscii)
End Sub

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

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

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

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

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

Private Sub txtPosition_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 txtStreet_Office_KeyPress(KeyAscii As Integer)
    EnterTAB (KeyAscii)
End Sub

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

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