📄 supplierlistform.frm

📁 即时通讯
💻 FRM
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
                   MSHFlexGrid1.TextMatrix(currentrow, 2) = Trim(.Fields("customer"))
                   MSHFlexGrid1.TextMatrix(currentrow, 3) = Trim(.Fields("accountsaddress"))
                   MSHFlexGrid1.TextMatrix(currentrow, 4) = Trim(.Fields("city"))
                   MSHFlexGrid1.TextMatrix(currentrow, 5) = Trim(.Fields("province"))
                   MSHFlexGrid1.TextMatrix(currentrow, 6) = Trim(.Fields("state"))
                   MSHFlexGrid1.TextMatrix(currentrow, 7) = Trim(.Fields("postcode"))
                   MSHFlexGrid1.TextMatrix(currentrow, 8) = Trim(.Fields("phone"))
                   MSHFlexGrid1.TextMatrix(currentrow, 9) = Trim(.Fields("fax"))
                   MSHFlexGrid1.TextMatrix(currentrow, 10) = Trim(.Fields("http"))
                   MSHFlexGrid1.TextMatrix(currentrow, 11) = Trim(.Fields("email"))
                   MSHFlexGrid1.TextMatrix(currentrow, 12) = Trim(.Fields("corporation"))
                   MSHFlexGrid1.TextMatrix(currentrow, 13) = Trim(.Fields("taxreceiptinfo"))
                   MSHFlexGrid1.TextMatrix(currentrow, 14) = Trim(.Fields("taxnum"))
                   MSHFlexGrid1.TextMatrix(currentrow, 15) = Trim(.Fields("address"))
                   MSHFlexGrid1.TextMatrix(currentrow, 16) = Trim(.Fields("banknum"))
                   If .Fields("gyslb") <> "" Then MSHFlexGrid1.TextMatrix(currentrow, 17) = Trim(.Fields("gyslb"))
                   If .Fields("khdj") <> "" Then MSHFlexGrid1.TextMatrix(currentrow, 18) = Trim(.Fields("khdj"))
                   If .Fields("khly") <> "" Then MSHFlexGrid1.TextMatrix(currentrow, 19) = Trim(.Fields("khly"))
                   MSHFlexGrid1.TextMatrix(currentrow, 20) = Trim(.Fields("gysh"))
                   MSHFlexGrid1.TextMatrix(currentrow, 21) = Trim(.Fields("gysmm"))
                   MSHFlexGrid1.TextMatrix(currentrow, 22) = Trim(.Fields("counterman"))
                   MSHFlexGrid1.TextMatrix(currentrow, 23) = Trim(.Fields("notedate"))
                   MSHFlexGrid1.TextMatrix(currentrow, 24) = Trim(.Fields("memo"))
                   MSHFlexGrid1.TextMatrix(currentrow, 25) = Trim(.Fields("hqapp"))
                   MSHFlexGrid1.TextMatrix(currentrow, 26) = Trim(.Fields("qualityapp"))
                   MSHFlexGrid1.TextMatrix(currentrow, 27) = Trim(.Fields("priceapp"))
                   MSHFlexGrid1.TextMatrix(currentrow, 28) = Trim(.Fields("jglspj"))
                   MSHFlexGrid1.TextMatrix(currentrow, 29) = Trim(.Fields("creditbrow"))
                   '<<]
        
                   '动态集指针加1,同时将计数器加1(Fixed)
                   currentrow = currentrow + 1
                End If
                .MoveNext
            Loop
        End With
        Text1.text = Trim(m_recordset.RecordCount)
        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) = "邮编"
        MSHFlexGrid1.TextMatrix(0, 8) = "电话号码"
        MSHFlexGrid1.TextMatrix(0, 9) = "传真号码"
        MSHFlexGrid1.TextMatrix(0, 10) = "网址"
        MSHFlexGrid1.TextMatrix(0, 11) = "电子邮件"
        MSHFlexGrid1.TextMatrix(0, 12) = "法人代表"
        MSHFlexGrid1.TextMatrix(0, 13) = "税票抬头"
        MSHFlexGrid1.TextMatrix(0, 14) = "税票税号"
        MSHFlexGrid1.TextMatrix(0, 15) = "联系地址"
        MSHFlexGrid1.TextMatrix(0, 16) = "开户帐号"
        MSHFlexGrid1.TextMatrix(0, 17) = "供应商类别"
        MSHFlexGrid1.TextMatrix(0, 18) = "客户等级"
        MSHFlexGrid1.TextMatrix(0, 19) = "客户来源"
        MSHFlexGrid1.TextMatrix(0, 20) = "供应商号"
        MSHFlexGrid1.TextMatrix(0, 21) = "供应商密码"
        MSHFlexGrid1.TextMatrix(0, 22) = "业务员"
        MSHFlexGrid1.TextMatrix(0, 23) = "记录时间"
        MSHFlexGrid1.TextMatrix(0, 24) = "备注"
        MSHFlexGrid1.TextMatrix(0, 25) = "货期评价"
        MSHFlexGrid1.TextMatrix(0, 26) = "质量评价"
        MSHFlexGrid1.TextMatrix(0, 27) = "价格评价"
        MSHFlexGrid1.TextMatrix(0, 28) = "加工历史评价"
        MSHFlexGrid1.TextMatrix(0, 29) = "总评价"
                                                                            '设置列对齐方式  7-右对齐 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.ColAlignment(13) = 2
        MSHFlexGrid1.ColAlignment(14) = 2
        MSHFlexGrid1.ColAlignment(15) = 2
        MSHFlexGrid1.ColAlignment(16) = 2
        MSHFlexGrid1.ColAlignment(17) = 2
        MSHFlexGrid1.ColAlignment(18) = 2
        MSHFlexGrid1.ColAlignment(19) = 2
        MSHFlexGrid1.ColAlignment(20) = 2
        MSHFlexGrid1.ColAlignment(21) = 2
        MSHFlexGrid1.ColAlignment(22) = 2
        MSHFlexGrid1.ColAlignment(23) = 2
        MSHFlexGrid1.ColAlignment(24) = 2
        MSHFlexGrid1.ColAlignment(25) = 8
        MSHFlexGrid1.ColAlignment(26) = 8
        MSHFlexGrid1.ColAlignment(27) = 8
        MSHFlexGrid1.ColAlignment(28) = 8
        MSHFlexGrid1.ColAlignment(29) = 8

        
        MSHFlexGrid1.ColWidth(0) = 5
End Sub

'**************************************
'*    功 能 描 述 :删除一条记录
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub delete()
    Dim f As Integer
    If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0)) = "" Then
        MainForm.g_msgText = "请选择一条记录!!"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
        Exit Sub
    End If
    MainForm.g_msgText = "确定删除这条记录吗？"
    f = HMsgBox(MainForm.g_msgText, 2, 1)
    If f = 1 Then
        m_supplierDAO.Deletesupplierid m_recordset, _
            Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0))
    End If
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
            Case "xz"
                newgoods.stockorder_form = 1
                c_suppliername1 = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 1))
                c_supplierid1 = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 0))
                newgoods.show 1
    End Select
End Sub

Private Sub cxjl()
    q = 1
    QueryFom.m_currentQuery = QUERY_SUPPLIERALL
    QueryFom.m_operateType = 1
    QueryFom.show vbModal
    m_idList = MainForm.g_application.m_queryResultId
    
    RefreshQueryList       ' 显示查询到的结果
    
End Sub
Private Sub RefreshQueryList()
    ' 显示查询到的结果
    On Error GoTo EXITFUN
    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    InsertQueryIdList m_idList                             ' 把要显示的记录ID列表插入临时表
    ret = m_supplierDAO.supplier_showinfoList(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
    '        hfg_houseList.Rows = m_recordset.RecordCount
        currentrow = 1
        Do While Not .EOF
            If currentrow > MSHFlexGrid1.Rows - 1 Then
                MSHFlexGrid1.AddItem ""
            End If
            
            '[>>自定义填充内容
            MSHFlexGrid1.TextMatrix(currentrow, 0) = Trim(.Fields("supplierid"))
            MSHFlexGrid1.TextMatrix(currentrow, 1) = Trim(.Fields("supplier"))
            MSHFlexGrid1.TextMatrix(currentrow, 2) = Trim(.Fields("customer"))
            MSHFlexGrid1.TextMatrix(currentrow, 3) = Trim(.Fields("accountsaddress"))
            MSHFlexGrid1.TextMatrix(currentrow, 4) = Trim(.Fields("city"))
            MSHFlexGrid1.TextMatrix(currentrow, 5) = Trim(.Fields("province"))
            MSHFlexGrid1.TextMatrix(currentrow, 6) = Trim(.Fields("state"))
            MSHFlexGrid1.TextMatrix(currentrow, 7) = Trim(.Fields("postcode"))
            MSHFlexGrid1.TextMatrix(currentrow, 8) = Trim(.Fields("phone"))
            MSHFlexGrid1.TextMatrix(currentrow, 9) = Trim(.Fields("fax"))
            MSHFlexGrid1.TextMatrix(currentrow, 10) = Trim(.Fields("http"))
            MSHFlexGrid1.TextMatrix(currentrow, 11) = Trim(.Fields("email"))
            MSHFlexGrid1.TextMatrix(currentrow, 12) = Trim(.Fields("corporation"))
            MSHFlexGrid1.TextMatrix(currentrow, 13) = Trim(.Fields("taxreceiptinfo"))
            MSHFlexGrid1.TextMatrix(currentrow, 14) = Trim(.Fields("taxnum"))
            MSHFlexGrid1.TextMatrix(currentrow, 15) = Trim(.Fields("address"))
            MSHFlexGrid1.TextMatrix(currentrow, 16) = Trim(.Fields("banknum"))
            If .Fields("gyslb") <> "" Then MSHFlexGrid1.TextMatrix(currentrow, 17) = Trim(.Fields("gyslb"))
            If .Fields("khdj") <> "" Then MSHFlexGrid1.TextMatrix(currentrow, 18) = Trim(.Fields("khdj"))
            If .Fields("khly") <> "" Then MSHFlexGrid1.TextMatrix(currentrow, 19) = Trim(.Fields("khly"))
            MSHFlexGrid1.TextMatrix(currentrow, 20) = Trim(.Fields("gysh"))
            MSHFlexGrid1.TextMatrix(currentrow, 21) = Trim(.Fields("gysmm"))
            MSHFlexGrid1.TextMatrix(currentrow, 22) = Trim(.Fields("counterman"))
            MSHFlexGrid1.TextMatrix(currentrow, 23) = Trim(.Fields("notedate"))
            MSHFlexGrid1.TextMatrix(currentrow, 24) = Trim(.Fields("memo"))
            MSHFlexGrid1.TextMatrix(currentrow, 25) = Trim(.Fields("hqapp"))
            MSHFlexGrid1.TextMatrix(currentrow, 26) = Trim(.Fields("qualityapp"))
            MSHFlexGrid1.TextMatrix(currentrow, 27) = Trim(.Fields("priceapp"))
            MSHFlexGrid1.TextMatrix(currentrow, 28) = Trim(.Fields("jglspj"))
            MSHFlexGrid1.TextMatrix(currentrow, 29) = Trim(.Fields("creditbrow"))
'            MSHFlexGrid1.TextMatrix(currentrow, 0) = Trim(.Fields("supplierid"))
'            MSHFlexGrid1.TextMatrix(currentrow, 1) = Trim(.Fields("supplier"))
'            MSHFlexGrid1.TextMatrix(currentrow, 2) = Trim(.Fields("customer"))
'            MSHFlexGrid1.TextMatrix(currentrow, 3) = Trim(.Fields("accountsaddress"))
'            MSHFlexGrid1.TextMatrix(currentrow, 4) = Trim(.Fields("city"))
'            MSHFlexGrid1.TextMatrix(currentrow, 6) = Trim(.Fields("province"))
'            MSHFlexGrid1.TextMatrix(currentrow, 5) = Trim(.Fields("state"))
'            MSHFlexGrid1.TextMatrix(currentrow, 7) = Trim(.Fields("postcode"))
'            MSHFlexGrid1.TextMatrix(currentrow, 8) = Trim(.Fields("phone"))
'            MSHFlexGrid1.TextMatrix(currentrow, 9) = Trim(.Fields("fax"))
'            MSHFlexGrid1.TextMatrix(currentrow, 10) = Trim(.Fields("http"))
'            MSHFlexGrid1.TextMatrix(currentrow, 11) = Trim(.Fields("email"))
'            MSHFlexGrid1.TextMatrix(currentrow, 12) = Trim(.Fields("corporation"))
'            MSHFlexGrid1.TextMatrix(currentrow, 13) = Trim(.Fields("taxreceiptinfo"))
'            MSHFlexGrid1.TextMatrix(currentrow, 14) = Trim(.Fields("taxnum"))
'            MSHFlexGrid1.TextMatrix(currentrow, 15) = Trim(.Fields("address"))
'            MSHFlexGrid1.TextMatrix(currentrow, 16) = Trim(.Fields("banknum"))
'            MSHFlexGrid1.TextMatrix(currentrow, 17) = Trim(.Fields("gyslb"))
'            MSHFlexGrid1.TextMatrix(currentrow, 18) = Trim(.Fields("khdj"))
'            MSHFlexGrid1.TextMatrix(currentrow, 19) = Trim(.Fields("khly"))
'            MSHFlexGrid1.TextMatrix(currentrow, 20) = Trim(.Fields("gysh"))
'            MSHFlexGrid1.TextMatrix(currentrow, 21) = Trim(.Fields("gysmm"))
'            MSHFlexGrid1.TextMatrix(currentrow, 22) = Trim(.Fields("counterman"))
'            MSHFlexGrid1.TextMatrix(currentrow, 23) = Trim(.Fields("notedate"))
'            MSHFlexGrid1.TextMatrix(currentrow, 24) = Trim(.Fields("memo"))
'            MSHFlexGrid1.TextMatrix(currentrow, 25) = Trim(.Fields("hqapp"))
'            MSHFlexGrid1.TextMatrix(currentrow, 26) = Trim(.Fields("qualityapp"))
'            MSHFlexGrid1.TextMatrix(currentrow, 27) = Trim(.Fields("priceapp"))
'            MSHFlexGrid1.TextMatrix(currentrow, 28) = Trim(.Fields("jglspj"))
'            MSHFlexGrid1.TextMatrix(currentrow, 29) = Trim(.Fields("creditbrow"))

            '<<]
            '设置数据行高度(Fixed)
            MSHFlexGrid1.RowHeight(currentrow) = 300
     
            '动态集指针加1,同时将计数器加1(Fixed)
            .MoveNext
            currentrow = currentrow + 1
        Loop
    End With
    
    Text1.text = Trim(m_recordset.RecordCount)
End Sub
上一页 1 23
💿 文件大小 2190 K
👤 上传用户 huanghuanl
📂 所属分类汇编语言
🏷️ 相关标签

#即时通讯
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -