📄 frm_rpt_kaoqinrpt.frm
字号:
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":E012
Key = "new"
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":F064
Key = "copy"
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":F176
Key = "printb"
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":F288
Key = "print1"
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":12112
Key = "print2"
EndProperty
BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":1424C
Key = ""
EndProperty
BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":14F28
Key = "NA"
EndProperty
BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":167AC
Key = "cloth"
EndProperty
BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":16AD0
Key = ""
EndProperty
BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":187DA
Key = ""
EndProperty
BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":188EE
Key = "exit"
EndProperty
BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":18C08
Key = "ok"
EndProperty
BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":18D1A
Key = "earth1"
EndProperty
BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":1916E
Key = "earth2"
EndProperty
BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":1948A
Key = "man3"
EndProperty
BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":1A2DE
Key = "man1"
EndProperty
BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":1B130
Key = ""
EndProperty
BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":1B22C
Key = ""
EndProperty
BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":1B340
Key = ""
EndProperty
BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":1B454
Key = "excel"
EndProperty
BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":1B770
Key = "word"
EndProperty
BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":1BA8C
Key = "word2"
EndProperty
BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":1BC26
Key = "toleft"
EndProperty
BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":1C078
Key = "toRight"
EndProperty
BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":1C4CA
Key = "toUp"
EndProperty
BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":1C91C
Key = "toDown"
EndProperty
BeginProperty ListImage41 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":1CD6E
Key = "write1"
EndProperty
BeginProperty ListImage42 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":1D1C0
Key = "write2"
EndProperty
BeginProperty ListImage43 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Rpt_KaoQinRpt.frx":1D612
Key = "write3"
EndProperty
EndProperty
End
Begin VB.PictureBox Picture2
Height = 0
Left = 0
ScaleHeight = 0
ScaleWidth = 0
TabIndex = 12
Top = 0
Width = 0
End
End
Begin VB.Label Label1
Height = 5295
Left = 2400
TabIndex = 3
Top = 960
Width = 135
End
Begin VB.Label Label3
Caption = "年："
ForeColor = &H00FF0000&
Height = 255
Index = 1
Left = 600
TabIndex = 2
Top = 6600
Width = 375
End
Begin VB.Label Label3
Caption = "月："
ForeColor = &H00FF0000&
Height = 255
Index = 2
Left = 2160
TabIndex = 1
Top = 6600
Width = 375
End
End
Attribute VB_Name = "Frm_Rpt_KaoQinRpt"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mDB As mDB
Dim SpFlg As Boolean
Dim ChejianID As Integer
Public iVar As Integer
Dim sFldString As String
Dim WithEvents frmX As NM_Bas
Attribute frmX.VB_VarHelpID = -1
Dim strSQL As String
Private adoprimaryRS As ADODB.Recordset
Private strSQL2 As String
Private adoPrimaryRS2 As ADODB.Recordset
Private strSQL3 As String
Private adoPrimaryRS3 As ADODB.Recordset
Private strSQL4 As String
Private adoprimaryRS4 As ADODB.Recordset
Private strSQL5 As String
Private adoPrimaryRS5 As ADODB.Recordset
Private strSQL6 As String
Private adoPrimaryRS6 As ADODB.Recordset
Private strSQL7 As String
Private adoPrimaryRS7 As ADODB.Recordset
Private strSQL8 As String
Private adoPrimaryRS8 As ADODB.Recordset
Private strSQL9 As String
Private adoPrimaryRS9 As ADODB.Recordset
Private Sub DataCombo1_Click(Area As Integer)
If Option1(0).Value = False Then
Option1(0).Value = True
End If
End Sub
Private Sub datagrid1_HeadClick(ByVal ColIndex As Integer)
'Sort by clicked column
' With adoprimaryRS4
Static i As Integer
i = i + 1
With adoprimaryRS4
If i Mod 2 Then
.Sort = .Fields(ColIndex).Name & " DESC"
Else
.Sort = .Fields(ColIndex).Name & " ASC"
End If
End With
DataGrid1.Refresh
End Sub
' =====================================================
' =====================================================
Private Sub DataGrid1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys vbTab
SendKeys vbTab
SendKeys vbTab
SendKeys vbTab
End If
End Sub
Private Sub DTPicker1_CloseUp(Index As Integer)
Dim d As Date
Dim d1 As Date
Select Case Index
Case 0
d = DTPicker1(0).Value
d1 = DateAdd("m", 1, d)
DTPicker1(1).Value = DateSerial(Year(d1), Month(d1), 1) - 1
Case 1
End Select
End Sub
' =====================================================
' =====================================================
' =====================================================
' =====================================================
' =====================================================
Private Sub Form_Load()
Set mDB = New mDB
' Debug.Print strconnDR
' Debug.Print SQLConnDR
mDB.InitDB_RY strconnDR
' mDB.InitDB_RY SQLConnDR
' SaveSetting "temp", "tempint", "tmpi", 2
strSQL = "select dptid,dptname from depart"
Set adoprimaryRS = mDB.adoprimaryRS(strSQL)
With DataCombo1
Set .RowSource = adoprimaryRS
.BoundColumn = "dptID"
.ListField = "dptname"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -