+

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            =   2855
      TabIndex        =   4
      Top             =   1380
      Width           =   1120
   End
   Begin VB.CommandButton BcCommand 
      Caption         =   "保存(&S)"
      Default         =   -1  'True
      Height          =   300
      Left            =   1650
      TabIndex        =   0
      Top             =   1380
      Width           =   1120
   End
   Begin VB.CheckBox Chk_MakerChecker 
      Caption         =   "制单、审核不为同一人"
      Height          =   255
      Left            =   240
      TabIndex        =   1
      Top             =   240
      Value           =   1  'Checked
      Width           =   2145
   End
   Begin VB.CheckBox Chk_PriceTax 
      Caption         =   "发票制作凭证时价税分开"
      Height          =   255
      Left            =   240
      TabIndex        =   3
      Top             =   900
      Value           =   1  'Checked
      Width           =   2415
   End
   Begin VB.CheckBox Chk_MakeClose 
      Caption         =   "本期单据全部生成凭证后才能月末结帐"
      Height          =   285
      Left            =   240
      TabIndex        =   2
      Top             =   555
      Value           =   1  'Checked
      Width           =   3465
   End
   Begin VB.Frame Frame4 
      Height          =   1245
      Left            =   60
      TabIndex        =   5
      Top             =   30
      Width           =   3915
   End
End
Attribute VB_Name = "JC_FrmSystemPara"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**********************************************************
'*    模 块 名 称 :系统参数设置
'*    功 能 描 述 :应收系统参数设置
'*    程序员姓名  :陈恩宇
'*    最后修改人  :陈恩宇
'*    最后修改时间:2001/12/05
'*    备        注:所有自定义部分程序均用[>> <<]括起
'**********************************************************

'以下为固定使用变量
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("AR_IsMakerNotChecker")     '制单审核不为同一人
    Chk_MakeClose = Fun_GetAccInformation("AR_IsSettleAfterVouch")       '本期单据全部生成凭证后才能月末结帐
    Chk_PriceTax = Fun_GetAccInformation("AR_IsInvPriceAndTax")          '发票制单时价税分开
    
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Ar_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='AR'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
         
         '制单审核不为同一人
         .MoveFirst
         .Find "Itemcode='AR_IsMakerNotChecker'"
         If Not .EOF Then
            .Fields("ItemValue") = Val(Me.Chk_MakerChecker.Value)
            .Update
         End If
         
         '本期单据全部生成凭证后才能月末结帐
         .MoveFirst
         .Find "Itemcode='AR_IsSettleAfterVouch'"
         If Not .EOF Then
            .Fields("ItemValue") = Val(Me.Chk_MakeClose.Value)
            .Update
         End If
         
         '发票制单时价税分开
         .MoveFirst
         .Find "Itemcode='AR_IsInvPriceAndTax'"
         If Not .EOF Then
            .Fields("ItemValue") = Val(Me.Chk_PriceTax.Value)
            .Update
         End If
         
    End With
   
   Tsxx = "保存完毕!"
   Call Xtxxts(Tsxx, 0, 4)
   
   '>>]
   
End Sub


Private Sub QxCommand_Click()
    Unload Me
End Sub