【VB开源代码栏目提醒】：网学会员为需要VB开源代码的朋友们搜集整理了frmCKSetup.frm相关资料，希望对各位网友有所帮助!

    VERSION 5.00
    Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "Msflxgrd.ocx"
    Begin VB.Form frmCKSetup 
       Caption         =   "仓库设置信息列表"
       ClientHeight    =   6765
       ClientLeft      =   45
       ClientTop       =   345
       ClientWidth     =   8505
       LinkTopic       =   "Form1"
       MDIChild        =   -1  'True
       ScaleHeight     =   6765
       ScaleWidth      =   8505
       WindowState     =   2  'Maximized
       Begin MSFlexGridLib.MSFlexGrid msgList 
          Height          =   3132
          Left            =   120
          TabIndex        =   1
          Top             =   600
          Width           =   7452
          _ExtentX        =   13150
          _ExtentY        =   5530
          _Version        =   393216
          Cols            =   4
          FixedCols       =   3
          AllowUserResizing=   1
       End
       Begin VB.Label lblTitle 
          Caption         =   "仓  库  设  置  信  息  列  表"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   12
             Charset         =   134
             Weight          =   700
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          ForeColor       =   &H8000000D&
          Height          =   252
          Left            =   1680
          TabIndex        =   0
          Top             =   120
          Width           =   4212
       End
    End
    Attribute VB_Name = "frmCKSetup"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Option Explicit
    Public txtSQL As String
    Dim mrc As ADODB.Recordset
    '用户的读写权限标识
    Dim mintRW As Integer
    '状态条中显示的时间信息
    Public msBarText As String
    Public reportSQL As String
    Public Sub RecordFind()
        '
    End Sub
    Public Sub RecordRefresh()
           
        '显示数据
        msBarText = "当前数据时间范围：" & Format(DateAdd("m", -1, Now), "yyyy-mm-dd") & "至" & Format(Now, "yyyy-mm-dd")
        
        ShowData
    End Sub
    
    
    Public Sub RecordAdd()
        gintCKSmode = ADD
        frmCKSetup1.Show 1
        'ShowData
    End Sub
    
    
    '删除记录
    Public Sub RecordDelete()
        Dim sSQL As String
        Dim intCount As Integer
        Dim recTemp As ADODB.Recordset
        Dim MsgText As String
        
        
      On Error GoTo myErr
        
        If msgList.Rows > 1 Then
            If MsgBox("真的要删除仓库编号为" & Trim(msgList.TextMatrix(msgList.Row, 1)) & "的记录吗？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = msgList.Row
                
                sSQL = "select * from inh  full join outh on inh.ckdm = outh.ckdm full join kucun on inh.ckdm =kucun.ckdm full join zc zc1 on zc1.i_ckdm = inh.ckdm full join zc zc2 on zc2.o_ckdm = inh.ckdm where "
                sSQL = sSQL & "inh.ckdm = '" & Trim(msgList.TextMatrix(intCount, 1)) & "'"
                sSQL = sSQL & "or outh.ckdm = '" & Trim(msgList.TextMatrix(intCount, 1)) & "'"
                sSQL = sSQL & "or kucun.ckdm = '" & Trim(msgList.TextMatrix(intCount, 1)) & "'"
                sSQL = sSQL & "or zc1.i_ckdm = '" & Trim(msgList.TextMatrix(intCount, 1)) & "'"
                sSQL = sSQL & "or zc2.o_ckdm = '" & Trim(msgList.TextMatrix(intCount, 1)) & "'"
                
                Set recTemp = ExecuteSQL(sSQL, MsgText)
                If Not recTemp.EOF Then
                    MsgBox "数据库中存在与" & Trim(msgList.TextMatrix(intCount, 2)) & "相关的纪录，不能删除！", vbOKOnly, "警告"
                    Exit Sub
                Else
                    sSQL = "delete from dm_ck where dm ='" & Trim(msgList.TextMatrix(intCount, 1)) & "'"
                    Set recTemp = ExecuteSQL(sSQL, MsgText)
                End If
                    
                'Unload frmCKSetup
                'frmCKSetup.txtSQL = "select * from dm_ck"
                'frmCKSetup.Show
                ShowData
            End If
        End If
        
        Exit Sub
        
    myErr:
        ShowError
    End Sub
    
    Public Sub RecordEdit()
        Dim intCount As Integer
        
        If msgList.Rows > 1 Then
            gintCKSmode = EDIT
            intCount = msgList.Row
            If intCount > 0 Then
               frmCKSetup1.txtSQL = "select * from dm_ck where dm ='" & Trim(msgList.TextMatrix(intCount, 1)) & "'"
               frmCKSetup1.Show 1
            Else
                MsgBox "警告", vbOKOnly + vbExclamation, "请首先选择需要修改的纪录！"
            End If
            ShowData
        Else
            Call RecordAdd
        End If
    End Sub
    
    
    Private Sub Form_Activate()
        '设置读写权限
        SetWorkRW mintRW
        fMainForm.sbStatusBar.Panels(1).Text = msBarText
    End Sub
    
    Private Sub Form_Load()
        '用户操作权限
        Dim sPermission As String
        Dim recTemp As Recordset
        Dim sSQL As String
        Dim sByte As String
        Dim MsgText As String
        
      On Error GoTo myErr
        '设置操作的表名称
        'msTableName = "ampaytune"
        'msRptName = "paytune.rpt"
        'msOrderBy = " order by tzdate,tzid"
        'sOrder0 = "+ {tzdate}"
        'sOrder1 = "+ {tzid}"
        'msSelect = "select * from "
        
        '置mintRW初值
        mintRW = 0
        sSQL = "select rw from permission where module=10 and id='" & sUserName & " '"
        Set recTemp = ExecuteSQL(sSQL, MsgText)
        If recTemp.EOF = False Then
            mintRW = CInt(recTemp!rw)
        Else
            mintRW = ERRORMODE
            SetMdiEnv
            MsgBox "您的帐号权限有错误！", vbOKOnly + vbCritical, "错误"
            Exit Sub
        End If
        
    
        
        '设置msSql
            'msSql = msSelect & msTableName & " where tzdate>='" & Format(DateAdd("m", -1, Now), "yyyy-mm-dd") & "' and tzdate<='" & Format(Now, "yyyy-mm-dd") & "'" & msOrderBy
            
        '显示数据
        msBarText = "当前数据时间范围：" & Format(DateAdd("m", -1, Now), "yyyy-mm-dd") & "至" & Format(Now, "yyyy-mm-dd")
        ShowTitle
        ShowData
        
        Set recTemp = Nothing
        Exit Sub
        
    myErr:
        ShowError
    
    
    
    
    
    
    End Sub
    
    Private Sub Form_Resize()
        If Me.WindowState <> vbMinimized And fMainForm.