📄 stockorderlistsupplier.frm
字号:
Picture = "stockorderlistsupplier.frx":1202
Key = "sh"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":159C
Key = "bc"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":1936
Key = "fq"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":1CD0
Key = "bz"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":206A
Key = "tc"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":2404
Key = "bcgs"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":279E
Key = "mrlk"
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":2B38
Key = "xsxm"
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":2ED2
Key = "first"
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":326C
Key = "prev"
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":3606
Key = "next"
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":39A0
Key = "last"
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":3D3A
Key = "xx"
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":40D4
Key = "define"
EndProperty
BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":446E
Key = "exec"
EndProperty
BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":4808
Key = "xz"
EndProperty
BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":4BA2
Key = "sc"
EndProperty
BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":4F3C
Key = "sx"
EndProperty
BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":52D6
Key = "cx"
EndProperty
BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":5670
Key = "zd"
EndProperty
BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":5A0A
Key = "dz"
EndProperty
BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":5DA4
Key = "ph"
EndProperty
BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":613E
Key = "fz"
EndProperty
BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":64D8
Key = "dw"
EndProperty
BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":6872
Key = "hf"
EndProperty
BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":6C0C
Key = "pz"
EndProperty
BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":6FA6
Key = "check"
EndProperty
BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":7340
Key = "qs"
EndProperty
BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":76DA
Key = "fullcheck"
EndProperty
BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":7A74
Key = "qq"
EndProperty
BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":7E0E
Key = "bcw"
EndProperty
BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":81A8
Key = "ye"
EndProperty
BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":8542
Key = "close"
EndProperty
BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "stockorderlistsupplier.frx":88DC
Key = "yy"
EndProperty
EndProperty
End
End
Attribute VB_Name = "stockorderlistsupplier"
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 ' 数据操作数据集对象
Public stockorderid As String ' 定义一个采购订单的编号，全局变量
Public type_g As Integer ' 判断修改记录--，0--表示修改采购订单，1--表示增加采购订单
Public stockorderdetailid As String
Private currentrow As Integer ' 循环变量
Private m_supplierDAO As supplierDAO
Private s_recordset As ADODB.Recordset
Private g_recordset As ADODB.Recordset
Private q As Integer
Private m_idList As String ' 在执行查询时查询到的ID列表字符串
Private Sub Form_Load()
SetToCenter Me
Set g_recordset = New ADODB.Recordset
Set m_recordset = New ADODB.Recordset
Set m_stockorderDAO = New stockorderDAO
Set s_recordset = New ADODB.Recordset
Set m_supplierDAO = New supplierDAO
Tlb_Action.Buttons("bz").Enabled = False
Call showform
Call sxjl
End Sub
Private Sub Form_Resize()
MSHFlexGrid1.Height = Me.Height - 1420
MSHFlexGrid1.Width = Me.Width - 300
' Image1.Stretch = False
If (MSHFlexGrid1.Height > MSHFlexGrid1.Height - 300) Or (MSHFlexGrid1.Width > MSHFlexGrid1.Width - 200) Then
MSHFlexGrid1.Height = MSHFlexGrid1.Height + 400
MSHFlexGrid1.Width = MSHFlexGrid1.Width + 200
End If
End Sub
Private Sub MSHFlexGrid1_Click()
If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 10)) = "已审核" Then
If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 12)) = "已完成" Then
Tlb_Action.Buttons("bz").Enabled = False
Else
Tlb_Action.Buttons("bz").Enabled = True
End If
ElseIf Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 10)) = "未审核" Then
Tlb_Action.Buttons("bz").Enabled = False
End If
End Sub
Private Sub MSHFlexGrid1_DblClick()
type_g = 0
If MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 12) = "已完成" Then
MainForm.g_msgText = "该采购订单已经全部入库，不能修改！!"
Call HMsgBox(MainForm.g_msgText, 0, 1)
Exit Sub
End If
If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0)) <> "" Then
stockorderid = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0))
StockOrder.shhename = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 10)
StockOrder.order_suppliername = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 4)
StockOrder.zhtai = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 12))
StockOrder.show 1
If q = 1 Then
RefreshQueryList
Else
sxjl
End If
Else
MainForm.g_msgText = "对不起您的操作有误，请重试！!"
Call HMsgBox(MainForm.g_msgText, 0, 1)
Exit Sub
End If
End Sub
'**************************************
'* 功 能 描 述 :工具栏按钮的单击操作按钮
'* 输 入 参 数 :无
'* 输 出 能 数 :无
'**************************************
Private Sub Tlb_Action_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "sx" ' 刷 新
q = 0
Call sxjl
Case "xg"
type_g = 0
If MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 12) = "已完成" Then
MainForm.g_msgText = "该采购订单已经全部入库，不能修改！!"
Call HMsgBox(MainForm.g_msgText, 0, 1)
Exit Sub
End If
If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0)) <> "" Then
stockorderid = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0))
StockOrder.shhename = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 10)
StockOrder.order_suppliername = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 4)
StockOrder.zhtai = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 12))
StockOrder.show 1
If q = 1 Then
RefreshQueryList
Else
sxjl
End If
Else
MainForm.g_msgText = "对不起您的操作有误，请重试！!"
Call HMsgBox(MainForm.g_msgText, 0, 1)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -