?? supplierlistform.frm
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -