📄 form_outbill.frm
字号:
Connect = "Access"
DatabaseName = "E:\datum\应用软件\物流管理\warehouse\hunterPOS.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Left = 360
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "hpos_products"
Top = 120
Width = 1140
End
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = "C:\Documents and Settings\Yuleiming\桌面\Hunter\物流管理\warehouse\DB-Access\hunterPOS.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 360
Left = 360
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "hpos_organization"
Top = 480
Width = 1140
End
Begin VB.Data DataMaster
Caption = "DataMaster"
Connect = "Access"
DatabaseName = "E:\datum\应用软件\物流管理\warehouse\DB-Access\hunterPOS.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Left = 240
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = $"form_outBill.frx":D52E
Top = 720
Visible = 0 'False
Width = 1140
End
End
Begin VB.Frame Frame2
Height = 645
Left = 105
TabIndex = 5
Top = 675
Width = 11070
Begin VB.TextBox billNo
BackColor = &H00FFFFFF&
Enabled = 0 'False
Height = 300
Left = 6480
TabIndex = 35
Top = 210
Width = 1395
End
Begin VB.TextBox billDate
Enabled = 0 'False
Height = 300
Left = 9240
TabIndex = 34
Top = 210
Width = 1395
End
Begin VB.TextBox handler
BackColor = &H00FFFFFF&
Enabled = 0 'False
Height = 300
Left = 3630
MaxLength = 20
TabIndex = 7
Top = 210
Width = 1590
End
Begin VB.TextBox takeunitName
BackColor = &H00FFFFFF&
Enabled = 0 'False
Height = 300
Left = 600
TabIndex = 6
Top = 210
Width = 1770
End
Begin VB.Label Label4
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
Caption = "单据号："
Height = 255
Left = 5640
TabIndex = 37
Top = 285
Width = 855
End
Begin VB.Label Label9
Caption = "出库日期："
Height = 255
Left = 8280
TabIndex = 36
Top = 285
Width = 975
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "客户： 经手人："
ForeColor = &H00000000&
Height = 255
Left = 105
TabIndex = 9
Top = 285
Width = 990
End
Begin VB.Label Label3
Caption = "发货员："
Height = 255
Left = 2880
TabIndex = 8
Top = 285
Width = 735
End
End
Begin VB.TextBox txttakeunit
Height = 285
Left = 3090
TabIndex = 4
Text = "0"
Top = 390
Visible = 0 'False
Width = 1215
End
Begin MSDBGrid.DBGrid grid1
Bindings = "form_outBill.frx":D5EA
Height = 2985
Left = 3900
OleObjectBlob = "form_outBill.frx":D5FE
TabIndex = 12
Top = 2460
Visible = 0 'False
Width = 6285
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "form_outBill.frx":ED27
Height = 7185
Left = -74880
OleObjectBlob = "form_outBill.frx":ED40
TabIndex = 17
Top = 480
Width = 11040
End
Begin MSFlexGridLib.MSFlexGrid mf1
Height = 3855
Left = 120
TabIndex = 15
Top = 2160
Width = 11175
_ExtentX = 19711
_ExtentY = 6800
_Version = 393216
BackColorFixed = -2147483636
BackColorBkg = -2147483644
AllowUserResizing= 3
End
Begin VB.Label lblTtlQtyCaption
BackColor = &H8000000B&
Caption = "总件数："
ForeColor = &H00FF0000&
Height = 255
Left = 1320
TabIndex = 33
Top = 7440
Width = 735
End
Begin VB.Label lblTtlQty
BackColor = &H8000000B&
Caption = "0"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 2160
TabIndex = 32
Top = 7440
Width = 735
End
Begin VB.Label Label6
Caption = "累计净重毛重"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1305
Left = 720
TabIndex = 29
Top = 6120
Width = 255
End
Begin VB.Line Line1
X1 = 6285
X2 = 7485
Y1 = 3000
Y2 = 3480
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "出 库 单"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 5100
TabIndex = 16
Top = 360
Width = 1395
End
End
Begin MSComCtl2.DTPicker DTP1
Height = 315
Left = 1320
TabIndex = 21
Top = 0
Width = 1785
_ExtentX = 3149
_ExtentY = 556
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 27066369
CurrentDate = 36654
End
Begin MSComCtl2.DTPicker DTP2
Height = 315
Left = 3600
TabIndex = 22
Top = 0
Width = 1785
_ExtentX = 3149
_ExtentY = 556
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 27066369
CurrentDate = 37256
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "起止日期："
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 240
TabIndex = 27
Top = 0
Width = 1245
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "到"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 3225
TabIndex = 23
Top = 0
Width = 330
End
End
Attribute VB_Name = "form_outBill"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim s, y, i '定义变量
Dim mydb As Database '定义数据库
Dim rs1 As Recordset '定义字段
Dim rs2 As Recordset
Dim rsMaster As Recordset
Dim lsph As Integer '定义一个整型变量
Dim sqlMaster As String
Dim sqlOrderBy As String
Dim isAdd As Boolean '是否新增
Dim grid1IsVisible As Boolean
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -