frmfields.frm

来自「通用书店管理系统」· FRM 代码 · 共 1,590 行 · 第 1/5 页

         frmBookType.txtFields(i).Enabled = True
       Next i
       
       
        frmBookType.blnAddNew = True
        frmBookType.Move 2500, 2000
        frmBookType.Show 1
    Case "图书销售价折扣"
       If Not checkpermission("书店管理系统", strUserName, , "基础设置.图书销售价折扣管理.新增") Then
           Exit Sub
        End If
       '清空文本框数据
       For i = 0 To frmBooksPriceDiscount.txtFields.UBound
         frmBooksPriceDiscount.txtFields(i).Text = ""
         frmBooksPriceDiscount.txtFields(i).Enabled = True
       Next i
       
        frmBooksPriceDiscount.txtFields(2).Text = Format(Date, "yyyy-mm-dd")
        frmBooksPriceDiscount.txtFields(3).Text = Format(Date, "yyyy-mm-dd")
        frmBooksPriceDiscount.txtFields(5).Text = "0.00"
        frmBooksPriceDiscount.txtFields(7).Text = "0.00"
        frmBooksPriceDiscount.blnAddNew = True
        frmBooksPriceDiscount.Move 2500, 2000
        frmBooksPriceDiscount.Show 1
    Case "库区管理"
       If Not checkpermission("书店管理系统", strUserName, , "基础设置.库区管理.新增") Then
           Exit Sub
        End If
       '清空文本框数据
       For i = 0 To frmStorageSection.txtFields.UBound
         frmStorageSection.txtFields(i).Text = ""
         frmStorageSection.txtFields(i).Enabled = True
       Next i
       
       
        frmStorageSection.blnAddNew = True
        frmStorageSection.Move 2500, 2000
        frmStorageSection.Show 1
    Case "入库类型"
       If Not checkpermission("书店管理系统", strUserName, , "基础设置.出(入)库类型管理.入库类型管理.新增") Then
           Exit Sub
        End If
       '清空文本框数据
       For i = 0 To frmInStorageType.txtFields.UBound
         frmInStorageType.txtFields(i).Text = ""
         frmInStorageType.txtFields(i).Enabled = True
       Next i
       
       
        frmInStorageType.blnAddNew = True
        frmInStorageType.Move 2500, 2000
        frmInStorageType.Show 1
     Case "出库类型"
       If Not checkpermission("书店管理系统", strUserName, , "基础设置.出(入)库类型管理.出库类型管理.新增") Then
           Exit Sub
       End If
       '清空文本框数据
       For i = 0 To frmOutStorageType.txtFields.UBound
         frmOutStorageType.txtFields(i).Text = ""
         frmOutStorageType.txtFields(i).Enabled = True
       Next i
       
       
        frmOutStorageType.blnAddNew = True
        frmOutStorageType.Move 2500, 2000
        frmOutStorageType.Show 1
    Case "会员有效期"
       If Not checkpermission("书店管理系统", strUserName, , "客户管理.会员项目设置.会员有效期设置.新增") Then
           Exit Sub
       End If
       '清空文本框数据
       For i = 0 To frmMemberAvailability.txtFields.UBound
         frmMemberAvailability.txtFields(i).Text = ""
         frmMemberAvailability.txtFields(i).Enabled = True
       Next i
       
       
        frmMemberAvailability.blnAddNew = True
        frmMemberAvailability.Move 2500, 2000
        frmMemberAvailability.Show 1
    Case "会员级别"
       If Not checkpermission("书店管理系统", strUserName, , "客户管理.会员项目设置.会员级别设置.新增") Then
           Exit Sub
       End If
       '清空文本框数据
       For i = 0 To frmMemberClass.txtFields.UBound
         frmMemberClass.txtFields(i).Text = ""
         frmMemberClass.txtFields(i).Enabled = True
       Next i
       
       
        frmMemberClass.blnAddNew = True
        frmMemberClass.Move 2500, 2000
        frmMemberClass.Show 1
    Case "会员类型"
       If Not checkpermission("书店管理系统", strUserName, , "客户管理.会员项目设置.会员类型设置.新增") Then
           Exit Sub
       End If
       '清空文本框数据
       For i = 0 To frmMemberType.txtFields.UBound
         frmMemberType.txtFields(i).Text = ""
         frmMemberType.txtFields(i).Enabled = True
       Next i
       
       
        frmMemberType.blnAddNew = True
        frmMemberType.Move 2500, 2000
        frmMemberType.Show 1
    Case "会员资料"
       If Not checkpermission("书店管理系统", strUserName, , "客户管理.会员资料管理.新增") Then
           Exit Sub
       End If
       '清空文本框数据
       For i = 0 To frmMemberData.txtFields.UBound
         frmMemberData.txtFields(i).Text = ""
         frmMemberData.txtFields(i).Enabled = True
       Next i
       
       
        frmMemberData.blnAddNew = True
       
        sqlstring = "select max(IntMemberNo) as aa from MemberData"
        Set rstmp = New ADODB.Recordset
        rstmp.Open sqlstring, cN, adOpenStatic, adLockReadOnly

        If rstmp.EOF Then
           intCode = 1
        Else
        intCode = IIf(IsNull(rstmp.Fields("aa").Value), "0", rstmp.Fields("aa").Value)
'        intCode = rstmp.Fields("aa").Value
        intCode = intCode + 1
        End If
        Set rstmp = Nothing
        frmMemberData.txtFields(0).Text = intCode
    
        frmMemberData.txtFields(3).Text = Format(Date, "yyyy-mm-dd")
        frmMemberData.txtFields(9).Text = Format(Date, "yyyy-mm-dd")
        frmMemberData.txtFields(10).Text = Format(Date, "yyyy-mm-dd")
        frmMemberData.txtFields(13).Text = strUserName
        frmMemberData.Move 2500, 2000
        frmMemberData.Show 1
    Case "员工资料管理"
        If Not checkpermission("书店管理系统", strUserName, , "基础设置.初期建帐管理.员工资料管理.新增") Then
           Exit Sub
       End If
         '清空文本框数据
        For i = 0 To frmEmployee.txtFields.UBound
          frmEmployee.txtFields(i).Text = ""
          frmEmployee.txtFields(i).Enabled = True
        Next i
        
        
        frmEmployee.blnAddNew = True
        frmEmployee.Move 2500, 2000
        frmEmployee.Show 1
    Case "使用单位设置"
        If Not checkpermission("书店管理系统", strUserName, , "基础设置.初期建帐管理.使用单位设置.新增") Then
           Exit Sub
       End If
         '清空文本框数据
        For i = 0 To frmCompany.txtFields.UBound
          frmCompany.txtFields(i).Text = ""
          frmCompany.txtFields(i).Enabled = True
        Next i
        
        
        frmCompany.blnAddNew = True
        frmCompany.Move 2500, 2000
        frmCompany.Show 1
  End Select
    
End Sub

Public Sub cmdCancel_Click()
  Unload Me
End Sub

Public Sub CmdDelete_Click()
   On Error GoTo DelErr
   Dim sqlstring As String
   
   Select Case strWindowCaption
      Case "出版社资料"
        If Not checkpermission("书店管理系统", strUserName, , "基础设置.出版社资料管理.删除") Then
           Exit Sub
        End If
        sqlstring = "Delete from PublishingCompanyData where chrCompanyNo='" & Trim(tdbField.Columns(0).Value) & "'"
      Case "供货商资料"
        If Not checkpermission("书店管理系统", strUserName, , "基础设置.供货商资料管理.删除") Then
           Exit Sub
        End If
        sqlstring = "Delete from ClientData where chrClientNo='" & Trim(tdbField.Columns(0).Value) & "'"
      Case "客户资料"
        If Not checkpermission("书店管理系统", strUserName, , "客户管理.客户资料管理.删除") Then
           Exit Sub
        End If
        sqlstring = "Delete from ClientData where chrClientNo='" & Trim(tdbField.Columns(0).Value) & "'"
      Case "制品分类"
        
        If Not checkpermission("书店管理系统", strUserName, , "基础设置.制品图书分类管理.制品分类.删除") Then
           Exit Sub
        End If
        sqlstring = "Delete from ProduceType where ChrProduceNo='" & Trim(tdbField.Columns(0).Value) & "'"
      Case "图书分类"
        If Not checkpermission("书店管理系统", strUserName, , "基础设置.制品图书分类管理.图书分类.删除") Then
           Exit Sub
        End If
        sqlstring = "Delete from BookType where chrBookTypeNo='" & Trim(tdbField.Columns(0).Value) & "'"
      Case "图书销售价折扣"
        If Not checkpermission("书店管理系统", strUserName, , "基础设置.图书销售价折扣管理.删除") Then
           Exit Sub
        End If
        sqlstring = "Delete from BooksPriceDiscount where chrBookNo='" & Trim(tdbField.Columns(0).Value) & "'"
      Case "库区管理"
        If Not checkpermission("书店管理系统", strUserName, , "基础设置.库区管理.删除") Then
           Exit Sub
        End If
        sqlstring = "Delete from StorageSection where ChrStorageNo='" & Trim(tdbField.Columns(0).Value) & "'"
      Case "入库类型"
        If Not checkpermission("书店管理系统", strUserName, , "基础设置.出(入)库类型管理.入库类型管理.删除") Then
           Exit Sub
        End If
        sqlstring = "Delete from InStorageType where ChrInStorageNo='" & Trim(tdbField.Columns(0).Value) & "'"
      Case "出库类型"
        If Not checkpermission("书店管理系统", strUserName, , "基础设置.出(入)库类型管理.出库类型管理.删除") Then
           Exit Sub
       End If
        sqlstring = "Delete from OutStorageType where ChrOutStorageNo='" & Trim(tdbField.Columns(0).Value) & "'"
      Case "会员有效期"
        If Not checkpermission("书店管理系统", strUserName, , "客户管理.会员项目设置.会员有效期设置.删除") Then
           Exit Sub
        End If
        sqlstring = "Delete from MemberAvailability where chrYXQ='" & Trim(tdbField.Columns(0).Value) & "'"
      Case "会员级别"
        
        If Not checkpermission("书店管理系统", strUserName, , "客户管理.会员项目设置.会员级别设置.删除") Then
            Exit Sub
        End If
        sqlstring = "Delete from MemberClass where ChrLevel='" & Trim(tdbField.Columns(0).Value) & "'"
      Case "会员类型"
        If Not checkpermission("书店管理系统", strUserName, , "客户管理.会员项目设置.会员类型设置.删除") Then
           Exit Sub
       End If
        sqlstring = "Delete from MemberType where ChrType='" & Trim(tdbField.Columns(0).Value) & "'"
      Case "会员资料"
        If Not checkpermission("书店管理系统", strUserName, , "客户管理.会员资料管理.删除") Then
           Exit Sub
       End If
        sqlstring = "Delete from MemberData where IntMemberNo=" & Trim(tdbField.Columns(0).Value)
      Case "员工资料管理"
        If Not checkpermission("书店管理系统", strUserName, , "基础设置.初期建帐管理.员工资料管理.删除") Then
           Exit Sub
       End If
        sqlstring = "Delete from tper_basEmployee where chrEmployeeid='" & Trim(tdbField.Columns(0).Value) & "'"
      Case "使用单位设置"
        If Not checkpermission("书店管理系统", strUserName, , "基础设置.初期建帐管理.使用单位设置.删除") Then
           Exit Sub
       End If
        sqlstring = "Delete from frmCompany where ChrCompanyNo='" & Trim(tdbField.Columns(0).Value) & "'"
   End Select
   
   If MsgBox("真的要删除 " & tdbField.Columns(0).Value & " " & tdbField.Columns(1).Value & " 的记录吗", vbYesNo) = vbYes Then
        cN.BeginTrans
       
        cN.Execute (sqlstring)
        tdbField.Delete
        
        cN.CommitTrans
        Call cmdRefresh_Click
        
   End If
   Exit Sub
DelErr:
   cN.RollbackTrans
   MsgBox "删除记录失败：" & err.Description, vbInformation
End Sub

Public Sub cmdEdit_Click()
    Dim i As Integer
    Dim sqlstring As String
    Dim rstmp As New ADODB.Recordset
    
'    setFormState (modEdit)
    
    Set rstmp = tdbField.DataSource
    Select Case strWindowCaption
      Case "出版社资料"
            If Not checkpermission("书店管理系统", strUserName, , "基础设置.出版社资料管理.修改") Then
               Exit Sub
            End If
            '绑定数据给文本框
            For i = 0 To FrmPublishingCompanyData.txtFields.UBound
              FrmPublishingCompanyData.txtFields(i).Text = ""
              If i = 0 Then
                FrmPublishingCompanyData.txtFields(i).Enabled = False
                FrmPublishingCompanyData.txtFields(i).BackColor = gColor_LockedText
              End If
              '如果记录为NULL则付空值
              FrmPublishingCompanyData.txtFields(i).Text = IIf(IsNull(rstmp.Fields(i).Value), "", rstmp.Fields(i).Value)
            Next i
            
            FrmPublishingCompanyData.blnAddNew = False
            FrmPublishingCompanyData.Move 2500, 2000
            FrmPublishingCompanyData.Show 1
       Case "供货商资料"
            If Not checkpermission("书店管理系统", strUserName, , "基础设置.供货商资料管理.修改") Then
               Exit Sub
            End If
            
            sqlstring = "select * from ClientData where intFlag=0 order by ChrClientNo"
            Set rstmp = New ADODB.Recordset
            rstmp.Open sqlstring, cN, adOpenStatic, adLockReadOnly
             
            If rstmp.EOF Then
               Exit Sub
            End If
            '绑定数据给文本框
            For i = 0 To frmClientData.txtFields.UBound