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 frmqyxx 
   Caption         =   "企業(yè)基本信息總覽"
   ClientHeight    =   6495
   ClientLeft      =   1575
   ClientTop       =   945
   ClientWidth     =   9315
   Icon            =   "frmqyxx.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   6495
   ScaleWidth      =   9315
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer1 
      Interval        =   500
      Left            =   8715
      Top             =   6315
   End
   Begin MSComctlLib.ProgressBar ProgressBar1 
      Height          =   375
      Left            =   630
      TabIndex        =   1
      Top             =   2925
      Visible         =   0   'False
      Width           =   8160
      _ExtentX        =   14393
      _ExtentY        =   661
      _Version        =   393216
      BorderStyle     =   1
      Appearance      =   1
      Min             =   1
   End
   Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1 
      DragIcon        =   "frmqyxx.frx":0442
      Height          =   6315
      Left            =   75
      TabIndex        =   0
      Top             =   60
      Width           =   9150
      _ExtentX        =   16140
      _ExtentY        =   11139
      _Version        =   393216
      BackColor       =   16777215
      ForeColor       =   0
      Cols            =   9
      FixedCols       =   0
      GridColor       =   12632256
      GridColorFixed  =   -2147483632
      WordWrap        =   -1  'True
      AllowBigSelection=   0   'False
      TextStyleFixed  =   3
      FocusRect       =   0
      HighLight       =   0
      AllowUserResizing=   1
      FormatString    =   "^企業(yè)編碼|^納稅人登記號|^企業(yè)名稱|^營業(yè)地址|^企業(yè)銀行帳號|^企業(yè)電話|^企業(yè)法人姓名|^企業(yè)注冊類型|^企業(yè)經(jīng)濟類型"
      _NumberOfBands  =   1
      _Band(0).Cols   =   9
      _Band(0).GridLineWidthBand=   1
      _Band(0).TextStyleBand=   0
   End
End
Attribute VB_Name = "frmqyxx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
ProgressBar1.Left = (Me.Width - ProgressBar1.Width) / 2
MSHFlexGrid1.Visible = False
MSHFlexGrid1.ColWidth(1) = 1500
MSHFlexGrid1.ColWidth(2) = 3200
MSHFlexGrid1.ColWidth(3) = 3200
MSHFlexGrid1.ColWidth(4) = 3200
MSHFlexGrid1.ColWidth(5) = 1800
End Sub

Private Sub Form_Resize()
On Error GoTo Form_Resize_Error
MSHFlexGrid1.Width = Me.Width - 100
MSHFlexGrid1.Height = Me.Height - 500
MSHFlexGrid1.Left = (Me.Width - MSHFlexGrid1.Width) / 2
MSHFlexGrid1.Top = (Me.Height - MSHFlexGrid1.Height) / 2 - 200
ProgressBar1.Left = (Me.Width - ProgressBar1.Width) / 2
Form_Resize_Error:
'避免負值錯誤
Resume Next

End Sub

Private Sub MSHFlexGrid1_DragDrop(Source As Control, x As Single, y As Single)
'-------------------------------------------------------------------------------------------
' 網(wǎng)格中 DragDrop, MouseDown, MouseMove, 和 MouseUp 事件代碼能進行列拖拽
'-------------------------------------------------------------------------------------------

    If m_iDragCol = -1 Then Exit Sub    ' 現(xiàn)在不能拖拽
    If MSHFlexGrid1.MouseRow <> 0 Then Exit Sub
    If MSHFlexGrid1.FixedCols = 1 And MSHFlexGrid1.MouseCol = 0 Then Exit Sub

    With MSHFlexGrid1
        .Redraw = False
        .ColPosition(m_iDragCol) = .MouseCol
        .Redraw = True
    End With

End Sub

Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
'-------------------------------------------------------------------------------------------
' 網(wǎng)格中 DragDrop, MouseDown, MouseMove, 和 MouseUp 事件代碼能進行列拖拽
'-------------------------------------------------------------------------------------------

    If MSHFlexGrid1.MouseRow <> 0 Then Exit Sub
    If MSHFlexGrid1.MouseCol = 0 And MSHFlexGrid1.FixedCols = 1 Then Exit Sub

    xdn = x
    ydn = y
    m_iDragCol = -1     ' 清除拖拽標志
    m_bDragOK = True

End Sub

Private Sub MSHFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
'-------------------------------------------------------------------------------------------
' 網(wǎng)格中 DragDrop, MouseDown, MouseMove, 和 MouseUp 事件代碼能進行列拖拽
'-------------------------------------------------------------------------------------------

    ' 測試是否能夠開始拖拽
    If Not m_bDragOK Then Exit Sub
    If Button <> 1 Then Exit Sub                        ' 錯誤按鈕
    If m_iDragCol <> -1 Then Exit Sub                   ' 已經(jīng)開始拖拽
    If Abs(xdn - x) + Abs(ydn - y) < 50 Then Exit Sub   ' 移得不夠
    If MSHFlexGrid1.MouseRow <> 0 Then Exit Sub         ' 必須拖拽標頭

    ' 如果到達這則開始拖拽
    m_iDragCol = MSHFlexGrid1.MouseCol
    MSHFlexGrid1.Drag vbBeginDrag

End Sub

Private Sub MSHFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
'-------------------------------------------------------------------------------------------
' 網(wǎng)格中 DragDrop, MouseDown, MouseMove, 和 MouseUp 事件代碼能進行列拖拽
'-------------------------------------------------------------------------------------------

    m_bDragOK = False

End Sub

Private Sub MSHFlexGrid1_DblClick()
'-------------------------------------------------------------------------------------------
' 網(wǎng)格的 DblClick 事件代碼能進行列排序
'-------------------------------------------------------------------------------------------

    Dim i As Integer

    ' 僅在單擊固定行時進行排序
    If MSHFlexGrid1.MouseRow >= MSHFlexGrid1.FixedRows Then Exit Sub

    i = m_iSortCol                  ' 保存舊列
    m_iSortCol = MSHFlexGrid1.Col   ' 設(shè)置新列

    ' 遞增排序類型
    If i <> m_iSortCol Then
        ' 如果在新的列上單擊鼠標，開始升序排序
        m_iSortType = 1
    Else
        ' 如果在相同列單擊鼠標，則進行升序和降序排序的轉(zhuǎn)換。
        m_iSortType = m_iSortType + 1
    If m_iSortType = 3 Then m_iSortType = 1
    End If

    DoColumnSort

End Sub

Sub DoColumnSort()
'-------------------------------------------------------------------------------------------
' 作 Exchange-type 排序在列 m_iSortCol
'-------------------------------------------------------------------------------------------

    With MSHFlexGrid1
        .Redraw = False
        .Row = 1
        .RowSel = .Rows - 1
        .Col = m_iSortCol
        .Sort = m_iSortType
        .Redraw = True
    End With

End Sub

'Private Sub Form_Resize()

 '   Dim sngButtonTop As Single
 '   Dim sngScaleWidth As Single
  '  Dim sngScaleHeight As Single
'
  '  On Error GoTo Form_Resize_Error
  '  With Me
    '    sngScaleWidth = .ScaleWidth
    '    sngScaleHeight = .ScaleHeight

        ' 移動“關(guān)閉”按鈕到右下角
        'With .cmdclose
              '  sngButtonTop = sngScaleHeight - (.Height + MARGIN_SIZE)
              '  .Move sngScaleWidth - (.Width + MARGIN_SIZE), sngButtonTop
        'End With

       ' .MSHFlexGrid1.Move MARGIN_SIZE, _
         '   MARGIN_SIZE, _
          '  sngScaleWidth - (2 * MARGIN_SIZE), _
          '  sngButtonTop - (2 * MARGIN_SIZE)

   ' End With
   ' Exit Sub

'Form_Resize_Error:
    ' 避免負值錯誤
   ' Resume Next

'End Sub


Private Sub Loadqy()
On Error Resume Next
MSHFlexGrid1.Visible = False
MSHFlexGrid1.ColWidth(1) = 1500
MSHFlexGrid1.ColWidth(2) = 3200
MSHFlexGrid1.ColWidth(3) = 3200
MSHFlexGrid1.ColWidth(4) = 3200
MSHFlexGrid1.ColWidth(5) = 1800
Dim db As Database, EF As Recordset, HH As Integer
Set db = OpenDatabase(ConData, False, False, ConStr)
Set EF = db.OpenRecordset("qyxx", dbOpenTable)
Set EF = db.OpenRecordset("Select * From qyxx Order by qyxx", dbOpenDynaset)
     HH = 1
 ProgressBar1.Visible = True
 ProgressBar1.Min = 1
 ProgressBar1.Max = EF.RecordCount
 ProgressBar1.Value = ProgressBar1.Min
 MSHFlexGrid1.Rows = EF.RecordCount + 1
  Do While Not EF.EOF()
           MSHFlexGrid1.Row = HH
           MSHFlexGrid1.Col = 0
           MSHFlexGrid1.CellAlignment = 1
        If Not IsNull(EF.Fields("qybm").Value) Then
           MSHFlexGrid1.Text = EF.Fields("qybm").Value
        End If
        
           MSHFlexGrid1.Col = 1
           MSHFlexGrid1.CellAlignment = 1
        If Not IsNull(EF.Fields("nsrdjh").Value) Then
           MSHFlexGrid1.Text = EF.Fields("nsrdjh").Value
        End If
        
           MSHFlexGrid1.Col = 2
           MSHFlexGrid1.CellAlignment = 1
        If Not IsNull(EF.Fields("qymc").Value) Then
           MSHFlexGrid1.Text = EF.Fields("qymc").Value
        End If
        
           MSHFlexGrid1.Col = 3
           MSHFlexGrid1.CellAlignment = 1
        If Not IsNull(EF.Fields("qydz").Value) Then
           MSHFlexGrid1.Text = EF.Fields("qydz").Value
        End If
        
           MSHFlexGrid1.Col = 4
           MSHFlexGrid1.CellAlignment = 1
        If Not IsNull(EF.Fields("qyyhzh").Value) Then
           MSHFlexGrid1.Text = EF.Fields("qyyhzh").Value
        End If
    
           MSHFlexGrid1.Col = 5
           MSHFlexGrid1.CellAlignment = 1
        If Not IsNull(EF.Fields("qydh").Value) Then
           MSHFlexGrid1.Text = EF.Fields("qydh").Value
        End If
        
           MSHFlexGrid1.Col = 6
           MSHFlexGrid1.CellAlignment = 1
        If Not IsNull(EF.Fields("qyfrxm").Value) Then
           MSHFlexGrid1.Text = EF.Fields("qyfrxm").Value
        End If
        
           MSHFlexGrid1.Col = 7
           MSHFlexGrid1.CellAlignment = 1
        If Not IsNull(EF.Fields("qyjjxz").Value) Then
           MSHFlexGrid1.Text = EF.Fields("qyjjxz").Value
        End If
        
           MSHFlexGrid1.Col = 8
           MSHFlexGrid1.CellAlignment = 1
        If Not IsNull(EF.Fields("qyjjlx").Value) Then
           MSHFlexGrid1.Text = EF.Fields("qyjjlx").Value
        End If
        
        'Text2 = EF.Fields("qymc").Value
        'nsrdjh = EF.Fields("nsrdjh").Value
        'qydz = EF.Fields("qydz").Value
        'qybm = EF.Fields("qybm").Value
        'qymc = EF.Fields("qymc").Value
        'qydh = EF.Fields("qydh").Value
        'qyyhzh = EF.Fields("qyyhzh").Value
        'qyjjxz = EF.Fields("qyjjxz").Value
        'qyjjlx = EF.Fields("qyjjlx").Value
        'qyfrxm = EF.Fields("qyfrxm").Value
        
        EF.MoveNext
        ProgressBar1.Value = HH
        HH = HH + 1
    Loop
        EF.Close
        db.Close
    ProgressBar1.Visible = False
    ProgressBar1.Value = ProgressBar1.Min
 
MSHFlexGrid1.Visible = True
End Sub

Private Sub Timer1_Timer()
  Loadqy
  Timer1.Enabled = False
End Sub