frmtest.frm

来自「该控件是一个针对Access 数据库而设计的查询/分组统计/打印/预览一体化控件」· FRM 代码 · 共 180 行

VERSION 5.00
Object = "{29CDCD61-7007-11D2-A0FC-000021031D59}#2.0#0"; "LOOKVIEW.OCX"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   5625
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7890
   LinkTopic       =   "Form1"
   ScaleHeight     =   5625
   ScaleWidth      =   7890
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame1 
      Height          =   975
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   7815
      Begin VB.CommandButton Command1 
         Caption         =   "预览"
         Height          =   375
         Index           =   0
         Left            =   120
         TabIndex        =   10
         Top             =   360
         Width           =   855
      End
      Begin VB.CommandButton Command1 
         Caption         =   "列表"
         Height          =   375
         Index           =   1
         Left            =   960
         TabIndex        =   9
         Top             =   360
         Width           =   855
      End
      Begin VB.CommandButton Command1 
         Caption         =   "打印"
         Height          =   375
         Index           =   2
         Left            =   2640
         TabIndex        =   8
         Top             =   360
         Width           =   855
      End
      Begin VB.CommandButton Command1 
         Caption         =   "边框"
         Height          =   375
         Index           =   3
         Left            =   1800
         TabIndex        =   7
         Top             =   360
         Width           =   855
      End
      Begin VB.CommandButton Command1 
         Caption         =   "字段"
         Height          =   375
         Index           =   4
         Left            =   3480
         TabIndex        =   6
         Top             =   360
         Width           =   855
      End
      Begin VB.CommandButton Command1 
         Caption         =   "汇总"
         Height          =   375
         Index           =   5
         Left            =   4320
         TabIndex        =   5
         Top             =   360
         Width           =   855
      End
      Begin VB.CommandButton Command1 
         Caption         =   "保存设置"
         Height          =   375
         Index           =   6
         Left            =   5160
         TabIndex        =   4
         Top             =   360
         Width           =   855
      End
      Begin VB.CommandButton Command1 
         Caption         =   "设置"
         Height          =   375
         Index           =   7
         Left            =   6000
         TabIndex        =   3
         Top             =   360
         Width           =   855
      End
      Begin VB.CommandButton Command1 
         Caption         =   "取出设置"
         Height          =   375
         Index           =   8
         Left            =   6840
         TabIndex        =   2
         Top             =   360
         Width           =   855
      End
   End
   Begin LookViewOCX.LookView LookView1 
      Height          =   4455
      Left            =   0
      TabIndex        =   0
      Top             =   1080
      Width           =   7815
      _ExtentX        =   13785
      _ExtentY        =   7858
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      AllowUpdate     =   0   'False
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click(Index As Integer)
  On Error Resume Next
  
  Select Case UCase(Index)
    Case 0
      LookView1.PrintView
    Case 1
      LookView1.NormalView "NORMAL"
    Case 3
      TableSet.Show 1
    Case 2
      LookView1.PrintPrint
    Case 4
      FrmVis.Show
    Case 5
      LookView1.NormalView "SUM"
    Case 6
      LookView1.SetSettings "a1.ini", ""
    Case 7
      SetPrn.Show 1
    Case 8
      LookView1.GetSettings "a1.ini", ""
  End Select
End Sub

Private Sub Form_Load()
  Set A_lookview = LookView1
  LookView1.SetFont "title", 3, True
  LookView1.SetData App.Path & "\rate.mdb", "domestic", ""
  LookView1.PaintIt
  LookView1.NormalView " "
End Sub
  
Private Sub Form_Resize()
  With LookView1
    .Width = IIf(Width - (.Left) * 2 > 0, Width - (.Left) * 2, 0)
    .Height = IIf(Height - (.Top) * 2 > 0, Height - (.Top) * 2, 0)
  End With
End Sub
  
Private Sub LookView1_Init()
  LookView1.MaxCols = 2
  LookView1.Title = "This is Print Title!!!"
  LookView1.SetCol 0, "区号", "num", "string", 1000, True, False, "", False
  LookView1.SetCol 1, "地名", "addr", "string", 1000, True, False, "", False
  LookView1.SetCol 2, "费率", "price", "number", 1000, True, False, "", True
End Sub

Private Sub LookView1_IsIncSearch(Yes As Boolean, Col As Long)
  Yes = True
End Sub