+

VB开发的ERP系统

            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
End
Attribute VB_Name = "JC_FrmQclrwc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'********************************************************************
'*    模 块 名 称 :总帐期初录入完成
'*    功 能 描 述 :
'*    程序员姓名  :张建忠
'*    最后修改人  :张建忠
'*    最后修改时间:2001/11/27
'*    备        注:
'********************************************************************
Dim Ztxxrec As New ADODB.Recordset       '帐套信息动态集
Dim Int_Year As Integer                  '初始化完成会计年度
Dim Int_Period As Integer                '会计期间(默认为1会计期间)
Dim Int_SS_OK As Integer                 '试算是否平衡
Private Int_DZ_OK As Integer             '对帐是否正确
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)

Private Sub Form_Load()
    
    '初始化各种值
    cmdNext1.Default = True
    StTab.TabEnabled(0) = True
    StTab.TabEnabled(1) = False
    StTab.TabEnabled(2) = False
    StTab.TabEnabled(3) = False
    StTab.Tab = 0
    cmdPingHeng.Visible = False
    cmdDuiZhang.Visible = False
    
    '取出当前初始化完成年度
    Set Ztxxrec = Cw_DataEnvi.DataConnect.Execute("Select top 1 * From Gy_kjrlb Where Cwzzjzbz=0 Order by kjyear,period")
    With Ztxxrec
        If Not .EOF Then
            Dqkjyear = .Fields("Kjyear")
        End If
    End With
    Int_Year = Dqkjyear
    Int_Period = 1
    
    
    '调入打印页面设置窗体
    XtReportCode = "Cwzz_ymjz"
    Load Dyymctbl
    ReportTitle = "帐目对帐结果"
    
    '调 入 网 格
    GridCode = "Cwzz_ymjz"
    Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
    
    Qslz = GridInf(1)
    Sjhgd = GridInf(2)
    Sfxshjwg = GridInf(7)
    Szzls = CxbbGrid.Cols - 1
End Sub

'===================以下为向导按钮状态处理过程===================='
Private Sub cmdCancel1_Click()
    Unload Me
End Sub

Private Sub cmdCancel2_Click()
    Unload Me
End Sub

Private Sub cmdCancel3_Click()
    Unload Me
End Sub

'对帐过程处理

Private Sub Timer1_Timer()
    Timer1.Enabled = False
    cmdDuiZhang_Click
End Sub

Private Sub cmdDuiZhang_Click()
    Lab_Ccode.Visible = True
    lab_DZ_Res.Visible = False
    Label4.Visible = True
    Sub_AccCheck
    
    If Int_DZ_OK = 0 Then
        cmdNext3.Enabled = False
    End If
    
    Lab_Ccode.Visible = False
    lab_DZ_Res.Visible = True
    Label4.Visible = False
End Sub

Private Sub cmdNext1_Click()
    cmdNext2.Default = True
    
    StTab.TabEnabled(0) = False
    StTab.TabEnabled(1) = True
    StTab.TabEnabled(2) = False
    StTab.TabEnabled(3) = False
    StTab.Tab = 1
    cmdPingHeng_Click
End Sub

Private Sub cmdNext2_Click()
    cmdNext3.Default = True
    
    StTab.TabEnabled(0) = False
    StTab.TabEnabled(1) = False
    StTab.TabEnabled(2) = True
    StTab.TabEnabled(3) = False
    StTab.Tab = 2
    Timer1.Enabled = True
End Sub

Private Sub cmdNext3_Click()
    cmdExecute.Default = True
    
    StTab.TabEnabled(0) = False
    StTab.TabEnabled(1) = False
    StTab.TabEnabled(2) = False
    StTab.TabEnabled(3) = True
    StTab.Tab = 3
    
End Sub

'试算平衡处理过程
Private Sub cmdPingHeng_Click()
    Sub_PingHeng
    
    If Int_SS_OK = 0 Then
        cmdNext2.Enabled = False
    End If
End Sub

Private Sub cmdPrev2_Click()
    StTab.TabEnabled(0) = True
    StTab.TabEnabled(1) = False
    StTab.TabEnabled(2) = False
    StTab.TabEnabled(3) = False
    StTab.Tab = 0
End Sub

Private Sub cmdPrev3_Click()
    StTab.TabEnabled(0) = False
    StTab.TabEnabled(1) = True
    StTab.TabEnabled(2) = False
    StTab.TabEnabled(3) = False
    StTab.Tab = 1
End Sub

Private Sub cmdPrev4_Click()
    StTab.TabEnabled(0) = False
    StTab.TabEnabled(1) = False
    StTab.TabEnabled(2) = True
    StTab.TabEnabled(3) = False
    StTab.Tab = 2
End Sub

'试算平衡处理
Private Sub Sub_PingHeng()
    Dim Dbl_Qcye(4) As Double              '各类科目期初数据
    Dim Dbl_ZcQcye As Double               '资产类科目数据合计
    Dim Dbl_FzQcye As Double               '负债及所有者权益类科目数据合计
    Dim Dbl_Jflj As Double                 '借方累计
    Dim Dbl_Dflj As Double                 '贷方累计
    Dim Sqlstr As String                   '查询字符串
    Dim RecTemp As New ADODB.Recordset     '临时使用动态集
    
    
    Sqlstr = "SELECT Cwzz_AccCode.CClass, isnull(SUM(Cwzz_AccSum.Qcye),0) AS QcyeHj" & _
    " FROM Cwzz_AccSum LEFT OUTER JOIN Cwzz_AccCode ON Cwzz_AccSum.Ccode = Cwzz_AccCode.Ccode" & _
    " Where Cwzz_AccCode.EndFlag=1 And Year=" & Int_Year & " And Period=" & Int_Period & " GROUP BY Cclass"
    Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
    
    With RecTemp
        
        Do While Not .EOF
            
            Select Case Trim(.Fields("Cclass"))
            Case "资产"
                Dbl_Qcye(0) = .Fields("Qcyehj")
            Case "负债"
                Dbl_Qcye(1) = .Fields("Qcyehj")
            Case "所有者权益"
                Dbl_Qcye(2) = .Fields("Qcyehj")
            Case "成本"
                Dbl_Qcye(3) = .Fields("Qcyehj")
            Case "损益"
                Dbl_Qcye(4) = .Fields("Qcyehj")
            End Select
            
            .MoveNext
        Loop
        
    End With
    
    '显示数据
    For Jsqte = 0 To 4
        If Dbl_Qcye(Jsqte) > 0 Then
            Lab_Qcyesj(Jsqte).Caption = "借" & " " & Format(Dbl_Qcye(Jsqte), "##." + String(Xtjexsws, "0"))
        Else
            If Dbl_Qcye(Jsqte) = 0 Then
                Lab_Qcyesj(Jsqte).Caption = "平"
            Else
                Lab_Qcyesj(Jsqte).Caption = "贷" & " " & Format(-Dbl_Qcye(Jsqte), "##." + String(Xtjexsws, "0"))
            End If
        End If
    Next Jsqte
    
    '显示(资产+成本)合计数据
    
    Dbl_ZcQcye = Dbl_Qcye(0) + Dbl_Qcye(3)