frmmqclass.frm

网上销售源代码

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form frmMQClass 
   Caption         =   "课管理"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   WindowState     =   2  'Maximized
   Begin MSHierarchicalFlexGridLib.MSHFlexGrid fg 
      Height          =   8625
      Left            =   30
      TabIndex        =   0
      Top             =   600
      Width           =   15105
      _ExtentX        =   26644
      _ExtentY        =   15214
      _Version        =   393216
      Cols            =   7
      FormatString    =   $"frmMQClass.frx":0000
      _NumberOfBands  =   1
      _Band(0).Cols   =   7
   End
   Begin MSComctlLib.Toolbar tlbOperate 
      Height          =   540
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   15090
      _ExtentX        =   26617
      _ExtentY        =   953
      ButtonWidth     =   820
      ButtonHeight    =   953
      AllowCustomize  =   0   'False
      Wrappable       =   0   'False
      Style           =   1
      ImageList       =   "ImgOperation"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   18
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "新增"
            Style           =   3
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "新增"
            Key             =   "add"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "修改"
            Key             =   "edit"
            Object.ToolTipText     =   "修改"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "删除"
            Key             =   "del"
            Object.ToolTipText     =   "删除"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "搜索"
            Key             =   "search"
            ImageIndex      =   11
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "刷新"
            Key             =   "refresh"
            ImageIndex      =   12
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "首页"
            Key             =   "first"
            ImageIndex      =   13
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "前页"
            Key             =   "prev"
            ImageIndex      =   14
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "下页"
            Key             =   "next"
            ImageIndex      =   15
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "末页"
            Key             =   "last"
            ImageIndex      =   16
         EndProperty
         BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "预览"
            Key             =   "preview"
            Object.ToolTipText     =   "预览"
            ImageIndex      =   17
         EndProperty
         BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "打印"
            Key             =   "printout"
            Object.ToolTipText     =   "打印"
            ImageIndex      =   18
         EndProperty
         BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "关闭"
            Key             =   "quit"
            Object.ToolTipText     =   "关闭"
            ImageIndex      =   19
         EndProperty
         BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
      EndProperty
      OLEDropMode     =   1
   End
   Begin MSComctlLib.ImageList ImgOperation 
      Left            =   6510
      Top             =   390
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   19
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQClass.frx":00AF
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQClass.frx":5FF1
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQClass.frx":6CCB
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQClass.frx":89D5
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQClass.frx":95A7
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQClass.frx":C2B1
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQClass.frx":C5CB
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQClass.frx":CA1D
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQClass.frx":103DF
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQClass.frx":10979
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQClass.frx":10F13
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQClass.frx":117ED
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQClass.frx":11947
            Key             =   ""
         EndProperty
         BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQClass.frx":11CE1
            Key             =   ""
         EndProperty
         BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQClass.frx":1207B
            Key             =   ""
         EndProperty
         BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQClass.frx":12415
            Key             =   ""
         EndProperty
         BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQClass.frx":127AF
            Key             =   ""
         EndProperty
         BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQClass.frx":12AC9
            Key             =   ""
         EndProperty
         BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQClass.frx":133A3
            Key             =   ""
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "frmMQClass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public mintCurPage      As Integer      '当前页
Public mintPageSize     As Integer      '每页多少行
Public mrstDriveRoom    As Recordset

Private Sub fg_DblClick()
If fg.TextMatrix(fg.Row, 1) = "" Then
    Exit Sub
End If

frmClass.P_SID = fg.TextMatrix(fg.Row, 1)
frmClass.txtClass.Enabled = False
frmClass.cboTerritory.Enabled = False
frmClass.txtLinkman.Enabled = False
frmClass.txtPhone.Enabled = False
frmClass.txtReMark.Enabled = False
frmClass.tlbOperate.Buttons("update").Enabled = False
frmClass.tlbOperate.Buttons("cancel").Enabled = False
If mrstDriveRoom.PageCount = 1 Then
    frmClass.tlbOperate.Buttons("first").Enabled = False
    frmClass.tlbOperate.Buttons("prev").Enabled = False
    frmClass.tlbOperate.Buttons("next").Enabled = False
    frmClass.tlbOperate.Buttons("last").Enabled = False
    frmClass.tlbOperate.Buttons("cancel").Enabled = False
Else
    
End If

frmClass.Show 1

End Sub

Private Sub Form_Load()
    mintCurPage = 1
    mintPageSize = 1
    
    Initfg
    
    QuerySalesRoom
        
End Sub

Private Sub tlbOperate_ButtonClick(ByVal Button As MSComctlLib.Button)
     Select Case Button.Key
        Case "add"
            '添加
            frmClass.P_SID = ""
            frmClass.tlbOperate.Buttons("first").Enabled = False
            frmClass.tlbOperate.Buttons("prev").Enabled = False
            frmClass.tlbOperate.Buttons("next").Enabled = False
            frmClass.tlbOperate.Buttons("last").Enabled = False
            frmClass.Show 1
            
        Case "edit"
            '修改
            If fg.TextMatrix(fg.Row, 1) = "" Then
                Exit Sub
            End If
            
            frmClass.P_SID = fg.TextMatrix(fg.Row, 1)
            frmClass.tlbOperate.Buttons("first").Enabled = False
            frmClass.tlbOperate.Buttons("prev").Enabled = False
            frmClass.tlbOperate.Buttons("next").Enabled = False
            frmClass.tlbOperate.Buttons("last").Enabled = False
            frmClass.tlbOperate.Buttons("cancel").Enabled = False
            frmClass.Show 1

        Case "del"
            '删除
            If MsgBox("确实要删除吗！", vbYesNo, "询问") = vbYes Then
                Del (fg.TextMatrix(fg.Row, 1))
           End If
        Case "search"
            '搜索
            QuerySalesRoom
            
        Case "refresh"
            '刷新
            QuerySalesRoom
            
        Case "first"
            '首页
            mintCurPage = 1
            gFillFg fg, mrstDriveRoom, Me.tlbOperate.Buttons, mintCurPage, mintPageSize
            ShowID
            
        Case "prev"
            '前页
            If mintCurPage <= mrstDriveRoom.PageCount Then
                mintCurPage = mintCurPage - 1
                gFillFg fg, mrstDriveRoom, Me.tlbOperate.Buttons, mintCurPage, mintPageSize
                ShowID
            End If
            
        Case "next"
            '下页
            If mintCurPage + 1 <= mrstDriveRoom.PageCount Then
                mintCurPage = mintCurPage + 1
                gFillFg fg, mrstDriveRoom, Me.tlbOperate.Buttons, mintCurPage, mintPageSize
                ShowID
            End If
            
        Case "last"
            '末页
            mintCurPage = -1
            gFillFg fg, mrstDriveRoom, Me.tlbOperate.Buttons, mintCurPage, mintPageSize
            ShowID
            
        Case "preview"
            '预览
        
        Case "printout"
            '打印
            
        Case "quit"
            Unload Me
     End Select
End Sub

Public Sub Del(id As String)
'删除数据
On Error GoTo ErrShow
Dim sql As String
SQLDB.BeginTrans
    sql = "Delete Department Where DepartmentID='" & id & "'"
    SQLDB.Execute sql
SQLDB.CommitTrans

Initfg
QuerySalesRoom
MsgBox "删除成功", vbInformation, "提示"
Exit Sub
ErrShow:
    SQLDB.RollbackTrans
    MsgBox "删除" & id & "门市出错" & Err.Description, vbInformation, "提示"
    Exit Sub
End Sub

Public Sub QuerySalesRoom()
'查询所有门市信息
Dim sql As String

sql = "SELECT Class.AreaStorID AS 区办编号, AreaStor.AreaStorName AS 区办名称," & _
      "Class.Class AS 课, Class.Linkman AS 联系人, Class.Phone AS 电话," & _
      "Class.Remark AS 备注 " & _
      "FROM Class INNER JOIN " & _
      "AreaStor ON Class.AreaStorID = AreaStor.AreaStorID order by Class.id desc"
Set mrstDriveRoom = SQLDB.Execute(sql)
gFillFg fg, mrstDriveRoom, Me.tlbOperate.Buttons, mintCurPage, mintPageSize

fg.TextMatrix(0, 0) = "序号"
ShowID
End Sub

Public Sub Initfg()
    fg.Clear
    fg.Rows = 2
    fg.Cols = 7
    fg.FormatString = "序号  |<区办编号             |<区办名称                   |<课                     |<联系人                    |<电话                        |<备注                        "
    
    ShowID
End Sub

Public Sub ShowID()
Dim i As Integer

    '计算网格有多少行
    For i = 1 To fg.Rows - 1
        fg.TextMatrix(i, 0) = i
    Next
End Sub