【VB开源代码栏目提醒】:本文主要为网学会员提供daycount.frm,希望对需要daycount.frm网友有所帮助,学习一下!
VERSION 5.00
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form Form5
Caption = "Form5"
ClientHeight = 6480
ClientLeft = 60
ClientTop = 345
ClientWidth = 10320
LinkTopic = "Form5"
ScaleHeight = 6480
ScaleWidth = 10320
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton add
Caption = "添加到商品信息记录"
Height = 375
Left = 240
TabIndex = 3
Top = 2160
Width = 1815
End
Begin VB.CommandButton draw
Caption = "提取今日销售记录"
Height = 375
Left = 240
TabIndex = 2
Top = 1080
Width = 1815
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1
Height = 5535
Left = 2400
TabIndex = 1
Top = 840
Width = 7815
_ExtentX = 13785
_ExtentY = 9763
_Version = 393216
_NumberOfBands = 1
_Band(0).Cols = 2
End
Begin VB.Label title
AutoSize = -1 'True
Caption = "每日结算"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 4920
TabIndex = 0
Top = 240
Width = 1140
End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private rd As New ADODB.Recordset
Private re As New ADODB.Recordset
Private rf As New ADODB.Recordset
Private Sub draw_Click()
rd.Open "SELECT * FROM 每日销售记录", db, adOpenStatic, adLockOptimistic
re.Open "select count(*) as counter from 每日销售记录", db, adOpenStatic, adLockOptimistic
counter = re("counter")
MSHFlexGrid1.Rows = counter + 1
If rd.BOF = True Or rd.EOF = True Then
MsgBox ("数据库异常!")
Else
For i = 1 To counter
temp1 = rd("商品编码")
temp2 = rd("商品名称")
temp3 = rd("销售数量")
temp4 = rd("商品单价")
temp5 = rd("销售年月日")
temp6 = rd("商品总价")
'temp7 = rd("供货厂商")
MSHFlexGrid1.TextMatrix(i, 0) = i
MSHFlexGrid1.TextMatrix(i, 1) = temp1
MSHFlexGrid1.TextMatrix(i, 2) = temp2
MSHFlexGrid1.TextMatrix(i, 3) = temp3
MSHFlexGrid1.TextMatrix(i, 4) = temp4
MSHFlexGrid1.TextMatrix(i, 5) = temp5
MSHFlexGrid1.TextMatrix(i, 6) = temp6
'MSHFlexGrid1.TextMatrix(i, 7) = temp7
rd.MoveNext
Next i
rd.Close
re.Close
End If
End Sub
Private Sub Form_Load()
MSHFlexGrid1.Clear
MSHFlexGrid1.Cols = 7
MSHFlexGrid1.Rows = 50
MSHFlexGrid1.ColWidth(0) = 900
MSHFlexGrid1.ColWidth(1) = 1100
MSHFlexGrid1.ColWidth(2) = 1500
MSHFlexGrid1.ColWidth(3) = 900
MSHFlexGrid1.ColWidth(4) = 900
MSHFlexGrid1.ColWidth(5) = 1200
MSHFlexGrid1.ColWidth(6) = 900
'MSHFlexGrid1.ColWidth(7) = 1500
MSHFlexGrid1.TextMatrix(0, 0) = "序号"
MSHFlexGrid1.TextMatrix(0, 1) = "商品编码"
MSHFlexGrid1.TextMatrix(0, 2) = "商品名称"
MSHFlexGrid1.TextMatrix(0, 3) = "销售数量"
MSHFlexGrid1.TextMatrix(0, 4) = "商品单价"
MSHFlexGrid1.TextMatrix(0, 5) = "销售年月日"
MSHFlexGrid1.TextMatrix(0, 6) = "商品总价"
'MSHFlexGrid1.TextMatrix(0, 7) = "供货厂商"
End Sub
上一篇:
CToolBar5Doc.cpp
下一篇:
论文好网