上传用户:zhpu1995
上传日期:2013-09-06
资源大小:61151k
文件大小:7k
源码类别:

企业管理

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Object = "{D76D7128-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "VSOCX7.OCX"
  3. Begin VB.Form XT_kjrlFrm 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "会计日历"
  6.    ClientHeight    =   4350
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   3735
  10.    Icon            =   "系统_会计日历.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4350
  15.    ScaleWidth      =   3735
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   2  '屏幕中心
  18.    Begin VB.CommandButton QdCommand 
  19.       Cancel          =   -1  'True
  20.       Caption         =   "确定(&O)"
  21.       Height          =   300
  22.       Left            =   2580
  23.       TabIndex        =   0
  24.       Top             =   3990
  25.       Width           =   1120
  26.    End
  27.    Begin VSFlex8Ctl.VSFlexGrid CzxsGrid 
  28.       Height          =   3855
  29.       Left            =   60
  30.       TabIndex        =   1
  31.       Top             =   60
  32.       Width           =   3615
  33.       _ExtentX        =   6376
  34.       _ExtentY        =   6800
  35.       Appearance      =   1
  36.       BorderStyle     =   1
  37.       Enabled         =   -1  'True
  38.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  39.          Name            =   "宋体"
  40.          Size            =   9
  41.          Charset         =   134
  42.          Weight          =   400
  43.          Underline       =   0   'False
  44.          Italic          =   0   'False
  45.          Strikethrough   =   0   'False
  46.       EndProperty
  47.       MousePointer    =   0
  48.       BackColor       =   -2147483643
  49.       ForeColor       =   -2147483640
  50.       BackColorFixed  =   -2147483633
  51.       ForeColorFixed  =   -2147483630
  52.       BackColorSel    =   -2147483635
  53.       ForeColorSel    =   -2147483634
  54.       BackColorBkg    =   8421504
  55.       BackColorAlternate=   -2147483643
  56.       GridColor       =   -2147483633
  57.       GridColorFixed  =   -2147483632
  58.       TreeColor       =   -2147483632
  59.       FloodColor      =   192
  60.       SheetBorder     =   -2147483642
  61.       FocusRect       =   1
  62.       HighLight       =   1
  63.       AllowSelection  =   -1  'True
  64.       AllowBigSelection=   -1  'True
  65.       AllowUserResizing=   0
  66.       SelectionMode   =   0
  67.       GridLines       =   1
  68.       GridLinesFixed  =   2
  69.       GridLineWidth   =   1
  70.       Rows            =   5000
  71.       Cols            =   10
  72.       FixedRows       =   1
  73.       FixedCols       =   0
  74.       RowHeightMin    =   0
  75.       RowHeightMax    =   0
  76.       ColWidthMin     =   0
  77.       ColWidthMax     =   0
  78.       ExtendLastCol   =   0   'False
  79.       FormatString    =   ""
  80.       ScrollTrack     =   0   'False
  81.       ScrollBars      =   3
  82.       ScrollTips      =   0   'False
  83.       MergeCells      =   0
  84.       MergeCompare    =   0
  85.       AutoResize      =   -1  'True
  86.       AutoSizeMode    =   0
  87.       AutoSearch      =   0
  88.       MultiTotals     =   -1  'True
  89.       SubtotalPosition=   1
  90.       OutlineBar      =   0
  91.       OutlineCol      =   0
  92.       Ellipsis        =   0
  93.       ExplorerBar     =   0
  94.       PicturesOver    =   0   'False
  95.       FillStyle       =   0
  96.       RightToLeft     =   0   'False
  97.       PictureType     =   0
  98.       TabBehavior     =   0
  99.       OwnerDraw       =   0
  100.       Editable        =   0   'False
  101.       ShowComboButton =   -1  'True
  102.       WordWrap        =   0   'False
  103.       TextStyle       =   0
  104.       TextStyleFixed  =   0
  105.       OleDragMode     =   0
  106.       OleDropMode     =   0
  107.       DataMode        =   0
  108.       VirtualData     =   -1  'True
  109.    End
  110. End
  111. Attribute VB_Name = "XT_kjrlFrm"
  112. Attribute VB_GlobalNameSpace = False
  113. Attribute VB_Creatable = False
  114. Attribute VB_PredeclaredId = True
  115. Attribute VB_Exposed = False
  116. '***********************************************
  117. '*    模 块 名 称 :系统会计日历表
  118. '*    功 能 描 述 :
  119. '*    程序员姓名  :张建忠
  120. '*    最后修改人  :张建忠
  121. '*    最后修改时间:2001/01/09
  122. '*    备        注:封版
  123. '***********************************************
  124. Dim SystemFinish As String           '系统结帐标志
  125.    
  126. '以下为固定使用变量
  127. Dim Cxnrrec As New ADODB.Recordset   '显示查询内容动态集
  128. Dim Dyymctbl As New DY_Dyymsz        '打印页面窗体变量
  129. Dim GridCode As String               '显示网格网格代码
  130. Dim GridInf() As Variant             '整个网格设置信息
  131. Dim Szbbzbt As String                '报表主标题
  132. Dim Tsxx As String                   '系统提示信息
  133. Dim Sfxshjwg As Boolean              '是否显示合计网格
  134. Dim Qslz As Long                     '网格隐藏(非操作显示)列数
  135. Dim Sjhgd As Double                  '网格数据行高度
  136. Dim GridBoolean() As Boolean         '网格列信息(布尔型)
  137. Dim GridStr()  As String             '网格列信息(字符型)
  138. Dim GridInt() As Integer             '网格列信息(整型)
  139. Dim Shsfts As Boolean                '删除记录行是否提示
  140. Dim Szzls As Integer                 '数组总列数(网格列数-1)
  141. Private Sub Form_Load()
  142.         
  143.     '设置系统结帐标志
  144.     SystemFinish = "Cwzzjzbz"        '系统结帐标志(Gy_Kjrlb中系统结帐标志字段名称)
  145.     
  146.     '调 入 网 格
  147.     GridCode = "Gy_kjrlb"
  148.     Call BzWgcsh(CzxsGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  149.     
  150.     Qslz = GridInf(1)
  151.     Sjhgd = GridInf(2)
  152.     Shsfts = GridInf(6)
  153.     Sfxshjwg = GridInf(7)
  154.     Szzls = CzxsGrid.Cols - 1
  155.     
  156.     '填 充 网 格
  157.     Call Cxnrtcwg
  158.     
  159. End Sub
  160. Private Sub Cxnrtcwg()                                     '查询内容填充网格
  161.     
  162.     Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute("select * from gy_kjrlb where kjyear='" + Trim(Str(Xtyear)) + "' order by period")
  163.     With Cxnrrec
  164.         If .EOF And .BOF Then
  165.             Exit Sub
  166.         Else
  167.             .MoveLast
  168.             CzxsGrid.Rows = .RecordCount + CzxsGrid.FixedRows
  169.             .MoveFirst
  170.         End If
  171.         Jsqte = CzxsGrid.FixedRows
  172.         Do While Not .EOF
  173.             If Jsqte >= CzxsGrid.Rows Then
  174.                 CzxsGrid.AddItem ""
  175.             End If
  176.             CzxsGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(Str(.Fields("kjyear"))) + "." + Mid(Trim(Str(100 + .Fields("period"))), 2, 2)
  177.             CzxsGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Format(.Fields("qsrq"), "yyyy-mm-dd")
  178.             CzxsGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Format(.Fields("zzrq"), "yyyy-mm-dd")
  179.             If .Fields(SystemFinish) Then
  180.                 CzxsGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = "√"
  181.             End If
  182.             CzxsGrid.RowHeight(Jsqte) = Sjhgd
  183.             .MoveNext
  184.             Jsqte = Jsqte + 1
  185.         Loop
  186.     End With
  187. End Sub
  188. Private Sub Form_Unload(Cancel As Integer)
  189.     Set cznrrec = Nothing
  190. End Sub
  191. Private Sub QdCommand_Click()                 '确 定
  192.     With CzxsGrid
  193.         If .Row >= .FixedRows Then
  194.             Xtfhcsfz = Trim(.TextMatrix(.Row, Qslz))
  195.             Xtfhcs = Trim(.TextMatrix(.Row, Qslz + 1))
  196.         End If
  197.     End With
  198.     Unload Me
  199. End Sub
  200. Private Sub QxCommand_Click()                 '取 消
  201.     Unload Me
  202. End Sub