📄 stockstorelistform.frm
字号:
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":0E68
Key = "zh"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":1202
Key = "sh"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":159C
Key = "bc"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":1936
Key = "fq"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":1CD0
Key = "bz"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":206A
Key = "tc"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":2404
Key = "bcgs"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":279E
Key = "mrlk"
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":2B38
Key = "xsxm"
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":2ED2
Key = "first"
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":326C
Key = "prev"
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":3606
Key = "next"
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":39A0
Key = "last"
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":3D3A
Key = "xx"
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":40D4
Key = "define"
EndProperty
BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":446E
Key = "exec"
EndProperty
BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":4808
Key = "xz"
EndProperty
BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":4BA2
Key = "sc"
EndProperty
BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":4F3C
Key = "sx"
EndProperty
BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":52D6
Key = "cx"
EndProperty
BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":5670
Key = "zd"
EndProperty
BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":5A0A
Key = "dz"
EndProperty
BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":5DA4
Key = "ph"
EndProperty
BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":613E
Key = "fz"
EndProperty
BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":64D8
Key = "Locate"
EndProperty
BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":6872
Key = "hf"
EndProperty
BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":6C0C
Key = "pz"
EndProperty
BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":6FA6
Key = "check"
EndProperty
BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":7340
Key = "Sum"
EndProperty
BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":76DA
Key = "Total"
EndProperty
BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":7A74
Key = "Detail"
EndProperty
BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockstorelistform.frx":7E0E
Key = "Order"
EndProperty
EndProperty
End
End
Attribute VB_Name = "stockstorelistform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*******************************************************
'* 模 块 名 称 :采购订单-供应商维护与管理
'* 功 能 描 述 :基本信息
'* 程序员姓名 :黄朝和
'* 最后修改人 :
'* 最后修改时间:2005/08/30
'* 备 注:
'*******************************************************
Option Explicit
Private m_stockstoreDAO As stockstoreDAO
Private m_recordset As ADODB.Recordset
Private s_recordset As ADODB.Recordset
Private w_recordset As ADODB.Recordset
Private m_warehouseDAO As WarehouseDAO
Private m_supplierDAO As supplierDAO
Public supplier_stockstore As String ' 从供应商表传过的供应商编号
Private currentrow As Integer ' 增量指针
Public stockstoreid As String ' 取选中行的采购入库编号
Public stockstore_type As Integer ' stockstore_type=0--表示修改，，stockstore_type=1表示增加
Public supplier_store_type As Integer
Private m_idList As String ' 在执行查询时查询到的ID列表字符串
'**************************************
'* 功 能 描 述 :MSHFlexGrid1控件初始化
'* 输 入 参 数 :无
'* 输 出 能 数 :无
'**************************************
Private Sub showform()
MSHFlexGrid1.TextMatrix(0, 0) = "采购入库编号"
MSHFlexGrid1.TextMatrix(0, 1) = "业务员" '初始化MSHFLexGrid1的各列的名称
MSHFlexGrid1.TextMatrix(0, 2) = "制单人"
MSHFlexGrid1.TextMatrix(0, 3) = "单据编号"
MSHFlexGrid1.TextMatrix(0, 4) = "供应商名称"
MSHFlexGrid1.TextMatrix(0, 5) = "录入日期"
MSHFlexGrid1.TextMatrix(0, 6) = "交货日期"
MSHFlexGrid1.TextMatrix(0, 7) = "联系人"
MSHFlexGrid1.TextMatrix(0, 8) = "联系电话"
MSHFlexGrid1.TextMatrix(0, 9) = "备注"
MSHFlexGrid1.TextMatrix(0, 10) = "审核"
MSHFlexGrid1.TextMatrix(0, 11) = "仓库位置"
MSHFlexGrid1.TextMatrix(0, 12) = "供应商编号"
'设置列对齐方式 8-右对齐 5-居中对齐 2-左对齐
MSHFlexGrid1.ColAlignment(0) = 2
MSHFlexGrid1.ColAlignment(1) = 2
MSHFlexGrid1.ColAlignment(2) = 2
MSHFlexGrid1.ColAlignment(3) = 2
MSHFlexGrid1.ColAlignment(4) = 2
MSHFlexGrid1.ColAlignment(5) = 2
MSHFlexGrid1.ColAlignment(6) = 2
MSHFlexGrid1.ColAlignment(7) = 2
MSHFlexGrid1.ColAlignment(8) = 2
MSHFlexGrid1.ColAlignment(9) = 2
MSHFlexGrid1.ColAlignment(10) = 2
MSHFlexGrid1.ColAlignment(11) = 2
MSHFlexGrid1.ColAlignment(12) = 2
MSHFlexGrid1.ColWidth(0) = 5
MSHFlexGrid1.ColWidth(12) = 5
MSHFlexGrid1.ColWidth(10) = 5
End Sub
'**************************************
'* 功 能 描 述 :刷新窗体-显示记录
'* 输 入 参 数 :无
'* 输 出 能 数 :无
'**************************************
Private Sub sxjl()
Dim ret As Boolean
ret = m_stockstoreDAO.s_stockstore(m_recordset)
MSHFlexGrid1.clear
MSHFlexGrid1.Rows = 2
Call showform
With m_recordset
currentrow = 1
Do While Not .EOF
If currentrow > MSHFlexGrid1.Rows - 1 Then
MSHFlexGrid1.AddItem ""
End If
'[>>自定义填充内容
MSHFlexGrid1.TextMatrix(currentrow, 0) = Trim(.Fields("stockstoreid") & " ")
MSHFlexGrid1.TextMatrix(currentrow, 1) = Trim(.Fields("counterman") & " ")
MSHFlexGrid1.TextMatrix(currentrow, 2) = Trim(.Fields("inputman") & " ")
MSHFlexGrid1.TextMatrix(currentrow, 3) = Trim(.Fields("storenotenum") & " ")
Dim ret1 As Boolean
ret1 = m_supplierDAO.S_DanTiao(s_recordset, Trim(.Fields("supplierid")))
MSHFlexGrid1.TextMatrix(currentrow, 4) = Trim(s_recordset.Fields("supplier") & " ")
s_recordset.Close
MSHFlexGrid1.TextMatrix(currentrow, 5) = Trim(.Fields("storedate") & " ")
MSHFlexGrid1.TextMatrix(currentrow, 6) = Trim(.Fields("deliverydate") & " ")
MSHFlexGrid1.TextMatrix(currentrow, 7) = Trim(.Fields("superinrtendent") & " ")
MSHFlexGrid1.TextMatrix(currentrow, 8) = Trim(.Fields("phone"))
MSHFlexGrid1.TextMatrix(currentrow, 9) = Trim(.Fields("memo") & " ")
If Trim(.Fields("shhe")) = 1 Then
MSHFlexGrid1.TextMatrix(currentrow, 10) = "未审核"
ElseIf Trim(.Fields("shhe")) = 0 Then
MSHFlexGrid1.TextMatrix(currentrow, 10) = "已审核"
End If
Dim W As Boolean
W = m_warehouseDAO.FindById(w_recordset, Trim(.Fields("store")))
If W Then
MSHFlexGrid1.TextMatrix(currentrow, 11) = Trim(w_recordset.Fields("仓库名称"))
Else
MSHFlexGrid1.TextMatrix(currentrow, 11) = "无仓库"
End If
w_recordset.Close
MSHFlexGrid1.TextMatrix(currentrow, 12) = Trim(.Fields("supplierid"))
'<<]
'动态集指针加1,同时将计数器加1(Fixed)
currentrow = currentrow + 1
.MoveNext
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -