企业管理

开发平台：
Visual Basic

：源码内容
							VERSION 5.00
Object = "{D76D7128-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "VSOCX7.OCX"
Begin VB.Form XT_kjrlFrm 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "会计日历"
   ClientHeight    =   4350
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3735
   HelpContextID   =   130702
   Icon            =   "系统_会计日历.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4350
   ScaleWidth      =   3735
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton QdCommand 
      Cancel          =   -1  'True
      Caption         =   "确定(&O)"
      Height          =   300
      Left            =   2580
      TabIndex        =   0
      Top             =   3990
      Width           =   1120
   End
   Begin VSFlex8Ctl.VSFlexGrid CzxsGrid 
      Height          =   3855
      Left            =   60
      TabIndex        =   1
      Top             =   60
      Width           =   3615
      _ExtentX        =   6376
      _ExtentY        =   6800
      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       =   -2147483640
      BackColorFixed  =   -2147483633
      ForeColorFixed  =   -2147483630
      BackColorSel    =   -2147483635
      ForeColorSel    =   -2147483634
      BackColorBkg    =   8421504
      BackColorAlternate=   -2147483643
      GridColor       =   -2147483633
      GridColorFixed  =   -2147483632
      TreeColor       =   -2147483632
      FloodColor      =   192
      SheetBorder     =   -2147483642
      FocusRect       =   1
      HighLight       =   1
      AllowSelection  =   -1  'True
      AllowBigSelection=   -1  'True
      AllowUserResizing=   0
      SelectionMode   =   0
      GridLines       =   1
      GridLinesFixed  =   2
      GridLineWidth   =   1
      Rows            =   5000
      Cols            =   10
      FixedRows       =   1
      FixedCols       =   0
      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=   1
      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
End
Attribute VB_Name = "XT_kjrlFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***********************************************
'*    模 块 名 称 :系统会计日历表
'*    功 能 描 述 :
'*    程序员姓名  :张建忠
'*    最后修改人  :张建忠
'*    最后修改时间:2001/01/09
'*    备        注:封版
'***********************************************
Dim SystemFinish As String           '系统结帐标志
   
'以下为固定使用变量
Dim Cxnrrec As New ADODB.Recordset   '显示查询内容动态集
Dim Dyymctbl As New DY_Dyymsz        '打印页面窗体变量
Dim GridCode As String               '显示网格网格代码
Dim GridInf() As Variant             '整个网格设置信息
Dim Szbbzbt As String                '报表主标题
Dim Tsxx As String                   '系统提示信息
Dim Sfxshjwg As Boolean              '是否显示合计网格
Dim Qslz As Long                     '网格隐藏(非操作显示)列数
Dim Sjhgd As Double                  '网格数据行高度
Dim GridBoolean() As Boolean         '网格列信息(布尔型)
Dim GridStr()  As String             '网格列信息(字符型)
Dim GridInt() As Integer             '网格列信息(整型)
Dim Shsfts As Boolean                '删除记录行是否提示
Dim Szzls As Integer                 '数组总列数(网格列数-1)
Private Sub Form_Load()
        
    '设置系统结帐标志
    SystemFinish = "chhsjzbz"        '系统结帐标志(Gy_Kjrlb中系统结帐标志字段名称)
    
    '调 入 网 格
    GridCode = "Gy_kjrlb"
    Call BzWgcsh(CzxsGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
    
    Qslz = GridInf(1)
    Sjhgd = GridInf(2)
    Shsfts = GridInf(6)
    Sfxshjwg = GridInf(7)
    Szzls = CzxsGrid.Cols - 1
    
    '填 充 网 格
    Call Cxnrtcwg
    
End Sub
Private Sub Cxnrtcwg()                                     '查询内容填充网格
    
    Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute("select * from gy_kjrlb where kjyear='" + Trim(Str(Xtyear)) + "' order by period")
    With Cxnrrec
        If .EOF And .BOF Then
            Exit Sub
        Else
            .MoveLast
            CzxsGrid.Rows = .RecordCount + CzxsGrid.FixedRows
            .MoveFirst
        End If
        Jsqte = CzxsGrid.FixedRows
        Do While Not .EOF
            If Jsqte >= CzxsGrid.Rows Then
                CzxsGrid.AddItem ""
            End If
            CzxsGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(Str(.Fields("kjyear"))) + "." + Mid(Trim(Str(100 + .Fields("period"))), 2, 2)
            CzxsGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Format(.Fields("qsrq"), "yyyy-mm-dd")
            CzxsGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Format(.Fields("zzrq"), "yyyy-mm-dd")
            If .Fields(SystemFinish) Then
                CzxsGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = "√"
            End If
            CzxsGrid.RowHeight(Jsqte) = Sjhgd
            .MoveNext
            Jsqte = Jsqte + 1
        Loop
    End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Set cznrrec = Nothing
End Sub
Private Sub QdCommand_Click()                 '确 定
    With CzxsGrid
        If .Row >= .FixedRows Then
            Xtfhcsfz = Trim(.TextMatrix(.Row, Qslz))
            Xtfhcs = Trim(.TextMatrix(.Row, Qslz + 1))
        End If
    End With
    Unload Me
End Sub

						