frmmain.frm

本系统是一个报表分析查询系统

VERSION 5.00
Object = "{4932CEF1-2CAA-11D2-A165-0060081C43D9}#2.0#0"; "Actbar2.OCX"
Object = "{7802D41A-28B0-43C4-95EA-17B7E32337D1}#1.0#0"; "CellCtrl5.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{498657BA-CC68-4655-A4F8-D1EF13326F8A}#1.0#0"; "MsSuperMenuXP.ocx"
Begin VB.Form frmMain 
   Caption         =   "Form1"
   ClientHeight    =   7950
   ClientLeft      =   60
   ClientTop       =   465
   ClientWidth     =   10545
   LinkTopic       =   "Form1"
   ScaleHeight     =   7950
   ScaleWidth      =   10545
   StartUpPosition =   2  '屏幕中心
   Begin MaximSuperMenu.SuperMenu frmMenu 
      Left            =   3360
      Top             =   2520
      _ExtentX        =   900
      _ExtentY        =   900
      BmpCount        =   2
      Bmp:1           =   "frmMain.frx":0000
      Mask:1          =   12632256
      Key:1           =   "#M_CellMrg"
      Bmp:2           =   "frmMain.frx":0352
      Mask:2          =   12632256
      Key:2           =   "#M_DisMrg"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      LicensedName    =   "冯孝刚"
      LicensedKey     =   "MSSMLNB471E504D43D53E3"
   End
   Begin MSComDlg.CommonDialog frmFontDiag 
      Left            =   5040
      Top             =   3720
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin TabDlg.SSTab frmTable 
      Height          =   7215
      Left            =   240
      TabIndex        =   2
      Top             =   240
      Width           =   9765
      _ExtentX        =   17224
      _ExtentY        =   12726
      _Version        =   393216
      Tabs            =   5
      Tab             =   4
      TabsPerRow      =   5
      TabHeight       =   520
      BackColor       =   16777215
      TabCaption(0)   =   "Tab 0"
      TabPicture(0)   =   "frmMain.frx":06A4
      Tab(0).ControlEnabled=   0   'False
      Tab(0).Control(0)=   "frmParam"
      Tab(0).ControlCount=   1
      TabCaption(1)   =   "Tab 1"
      TabPicture(1)   =   "frmMain.frx":06C0
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "frmReadme"
      Tab(1).Control(1)=   "frmHeadText"
      Tab(1).Control(2)=   "frmFooterText"
      Tab(1).Control(3)=   "frmHeadFooterText"
      Tab(1).Control(4)=   "frmHfAdd"
      Tab(1).Control(5)=   "frmHfDel"
      Tab(1).Control(6)=   "frmHfFont"
      Tab(1).ControlCount=   7
      TabCaption(2)   =   "Tab 2"
      TabPicture(2)   =   "frmMain.frx":06DC
      Tab(2).ControlEnabled=   0   'False
      Tab(2).Control(0)=   "frmCols"
      Tab(2).ControlCount=   1
      TabCaption(3)   =   "Tab 3"
      TabPicture(3)   =   "frmMain.frx":06F8
      Tab(3).ControlEnabled=   0   'False
      Tab(3).Control(0)=   "frmFind"
      Tab(3).ControlCount=   1
      TabCaption(4)   =   "Tab 4"
      TabPicture(4)   =   "frmMain.frx":0714
      Tab(4).ControlEnabled=   -1  'True
      Tab(4).Control(0)=   "frmRptTitle"
      Tab(4).Control(0).Enabled=   0   'False
      Tab(4).ControlCount=   1
      Begin CELL50Lib.Cell frmRptTitle 
         Height          =   2775
         Left            =   1320
         TabIndex        =   16
         Top             =   1800
         Width           =   5895
         _Version        =   65536
         _ExtentX        =   10398
         _ExtentY        =   4895
         _StockProps     =   0
      End
      Begin CELL50Lib.Cell frmFind 
         Height          =   2775
         Left            =   -72840
         TabIndex        =   15
         Top             =   1440
         Width           =   4215
         _Version        =   65536
         _ExtentX        =   7435
         _ExtentY        =   4895
         _StockProps     =   0
      End
      Begin CELL50Lib.Cell frmCols 
         Height          =   3135
         Left            =   -73920
         TabIndex        =   14
         Top             =   1440
         Width           =   5295
         _Version        =   65536
         _ExtentX        =   9340
         _ExtentY        =   5530
         _StockProps     =   0
      End
      Begin VB.CommandButton frmHfFont 
         Caption         =   "字体"
         Height          =   615
         Left            =   -67080
         TabIndex        =   13
         Top             =   6660
         Width           =   1335
      End
      Begin VB.CommandButton frmHfDel 
         Caption         =   "删除"
         Height          =   615
         Left            =   -69960
         TabIndex        =   12
         Top             =   6660
         Width           =   1335
      End
      Begin VB.CommandButton frmHfAdd 
         Caption         =   "增加"
         Height          =   615
         Left            =   -73200
         TabIndex        =   11
         Top             =   6660
         Width           =   1335
      End
      Begin CELL50Lib.Cell frmHeadFooterText 
         Height          =   4095
         Left            =   -74760
         TabIndex        =   10
         Top             =   3960
         Width           =   8775
         _Version        =   65536
         _ExtentX        =   15478
         _ExtentY        =   7223
         _StockProps     =   0
      End
      Begin VB.Frame frmFooterText 
         Caption         =   "页脚"
         Height          =   855
         Left            =   -74760
         TabIndex        =   8
         Top             =   2700
         Width           =   8775
         Begin VB.TextBox frmFooterContent 
            Appearance      =   0  'Flat
            Height          =   495
            Left            =   120
            TabIndex        =   9
            Top             =   240
            Width           =   8535
         End
      End
      Begin VB.Frame frmHeadText 
         Caption         =   "页眉"
         Height          =   855
         Left            =   -74760
         TabIndex        =   6
         Top             =   1740
         Width           =   8775
         Begin VB.TextBox frmHeadContent 
            Appearance      =   0  'Flat
            Height          =   495
            Left            =   120
            TabIndex        =   7
            Top             =   240
            Width           =   8535
         End
      End
      Begin VB.Frame frmReadme 
         Caption         =   "关键字说明"
         Height          =   975
         Left            =   -74760
         TabIndex        =   4
         Top             =   660
         Width           =   8775
         Begin VB.Label frmReadmeText 
            Caption         =   "报表名称："
            Height          =   495
            Left            =   2280
            TabIndex        =   5
            Top             =   360
            Width           =   3015
         End
      End
      Begin CELL50Lib.Cell frmParam 
         Height          =   2535
         Left            =   -73920
         TabIndex        =   3
         Top             =   1740
         Width           =   4335
         _Version        =   65536
         _ExtentX        =   7646
         _ExtentY        =   4471
         _StockProps     =   0
      End
   End
   Begin ActiveBar2LibraryCtl.ActiveBar2 SBar 
      Height          =   495
      Left            =   0
      TabIndex        =   1
      Top             =   7320
      Width           =   10455
      _LayoutVersion  =   1
      _ExtentX        =   18441
      _ExtentY        =   873
      _DataPath       =   ""
      Bands           =   "frmMain.frx":0730
   End
   Begin ActiveBar2LibraryCtl.ActiveBar2 TBar 
      Height          =   495
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   9615
      _LayoutVersion  =   1
      _ExtentX        =   16960
      _ExtentY        =   873
      _DataPath       =   ""
      Bands           =   "frmMain.frx":08F8
   End
   Begin VB.Menu M_Cell 
      Caption         =   "单元格"
      Visible         =   0   'False
      Begin VB.Menu M_CellMrg 
         Caption         =   "合并"
      End
      Begin VB.Menu M_DisMrg 
         Caption         =   "拆分"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private ImgPath As String
Private ImgStd As StdPicture
Private objRpt As Object

'//窗体初始化
Private Sub formInit()
 '//参数初始化
 ImgPath = App.Path & "\ResLib\"
 Set objRpt = CreateObject("StdRptBase.Rpt")
 Call objRpt.NewBill
 Set ImgStd = LoadPicture(ImgPath & "Title.Ico")
 With Me
  .Caption = TitleText
  Set .Icon = ImgStd
  .Width = Screen.Width
  .Height = Screen.Height * 0.9
 End With
 '//
 With TBar
  .Left = 0
  .Top = 0
  .Width = Me.ScaleWidth
  .Height = 720
 End With
 '//
 With SBar
  .Left = 0
  .Width = Me.ScaleWidth
  .Height = 350
  .Top = Me.ScaleHeight - .Height
  .Picture = LoadPicture(ImgPath & "SBarBack.Gif")
 End With
 '//
 With frmTable
  .Left = 0
  .Top = TBar.Top + TBar.Height
  .Width = Me.ScaleWidth
  .Height = SBar.Top - .Top
  '//
  .TabCaption(0) = "报表基本参数"
  .TabCaption(1) = "报表页眉页脚"
  .TabCaption(2) = "报表报表字段"
  .TabCaption(3) = "报表过滤条件"
  .TabCaption(4) = "报表表体标题"
  .TabEnabled(2) = False
  .TabEnabled(3) = False
  .TabEnabled(4) = False
 End With
 '//
 With frmParam
  .Left = fLeft
  .Top = frmTable.TabHeight
  .Width = Me.ScaleWidth - fLeft * 2
  .Height = SBar.Top - .Top
 End With
 '//关键字说明
 With frmReadme
  .Left = fLeft
  .Top = frmTable.TabHeight + fLeft
  .Width = Me.ScaleWidth - fLeft * 2
 End With
 frmReadmeText.Caption = "报表名称：^RptName        操作用户：^UserName        当前日期：^Date        当前时间：^Time" & Chr(13) & "当前页数：^Page           总页数：^TotalPage         过滤条件：^Sn(n表示过滤条件的位置)【同时|用!代替】"
 frmReadmeText.AutoSize = True
 '//页眉输入
 With frmHeadText
  .Left = fLeft
  .Top = frmReadme.Top + frmReadme.Height + fLeft
  .Width = Me.ScaleWidth - fLeft * 2
 End With
 With frmHeadContent
  .Left = 100
  .Width = frmHeadText.Width - 200
 End With
 '//页脚输入
 With frmFooterText
  .Left = fLeft
  .Top = frmHeadText.Top + frmHeadText.Height + fLeft
  .Width = Me.ScaleWidth - fLeft * 2
 End With
 With frmFooterContent
  .Left = 100
  .Width = frmFooterText.Width - 200
 End With
 '//页眉页脚内容
 With frmHeadFooterText
  .Left = fLeft
  .Top = frmFooterText.Top + frmFooterText.Height + fLeft
  .Width = Me.ScaleWidth - fLeft * 2
 End With
 '//操作按钮
 frmHfAdd.Top = frmHeadFooterText.Top + frmHeadFooterText.Height + fLeft
 frmHfDel.Top = frmHfAdd.Top
 frmHfFont.Top = frmHfAdd.Top
 '//字段控制表
 With frmCols
  .Left = fLeft
  .Top = frmTable.TabHeight
  .Width = Me.ScaleWidth - fLeft * 2
  .Height = SBar.Top - .Top
 End With
 '//搜索表
 With frmFind
  .Left = fLeft
  .Top = frmTable.TabHeight
  .Width = Me.ScaleWidth - fLeft * 2
  .Height = SBar.Top - .Top
 End With
 '//报表标题
 With frmRptTitle
  .Left = fLeft
  .Top = frmTable.TabHeight
  .Width = Me.ScaleWidth - fLeft * 2
  .Height = frmTable.Height - .Top
 End With
End Sub

'//初始化工具栏
Private Sub LoadTBar()
 TBar.UserDefinedCustomization = True
 '//
 Dim Tool As ActiveBar2LibraryCtl.Tool
 Dim Band As ActiveBar2LibraryCtl.Band
 '//
 Set ImgStd = LoadPicture(ImgPath & "TBarBk.jpg")
 With TBar
  .Picture = ImgStd
 End With
 '//
 Set Band = TBar.Bands.Add("TTBar")
 With Band
  .Caption = "TTBar"
  .Type = ddBTNormal
  .DockingArea = ddDATop
  .GrabHandleStyle = ddGSIE
  .MouseTracking = ddTSColor
 End With
 '//
 Set Tool = Band.Tools.Add(1, "TBase")
 With Tool
  .Caption = "参数"
  .Category = "TTBar"
  .ControlType = ddTTButton
  .Style = ddSIconText
  .CaptionPosition = ddCPBelow
  .SetPicture 0, LoadPicture(ImgPath & "Rpt_Parm.Ico"), &HFF8080
  .ToolTipText = "设计报表基本参数"
 End With
 '//
 Set Tool = Band.Tools.Add(2, "TTitle")
 With Tool
  .Caption = "表头"
  .Category = "TTBar"
  .ControlType = ddTTButton
  .Style = ddSIconText
  .CaptionPosition = ddCPBelow
  .SetPicture 0, LoadPicture(ImgPath & "Rpt_Head.Ico"), &HC0C0C0
  .ToolTipText = "设计表头参数"
 End With
 '//
 Set Tool = Band.Tools.Add(3, "TFeild")
 With Tool
  .Caption = "字段"
  .Category = "TTBar"
  .ControlType = ddTTButton