📄 stockorderlistgoods.frm
字号:
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Caption = "新增"
Key = "xz"
Object.ToolTipText = "点击或按F5增加"
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "刷新"
Key = "sx"
ImageKey = "sx"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查询"
Key = "cx"
ImageKey = "cx"
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Caption = "修改"
Key = "xg"
Object.ToolTipText = "点击或按F3修改"
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Caption = "删除"
Key = "sc"
Object.ToolTipText = "点击或按Ctrl+D删除"
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Key = "fgh1"
Style = 3
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Caption = "增行"
Key = "zh"
Object.ToolTipText = "点击或按INSERT增行"
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Caption = "删行"
Key = "sh"
Object.ToolTipText = "点击或按DELETE删行"
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Key = "fgh2"
Style = 3
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Caption = "保存"
Key = "bc"
Object.ToolTipText = "点击或按F6保存"
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Caption = "放弃"
Key = "fq"
Object.ToolTipText = "点击或按Ctrl+Q放弃"
EndProperty
BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Key = "fgh3"
Style = 3
EndProperty
BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Caption = "审核"
Key = "shsh"
EndProperty
BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Caption = "弃审"
Key = "shqs"
EndProperty
BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Style = 3
EndProperty
BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Key = "fgh4"
Style = 3
EndProperty
BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Caption = "关闭"
Key = "close"
EndProperty
BeginProperty Button22 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Caption = "恢复"
Key = "cancel"
EndProperty
BeginProperty Button23 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Style = 3
EndProperty
BeginProperty Button24 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Caption = "引用"
Key = "yy"
EndProperty
BeginProperty Button25 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Key = "fg6"
Style = 3
EndProperty
BeginProperty Button26 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Caption = "首张"
Key = "first"
EndProperty
BeginProperty Button27 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Caption = "上张"
Key = "prev"
EndProperty
BeginProperty Button28 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Caption = "下张"
Key = "next"
EndProperty
BeginProperty Button29 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Caption = "末张"
Key = "last"
EndProperty
BeginProperty Button30 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Key = "fgh5"
Style = 3
EndProperty
BeginProperty Button31 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "bz"
Object.ToolTipText = "点击或按F1帮助"
ImageKey = "bz"
EndProperty
BeginProperty Button32 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "tc"
Object.ToolTipText = "点击或按Ctrl+X退出"
ImageKey = "tc"
EndProperty
EndProperty
BorderStyle = 1
End
End
Attribute VB_Name = "stockorderlistgoods"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*******************************************************
'* 模 块 名 称 :采购订单-供应商维护与管理
'* 功 能 描 述 :基本信息
'* 程序员姓名 :黄朝和
'* 最后修改人 :
'* 最后修改时间:2005/08/30
'* 备 注:
'*******************************************************
Option Explicit
Private m_stockorderDAO As stockorderDAO ' 客户数据库操作类
Private m_recordset As ADODB.Recordset ' 数据操作数据集对象
Private Sub Form_Load()
Call showform
Set m_recordset = New ADODB.Recordset
Set m_stockorderDAO = New stockorderDAO
Call sxjl
End Sub
Private Sub Tlb_Action_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "sx"
Call sxjl
Case "tc"
Unload Me
End Select
End Sub
Private Sub sxjl()
Dim currentrow As Integer
Dim s_stockorderid As String
s_stockorderid = stockorderlistsupplier.stockorderid
Dim ret As Boolean
ret = m_stockorderDAO.stockorderdetail_show(m_recordset, s_stockorderid)
MSHFlexGrid1.clear
Call showform
With m_recordset
currentrow = 1
Do While Not .EOF
MSHFlexGrid1.AddItem ""
'[>>自定义填充内容
MSHFlexGrid1.TextMatrix(currentrow, 0) = s_stockorderid
MSHFlexGrid1.TextMatrix(currentrow, 1) = Trim(.Fields("goodsid"))
MSHFlexGrid1.TextMatrix(currentrow, 2) = Trim(.Fields("unit"))
MSHFlexGrid1.TextMatrix(currentrow, 3) = Trim(.Fields("num"))
MSHFlexGrid1.TextMatrix(currentrow, 4) = Trim(.Fields("price"))
MSHFlexGrid1.TextMatrix(currentrow, 5) = Trim(.Fields("money"))
MSHFlexGrid1.TextMatrix(currentrow, 6) = Trim(.Fields("finishnum"))
MSHFlexGrid1.TextMatrix(currentrow, 7) = Trim(.Fields("memo"))
'<<]
'设置数据行高度(Fixed)
MSHFlexGrid1.RowHeight(currentrow) = 200
'动态集指针加1,同时将计数器加1(Fixed)
.MoveNext
currentrow = currentrow + 1
Loop
End With
m_recordset.Close
End Sub
Private Sub showform()
MSHFlexGrid1.TextMatrix(0, 0) = "采购订单编号" '初始化MSHFLexGrid1的各列的名称
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -