+

VB开发的ERP系统

VERSION 5.00
Begin VB.Form JC_FrmSystemPara 
   Caption         =   "系统参数设置"
   ClientHeight    =   1740
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4035
   Icon            =   "基础设置_系统参数设置.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1740
   ScaleWidth      =   4035
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton QxCommand 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      Height          =   300
      Left            =   2850
      TabIndex        =   1
      Top             =   1380
      Width           =   1120
   End
   Begin VB.CommandButton BcCommand 
      Caption         =   "保存(&S)"
      Height          =   300
      Left            =   1650
      TabIndex        =   0
      Top             =   1380
      Width           =   1120
   End
   Begin VB.Frame Frame4 
      Height          =   1245
      Left            =   60
      TabIndex        =   2
      Top             =   30
      Width           =   3915
      Begin VB.CheckBox Chk_MakerChecker 
         Caption         =   "制单、审核不为同一人"
         Height          =   300
         Left            =   210
         TabIndex        =   5
         Top             =   210
         Width           =   2265
      End
      Begin VB.CheckBox Chk_InvPriceAndTax 
         Caption         =   "发票制作凭证时价税分开"
         Height          =   300
         Left            =   210
         TabIndex        =   4
         Top             =   525
         Width           =   2475
      End
      Begin VB.CheckBox Chk_SettleAfterVouch 
         Caption         =   "本期单据全部生成凭证后才能月末结帐"
         Height          =   300
         Left            =   210
         TabIndex        =   3
         Top             =   840
         Width           =   3645
      End
   End
End
Attribute VB_Name = "JC_FrmSystemPara"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'******************************************************************
'*    模 块 名 称 :系统参数设置
'*    功 能 描 述 :对应付系统设置系统参数
'*    程序员姓名  :陈恩宇
'*    最后修改人  :陈恩宇
'*    最后修改时间:2002/01/03
'*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
'******************************************************************

'以下为固定使用变量
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 BcCommand_Click()

   '保存用户设置
   Call Sub_SaveDefine
   
   '卸载窗体
   Unload Me
End Sub

Private Sub Form_Load()

    '[<<自定义
    '显示系统参数设置数据项
    Chk_MakerChecker = Fun_GetAccInformation("Ap_IsMakerNotChecker")            '制单审核不为同一人
    Chk_InvPriceAndTax = Fun_GetAccInformation("Ap_IsInvPriceAndTax")           '发票制单时价税分开
    Chk_SettleAfterVouch = Fun_GetAccInformation("Ap_IsSettleAfterVouch")       '本期单据全部生成凭证后才能月末结帐
    
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Ap_SystemPara_Edit", Xtczybm, 1, True, False) Then
        BcCommand.Enabled = False
    End If
    
    '>>]

End Sub

Private Sub Sub_SaveDefine()                   '1保存用户设置
    
    '[<<自定义
    
    Dim RecTemp As New ADODB.Recordset   '临时使用动态集
    Dim ItemName As String
    '保存网格设置
    With RecTemp
        If .State = 1 Then .Close
           
            .Open "Select * From gy_AccInformation Where SystemCode='AP'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
            
            .MoveFirst         '制单审核不为同一人
            .Find "Itemcode='Ap_IsMakerNotChecker'"
            If Not .EOF Then
               .Fields("ItemValue") = Val(Me.Chk_MakerChecker.Value)
               .Update
            End If
            
            .MoveFirst         '发票制单时价税分开
            .Find "Itemcode='Ap_IsInvPriceAndTax'"
            If Not .EOF Then
               .Fields("ItemValue") = Val(Me.Chk_InvPriceAndTax.Value)
               .Update
            End If
            
            .MoveFirst         '本期单据全部生成凭证后才能月末结帐
            .Find "Itemcode='Ap_IsSettleAfterVouch'"
            If Not .EOF Then
               .Fields("ItemValue") = Val(Me.Chk_SettleAfterVouch.Value)
               .Update
            End If
            
        End With
   
        Tsxx = "保存完毕!"
        Call Xtxxts(Tsxx, 0, 4)
   
   '>>]
   
End Sub


Private Sub QxCommand_Click()
    Unload Me
End Sub