📄 frmprint.frm
字号:
Top = 100
Width = 1095
_ExtentX = 1931
_ExtentY = 450
CustomPicture = "frmPrint.frx":1147
Caption = "执行检索"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
MouseOverColor = 65535
ScaleWidth = 73
ScaleMode = 0
ScaleHeight = 17
BackStyle = 0
End
Begin as97Popup.asPopup asPopup1
Height = 255
Left = -71160
Top = 100
Width = 1095
_ExtentX = 1931
_ExtentY = 450
CustomPicture = "frmPrint.frx":14E1
Caption = "执行检索"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
MouseOverColor = 65535
ScaleWidth = 73
ScaleMode = 0
ScaleHeight = 17
BackStyle = 0
End
Begin as97Popup.asPopup asPopup9
Height = 255
Left = -74520
Top = 100
Width = 1455
_ExtentX = 2566
_ExtentY = 450
CustomPicture = "frmPrint.frx":187B
Caption = "打印检索"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
MouseOverColor = 65535
ScaleWidth = 97
ScaleMode = 0
ScaleHeight = 17
BackStyle = 0
End
Begin as97Popup.asPopup asPopup10
Height = 255
Left = -74520
Top = 100
Width = 1215
_ExtentX = 2143
_ExtentY = 450
CustomPicture = "frmPrint.frx":1E15
Caption = "打印检索"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
MouseOverColor = 65535
ScaleWidth = 81
ScaleMode = 0
ScaleHeight = 17
BackStyle = 0
End
Begin as97Popup.asPopup asPopup11
Height = 255
Left = -74400
Top = 100
Width = 1215
_ExtentX = 2143
_ExtentY = 450
CustomPicture = "frmPrint.frx":23AF
Caption = "打印检索"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
MouseOverColor = 65535
ScaleWidth = 81
ScaleMode = 0
ScaleHeight = 17
BackStyle = 0
End
Begin as97Popup.asPopup PRINTKC
Height = 255
Left = -74400
Top = 100
Width = 1215
_ExtentX = 2143
_ExtentY = 450
CustomPicture = "frmPrint.frx":2949
Caption = "打印库存"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
MouseOverColor = 65535
ScaleWidth = 81
ScaleMode = 0
ScaleHeight = 17
BackStyle = 0
End
Begin as97Popup.asPopup kh
Height = 255
Left = 1800
Top = 120
Width = 1095
_ExtentX = 1931
_ExtentY = 450
CustomPicture = "frmPrint.frx":2EE3
Caption = "执行检索"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
MouseOverColor = 65535
ScaleWidth = 73
ScaleMode = 0
ScaleHeight = 17
BackStyle = 0
End
Begin as97Popup.asPopup shj
Height = 255
Left = -72960
Top = 120
Width = 1095
_ExtentX = 1931
_ExtentY = 450
CustomPicture = "frmPrint.frx":327D
Caption = "执行检索"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
MouseOverColor = 65535
ScaleWidth = 73
ScaleMode = 0
ScaleHeight = 17
BackStyle = 0
End
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 255
Left = 2520
TabIndex = 3
Top = 840
Width = 2655
_ExtentX = 4683
_ExtentY = 450
_Version = 393216
CustomFormat = "MM-dd-yyyy"
Format = 72482819
CurrentDate = 37369
End
Begin MSComCtl2.DTPicker DTPicker2
Height = 255
Left = 5400
TabIndex = 4
Top = 840
Width = 2535
_ExtentX = 4471
_ExtentY = 450
_Version = 393216
CustomFormat = "MM-dd-yyyy"
Format = 72482819
CurrentDate = 37369
End
Begin as97Popup.asPopup YHXX
Height = 615
Left = 615
Top = 3720
Width = 1575
_ExtentX = 2778
_ExtentY = 1085
CustomPicture = "frmPrint.frx":3617
Caption = "用户信息"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
MouseOverColor = 65535
ScaleWidth = 105
ScaleMode = 0
BackStyle = 0
End
Begin as97Popup.asPopup GYSJ
Height = 615
Left = 615
Top = 4320
Width = 1575
_ExtentX = 2778
_ExtentY = 1085
CustomPicture = "frmPrint.frx":3EF1
Caption = "供应商家"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
MouseOverColor = 65535
ScaleWidth = 105
ScaleMode = 0
BackStyle = 0
End
Begin VB.Label tishi
Caption = "请选择查阅方式："
ForeColor = &H00FF0000&
Height = 255
Left = 2400
TabIndex = 5
Top = 840
Width = 1455
End
Begin VB.Image Image1
BorderStyle = 1 'Fixed Single
Height = 4335
Left = 480
Top = 840
Width = 1815
End
Begin VB.Image imgTitleMinimize
Height = 195
Left = 8520
Picture = "frmPrint.frx":420B
Top = 840
Width = 195
End
Begin VB.Image imgTitleClose
Height = 195
Left = 8520
Picture = "frmPrint.frx":4455
Top = 600
Width = 195
End
Begin VB.Image imgTitleHelp
Height = 195
Left = 8520
Picture = "frmPrint.frx":469F
Top = 240
Width = 195
End
Begin VB.Label lblTitle
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "数据报表"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 7440
TabIndex = 0
Top = 1200
Width = 1020
End
Begin VB.Image imgTitleMain
Height = 450
Left = 7080
Picture = "frmPrint.frx":48E9
Stretch = -1 'True
Top = 600
Width = 285
End
Begin VB.Image imgWindowBottomRight
Height = 450
Left = 8160
Picture = "frmPrint.frx":5033
Top = 120
Width = 285
End
Begin VB.Image imgWindowRight
Height = 450
Left = 8160
Picture = "frmPrint.frx":577D
Stretch = -1 'True
Top = 600
Width = 285
End
Begin VB.Image imgWindowLeft
Height = 450
Left = 7800
Picture = "frmPrint.frx":5EC7
Stretch = -1 'True
Top = 600
Width = 285
End
Begin VB.Image imgWindowBottom
Height = 450
Left = 7440
Picture = "frmPrint.frx":6611
Stretch = -1 'True
Top = 600
Width = 285
End
Begin VB.Image imgWindowBottomLeft
Height = 450
Left = 7800
Picture = "frmPrint.frx":6D5B
Top = 120
Width = 285
End
Begin VB.Image imgTitleRight
Height = 450
Left = 7440
Picture = "frmPrint.frx":74A5
Top = 120
Width = 285
End
Begin VB.Image imgTitleLeft
Height = 450
Left = 7080
Picture = "frmPrint.frx":7BEF
Top = 120
Width = 285
End
End
Attribute VB_Name = "frmPrint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub asPopup1_Click(Cancel As Boolean)
If DataEnvironment1.rsCommand2.State <> adStateClosed Then
DataEnvironment1.rsCommand2.Close
End If
' 读取 Text1 设定给参数一
DataEnvironment1.Commands("Command2").Parameters(0) = CStr(DTPicker1.Value)
' 读取 Text2 设定给参数二
DataEnvironment1.Commands("Command2").Parameters(1) = CStr(DTPicker2.Value)
DataGrid1.DataMember = "Command2"
Set DataGrid1.DataSource = DataEnvironment1
End Sub
Private Sub asPopup10_Click(Cancel As Boolean)
If DataEnvironment1.rsCommand1.State <> adStateClosed Then
DataEnvironment1.rsCommand1.Close
End If
' 读取 Text1 设定给参数一
DataEnvironment1.Commands("Command1").Parameters(0) = CStr(DTPicker1.Value)
' 读取 Text2 设定给参数二
DataEnvironment1.Commands("Command1").Parameters(1) = CStr(DTPicker2.Value)
DataGrid1.DataMember = "Command1"
Set DataGrid1.DataSource = DataEnvironment1
DataReport2.Show
DataReport2.Sections(2).Controls("Label13").Caption = "开始时间:" & CStr(DTPicker1.Value)
DataReport2.Sections(2).Controls("Label14").Caption = "结束时间:" & CStr(DTPicker2.Value)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -