【VB开源代码栏目提醒】：网学会员鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“draw.frm”一文，供大家参考学习
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form Form4
Caption = "提货处理"
ClientHeight = 6480
ClientLeft = 3330
ClientTop = 2025
ClientWidth = 9300
LinkTopic = "Form4"
ScaleHeight = 6480
ScaleWidth = 9300
Begin VB.TextBox fromText
Height = 285
Left = 1200
TabIndex = 8
Top = 2040
Width = 1935
End
Begin VB.CommandButton yes
Caption = "确定"
Height = 375
Left = 360
TabIndex = 4
Top = 3360
Width = 855
End
Begin VB.TextBox serialText
Height = 285
Left = 1200
MaxLength = 10
TabIndex = 3
Top = 840
Width = 1935
End
Begin VB.TextBox numText
Height = 285
Left = 1200
TabIndex = 2
Top = 1440
Width = 1935
End
Begin VB.CommandButton cancel
Caption = "重填"
Height = 375
Left = 1800
TabIndex = 1
Top = 3360
Width = 855
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1
Height = 5535
Left = 3240
TabIndex = 0
Top = 840
Width = 5895
_ExtentX = 10398
_ExtentY = 9763
_Version = 393216
_NumberOfBands = 1
_Band(0).Cols = 2
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Left = 1200
TabIndex = 10
Top = 2640
Visible = 0 'False
Width = 1215
_ExtentX = 2143
_ExtentY = 661
_Version = 393216
Format = 19726337
CurrentDate = 37572
End
Begin VB.Label time
AutoSize = -1 'True
Caption = "提货时间："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 120
TabIndex = 11
Top = 2640
Visible = 0 'False
Width = 1050
End
Begin VB.Label who
AutoSize = -1 'True
Caption = "提货人员："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 120
TabIndex = 9
Top = 2040
Width = 1050
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 = 3720
TabIndex = 7
Top = 240
Width = 1710
End
Begin VB.Label serial
AutoSize = -1 'True
Caption = "商品编码："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 120
TabIndex = 6
Top = 840
Width = 1050
End
Begin VB.Label num
AutoSize = -1 'True
Caption = "商品数量："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 120
TabIndex = 5
Top = 1440
Width = 1050
End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private rg As New ADODB.Recordset
Private rc As New ADODB.Recordset
Private rd As New ADODB.Recordset
Private re As New ADODB.Recordset
Private rh As New ADODB.Recordset
Dim temp1 As String
Dim temp2 As Integer
Dim temp3 As String
Dim num1 As Integer
Dim date1
Private Sub cancel_Click()
serialText.Text = ""
numText.Text = ""
fromText.Text = ""
End Sub
Private Sub Form_Load()
MSHFlexGrid1.Clear
MSHFlexGrid1.Cols = 5
MSHFlexGrid1.Rows = 50
MSHFlexGrid1.ColWidth(0) = 900
MSHFlexGrid1.ColWidth(1) = 1100
MSHFlexGrid1.ColWidth(2) = 1100
MSHFlexGrid1.ColWidth(3) = 1100
MSHFlexGrid1.ColWidth(4) = 1100
MSHFlexGrid1.TextMatrix(0, 0) = "序 号"
MSHFlexGrid1.TextMatrix(0, 1) = "商品编码"
MSHFlexGrid1.TextMatrix(0, 2) = "提货人"
MSHFlexGrid1.TextMatrix(0, 3) = "提货时间"
MSHFlexGrid1.TextMatrix(0, 4) = "提货数量"
rd.Open "SELECT * FROM 提货信息记录", db, adOpenStatic, adLockOptimistic
re.Open "select count(*) as counter from 提货信息记录", db, adOpenStatic, adLockOptimistic
counter = re("counter")
For i = 1 To counter
MSHFlexGrid1.TextMatrix(i, 0) = rd("序号")
M
相关文章
2013-9-1
