【VB开源代码栏目提醒】:网学会员--在 VB开源代码编辑为广大网友搜集整理了:frmbbgsbm.frm绩等信息，祝愿广大网友取得需要的信息，参考学习。
VERSION 5.00
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmbbgsbm
BackColor = &H00FF8080&
Caption = "报表归属部门和时间设置"
ClientHeight = 3030
ClientLeft = 60
ClientTop = 345
ClientWidth = 5820
LinkTopic = "Form1"
ScaleHeight = 3030
ScaleWidth = 5820
StartUpPosition = 1 '所有者中心
Begin MSDataListLib.DataCombo dacomgsbmmc
Height = 330
Left = 1560
TabIndex = 2
Top = 1440
Width = 1215
_ExtentX = 2143
_ExtentY = 582
_Version = 393216
Text = "DataCombo1"
End
Begin VB.CommandButton Command1
Caption = "确认"
Height = 495
Index = 0
Left = 1440
TabIndex = 4
Top = 2040
Width = 975
End
Begin VB.CommandButton Command1
Caption = "取消"
Height = 495
Index = 1
Left = 3240
TabIndex = 3
Top = 2040
Width = 975
End
Begin MSComCtl2.DTPicker DTPicker2
Height = 375
Left = 4200
TabIndex = 1
Top = 840
Width = 1215
_ExtentX = 2143
_ExtentY = 661
_Version = 393216
CustomFormat = "yyyy-MM-dd"
Format = 158072835
CurrentDate = 38250
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Left = 1560
TabIndex = 0
Top = 840
Width = 1215
_ExtentX = 2143
_ExtentY = 661
_Version = 393216
CustomFormat = "yyyy-MM-dd"
Format = 158072835
CurrentDate = 37519
End
Begin VB.Label Labsearch
BackStyle = 0 'Transparent
Caption = "归属部门名称"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Index = 0
Left = 240
TabIndex = 8
Top = 1440
Width = 1215
End
Begin VB.Label Labsearch
BackStyle = 0 'Transparent
Caption = "截止时间"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Index = 7
Left = 3360
TabIndex = 7
Top = 840
Width = 855
End
Begin VB.Label Labsearch
BackStyle = 0 'Transparent
Caption = "起始时间"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Index = 6
Left = 600
TabIndex = 6
Top = 840
Width = 855
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "请选择时间范围"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 495
Left = 1680
TabIndex = 5
Top = 120
Width = 2535
End
End
Attribute VB_Name = "frmbbgsbm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim conn As New ADODB.Connection
Dim rsfygsbm As New ADODB.Recordset
Private Sub Command1_Click(Index As Integer)
If Index = 0 Then
If DTPicker1.Value > DTPicker2.Value Then
MsgBox "截止时间应晚于开始时间！"
DTPicker1.SetFocus
Else
endtime = Format(DTPicker2.Value, "yyyy-MM-dd")
starttime = Format(DTPicker1.Value, "yyyy-MM-dd")
m_gsbmmc = dacomgsbmmc.Text
Unload frmbbgsbm
Dareportbmyszxxx.Show
End If
Else
Unload frmbbtime
End If
End Sub
Private Sub Form_Load()
If conn.State <> 1 Then
conn.CursorLocation = adUseClient
conn.Open nowconnectstring
End If
rsfygsbm.Open "select * from fygsbm order by dm", conn, adOpenDynamic, adLockBatchOptimistic
Set dacomgsbmmc.RowSource = rsfygsbm
dacomgsbmmc.ListField = rsfygsbm.Fields("gsbmmc").Name
dacomgsbmmc.Text = rsfygsbm.Fields("gsbmmc")
DTPicker2.Value = Date
End Sub
Private Sub Form_Unload(Cancel As Integer)
conn.Close
End Sub
上一篇：
DiscardEditDlg.cpp
下一篇：
加强公路工程施工技术管理工作的措施
2013-9-1
