+

VB开发的ERP系统

            .Find "itemcode='Chhs_Xtjc'"
            If Not .EOF Then
                .Fields("itemvalue") = Che_Xtjc.Value
                .Update
            End If
            .MoveFirst
            .Find "itemcode='Chhs_SFjezt'"
            If Not .EOF Then
                .Fields("itemvalue") = Che_Check(2).Value
                .Update
            End If
            .MoveFirst
            .Find "itemcode='Chhs_Eval1'"
            If Not .EOF Then
                If Opt_Zgcl(0).Value Then
                    .Fields("itemvalue") = 1
                Else
                    .Fields("itemvalue") = 0
                End If
                .Update
            End If
            .MoveFirst
            .Find "itemcode='Chhs_Eval2'"
            If Not .EOF Then
                If Opt_Zgcl(1).Value Then
                    .Fields("itemvalue") = 1
                Else
                    .Fields("itemvalue") = 0
                End If
                .Update
            End If
            .MoveFirst
            .Find "itemcode='Chhs_Eval3'"
            If Not .EOF Then
                If Opt_Zgcl(2).Value Then
                    .Fields("itemvalue") = 1
                Else
                    .Fields("itemvalue") = 0
                End If
                .Update
            End If
             .MoveFirst
            .Find "itemcode='Chhs_Lcbck1'"
            If Not .EOF Then
                If Opt_Ckfs(0).Value Then
                    .Fields("itemvalue") = 1
                Else
                    .Fields("itemvalue") = 0
                End If
                .Update
            End If
             .MoveFirst
            .Find "itemcode='Chhs_Lcbck2'"
            If Not .EOF Then
                If Opt_Ckfs(1).Value Then
                    .Fields("itemvalue") = 1
                Else
                    .Fields("itemvalue") = 0
                End If
                .Update
            End If
             .MoveFirst
            .Find "itemcode='Chhs_Lcbck3'"
            If Not .EOF Then
                If Opt_Ckfs(2).Value Then
                    .Fields("itemvalue") = 1
                Else
                    .Fields("itemvalue") = 0
                End If
                .Update
            End If
             .MoveFirst
            .Find "itemcode='Chhs_Lcbck4'"
            If Not .EOF Then
                If Opt_Ckfs(3).Value Then
                    .Fields("itemvalue") = 1
                Else
                    .Fields("itemvalue") = 0
                End If
                .Update
            End If
             .MoveFirst
            .Find "itemcode='Chhs_Lcbck5'"
            If Not .EOF Then
                If Opt_Ckfs(4).Value Then
                    .Fields("itemvalue") = 1
                Else
                    .Fields("itemvalue") = 0
                End If
                .Update
            End If
   End With
    
    Cw_DataEnvi.DataConnect.CommitTrans
    Set RecTemp = Nothing
    
    Tsxx = "保存完毕!"
    Call Xtxxts(Tsxx, 0, 4)
   
End Sub

Private Sub Che_Xtjc_Click()
    
    If Che_Xtjc.Value = 0 Then
       Che_Check(3).Value = 0
       Che_Check(3).Enabled = False
    Else
       Che_Check(3).Enabled = True
    End If

End Sub


Private Sub Form_KeyPress(KeyAscii As Integer)   '控 制 焦 点 转 移(Fixed)
    Dim jdzygs As Integer                         '控件焦点转移个数
    jdzygs = 30
    Select Case KeyAscii
        Case vbKeyReturn
            If Kjjdzy(jdzygs) Then
                KeyAscii = 0
            End If
        Case 39           '屏蔽"'"
            KeyAscii = 0
    End Select

End Sub

Private Sub Form_Load()
 
    '调 入 初 始 值
    Call Sub_Csdy

    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Chhs_YwfwEdit", Xtczybm, 1, True, False) Then
        Com_Save.Enabled = False
    End If
End Sub

Private Sub Com_Cancel_Click()

    Unload Me
  
End Sub

Private Sub Sub_Csdy()        '初始参数

    Dim RecTemp As Recordset
    Dim Rectempfz As Recordset
  
    Set RecTemp = Cw_DataEnvi.DataConnect.Execute("select * from Gy_AccInformation where SystemCode ='Chhs'")
   
    With RecTemp
 
        If Not .EOF Then
        
            '期末是否处理差异
            .MoveFirst
            .Find "itemcode='Chhs_Qmclcy'"
            If Not .EOF Then
                Che_Check(0).Value = .Fields("itemvalue")
            End If
          
            '系统是否处理暂估
            .MoveFirst
            .Find "itemcode='Chhs_Xtclzg'"
            If Not .EOF Then
                Che_Check(4).Value = .Fields("itemvalue")
            End If
            
            '系统集成
            .MoveFirst
            .Find "itemcode='Chhs_Xtjc'"
            If Not .EOF Then
                Che_Xtjc.Value = .Fields("itemvalue")
            End If
            
            If Che_Xtjc.Value = 0 Then
                Che_Check(3).Enabled = False
            End If
          
            '差异率计算是否包括暂估
            .MoveFirst
            .Find "itemcode='Chhs_Cylzg'"
            If Not .EOF Then
                Che_Check(1).Value = .Fields("itemvalue")
            End If
          
            '材料入库单是否是库房系统生成
            .MoveFirst
            .Find "itemcode='Chhs_ClrkdKfsc'"
            If Not .EOF Then
                Che_Check(3).Value = .Fields("itemvalue")
            End If
          
            
            '上次入库成本
            .MoveFirst
            .Find "itemcode='Chhs_Lcbck1'"
            If Not .EOF Then
                Opt_Ckfs(0).Value = .Fields("itemvalue")
            End If
          
            '上次出库成本
            .MoveFirst
            .Find "itemcode='Chhs_Lcbck2'"
            If Not .EOF Then
                Opt_Ckfs(1).Value = .Fields("itemvalue")
            End If
          
            '上次出库成本
            .MoveFirst
            .Find "itemcode='Chhs_Lcbck2'"
            If Not .EOF Then
                Opt_Ckfs(1).Value = .Fields("itemvalue")
            End If
          
            '参考成本
            .MoveFirst
            .Find "itemcode='Chhs_Lcbck3'"
            If Not .EOF Then
                Opt_Ckfs(2).Value = .Fields("itemvalue")
            End If
          
            '结存成本
            .MoveFirst
            .Find "itemcode='Chhs_Lcbck4'"
            If Not .EOF Then
                Opt_Ckfs(3).Value = .Fields("itemvalue")
            End If
          
            '手工输入
            .MoveFirst
            .Find "itemcode='Chhs_Lcbck5'"
            If Not .EOF Then
                Opt_Ckfs(4).Value = .Fields("itemvalue")
            End If
          
          
            '月初回冲
            .MoveFirst
            .Find "itemcode='Chhs_Eval1'"
            If Not .EOF Then
                Opt_Zgcl(0).Value = .Fields("itemvalue")
            End If
          
            '单到回冲
            .MoveFirst
            .Find "itemcode='Chhs_Eval2'"
            If Not .EOF Then
                Opt_Zgcl(1).Value = .Fields("itemvalue")
            End If
          
            '单到补差
            .MoveFirst
            .Find "itemcode='Chhs_Eval3'"
            If Not .EOF Then
                Opt_Zgcl(2).Value = .Fields("itemvalue")
            End If
        End If
        
    End With
    
    '开帐月份
    Txt_Qcyf.Text = StartMon
     
    '正常单据录入后，业务范围不能修改
    Set RecTemp = Cw_DataEnvi.DataConnect.Execute("select * from chhs_startinputmain ")
    If Not RecTemp.EOF Then
       Com_Save.Enabled = False
    End If
    
    Set RecTemp = Cw_DataEnvi.DataConnect.Execute("select * from gy_inoutmain ")
    If Not RecTemp.EOF Then
       Com_Save.Enabled = False
    End If
    Set RecTemp = Nothing
   
End Sub