结算手续费.frm

财务信息管理系统,适合做毕业论文的人使用

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
Object = "{9ADF72AD-DDA9-11D1-9D4B-000021006D51}#1.2#0"; "UFSpGrid.ocx"
Begin VB.Form frmSettleCharge 
   Caption         =   "结算手续费"
   ClientHeight    =   4215
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8160
   LinkTopic       =   "Form2"
   MDIChild        =   -1  'True
   ScaleHeight     =   4215
   ScaleWidth      =   8160
   Begin MsSuperGrid.SuperGrid sgdSettleCharge 
      Height          =   2775
      Left            =   0
      TabIndex        =   1
      Top             =   1080
      Width           =   8160
      _ExtentX        =   14393
      _ExtentY        =   4895
      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
      EditBorderStyle =   0
      MouseIcon       =   "结算手续费.frx":0000
      ForeColorSel    =   -2147483634
      ForeColorFixed  =   -2147483630
      BackColorSel    =   -2147483635
      BackColorFixed  =   -2147483633
      AllowBigSelection=   0   'False
   End
   Begin MSComctlLib.Toolbar tlbAction 
      Align           =   1  'Align Top
      Height          =   630
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   8160
      _ExtentX        =   14393
      _ExtentY        =   1111
      ButtonWidth     =   820
      ButtonHeight    =   953
      AllowCustomize  =   0   'False
      Wrappable       =   0   'False
      Appearance      =   1
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   8
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "打印"
            Key             =   "Print"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "预览"
            Key             =   "Preview"
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "输出"
            Key             =   "Export"
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "查找"
            Key             =   "Find"
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "帮助"
            Key             =   "Help"
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "Exit"
         EndProperty
      EndProperty
   End
   Begin VB.Label lblNoBill 
      AutoSize        =   -1  'True
      Caption         =   "【包括未记账】"
      Height          =   195
      Left            =   3450
      TabIndex        =   13
      Top             =   3960
      Width           =   1260
   End
   Begin VB.Label lblEndDate 
      AutoSize        =   -1  'True
      Caption         =   "2001-01-02"
      Height          =   195
      Left            =   6015
      TabIndex        =   12
      Top             =   720
      Width           =   810
   End
   Begin VB.Label lblBeginDate 
      AutoSize        =   -1  'True
      Caption         =   "2002-01-01"
      Height          =   195
      Left            =   3615
      TabIndex        =   11
      Top             =   720
      Width           =   810
   End
   Begin VB.Label lblUnitName 
      AutoSize        =   -1  'True
      Caption         =   "用友软件"
      Height          =   195
      Left            =   1215
      TabIndex        =   10
      Top             =   720
      Width           =   720
   End
   Begin VB.Label lblPrintDate 
      AutoSize        =   -1  'True
      Caption         =   "2002-9-9"
      Height          =   195
      Left            =   7245
      TabIndex        =   9
      Top             =   3960
      Width           =   630
   End
   Begin VB.Label lblPrint 
      AutoSize        =   -1  'True
      Caption         =   "打印日期："
      Height          =   195
      Left            =   6165
      TabIndex        =   8
      Top             =   3960
      Width           =   900
   End
   Begin VB.Label lblBookName 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "制单人名"
      Height          =   195
      Left            =   1125
      TabIndex        =   7
      Top             =   3960
      Width           =   720
   End
   Begin VB.Label lblBook 
      AutoSize        =   -1  'True
      Caption         =   "制单："
      Height          =   195
      Left            =   285
      TabIndex        =   6
      Top             =   3960
      Width           =   540
   End
   Begin VB.Label lblMoneyUnit 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "单位：元"
      Height          =   195
      Left            =   7335
      TabIndex        =   5
      Top             =   720
      Width           =   735
   End
   Begin VB.Label lblEnd 
      AutoSize        =   -1  'True
      Caption         =   "结束日期："
      Height          =   195
      Left            =   4890
      TabIndex        =   4
      Top             =   720
      Width           =   900
   End
   Begin VB.Label lblBegin 
      AutoSize        =   -1  'True
      Caption         =   "开始日期："
      Height          =   195
      Left            =   2490
      TabIndex        =   3
      Top             =   720
      Width           =   900
   End
   Begin VB.Label lblUnit 
      AutoSize        =   -1  'True
      Caption         =   "单位名称："
      Height          =   195
      Left            =   90
      TabIndex        =   2
      Top             =   720
      Width           =   900
   End
End
Attribute VB_Name = "frmSettleCharge"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'SELECT COUNT(fd_transactions.settlestyle_flag) AS Expr1, fd_settle.charge,
'      fd_settle.settle_code, fd_settle.settle_code AS Expr2,
'      COUNT(fd_transactions.settlestyle_flag) * fd_settle.charge AS Expr3
'FROM fd_transactions INNER JOIN
'      fd_settle ON fd_transactions.settlestyle_flag = fd_settle.settle_code
'GROUP BY fd_settle.settle_code, fd_settle.charge

Private Sub Form_Load()
    With Me.sgdSettleCharge
        .Redraw = False
        .Cols = 5
        .FixedCols = 1
        .ColWidth(0) = 1000
        .ColWidth(1) = 1200
        .ColWidth(2) = 1200
        .ColWidth(3) = 1600
        .ColWidth(4) = 1600
        
        .Rows = 2
        .FixedRows = 1
        '初始化表头及对齐方式
        .TextMatrix(0, 0) = "结算方式"
        .ColAlignment(0) = UG_ALIGNLEFT
        '.JoinCells 0, 0, 1, 0, True
        
        .TextMatrix(0, 1) = "计费基准"
        .ColAlignment(1) = UG_ALIGNLEFT
        '.JoinCells 0, 1, 1, 1, True
         
        .TextMatrix(0, 2) = "结算笔数(票面金额)"
        .ColAlignment(2) = UG_ALIGNRIGHT
        '.JoinCells 0, 2, 1, 2, True
           
        .TextMatrix(0, 3) = "单价(计提比例：％)"
        .ColAlignment(3) = UG_ALIGNRIGHT
        '.JoinCells 0, 3, 1, 3, True
        
        .TextMatrix(0, 4) = "结算手续费"
        .ColAlignment(4) = UG_ALIGNRIGHT
        '.JoinCells 0, 4, 1, 4, True
                
        '.HeadForeColor = &H404040
'        .HeadFont.Name = "宋体"
'        .HeadFont.Size = 9
'        .HeadFont.Bold = True
'        .Redraw = True
    End With
End Sub