企业管理

开发平台：
Visual Basic

：源码内容
							VERSION 5.00
Object = "{D76D7128-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "VSOCX7.OCX"
Begin VB.Form KF_FrmKjrlb 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "会计日历表"
   ClientHeight    =   4695
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4350
   HelpContextID   =   1220001
   Icon            =   "月末处理_会计日历表.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4695
   ScaleWidth      =   4350
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Com_Qx 
      Cancel          =   -1  'True
      Caption         =   "关闭(&C)"
      Height          =   300
      Left            =   3120
      TabIndex        =   0
      Top             =   4320
      Width           =   1120
   End
   Begin VSFlex8Ctl.VSFlexGrid vsFlx_Grid 
      Height          =   3765
      Left            =   105
      TabIndex        =   1
      Top             =   465
      Width           =   4140
      _ExtentX        =   7302
      _ExtentY        =   6641
      Appearance      =   1
      BorderStyle     =   1
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      MousePointer    =   0
      BackColor       =   -2147483643
      ForeColor       =   0
      BackColorFixed  =   -2147483633
      ForeColorFixed  =   -2147483630
      BackColorSel    =   -2147483635
      ForeColorSel    =   -2147483634
      BackColorBkg    =   -2147483636
      BackColorAlternate=   -2147483643
      GridColor       =   -2147483633
      GridColorFixed  =   -2147483632
      TreeColor       =   33023
      FloodColor      =   192
      SheetBorder     =   -2147483642
      FocusRect       =   1
      HighLight       =   1
      AllowSelection  =   0   'False
      AllowBigSelection=   0   'False
      AllowUserResizing=   0
      SelectionMode   =   0
      GridLines       =   1
      GridLinesFixed  =   2
      GridLineWidth   =   1
      Rows            =   50
      Cols            =   10
      FixedRows       =   1
      FixedCols       =   1
      RowHeightMin    =   0
      RowHeightMax    =   0
      ColWidthMin     =   0
      ColWidthMax     =   0
      ExtendLastCol   =   0   'False
      FormatString    =   ""
      ScrollTrack     =   0   'False
      ScrollBars      =   3
      ScrollTips      =   0   'False
      MergeCells      =   0
      MergeCompare    =   0
      AutoResize      =   -1  'True
      AutoSizeMode    =   0
      AutoSearch      =   0
      MultiTotals     =   -1  'True
      SubtotalPosition=   0
      OutlineBar      =   0
      OutlineCol      =   0
      Ellipsis        =   0
      ExplorerBar     =   0
      PicturesOver    =   0   'False
      FillStyle       =   0
      RightToLeft     =   0   'False
      PictureType     =   0
      TabBehavior     =   0
      OwnerDraw       =   0
      Editable        =   0   'False
      ShowComboButton =   -1  'True
      WordWrap        =   0   'False
      TextStyle       =   0
      TextStyleFixed  =   0
      OleDragMode     =   0
      OleDropMode     =   0
      DataMode        =   0
      VirtualData     =   -1  'True
   End
   Begin VB.Label Lbl_labTitle 
      AutoSize        =   -1  'True
      Caption         =   "当前会计年度:"
      Height          =   180
      Left            =   180
      TabIndex        =   3
      Top             =   150
      Width           =   1170
   End
   Begin VB.Label Lbl_labText 
      AutoSize        =   -1  'True
      Caption         =   "Label1"
      Height          =   180
      Left            =   1380
      TabIndex        =   2
      Top             =   150
      Width           =   540
   End
End
Attribute VB_Name = "KF_FrmKjrlb"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*******************************************************
'*    模 块 名 称 :会计日历表
'*    功 能 描 述 :会计日历表
'*    程序员姓名  :赵宇光
'*    最后修改人  :赵宇光
'*    最后修改时间:2001/12/19
'*    备        注:
'*******************************************************
'以下为固定使用变量
Dim ReportTitle As String                '报表主标题
Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
Dim GridCode As String                   '显示网格网格代码
Dim GridInf() As Variant                 '整个网格设置信息
Dim Tsxx As String                       '系统提示信息
Dim Qslz As Long                         '网格隐藏(非操作显示)列数
Dim Sjhgd As Double                      '网格数据行高度
Dim Sfxshjwg As Boolean                  '是否显示合计网格
Dim GridBoolean() As Boolean             '网格列信息(布尔型)
Dim GridStr()  As String                 '网格列信息(字符型)
Dim GridInt() As Integer                 '网格列信息(整型)
Dim Szzls As Integer                     '数组总列数(网格列数-1)
Dim jsqte%
Private Sub Com_Qx_Click()
  Unload Me
  
End Sub
Private Sub Form_Load()                                                   '窗体装入
  
  '调 入 网 格
    GridCode = "kf_KJRLB"
    Call BzWgcsh(vsFlx_Grid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
    
    Qslz = GridInf(1)
    Sjhgd = GridInf(2)
    Sfxshjwg = GridInf(7)
    Szzls = vsFlx_Grid.Cols - 1
    vsFlx_Grid.AllowUserResizing = flexResizeNone
    
    Call Sub_AddGrid
  
End Sub
Private Sub Sub_AddGrid()      '填充网格
    Dim RecTemp As Recordset
    Dim Dqrow As Long
    
    Lbl_labText = str(Xtyear) + "年"
    
    With vsFlx_Grid
    
        .Rows = .FixedRows
        Set RecTemp = Cw_DataEnvi.DataConnect.Execute("select * from gy_kjrlb  where kjyear='" & Xtyear & "' order by period")
        Do While Not RecTemp.EOF
            .AddItem ""
            .RowHeight(.Rows - 1) = Sjhgd
            .TextMatrix(.Rows - 1, Sydz("001", GridStr(), Szzls)) = "  " & Trim(RecTemp.Fields("Period"))
            .TextMatrix(.Rows - 1, Sydz("002", GridStr(), Szzls)) = Trim(RecTemp.Fields("qsrq"))
            .TextMatrix(.Rows - 1, Sydz("003", GridStr(), Szzls)) = Trim(RecTemp.Fields("zzrq"))
            If CBool(RecTemp.Fields("kfjzbz")) = True Then
                .TextMatrix(.Rows - 1, Sydz("004", GridStr(), Szzls)) = "√"
            Else
                .TextMatrix(.Rows - 1, Sydz("004", GridStr(), Szzls)) = ""
            End If
            RecTemp.MoveNext
        Loop
    End With
  
End Sub

						