frmbook.frm

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

    SetToolBar ("1100X11X111X111X1")
    
'    If blnOK Then
'        tvwFile_NodeClick tvwFile.SelectedItem
'    End If
    
'    Select Case strParent '判断是否是根目录保存
'      Case "图书", "文具", "光盘", "音像" '根目录
'        If ShowRecord(strParent, 1) Then
'           setFormState (ModNormal)
'        End If
'      Case Else  '子目录
'        If ShowRecord(strParent, 0) Then
'           setFormState (ModNormal)
'        End If
'    End Select
    
'    blnIsModified = False
    
'    If blnIsModified And intFormState = modedit Then
'        If MsgBox("当前内容有修改，要放弃吗？", vbOKCancel, "警告") <> vbOK Then
'            Exit Sub
'        End If
'    End If
'
'    setFormState (modadd)
'
'    blnIsModified = False
End Sub

Public Sub cmdCancel_Click()
  Unload Me
End Sub

Public Sub CmdDelete_Click()
   On Error GoTo DelErr
   Dim sqlstring As String
   
   If Not checkpermission("书店管理系统", strUserName, , "基础设置.图书资料管理.删除") Then
           Exit Sub
        End If
   
   If MsgBox("真的要删除 " & tdbBook.Columns(0).Value & " " & tdbBook.Columns(1).Value & " 的记录吗", vbYesNo) = vbYes Then
        cN.BeginTrans
        
        sqlstring = "Delete from BookData where chrBookNo='" & Trim(tdbBook.Columns(0).Value) & "' and chrBookName='" & Trim(tdbBook.Columns(1).Value) & "'"
        
        cN.Execute (sqlstring)
        tdbBook.Delete
        
        cN.CommitTrans
   End If
   Exit Sub
DelErr:
   cN.RollbackTrans
   MsgBox "删除记录失败：" & err.Description, vbInformation
End Sub

Public Sub cmdEdit_Click()
    Dim i As Integer
    Dim frmB As frmBookInputL
    Dim blnOK As Boolean
    Dim strSQL As String
    Dim st As ADODB.Recordset
    
    If Not checkpermission("书店管理系统", strUserName, , "基础设置.出版社资料管理.修改") Then
           Exit Sub
        End If
        
    ' 设置当前光标行为选择行 lzw 2002-04
    tdbBook.SelBookmarks.Add (tdbBook.GetBookmark(0))

    If Not tdbBook.SelBookmarks.Count > 0 Then
        MsgBox "请首先选择一个记录，再执行修改功能。"
        Exit Sub
    End If
'    If Not InStr(1, tvwFile.SelectedItem.Text, "(") > 0 Then  ' 非子节点
'        Exit Sub
'    End If
'    setFormState (modedit)
'    blnIsModified = False           '初始状态，没做任何修改

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



    
    
    Set frmB = New frmBookInputL
    frmB.intStatus = 11
    frmB.strPreBookNo = tdbBook.Columns(0)
    frmB.strPreBookName = tdbBook.Columns(1)
    frmB.txtFields(0).Text = tdbBook.Columns(0) '  书号
    frmB.txtFields(1).Text = tdbBook.Columns(1) '  书名
'    If InStr(1, tvwFile.SelectedItem.Text, "(") > 0 Then  ' 子节点
        i = InStr(1, tvwFile.SelectedItem.Text, " ")
        'frmB.txtFields(2).Text = tvwFile.SelectedItem.Parent.Text ' 制品类型
        frmB.txtFields(2).Text = tdbBook.Columns(2).Text   ' 制品类型
        'frmB.txtFields(3).Text = Mid(tvwFile.SelectedItem.Text, 1, i - 1) ' 图书类型
        frmB.txtFields(3).Text = tdbBook.Columns(3).Text      ' 图书类型
'    Else                                                    ' 根节点
'        frmB.txtFields(2).Text = tvwFile.SelectedItem.Text
'        frmB.txtFields(3).Text = ""
'    End If
    frmB.txtFields(4).Text = tdbBook.Columns(4) '  作者
    frmB.txtFields(5).Tag = tdbBook.Columns(5) '  出版社代码
    frmB.txtFields(5).Text = tdbBook.Columns(6) '  出版社名称
'    Set st = New ADODB.Recordset
'    strSql = "select chrCompanyNo,ChrCompanyName from PublishingCompanyData" _
'        & " where "
    If Trim(tdbBook.Columns(7)) = "" Then
        frmB.DTP1.Value = "1900-01-01"
    Else
        frmB.DTP1.Value = Format(Trim(tdbBook.Columns(7)), "yyyy-mm-dd") '  出版日期
    End If
    frmB.txtFields(6).Text = tdbBook.Columns(8) '  印次
    frmB.txtFields(7).Text = tdbBook.Columns(9) '  开本
    frmB.txtFields(8).Text = tdbBook.Columns(10) '  装订方式
    frmB.txtFields(9).Text = Format(tdbBook.Columns(11), "0.00") '  折扣
    frmB.txtFields(10).Text = tdbBook.Columns(12) '单价
    frmB.txtFields(11).Tag = tdbBook.Columns(13) '  供应商代码
    frmB.txtFields(11).Text = tdbBook.Columns(14) '  供应商名称
    frmB.txtFields(12).Text = tdbBook.Columns(15) '  备注




'    '双击时显示输入窗体
'    tdbBook.Update
'    frmBookInput.intRow = tdbBook.row
'    frmBookInput.Move 2500, 1200
'    frmBookInput.txtFields(0).Text = tdbBook.Columns(0) '  x(tdbBook.Row, 0)
'    frmBookInput.txtFields(1).Text = tdbBook.Columns(1) 'x(tdbBook.Row, 1)
'    frmBookInput.cmbType(0).Text = tdbBook.Columns(2) 'x(tdbBook.Row, 2)
'    frmBookInput.cmbType(1).Text = tdbBook.Columns(3) 'x(tdbBook.Row, 3)
'    frmBookInput.txtFields(2).Text = tdbBook.Columns(4) ' x(tdbBook.Row, 4)
'    frmBookInput.cmbType(2).Text = tdbBook.Columns(5) 'x(tdbBook.Row, 5)
'    frmBookInput.txtFields(3).Text = tdbBook.Columns(6) 'x(tdbBook.Row, 6)
'    frmBookInput.txtFields(4).Text = tdbBook.Columns(7) 'x(tdbBook.Row, 7)
'    frmBookInput.cmbType(3).Text = tdbBook.Columns(8) 'x(tdbBook.Row, 8)
'    frmBookInput.cmbType(4).Text = tdbBook.Columns(9) 'x(tdbBook.Row, 9)
'    frmBookInput.txtFields(5).Text = tdbBook.Columns(10) 'x(tdbBook.Row, 10)
'    frmBookInput.txtFields(6).Text = tdbBook.Columns(11) 'x(tdbBook.Row, 11)
'    frmBookInput.cmbType(5).Text = tdbBook.Columns(12) 'x(tdbBook.Row, 12)
'    frmBookInput.txtFields(7).Text = tdbBook.Columns(13) 'x(tdbBook.Row, 13)
'    frmBookInput.Show 1







     'frmB.txtFields(2).Text = GetLastInfo("software\" & App.CompanyName & "\" & App.ProductName & "\图书资料管理", "制品类型")
    frmB.Show vbModal
    blnOK = frmB.blnActOK
    Unload frmB

'    If InStr(1, tvwFile.SelectedItem.Text, "(") > 0 Then
'        If ShowRecord(strParent, 1) Then
'           setFormState (ModNormal)
'        End If
'    Else
'        If ShowRecord(strParent, 0) Then
'           setFormState (ModNormal)
'        End If
'
'    End If
    blnIsModified = False
    SetToolBar ("1100X11X111X111X1")
    
    If blnOK Then
        tvwFile_NodeClick tvwFile.SelectedItem
    End If


End Sub
Public Sub cmdQuery_Click()
   Frame1.Visible = True
   cmbFields(1).SetFocus
End Sub

Public Sub cmdPrint1_Click()
'   Dim q As New Query
'
''   If Not checkpermission("书店管理系统", strUserName, , "基础设置.图书资料管理.打印") Then
''           Exit Sub
''        End If
'
'   With q
'            Set .Connection = cN
'            '列头:可用空格来调节列宽
'            .Header(",") = "  书号  ,  书名  ,  制品类型  ,  图书类型  ,  作者  ,  出版社  ,  出版日期  ,  印次  ,  开本  ,  装订方式  ,  折扣  ,  单价  ,  供货商  ,  备注   "
'
'            '列字段
'            .DataFields(",") = "ChrBookNo,ChrBookName,ChrProduceType,ChrBookType,ChrAuthoer,Chrbookconcern,DatPublishDate,ChrDegree,ChrFormat,ChrBindMode,DecAgio,DecPrice,ChrGHS,ChrRemark"
'            '连接对象(表名)
'            .FromObjects = "BookData"
'            '面向用户的查询字段（显示）
'            .DisplayFields(",") = "  书号  ,  书名  ,  制品类型  ,  图书类型  ,  作者  ,  出版社  ,  出版日期  ,  印次  ,  开本  ,  装订方式  ,  折扣  ,  单价  ,  供货商  ,  备注   "
'            '面向用户的查询字段（内部）
'            .InnerFields(",") = "ChrBookNo,ChrBookName,ChrProduceType,ChrBookType,ChrAuthoer,Chrbookconcern,DatPublishDate,ChrDegree,ChrFormat,ChrBindMode,DecAgio,DecPrice,ChrGHS,ChrRemark"
'
'            .Show cqNormalAdvanced
'  End With
End Sub
'======================================打印=======================================
Public Sub cmdPrint_Click()
    
    On Error GoTo err
    
    If X.UpperBound(1) = -1 Then
'        MsgBox "没有可以打印的内容！"
        Exit Sub
    End If
    
    Dim frm As New frmModCommonPrint
    
    Dim p As New ClsPrintInfo
    Dim arr, r&, c&
    Dim strAboveTable$, strBelowTable$, strSign$
    With p
        
        '标题
        .cqFirstTitle.Content = "图书资料"
        .cqFirstTitle.FontSize = 18
        .cqFirstTitle.FontBold = True
        
        '表前叙述
                   
        .cqSayingAboveTable.Content = "打印于：|" & Format(Date, "yyyy-MM-dd")
        .cqSayingAboveTable.LayOut = "Body align=left cols=3 interwidth=50 |label align=left width=16|text align=left width=20"
                
        ReDim arr(X.UpperBound(2), X.UpperBound(1))   '第一列不用打印
        For r = 0 To UBound(arr, 2)
            For c = 0 To UBound(arr, 1)
                arr(c, r) = Trim(X(r, c))
            Next c
        Next r
        
        '【Format属性】
            '宽度：整型
            '<   Align：左
            '^   Align：中
            '>   Align：右
            '=   以内容为准
            '+   纵向居中
            '_   纵向沉底
            '*   与文本Align保持一致
            '~   不自动换行
            '!   只画纵向线(保留)
        
        '【Header属性】
            '表格列头内容
        
        '【SpanCol属性】
            '有五个部分组成，中间用逗号隔开
            '第一部分：列索引，可一由“列头值”替代
            '第二部分：行索引，可以用MaxRow表示最大行，并进行运算，如：MaxRow-2；
            '                   也可以用实际的单元格值替换，比如：“合计”
            '第三部分：列偏差，由第一部分和第二部分可定位到“某个单元”，但实际要
            '                   合并的单元可能是“某个单元”的相邻单元，这时可使用偏差值
            '                  例如，想让“合计”行的“数量”列进行两列合并（假设“数量”列=“合计”所在列+2），
            '                  则可以在该部分填上2，如不需要，则填0
            '第四部分：合并列数，不包括自己，即合并一列则为1，合并两列则为2
            '第五部分：合并后内容的布局 0，左上；1，中上；2，右上；
            '                           3，左下；4，中下；5，右下；
            '                           6，左中；7，中中；8，右中；
            '                           9，上端；10，底端；11，中
        
        '【RowHeight属性】
            '强行指定行高，是一个整型,该值一旦设置，用户无法改变
        
        '【Subtotal属性】
            '合计信息，由以下几个部分组成,中间由逗号隔开，组之间用分号隔开
            '第一部分：列汇总类型：1，表示总计；2，表示页合计
            '第二部分：列汇总描述
            '第三部分：列汇总描述所在列索引
            '第四部分：汇总后数据所在位置
            '第五部分：列汇总所在列
            '第六部分：列汇总函数类型：1，表示求和；
            '第七部分：汇总数据格式
            '第八部分：汇总数据合并列；描述列合并数-汇总列合并数
            '第九部分：汇总数据所在行
            
            '例子:Subtotal=1\页小计\1\3\3\1\￥#,##0.00\1-1\1  --表示对第四列进行“求和”页合计，
        
               Dim strHeaderFormat$, strHeader$
        For c = 0 To tdbBook.Columns.Count - 1