📄 frmpayreport.frm
字号:
ForeColor = &H00FF0000&
Height = 255
Left = 1080
TabIndex = 30
Top = 720
Width = 975
End
Begin VB.Label Label25
Caption = "个人绩效奖"
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 29
Top = 720
Width = 975
End
Begin VB.Label Label24
Caption = "销售提成"
DataField = "提成"
DataMember = "员工资料"
DataSource = "DataEnvironment1"
ForeColor = &H00FF0000&
Height = 255
Left = 1080
TabIndex = 28
Top = 360
Width = 975
End
Begin VB.Label Label23
Caption = "销售提成"
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 27
Top = 360
Width = 735
End
End
Begin VB.Frame Frame4
Caption = "积分"
ForeColor = &H00FF0000&
Height = 1440
Left = 120
TabIndex = 19
Top = 140
Width = 2175
Begin VB.Label Label21
Caption = "累计积分"
DataField = "累计积分"
DataMember = "员工资料"
DataSource = "DataEnvironment1"
ForeColor = &H00FF0000&
Height = 255
Left = 960
TabIndex = 25
Top = 1080
Width = 855
End
Begin VB.Label Label20
Caption = "累计积分"
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 24
Top = 1080
Width = 735
End
Begin VB.Label Label19
Caption = "当月积分"
DataField = "当月积分"
DataMember = "员工资料"
DataSource = "DataEnvironment1"
ForeColor = &H00FF0000&
Height = 255
Left = 960
TabIndex = 23
Top = 720
Width = 855
End
Begin VB.Label Label18
Caption = "当月积分"
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 22
Top = 720
Width = 735
End
Begin VB.Label Label17
Caption = "结算日期"
DataField = "结算日期"
BeginProperty DataFormat
Type = 1
Format = "yyyy-MM-dd"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 3
EndProperty
DataMember = "员工资料"
DataSource = "DataEnvironment1"
ForeColor = &H00FF0000&
Height = 255
Left = 960
TabIndex = 21
Top = 360
Width = 975
End
Begin VB.Label Label16
Caption = "奖金月份"
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 20
Top = 360
Width = 855
End
End
End
Begin VB.Frame Frame2
Caption = "公告栏"
ForeColor = &H00FF0000&
Height = 3015
Left = 120
TabIndex = 2
Top = 2160
Width = 5895
Begin RichTextLib.RichTextBox RichTextBox1
DataField = "内容"
DataSource = "Adodc2"
Height = 2655
Left = 120
TabIndex = 17
Top = 240
Width = 5655
_ExtentX = 9975
_ExtentY = 4683
_Version = 393217
Enabled = -1 'True
TextRTF = $"frmPayReport.frx":0000
End
End
Begin VB.Frame Frame1
Caption = "业务员资料"
ForeColor = &H00FF0000&
Height = 1335
Left = 120
TabIndex = 1
Top = 720
Width = 5895
Begin VB.Label Label15
Caption = "本身 等级"
DataField = "等级"
DataMember = "员工资料"
DataSource = "DataEnvironment1"
ForeColor = &H00FF0000&
Height = 255
Left = 4440
TabIndex = 16
Top = 960
Width = 975
End
Begin VB.Label Label14
Caption = "本 身 工 号"
DataField = "工号"
DataMember = "员工资料"
DataSource = "DataEnvironment1"
ForeColor = &H00FF0000&
Height = 255
Left = 2640
TabIndex = 15
Top = 960
Width = 1335
End
Begin VB.Label Label13
Caption = "担保人等级"
DataField = "等级"
DataMember = "担保人资料"
DataSource = "DataEnvironment1"
ForeColor = &H00FF0000&
Height = 255
Left = 4440
TabIndex = 14
Top = 720
Width = 975
End
Begin VB.Label Label12
Caption = "担 保 人 工 号"
DataField = "担保人工号"
DataMember = "员工资料"
DataSource = "DataEnvironment1"
ForeColor = &H00FF0000&
Height = 255
Left = 2640
TabIndex = 13
Top = 720
Width = 1335
End
Begin VB.Label Label11
Caption = "等 级"
DataField = "等级"
DataMember = "员工资料"
DataSource = "DataEnvironment1"
ForeColor = &H00FF0000&
Height = 255
Left = 4440
TabIndex = 12
Top = 480
Width = 975
End
Begin VB.Label Label10
Caption = "业 务 员 工 号"
DataField = "工号"
DataMember = "员工资料"
DataSource = "DataEnvironment1"
ForeColor = &H00FF0000&
Height = 255
Left = 2640
TabIndex = 11
Top = 480
Width = 1335
End
Begin VB.Label Label9
Caption = "员工姓名"
DataField = "姓名"
DataMember = "员工资料"
DataSource = "DataEnvironment1"
ForeColor = &H00FF0000&
Height = 255
Left = 1320
TabIndex = 10
Top = 960
Width = 975
End
Begin VB.Label Label8
Caption = "本 身 B"
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 9
Top = 960
Width = 975
End
Begin VB.Label Label7
Caption = "担保人姓名"
DataField = "担保人姓名"
DataMember = "员工资料"
DataSource = "DataEnvironment1"
ForeColor = &H00FF0000&
Height = 255
Left = 1320
TabIndex = 8
Top = 720
Width = 975
End
Begin VB.Label Label6
Caption = "担 保 人 A"
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 7
Top = 720
Width = 975
End
Begin VB.Label Label5
Caption = "姓名"
DataField = "姓名"
DataMember = "员工资料"
DataSource = "DataEnvironment1"
ForeColor = &H00FF0000&
Height = 255
Left = 1320
TabIndex = 6
Top = 480
Width = 975
End
Begin VB.Label Label4
Caption = "业 务 员"
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 5
Top = 480
Width = 975
End
Begin VB.Label Label3
Caption = "地址"
DataField = "家庭住址"
DataMember = "员工详细资料"
DataSource = "DataEnvironment1"
ForeColor = &H00FF0000&
Height = 255
Left = 1320
TabIndex = 4
Top = 240
Width = 4455
End
Begin VB.Label Label2
Caption = "地 址"
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 3
Top = 240
Width = 975
End
End
Begin VB.Label Label35
Caption = "报表生成日期"
ForeColor = &H00FF0000&
Height = 195
Left = 6000
TabIndex = 37
Top = 550
Width = 1095
End
Begin VB.Label Label1
Caption = "工资奖金报表"
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Left = 2880
TabIndex = 0
Top = 240
Width = 2655
End
End
Attribute VB_Name = "frmPayReport"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdFirst_Click()
rs员工资料.MoveFirst
End Sub
Private Sub cmdLast_Click()
rs员工资料.MoveLast
End Sub
Private Sub cmdNext_Click()
If Not rs员工资料.EOF Then
rs员工资料.MoveNext
End If
End Sub
Private Sub cmdPrevious_Click()
If Not rs员工资料.BOF Then
rs员工资料.MovePrevious
End If
End Sub
Private Sub cmdPrintPreview_Click()
drp工资管理.Show
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim SQL As String
DTPicker1.Value = Date
SQL = "select * from 工资报表 where 报表生成日期= " & Date
Adodc4.RecordSource = SQL
Adodc4.Refresh
With Adodc4.Recordset
If .RecordCount = 0 Then
cmdReport.Enabled = True
cmdPrintPreview.Enabled = False
cmdPrint.Enabled = False
Else
cmdReport.Enabled = False
cmdPrintPreview.Enabled = True
cmdPrint.Enabled = True
End If
End With
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -