📄 frmqyxx.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 frmqyxx
Caption = "企业基本信息总览"
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 = "^企业编码|^纳税人登记号|^企业名称|^营业地址|^企业银行帐号|^企业电话|^企业法人姓名|^企业注册类型|^企业经济类型"
_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)
'-------------------------------------------------------------------------------------------
' 网格中 DragDrop, MouseDown, MouseMove, 和 MouseUp 事件代码能进行列拖拽
'-------------------------------------------------------------------------------------------
If m_iDragCol = -1 Then Exit Sub ' 现在不能拖拽
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)
'-------------------------------------------------------------------------------------------
' 网格中 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)
'-------------------------------------------------------------------------------------------
' 网格中 DragDrop, MouseDown, MouseMove, 和 MouseUp 事件代码能进行列拖拽
'-------------------------------------------------------------------------------------------
' 测试是否能够开始拖拽
If Not m_bDragOK Then Exit Sub
If Button <> 1 Then Exit Sub ' 错误按钮
If m_iDragCol <> -1 Then Exit Sub ' 已经开始拖拽
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)
'-------------------------------------------------------------------------------------------
' 网格中 DragDrop, MouseDown, MouseMove, 和 MouseUp 事件代码能进行列拖拽
'-------------------------------------------------------------------------------------------
m_bDragOK = False
End Sub
Private Sub MSHFlexGrid1_DblClick()
'-------------------------------------------------------------------------------------------
' 网格的 DblClick 事件代码能进行列排序
'-------------------------------------------------------------------------------------------
Dim i As Integer
' 仅在单击固定行时进行排序
If MSHFlexGrid1.MouseRow >= MSHFlexGrid1.FixedRows Then Exit Sub
i = m_iSortCol ' 保存旧列
m_iSortCol = MSHFlexGrid1.Col ' 设置新列
' 递增排序类型
If i <> m_iSortCol Then
' 如果在新的列上单击鼠标，开始升序排序
m_iSortType = 1
Else
' 如果在相同列单击鼠标，则进行升序和降序排序的转换。
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
' 移动“关闭”按钮到右下角
'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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -