📄 form_outadd-bak.frm
字号:
VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form form_outAdd
BackColor = &H00C0FFFF&
BorderStyle = 1 'Fixed Single
Caption = "出库登记"
ClientHeight = 8220
ClientLeft = 465
ClientTop = 2025
ClientWidth = 11460
ForeColor = &H80000003&
Icon = "form_outAdd-bak.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 8220
ScaleWidth = 11460
StartUpPosition = 1 'CenterOwner
Begin VB.CommandButton cmdDeleteLine
BackColor = &H00FF8080&
Caption = "&L删除当前行"
Height = 390
Left = 4920
Picture = "form_outAdd-bak.frx":000C
TabIndex = 24
Top = 7680
Width = 1215
End
Begin VB.TextBox txttakeunit
Height = 285
Left = 3105
TabIndex = 19
Text = "0"
Top = 30
Visible = 0 'False
Width = 1215
End
Begin VB.Frame Frame3
Height = 645
Left = 5295
TabIndex = 14
Top = 315
Width = 5370
Begin VB.TextBox billNo
BackColor = &H00FFFFFF&
Enabled = 0 'False
Height = 300
Left = 1080
TabIndex = 16
Top = 240
Width = 1395
End
Begin VB.TextBox billDate
Enabled = 0 'False
Height = 300
Left = 3480
TabIndex = 15
Top = 240
Width = 1395
End
Begin VB.Label Label4
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
Caption = "单据号："
Height = 180
Left = 240
TabIndex = 18
Top = 270
Width = 855
End
Begin VB.Label Label9
Caption = "出库日期："
Height = 180
Left = 2520
TabIndex = 17
Top = 270
Width = 975
End
End
Begin VB.Frame Frame2
Height = 645
Left = 120
TabIndex = 9
Top = 315
Width = 5070
Begin VB.TextBox takeunitName
BackColor = &H00FFFFFF&
Enabled = 0 'False
Height = 300
Left = 720
TabIndex = 11
Top = 210
Width = 1770
End
Begin VB.TextBox handler
BackColor = &H00FFFFFF&
Enabled = 0 'False
Height = 300
Left = 3390
MaxLength = 8
TabIndex = 10
Top = 210
Width = 1590
End
Begin VB.Label Label3
Caption = "发货员："
Height = 255
Left = 2640
TabIndex = 13
Top = 240
Width = 735
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "客户："
ForeColor = &H00000000&
Height = 255
Left = 105
TabIndex = 12
Top = 285
Width = 990
End
End
Begin VB.Frame Frame1
Height = 1110
Left = 9975
TabIndex = 8
Top = 5760
Visible = 0 'False
Width = 1470
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = "E:\datum\应用软件\物流管理\warehouse\DB-Access\hunterPOS.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 360
Left = 120
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "hpos_organization"
Top = 600
Width = 1140
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "E:\datum\应用软件\物流管理\warehouse\DB-Access\hunterPOS.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Left = 120
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "hpos_products"
Top = 240
Width = 1140
End
End
Begin VB.TextBox text1
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Height = 210
Left = 450
TabIndex = 7
Top = 1260
Visible = 0 'False
Width = 1485
End
Begin VB.TextBox txtBillId
Height = 285
Left = 1095
TabIndex = 6
Top = 120
Visible = 0 'False
Width = 1575
End
Begin VB.CommandButton Comqx
BackColor = &H00FF8080&
Caption = "&C取消"
Enabled = 0 'False
Height = 390
Left = 6480
Picture = "form_outAdd-bak.frx":11EA
TabIndex = 2
Top = 7680
Width = 1215
End
Begin VB.CommandButton ComEnd
BackColor = &H00FF8080&
Caption = "&X退出"
Height = 390
Left = 8040
Picture = "form_outAdd-bak.frx":23C8
TabIndex = 3
Top = 7680
Width = 1215
End
Begin VB.CommandButton Combc
BackColor = &H00C0C0C0&
Caption = "&S保存"
Enabled = 0 'False
Height = 390
Left = 3240
Picture = "form_outAdd-bak.frx":38B6
TabIndex = 1
Top = 7680
Width = 1215
End
Begin VB.CommandButton Comdj
BackColor = &H00FF8080&
Caption = "&A新增"
Height = 390
Left = 1560
Picture = "form_outAdd-bak.frx":4A94
TabIndex = 0
Top = 7680
Width = 1215
End
Begin MSFlexGridLib.MSFlexGrid msfgTtl
Height = 1695
Left = 855
TabIndex = 4
Top = 5640
Width = 9000
_ExtentX = 15875
_ExtentY = 2990
_Version = 393216
AllowUserResizing= 3
End
Begin MSDBGrid.DBGrid gridCustomer
Bindings = "form_outAdd-bak.frx":5C72
Height = 1500
Left = 855
OleObjectBlob = "form_outAdd-bak.frx":5C86
TabIndex = 5
Top = 960
Visible = 0 'False
Width = 5520
End
Begin MSDBGrid.DBGrid grid1
Bindings = "form_outAdd-bak.frx":69BE
Height = 2985
Left = 3915
OleObjectBlob = "form_outAdd-bak.frx":69D2
TabIndex = 20
Top = 1260
Visible = 0 'False
Width = 6285
End
Begin MSFlexGridLib.MSFlexGrid mf1
Height = 4575
Left = 135
TabIndex = 21
Top = 960
Width = 11175
_ExtentX = 19711
_ExtentY = 8070
_Version = 393216
BackColorFixed = -2147483636
BackColorBkg = -2147483644
AllowUserResizing= 3
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 = 5115
TabIndex = 23
Top = 0
Width = 1395
End
Begin VB.Label Label6
BackColor = &H00C0FFFF&
Caption = "累计净重轴重"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1200
Left = 615
TabIndex = 22
Top = 5760
Width = 255
End
End
Attribute VB_Name = "form_outAdd"
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 isAdd As Boolean '是否新增
Dim grid1IsVisible As Boolean
Dim m_billType As Integer
Private Sub cmdDeleteLine_Click()
For i = mf1.FixedCols To mf1.cols - mf1.FixedCols
mf1.TextMatrix(mf1.row, i) = ""
Next i
text1.Text = ""
Call fillTotalDataFromDtlData
If mf1.row > 1 Then
mf1.row = mf1.row - 1
End If
Exit Sub
End Sub
Private Sub Form_Load()
grid1IsVisible = False
isAdd = True
enableControls (False)
'自动识别数据库路径
Data1.DatabaseName = g_dbPath
Data2.DatabaseName = g_dbPath
m_billType = 0
mf1.Rows = 2: mf1.cols = 14 '定义mf1表的总行数、总列数
'定义mf1表的列宽和表头信息
s = Array("500", "1300", "1200", "1300", "1100", "450", "1000", "0", "0", "1000", "500", "1000", "1300", 0)
y = Array("序号", "条 码 号", "物料名称", "型号||规格", " 标 准", "单位", "净重", "价格", "金额", "皮重", "件/箱", "毛重", "备注", "productId")
For i = 0 To mf1.cols - 1
mf1.ColWidth(i) = s(i): mf1.TextMatrix(0, i) = y(i)
Next i
mf1.FixedRows = 1: mf1.FixedCols = 1 '定义mf1表的固定行数、固定列数
'定义mf1表的列序号
For i = mf1.FixedRows To mf1.Rows - mf1.FixedRows
mf1.TextMatrix(i, 0) = i
Next i
mf1.AllowUserResizing = flexResizeColumns
'定义msfgTtl表的列宽和表头信息
msfgTtl.Rows = 2: msfgTtl.cols = 11 '定义msfgTtl表的总行数、总列数
msfgTtl.FixedRows = 1: msfgTtl.FixedCols = 1 '定义mf1表的固定行数、固定列数
s = Array("500", "900", "1400", "1300", "1100", "700", "1000", "0", "600", "1000", 0)
y = Array("序号", "物料编号", "物料名称", "型号||规格", " 标 准", "单位", "总净重", "金额", "总件数", "总毛重", "productId")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -