📄 frmemployeeachievement.frm
字号:
TabIndex = 1
Top = 915
Width = 8172
Begin VB.TextBox txt年
BackColor = &H00C0FFFF&
ForeColor = &H00FF0000&
Height = 300
Left = 1275
TabIndex = 46
Top = 300
Width = 615
End
Begin VB.ComboBox cob月
BackColor = &H00C0FFFF&
ForeColor = &H00FF0000&
Height = 300
ItemData = "frmEmployeeAchievement.frx":221D
Left = 2250
List = "frmEmployeeAchievement.frx":2245
TabIndex = 45
Top = 300
Width = 615
End
Begin VB.CommandButton Command2
Caption = "搜索"
Height = 315
Left = 6945
TabIndex = 44
Top = 300
Width = 690
End
Begin VB.TextBox txt员工工号
BackColor = &H00C0FFFF&
ForeColor = &H00FF0000&
Height = 315
Left = 5550
MaxLength = 8
TabIndex = 43
Top = 300
Width = 1365
End
Begin VB.Label Label21
Caption = "员工工号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 240
Left = 4275
TabIndex = 50
Top = 330
Width = 840
End
Begin VB.Label Label20
Caption = "年"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 240
Left = 2025
TabIndex = 49
Top = 330
Width = 165
End
Begin VB.Label Label1
Caption = "月"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 240
Left = 2925
TabIndex = 48
Top = 330
Width = 165
End
Begin VB.Label Label2
Caption = "查询月份"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 240
Left = 300
TabIndex = 47
Top = 330
Width = 840
End
End
Begin ComctlLib.ImageList ImageList1
Left = 8520
Top = 960
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 6
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmEmployeeAchievement.frx":2270
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmEmployeeAchievement.frx":258A
Key = ""
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmEmployeeAchievement.frx":28A4
Key = ""
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmEmployeeAchievement.frx":2BBE
Key = ""
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmEmployeeAchievement.frx":2ED8
Key = ""
EndProperty
BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmEmployeeAchievement.frx":31F2
Key = ""
EndProperty
EndProperty
End
End
Attribute VB_Name = "frmEmployeeAchievement"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim Cmd As New ADODB.Command
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdDetail_Click()
If txt员工工号.Text = "" Then
MsgBox "请选择员工工号！"
Exit Sub
End If
frmDetail.Show 1
End Sub
Private Sub cmdPreview_Click()
Dim Sql As String
Sql = "SELECT * FROM 员工业绩报表"
CrystalReport1.SQLQuery = Sql
CrystalReport1.Destination = crptToWindow
CrystalReport1.Action = 1
End Sub
Private Sub cmdPrint_Click()
Dim Sql As String
Sql = "select * from 员工业绩报表"
CrystalReport1.SQLQuery = Sql
CrystalReport1.Destination = crptToPrinter
CrystalReport1.Action = 1
End Sub
Private Sub cmdSearch_Click()
Dim Sql As String
Dim Tax As Single
Dim Income As String
Sql = "select * from 员工资料报表 where year(结算日期)= '" & txt年.Text & "' and month(结算日期)= '" & _
cob月.Text & "' and 工号= '" & txt员工工号.Text & "'"
Adodc1.RecordSource = Sql
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "找不到相应记录，请检查输入！"
txt工号.Text = ""
txt姓名.Text = ""
txt等级.Text = ""
txt担保人工号.Text = ""
txt担保人姓名.Text = ""
txt担保人等级.Text = ""
txt应聘日期.Text = ""
txt当月积分.Text = ""
txt累计积分.Text = ""
txt销售提成.Text = ""
txt个人绩效奖.Text = ""
txt网络绩效奖.Text = ""
txt伙食津贴.Text = ""
txt差旅津贴.Text = ""
txt绩效奖金.Text = ""
txt税金.Text = ""
txt金额.Text = ""
Exit Sub
End If
Set txt工号.DataSource = Adodc1.Recordset
txt工号.DataField = "工号"
Set txt姓名.DataSource = Adodc1.Recordset
txt姓名.DataField = "姓名"
Set txt等级.DataSource = Adodc1.Recordset
txt等级.DataField = "等级"
Set txt担保人工号.DataSource = Adodc1.Recordset
txt担保人工号.DataField = "担保人工号"
Set txt担保人姓名.DataSource = Adodc1.Recordset
txt担保人姓名.DataField = "担保人姓名"
Set txt担保人等级.DataSource = Adodc1.Recordset
txt担保人等级.DataField = "担保人等级"
Set txt应聘日期.DataSource = Adodc1.Recordset
txt应聘日期.DataField = "应聘日期"
Set txt当月积分.DataSource = Adodc1.Recordset
txt当月积分.DataField = "当月积分"
Set txt累计积分.DataSource = Adodc1.Recordset
txt累计积分.DataField = "累计积分"
Set txt销售提成.DataSource = Adodc1.Recordset
txt销售提成.DataField = "提成"
Set txt个人绩效奖.DataSource = Adodc1.Recordset
txt个人绩效奖.DataField = "个人绩效奖"
Set txt网络绩效奖.DataSource = Adodc1.Recordset
txt网络绩效奖.DataField = "网络绩效奖"
Set txt伙食津贴.DataSource = Adodc1.Recordset
txt伙食津贴.DataField = "伙食津贴"
Set txt差旅津贴.DataSource = Adodc1.Recordset
txt差旅津贴.DataField = "差旅津贴"
Set txt绩效奖金.DataSource = Adodc1.Recordset
txt绩效奖金.DataField = "绩效奖金"
Set txt税金.DataSource = Adodc1.Recordset
txt税金.DataField = "税金"
Set txt金额.DataSource = Adodc1.Recordset
txt金额.DataField = "实际收入"
Cmd.CommandText = "delete * from 员工业绩报表"
Cmd.Execute
Cmd.CommandText = "insert into 员工业绩报表 select * from 员工资料报表 where year(结算日期)= '" & _
txt年.Text & "' and month(结算日期)= '" & _
cob月.Text & "' and 工号= '" & txt员工工号.Text & "'"
Cmd.Execute
End Sub
Private Sub Command2_Click()
frmYGYJ_YGGH.Show 1
End Sub
Private Sub Form_Load()
Dim ConnStr As String
txt年.Text = Year(Date)
cob月.Text = Month(Date)
ConnStr = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=c:\system\database\system.mdb"
Conn.Open ConnStr
Set Cmd.ActiveConnection = Conn
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cmd.CommandText = "delete * from 员工业绩报表"
Cmd.Execute
Conn.Close
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
Select Case Button.Key
Case "Search"
cmdSearch_Click
Case "Preview"
cmdPreview_Click
Case "Print"
cmdPrint_Click
Case "Close"
cmdClose_Click
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -