backgoodslistform.frm

即时通讯

         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} 
            Object.Visible         =   0   'False
            Caption         =   "帮助"
            Key             =   "bz"
         EndProperty
         BeginProperty Button32 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "tc"
            ImageKey        =   "tc"
         EndProperty
      EndProperty
      BorderStyle     =   1
      Begin VB.TextBox Text1 
         Alignment       =   1  'Right Justify
         Appearance      =   0  'Flat
         ForeColor       =   &H80000006&
         Height          =   270
         Left            =   7680
         TabIndex        =   2
         Text            =   "Text1"
         Top             =   120
         Width           =   975
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "统计"
         Height          =   180
         Left            =   0
         TabIndex        =   3
         Top             =   0
         Width           =   360
      End
   End
End
Attribute VB_Name = "backgoodslistform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*******************************************************
'*    模 块 名 称 :退货维护与管理
'*    功 能 描 述 :基本信息
'*    程序员姓名  :黄朝和
'*    最后修改人  :
'*    最后修改时间:2005/08/30
'*    备        注:
'*******************************************************
Option Explicit
Private m_backgoodsDAO As BackGoodsDAO
Private m_recordset As ADODB.Recordset
Private s_recordset As ADODB.Recordset
Private m_supplierDAO As supplierDAO
Private currentrow As Integer                       ' 增量指针
Public backname As String                           ' 选中的行
Public backgoodsid As String                        ' 取选中行的采购入库编号
Public backgoods_type As Integer                    ' backgoods_type=0--表示查看，，backgoods_type=1表示增加
Private m_warehouseDAO As WarehouseDAO
Private w_recordset As ADODB.Recordset
Public s_num As String                              '仓库编号
Private m_idList As String                 ' 在执行查询时查询到的ID列表字符串

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) = "供应商编号"
    
    '设置列对齐方式  7-右对齐 5-居中对齐 2-左对齐
    MSHFlexGrid1.ColAlignment(0) = 2
    MSHFlexGrid1.ColAlignment(1) = 2
    MSHFlexGrid1.ColAlignment(2) = 2
    MSHFlexGrid1.ColAlignment(3) = 2
    MSHFlexGrid1.ColAlignment(7) = 2
    MSHFlexGrid1.ColAlignment(8) = 2
    
    MSHFlexGrid1.ColAlignment(9) = 2
    MSHFlexGrid1.ColAlignment(4) = 2
    MSHFlexGrid1.ColAlignment(5) = 2
    MSHFlexGrid1.ColAlignment(6) = 2
    MSHFlexGrid1.ColAlignment(10) = 2
    MSHFlexGrid1.ColAlignment(11) = 2

    MSHFlexGrid1.ColWidth(0) = 5
    MSHFlexGrid1.ColWidth(11) = 5
End Sub


Private Sub sxjl()
        Dim ret As Boolean
        ret = m_backgoodsDAO.s_backgoods(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("backgoodsid"))
               MSHFlexGrid1.TextMatrix(currentrow, 1) = Trim(.Fields("counterman"))
               MSHFlexGrid1.TextMatrix(currentrow, 2) = Trim(.Fields("inputman"))
               MSHFlexGrid1.TextMatrix(currentrow, 3) = Trim(.Fields("backnotenum"))
               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("backdate"))
               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"))
               s_num = Trim(.Fields("store"))
                Dim w1 As Boolean
                    w1 = m_warehouseDAO.FindById(w_recordset, Trim(.Fields("store")))
                    MSHFlexGrid1.TextMatrix(currentrow, 10) = Trim(w_recordset.Fields("仓库名称"))
                    w_recordset.Close
               MSHFlexGrid1.TextMatrix(currentrow, 11) = Trim(.Fields("supplierid"))
               '<<]
        
               '动态集指针加1,同时将计数器加1(Fixed)
               .MoveNext
               currentrow = currentrow + 1
           Loop
      End With
      Text1.text = Trim(m_recordset.RecordCount)
      m_recordset.Close
End Sub

Private Sub Form_Load()
    SetToCenter Me
    Set m_warehouseDAO = New WarehouseDAO
    Set w_recordset = New ADODB.Recordset
    Set m_backgoodsDAO = New BackGoodsDAO
    Set m_recordset = New ADODB.Recordset
    Set m_supplierDAO = New supplierDAO
    Set s_recordset = New ADODB.Recordset
    Call showform
    Call sxjl
End Sub

Private Sub Form_Resize()
    MSHFlexGrid1.Height = Me.Height - 1400
    MSHFlexGrid1.Width = Me.Width - 350
    
    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_DblClick()
      backgoods_type = 0
    If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0)) <> "" Then
        backgoodsid = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0))
        backname = MSHFlexGrid1.RowSel
        BackGoods.show 1
    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"                                           ' 刷 新
             Call sxjl
        Case "yl"
             Call yl
        Case "xz"
            backgoods_type = 1
            BackGoods.show 1
            sxjl
        Case "tc"                                           ' 退 出
             Unload Me
        Case "cx"
            Call cxjl
    End Select
End Sub


Private Sub yl()
      backgoods_type = 0
    If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0)) <> "" Then
        backgoodsid = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0))
        backname = MSHFlexGrid1.RowSel
        BackGoods.show 1
    Else
        MainForm.g_msgText = "对不起您的操作有误，请重试！!"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
        Exit Sub
    End If
End Sub
Private Sub cxjl()
    QueryFom.m_currentQuery = QUERY_BACKGOODS
    QueryFom.m_operateType = 1
    QueryFom.show vbModal
    m_idList = MainForm.g_application.m_queryResultId
    
    RefreshQueryList       ' 显示查询到的结果
End Sub
Private Sub RefreshQueryList()
    Dim ret As Boolean
    
    ' 显示查询到的结果
    On Error GoTo EXITFUN
    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    InsertQueryIdList m_idList                             ' 把要显示的记录ID列表插入临时表
    ret = m_backgoodsDAO.backgoods_showoneList(m_recordset)    ' 查找记录
    
    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 提交事务
    
    MSHFlexGrid1.clear
    MSHFlexGrid1.Rows = 2
    Call showform
    If ret Then
        GetRecordToList m_recordset
    End If
    Text1.text = Trim(m_recordset.RecordCount)
    m_recordset.Close
    Exit Sub
    
EXITFUN:
    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans  ' 回滚事务
End Sub
'**************************************
'*    功 能 描 述 :从数据集中取出记录在列表中显示
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub GetRecordToList(recSet As ADODB.Recordset)
    Dim currentrow As Integer
    
    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("backgoodsid"))
            MSHFlexGrid1.TextMatrix(currentrow, 1) = Trim(.Fields("counterman"))
            MSHFlexGrid1.TextMatrix(currentrow, 2) = Trim(.Fields("inputman"))
            MSHFlexGrid1.TextMatrix(currentrow, 3) = Trim(.Fields("backnotenum"))
            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("backdate"))
            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"))
            Dim W As Boolean
                W = m_warehouseDAO.FindById(w_recordset, Trim(.Fields("store")))
           MSHFlexGrid1.TextMatrix(currentrow, 10) = Trim(w_recordset.Fields("仓库名称"))
           w_recordset.Close
           MSHFlexGrid1.TextMatrix(currentrow, 11) = Trim(.Fields("supplierid"))

            '<<]
            '设置数据行高度(Fixed)
            MSHFlexGrid1.RowHeight(currentrow) = 300
     
            '动态集指针加1,同时将计数器加1(Fixed)
            .MoveNext
            currentrow = currentrow + 1
        Loop
    End With
    Text1.text = Trim(m_recordset.RecordCount)
End Sub