📄 frmstat.frm
字号:
VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Object = "{8E27C92E-1264-101C-8A2F-040224009C02}#7.0#0"; "MSCAL.OCX"
Begin VB.Form frmStat
Caption = "统计报表"
ClientHeight = 5160
ClientLeft = 45
ClientTop = 330
ClientWidth = 7530
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 5160
ScaleWidth = 7530
Begin VB.Data DataYuLan
Caption = "YuLan"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 324
Left = 1560
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 4920
Visible = 0 'False
Width = 1512
End
Begin VB.CommandButton cmdYuLan
Caption = "预览表"
Height = 300
Left = 2040
TabIndex = 16
ToolTipText = "预览统计报表"
Top = 4200
Width = 732
End
Begin VB.CommandButton cmdSaveToA
Caption = "存A盘"
Height = 300
Left = 1200
MouseIcon = "frmStat.frx":0000
TabIndex = 15
ToolTipText = "将制作好的报表保存到A盘"
Top = 4560
Width = 732
End
Begin VB.CommandButton cmdFormStat
Caption = "生成表"
Height = 300
Left = 1200
TabIndex = 14
ToolTipText = "生成统计报表，方法详见帮助"
Top = 4200
Width = 732
End
Begin MSDBGrid.DBGrid dbgDetail
Bindings = "frmStat.frx":0152
Height = 492
Left = 120
OleObjectBlob = "frmStat.frx":016B
TabIndex = 13
ToolTipText = "显示选定某天的详细统计"
Top = 1080
Width = 7128
End
Begin VB.CommandButton cmdDayRec
Caption = "日记录"
Height = 300
Left = 360
MouseIcon = "frmStat.frx":2140
TabIndex = 12
ToolTipText = "显示日历所示日期某反应釜当天详细批次记录"
Top = 4200
Width = 732
End
Begin VB.CommandButton cmdDay
Caption = "日明细"
Height = 300
Left = 2040
MouseIcon = "frmStat.frx":2292
TabIndex = 11
ToolTipText = "显示日历所示日期某反应釜当天的统计结果"
Top = 3840
Width = 732
End
Begin MSDBGrid.DBGrid dbgDay
Bindings = "frmStat.frx":23E4
Height = 540
Left = 120
OleObjectBlob = "frmStat.frx":23FA
TabIndex = 10
TabStop = 0 'False
Top = 840
Width = 7212
End
Begin MSDBGrid.DBGrid dbgMonth
Bindings = "frmStat.frx":37EC
Height = 540
Left = 120
OleObjectBlob = "frmStat.frx":3804
TabIndex = 9
TabStop = 0 'False
Top = 600
Width = 7212
End
Begin VB.CommandButton cmdMonth
Caption = "月明细"
Height = 300
Left = 1200
MouseIcon = "frmStat.frx":4BF8
TabIndex = 8
ToolTipText = "显示日历所示月份某反应釜每天的的统计结果"
Top = 3840
Width = 732
End
Begin VB.CommandButton cmdYear
Caption = "年明细"
Height = 300
Left = 360
MouseIcon = "frmStat.frx":4D4A
TabIndex = 7
ToolTipText = "显示日历所示年份某反应釜各月统计结果"
Top = 3840
Width = 732
End
Begin VB.Data DataDetail
Caption = "Detail"
Connect = "Access"
DatabaseName = "D:\ylg2\lsdata\lsjl.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 324
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "batchls1"
Top = 4680
Visible = 0 'False
Width = 1512
End
Begin VB.OptionButton Option3
Caption = "3#釜"
Height = 180
Left = 3000
TabIndex = 2
Top = 120
Width = 732
End
Begin VB.OptionButton Option2
Caption = "2#釜"
Height = 180
Left = 1800
TabIndex = 1
Top = 120
Width = 732
End
Begin VB.OptionButton opt1
Caption = "1#釜"
Height = 180
Left = 600
TabIndex = 0
Top = 120
Width = 732
End
Begin VB.Data DataYear
Caption = "Year"
Connect = "Access"
DatabaseName = "D:\ylg2\lsdata\lsjl.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 324
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3960
Visible = 0 'False
Width = 1512
End
Begin VB.Data DataMonth
Caption = "Month"
Connect = "Access"
DatabaseName = "D:\ylg2\lsdata\lsjl.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 324
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 4200
Visible = 0 'False
Width = 1512
End
Begin MSACAL.Calendar cal1
Height = 1692
Left = 3120
TabIndex = 5
ToolTipText = "点击某天选择年、月、日"
Top = 3396
Width = 3252
_Version = 524288
_ExtentX = 5741
_ExtentY = 2990
_StockProps = 1
BackColor = -2147483633
Year = 2000
Month = 9
Day = 30
DayLength = 1
MonthLength = 0
DayFontColor = 0
FirstDay = 1
GridCellEffect = 1
GridFontColor = 10485760
GridLinesColor = -2147483632
ShowDateSelectors= -1 'True
ShowDays = -1 'True
ShowHorizontalGrid= -1 'True
ShowTitle = 0 'False
ShowVerticalGrid= -1 'True
TitleFontColor = 10485760
ValueIsNull = 0 'False
BeginProperty DayFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 7.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty GridFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 7.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty TitleFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.CommandButton Command5
Cancel = -1 'True
Caption = "退出&B"
BeginProperty Font
Name = "隶书"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 6516
MouseIcon = "frmStat.frx":4E9C
MousePointer = 99 'Custom
Picture = "frmStat.frx":4FEE
Style = 1 'Graphical
TabIndex = 3
ToolTipText = "退出本窗口"
Top = 4452
Width = 612
End
Begin VB.Data DataDay
Caption = "Day"
Connect = "Access"
DatabaseName = "D:\ylg2\lsdata\lsjl.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 324
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 4440
Visible = 0 'False
Width = 1512
End
Begin MSDBGrid.DBGrid dbgYear
Bindings = "frmStat.frx":51B0
Height = 660
Left = 120
OleObjectBlob = "frmStat.frx":51C7
TabIndex = 4
TabStop = 0 'False
Top = 360
Width = 7212
End
Begin MSDBGrid.DBGrid dbgYuLan
Bindings = "frmStat.frx":65BA
Height = 780
Left = 120
OleObjectBlob = "frmStat.frx":65D2
TabIndex = 17
TabStop = 0 'False
Top = 1680
Width = 7212
End
Begin VB.Label lblDate
Caption = "l"
BeginProperty Font
Name = "隶书"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 636
TabIndex = 6
Top = 3504
Width = 2208
End
Begin VB.Image Image1
BorderStyle = 1 'Fixed Single
Height = 5136
Left = 0
Top = 0
Width = 7380
End
End
Attribute VB_Name = "frmStat"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim DestinateRec(1 To 3) As Recordset
Dim DestinateDB As Database
Private i, II As Integer
Private dteFirstDayOfNextMonth1(1 To 12) As Date
Private dteFirstDayOfMonth, dteFirstDayOfNextMonth As Date
Dim FirstDayOfMonth, FirstDayOfNextMonth As Date
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -