www.pudn.com > netserver.zip > frmPrnBaoBiao.frm

VERSION 5.00 
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" 
Begin VB.Form frmPrnBaoBiao  
   Caption         =   "报表" 
   ClientHeight    =   5595 
   ClientLeft      =   60 
   ClientTop       =   345 
   ClientWidth     =   6525 
   Icon            =   "frmPrnBaoBiao.frx":0000 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   5595 
   ScaleWidth      =   6525 
   StartUpPosition =   3  '窗口缺省 
   WindowState     =   2  'Maximized 
   Begin VB.TextBox Text1  
      Alignment       =   2  'Center 
      Enabled         =   0   'False 
      Height          =   375 
      Left            =   0 
      TabIndex        =   4 
      Top             =   960 
      Width           =   6495 
   End 
   Begin MSComctlLib.ListView ListView1  
      Height          =   4215 
      Left            =   0 
      TabIndex        =   3 
      Top             =   1320 
      Width           =   6495 
      _ExtentX        =   11456 
      _ExtentY        =   7435 
      View            =   3 
      Arrange         =   1 
      LabelEdit       =   1 
      LabelWrap       =   -1  'True 
      HideSelection   =   -1  'True 
      FullRowSelect   =   -1  'True 
      GridLines       =   -1  'True 
      _Version        =   393217 
      ForeColor       =   -2147483640 
      BackColor       =   -2147483643 
      BorderStyle     =   1 
      Appearance      =   1 
      NumItems        =   0 
   End 
   Begin VB.CommandButton Command3  
      Caption         =   "关闭窗口" 
      Height          =   615 
      Left            =   3480 
      Picture         =   "frmPrnBaoBiao.frx":0442 
      Style           =   1  'Graphical 
      TabIndex        =   2 
      Top             =   120 
      UseMaskColor    =   -1  'True 
      Width           =   1215 
   End 
   Begin VB.CommandButton Command2  
      Caption         =   "详细内容" 
      Height          =   615 
      Left            =   2040 
      Picture         =   "frmPrnBaoBiao.frx":0544 
      Style           =   1  'Graphical 
      TabIndex        =   1 
      Top             =   120 
      UseMaskColor    =   -1  'True 
      Width           =   1215 
   End 
   Begin VB.CommandButton Command1  
      Caption         =   "打印报表" 
      Height          =   615 
      Left            =   480 
      Picture         =   "frmPrnBaoBiao.frx":0646 
      Style           =   1  'Graphical 
      TabIndex        =   0 
      Top             =   120 
      UseMaskColor    =   -1  'True 
      Width           =   1215 
   End 
End 
Attribute VB_Name = "frmPrnBaoBiao" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub Command1_Click() 
'Printer.Print ListView1 
 
 
End Sub 
 
Private Sub Command3_Click() 
Unload Me 
End Sub 
 
Private Sub Form_Resize() 
ListView1.Width = Me.Width - 120 
ListView1.Height = Me.Height - ListView1.Top - 400 
Text1.Width = Me.Width - 120 
End Sub