frmmqsalesroom.frm

网上销售源代码

         EndProperty
         BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQSalesroom.frx":121D3
            Key             =   ""
         EndProperty
         BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQSalesroom.frx":1256D
            Key             =   ""
         EndProperty
         BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQSalesroom.frx":12907
            Key             =   ""
         EndProperty
         BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQSalesroom.frx":12C21
            Key             =   ""
         EndProperty
         BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMQSalesroom.frx":134FB
            Key             =   ""
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "frmMQSalesroom"
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

frmSalesroom.P_SID = fg.TextMatrix(fg.Row, 1)
frmSalesroom.tlbOperate.Buttons("update").Enabled = False
frmSalesroom.tlbOperate.Buttons("cancel").Enabled = False
If mrstDriveRoom.PageCount = 1 Then
    frmSalesroom.tlbOperate.Buttons("first").Enabled = False
    frmSalesroom.tlbOperate.Buttons("prev").Enabled = False
    frmSalesroom.tlbOperate.Buttons("next").Enabled = False
    frmSalesroom.tlbOperate.Buttons("last").Enabled = False
    frmSalesroom.tlbOperate.Buttons("cancel").Enabled = False
Else
    
End If

frmSalesroom.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"
            '添加
            frmSalesroom.P_SID = ""
            frmSalesroom.tlbOperate.Buttons("first").Enabled = False
            frmSalesroom.tlbOperate.Buttons("prev").Enabled = False
            frmSalesroom.tlbOperate.Buttons("next").Enabled = False
            frmSalesroom.tlbOperate.Buttons("last").Enabled = False
            frmSalesroom.Show 1
            
        Case "edit"
            '修改
            If fg.TextMatrix(fg.Row, 1) = "" Then
                Exit Sub
            End If
            
            frmSalesroom.P_SID = fg.TextMatrix(fg.Row, 1)
            frmSalesroom.tlbOperate.Buttons("first").Enabled = False
            frmSalesroom.tlbOperate.Buttons("prev").Enabled = False
            frmSalesroom.tlbOperate.Buttons("next").Enabled = False
            frmSalesroom.tlbOperate.Buttons("last").Enabled = False
            frmSalesroom.tlbOperate.Buttons("cancel").Enabled = False
            frmSalesroom.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 Department.DepartmentID as 门市编号,Department.DepartmentName as 门市简称,Department.DepartmentAllName as 门市全称," & _
      "Department.Superior as 上级部门,Department.DepartmentType as 门市类型,Department.Householder as 开户行,Department.Accounts as 帐号,Department.Aftertax as 税号,Department.Charter as 营业执照," & _
      "Department.ProtocolID as 协议编号,Department.IdiographDate as 签定日期,Department.EndDate as 终止日期,Department.AreaStorID as 区办编号,AreaStor.AreaStorName as 区办名称,Department.Class as 课,Department.Province as 省份,Department.City as 城市,Department.Linkman as 联系人," & _
      "Department.Principal as 负责人,Department.Phone as 电话,Department.Fax as 传真,Department.Email as 电子信箱,Department.Reticul as 网址,Department.Address as 地址,Department.Post as 邮政编码,Case Department.State " & _
      "When 0 then '否' When 1 then '是' end as 启用,Remark as 备注 " & _
      "from Department INNER JOIN " & _
      "AreaStor ON Department.AreaStorID = AreaStor.AreaStorID order by Department.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 = 28
    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