?? frmresult.frm
字號:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "Msflxgrd.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "Tabctl32.ocx"
Begin VB.Form frmresult
Caption = "工資統計結果"
ClientHeight = 9090
ClientLeft = 60
ClientTop = 345
ClientWidth = 11400
ControlBox = 0 'False
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 9090
ScaleWidth = 11400
WindowState = 2 'Maximized
Begin TabDlg.SSTab SSTab1
Height = 6135
Left = 600
TabIndex = 0
Top = 1440
Width = 9645
_ExtentX = 17013
_ExtentY = 10821
_Version = 393216
Style = 1
TabHeight = 520
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "楷體_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "員工基本工資列表"
TabPicture(0) = "frmresult.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "MSFlexGrid2"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).ControlCount= 1
TabCaption(1) = "員工其他項目列表"
TabPicture(1) = "frmresult.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "MSFlexGrid3"
Tab(1).ControlCount= 1
TabCaption(2) = "員工工資統計列表"
TabPicture(2) = "frmresult.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "MSFlexGrid1"
Tab(2).ControlCount= 1
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid3
Height = 5055
Left = -74760
TabIndex = 6
Top = 720
Width = 8175
_ExtentX = 14420
_ExtentY = 8916
_Version = 393216
Cols = 7
FixedCols = 0
FillStyle = 1
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid2
Height = 5055
Left = 360
TabIndex = 7
Top = 720
Width = 8055
_ExtentX = 14208
_ExtentY = 8916
_Version = 393216
Cols = 5
FixedCols = 0
FillStyle = 1
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 5175
Left = -74640
TabIndex = 5
Top = 600
Width = 8775
_ExtentX = 15478
_ExtentY = 9128
_Version = 393216
Cols = 15
FixedCols = 0
FillStyle = 1
End
End
Begin VB.CommandButton cmdcheckall
Caption = "查詢所有"
BeginProperty Font
Name = "楷體_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 7200
TabIndex = 4
Top = 360
Width = 1335
End
Begin VB.CommandButton cmdok
Caption = "查詢單人"
BeginProperty Font
Name = "楷體_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5160
TabIndex = 3
Top = 360
Width = 1335
End
Begin VB.ComboBox comid
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 2280
TabIndex = 2
Top = 360
Width = 2175
End
Begin VB.Label Label1
Caption = "員工編號"
BeginProperty Font
Name = "楷體_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 600
TabIndex = 1
Top = 360
Width = 1215
End
End
Attribute VB_Name = "frmresult"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private iclickflag As Integer
Private sd As String
Private Sub Form_Load()
Dim sql As String
Dim rs As New ADODB.Recordset
If strusername = "admin" Then
sql = "select stuffid from salarysetting"
Set rs = getrs(sql, "salary")
If rs.EOF = False Then
While Not rs.EOF
Me.comid.AddItem rs(0)
rs.MoveNext
Wend
rs.Close
End If
Me.comid.ListIndex = 0
Select Case Me.SSTab1.Tab
Case 0
sql = "select * from salarysetting"
Call basictopic
Call showbasic(sql)
Case 1
sql = "select * from salaryother"
Call othertopic
Call showother(sql)
Case 2
sql = "select * from salarystatistics order by id desc"
Call listtopic
Call showdata(sql)
End Select
Else
sql = "select sid from stuffinfo where sname='" & strusername & "'"
Set rs = getrs(sql, "salary")
While Not rs.EOF
Me.comid.AddItem rs(0)
rs.MoveNext
Wend
rs.MoveFirst
sd = rs(0)
rs.Close
Me.comid.ListIndex = 0
Select Case Me.SSTab1.Tab
Case 0
sql = "select * from salarysetting where stuffid='" & sd & "'"
Call basictopic
Call showbasic(sql)
Case 1
sql = "select * from salaryother where stuffid='" & sd & "'"
Call othertopic
Call showother(sql)
Case 2
sql = "select * from salarystatistics where stuffid='" & sd & "'"
Call listtopic
Call showdata(sql)
End Select
End If
End Sub
Public Sub basictopic()
Dim i As Integer
With Me.MSFlexGrid2
.TextMatrix(0, 0) = "記錄編號"
.TextMatrix(0, 1) = "員工編號"
.TextMatrix(0, 2) = "員工姓名"
.TextMatrix(0, 3) = "員工職務"
.TextMatrix(0, 4) = "基本工資"
For i = 0 To 4
.ColAlignment(i) = 4
Next i
For i = 0 To 4
.ColWidth(i) = 1000
Next i
End With
End Sub
Public Sub showbasic(strquery As String)
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim sql As String
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -