📄 frmyuebao.frm
字号:
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column07
DataField = "出版社"
Caption = "出版社"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column08
DataField = "版次"
Caption = "版次"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column09
DataField = "订购价格"
Caption = "订购价格"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column10
DataField = "复本数"
Caption = "复本数"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column11
DataField = "附件"
Caption = "附件"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column12
DataField = "条码号"
Caption = "条码号"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column13
DataField = "规定天数"
Caption = "规定天数"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column14
DataField = "ISBN"
Caption = "ISBN"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
ColumnWidth = 2085.166
EndProperty
BeginProperty Column01
ColumnWidth = 2085.166
EndProperty
BeginProperty Column02
ColumnWidth = 2085.166
EndProperty
BeginProperty Column03
ColumnWidth = 2085.166
EndProperty
BeginProperty Column04
ColumnWidth = 2085.166
EndProperty
BeginProperty Column05
ColumnWidth = 2085.166
EndProperty
BeginProperty Column06
ColumnWidth = 2085.166
EndProperty
BeginProperty Column07
ColumnWidth = 2085.166
EndProperty
BeginProperty Column08
ColumnWidth = 2085.166
EndProperty
BeginProperty Column09
ColumnWidth = 2085.166
EndProperty
BeginProperty Column10
ColumnWidth = 1094.74
EndProperty
BeginProperty Column11
ColumnWidth = 2085.166
EndProperty
BeginProperty Column12
ColumnWidth = 2085.166
EndProperty
BeginProperty Column13
ColumnWidth = 2085.166
EndProperty
BeginProperty Column14
ColumnWidth = 2085.166
EndProperty
EndProperty
End
Begin VB.Frame Frame1
Height = 735
Left = 120
TabIndex = 0
Top = 120
Width = 7110
Begin VB.CommandButton Command2
Caption = "退 出"
Height = 375
Left = 5640
TabIndex = 4
Top = 255
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "查 询"
Height = 375
Left = 4440
TabIndex = 3
Top = 255
Width = 1215
End
Begin MSComCtl2.DTPicker DTPicker2
Height = 375
Left = 2895
TabIndex = 2
Top = 255
Width = 1350
_ExtentX = 2381
_ExtentY = 661
_Version = 393216
Format = 49545217
CurrentDate = 38304
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Left = 1200
TabIndex = 1
Top = 240
Width = 1350
_ExtentX = 2381
_ExtentY = 661
_Version = 393216
Format = 49545217
CurrentDate = 38304
End
Begin VB.Label Label2
Caption = "订购日期："
ForeColor = &H00000080&
Height = 255
Left = 240
TabIndex = 8
Top = 360
Width = 975
End
Begin VB.Label Label1
Caption = "至："
ForeColor = &H00000080&
Height = 255
Left = 2570
TabIndex = 6
Top = 345
Width = 375
End
End
End
Attribute VB_Name = "frmyuebao"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim Num1, Num2 As Long
Adodc1.RecordSource = "select * from rkb where 订购日期 between '" & DTPicker1.Value & "'and '" & DTPicker2.Value & "'order by 订购日期"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
' Adodc2.RecordSource = "select * from rkb where 订购日期 between '" & DTPicker1.Value & " ' and '" & DTPicker2.Value & "'"
Adodc2.RecordSource = "select sum(复本数)as 复本数,sum(订购价格)as 订购价格 from rkb where 订购日期 between '" & DTPicker1.Value & " ' and '" & DTPicker2.Value & "'"
Adodc2.Refresh
' If Adodc2.Recordset.RecordCount > 0 Then
' Adodc2.Recordset.MoveFirst
' Do While Adodc2.Recordset.EOF = False
' Num1 = Adodc2.Recordset.Fields("复本数")
' Num2 = Val(Adodc2.Recordset.Fields("订购价格")) * Num1
' Label6.Caption = Num1 + Val(Label6.Caption)
' Label4.Caption = Num2 + Val(Label4.Caption)
' Adodc2.Recordset.MoveNext
' Loop
Label4.Caption = Adodc2.Recordset.Fields(1)
Label6.Caption = Adodc2.Recordset.Fields(0)
Else
Label4.Caption = ""
Label6.Caption = ""
End If
End Sub
Private Sub Command2_Click()
Me.Hide
End Sub
Private Sub Command3_Click()
DataEnvironment1.rsCommand2.Open "select * from rkb where 订购日期 between '" & DTPicker1.Value & "'and '" & DTPicker2.Value & "'order by 订购日期 "
If DataEnvironment1.rsCommand2.RecordCount > 0 Then
DataReport1.Show 1
Else
MsgBox "此日期段没有记录，请重新选择！", vbOKOnly, "提示"
DataEnvironment1.rsCommand2.Close
End If
End Sub
Private Sub DTPicker2_LostFocus()
Command1.SetFocus
End Sub
Private Sub Form_Load()
DTPicker1.Value = Date - 30: DTPicker2.Value = Date
Me.Caption = Me.Caption & " " & frmmain.StatusBar1.Panels(2).Text
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -