fymx.frm

煤炭销售管理系统.完成煤炭销售的日常管理工作,和重车计量系统空车计量系统配合使用.

      EndProperty
      BeginProperty Column10 
         DataField       =   "流水号"
         Caption         =   "流水号"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column11 
         DataField       =   "检斤时间"
         Caption         =   "检斤时间"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   "yyyy-MM-dd"
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
            WrapText        =   -1  'True
            ColumnWidth     =   989.858
         EndProperty
         BeginProperty Column01 
            ColumnWidth     =   989.858
         EndProperty
         BeginProperty Column02 
            ColumnWidth     =   1500.095
         EndProperty
         BeginProperty Column03 
            ColumnWidth     =   1500.095
         EndProperty
         BeginProperty Column04 
            ColumnWidth     =   1500.095
         EndProperty
         BeginProperty Column05 
            ColumnWidth     =   1635.024
         EndProperty
         BeginProperty Column06 
            ColumnWidth     =   2489.953
         EndProperty
         BeginProperty Column07 
            ColumnWidth     =   1500.095
         EndProperty
         BeginProperty Column08 
            ColumnWidth     =   1500.095
         EndProperty
         BeginProperty Column09 
            ColumnWidth     =   1409.953
         EndProperty
         BeginProperty Column10 
            ColumnWidth     =   1305.071
         EndProperty
         BeginProperty Column11 
            ColumnWidth     =   2009.764
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "fymx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
CurtPrinter1.Visible = True
'    mnuManual.Enabled = True
    PrintContent
End Sub

Private Sub CurtButton1_Click()
 mnuOrientation_Click
End Sub

Private Sub CurtButton2_Click()
mnuPaperSize_Click
End Sub

Private Sub Form_Load()
'On Error Resume Next
    'jl_sql = "ch as 车号,mz as 毛重,pz as 皮重,jz as  净重,hwm as 货物名,shr as 收货人,fhr as 发货人,dhdd as 到货地点,sby as 司磅员,id as 流水号"
    jl_sql = "select"
    jl_sql = jl_sql + " " + Trim(jl_sqlstr & ".hth as 票号") & ","
    jl_sql = jl_sql + " " + Trim(jl_sqlstr & ".ch as 车号") & ","
    jl_sql = jl_sql + " " + Trim(jl_sqlstr & ".mz as 毛重") & ","
    jl_sql = jl_sql + " " + Trim(jl_sqlstr & ".pz as 皮重") & ","
    jl_sql = jl_sql + " " + Trim(jl_sqlstr & ".jz as  净重") & ","
    jl_sql = jl_sql + " " + Trim(jl_sqlstr & ".hwm as 货物名") & ","
    jl_sql = jl_sql + " " + Trim(jl_sqlstr & ".shr as 收货人") & ","
    jl_sql = jl_sql + " " + Trim(jl_sqlstr & ".fhr as 发货人") & ","
    jl_sql = jl_sql + " " + Trim(jl_sqlstr & ".dhdd as 到货地点") & ","
    jl_sql = jl_sql + " " + Trim(jl_sqlstr & ".sby as 司磅员") & ","
    jl_sql = jl_sql + " " + Trim(jl_sqlstr & ".sj as 检斤时间") & ","
     jl_sql = jl_sql + " " + Trim(jl_sqlstr & ".id as 流水号")
  jl_sql = jl_sql & " from " & jl_sqlstr
 Me.datPrimaryRS.ConnectionString = connetstr
      Me.datPrimaryRS.RecordSource = jl_sql & " where  " & jl_sqlstr & ".hth ='" & Trim(jl_hth) & "'"
       
        Me.datPrimaryRS.refresh
        Dim recc As Integer
        Dim ff As Integer
                  
        recc = Me.datPrimaryRS.Recordset.Fields.Count
        Me.grdDataGrid.ClearFields
        Set Me.grdDataGrid.DataSource = Me.datPrimaryRS
        
      Me.grdDataGrid.refresh
End Sub

Private Sub Form_Resize()
  On Error Resume Next
  '当窗体调整时会调整网格
  grdDataGrid.Height = Me.ScaleHeight - datPrimaryRS.Height - 230 - picButtons.Height
Me.CurtPrinter1.Move 0, 0, grdDataGrid.Width, grdDataGrid.Height + Me.Command1.Top + Me.Command1.Height + 200

End Sub

Private Sub Form_Unload(Cancel As Integer)
  Screen.MousePointer = vbDefault
End Sub

Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean)
  '错误处理程序代码置于此处
  '想要忽略错误，注释掉下一行
  '想要捕获它们，在此添加代码以处理它们
  MsgBox "Data error event hit err:" & Description
End Sub

Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
  '为这个 recordset 显示当前记录位置
  datPrimaryRS.Caption = "Record: " & CStr(datPrimaryRS.Recordset.AbsolutePosition)
End Sub

Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
  '验证代码置于此处
  '下列动作发生时该事件被调用
  Dim bCancel As Boolean

  Select Case adReason
  Case adRsnAddNew
  Case adRsnClose
  Case adRsnDelete
  Case adRsnFirstChange
  Case adRsnMove
  Case adRsnRequery
  Case adRsnResynch
  Case adRsnUndoAddNew
  Case adRsnUndoDelete
  Case adRsnUndoUpdate
  Case adRsnUpdate
  End Select

  If bCancel Then adStatus = adStatusCancel
End Sub

Private Sub cmdRefresh_Click()
  '只有多用户应用程序需要
  On Error GoTo RefreshErr
  datPrimaryRS.refresh
  Exit Sub
RefreshErr:
  MsgBox err.Description
End Sub

Private Sub cmdClose_Click()
  Unload Me
End Sub
   
'##################################################################
'## 过程名称：Form_Load
'## 参数： 无
   
Private Sub mnuExit_Click()
Me.CurtPrinter1.Visible = False
End Sub
'##################################################################
'## 过程名称：mnuPreview_Click
'## 参数： 无
'##################################################################
Private Sub mnuPreview_Click()
    CurtPrinter1.Visible = True
    PrintContent
End Sub
    
'##################################################################
'## 过程名称：mnuPrint_Click
'## 参数： 无
'##################################################################
Private Sub mnuPrint_Click()
    PrintContent Printer
End Sub
'## 过程名称：curtprinter1_ClosePreview
'## 参数： 无
'##################################################################
Private Sub curtprinter1_ClosePreview()
 CurtPrinter1.Visible = False
   ' mnuManual.Enabled = False
End Sub
    '如果每次调整预览比例好重新生成预览的话，请将AutoRedraw设置为FALSE，然后在下面的事件添入要重画的代码
'##################################################################
'## 过程名称：curtprinter1_NeedRedraw
'## 参数： 无
'##################################################################
Private Sub CurtPrinter1_NeedRedraw()
    PrintContent
End Sub
    '写入打印叶脚的代码
'##################################################################
'## 过程名称：CurtPrinter1_PrintFooter
'## 参数：CurrentPage 为Long型
'## 参数：LeftText 为String型
'## 参数：CenterText 为String型
'## 参数：RightText 为String型
'##################################################################
Private Sub CurtPrinter1_PrintFooter(CurrentPage As Long, LeftText As String, CenterText As String, RightText As String)
    ''LeftText = jl_zgdw
    CenterText = Format(Now, "yyyy年m月d日")
    RightText = "其他信息"
End Sub
    
    '写入打印页眉的代码
'##################################################################
'## 过程名称：CurtPrinter1_PrintHeader
'## 参数：CurrentPage 为Long型
'## 参数：LeftText 为String型
'## 参数：CenterText 为String型
'## 参数：RightText 为String型
'##################################################################
Private Sub CurtPrinter1_PrintHeader(CurrentPage As Long, LeftText As String, CenterText As String, RightText As String)
    LeftText = Date
   CenterText = jl_qym
    RightText = "这是第 " & CurrentPage & " 页"
End Sub
    
    '点击了预览窗体或直接调用ShowPrinter后，点击了打印机窗口的确定，引发打印代码，打印到打印机上！
'##################################################################
'## 过程名称：curtprinter1_RealPrint
'## 参数： 无
'##################################################################
Private Sub curtprinter1_RealPrint()
    PrintContent Printer
End Sub
    '如果隐藏工具条，仍可以通过简单的编程控制预览
'##################################################################
'## 过程名称：mnuPageDown_Click
'## 参数： 无
'##################################################################
Private Sub mnuPageDown_Click()
   CurtPrinter1.PageDown
End Sub
'##################################################################
'## 过程名称：mnuPageSetup_Click
'## 参数： 无
'##################################################################
Private Sub mnuPageSetup_Click()
 CurtPrinter1.PageSetup
End Sub
'##################################################################
'## 过程名称：mnuPageUp_Click
'## 参数： 无
'##################################################################
Private Sub mnuPageUp_Click()
    CurtPrinter1.PageUp
End Sub
'##################################################################
'## 过程名称：mnuZoom_Click
'## 参数： 无
'##################################################################
Private Sub mnuZoom_Click()
   CurtPrinter1.Zoom = Val(InputBox("请输入0-200之间的数字")) '0代表整页预览
End Sub
    
'##################################################################
'## 过程名称：mnuOrientation_Click
'## 参数： 无
'##################################################################
Private Sub mnuOrientation_Click()
  CurtPrinter1.Orientation = IIf(CurtPrinter1.Orientation = 1, 2, 1)
End Sub
    
'##################################################################
'## 过程名称：mnuPaperSize_Click
'## 参数： 无
'##################################################################
Private Sub mnuPaperSize_Click()
   CurtPrinter1.PaperSize = InputBox("请输入打印纸型号：")
End Sub
    
    
    '复制字体属性
'##################################################################
'## 过程名称：CloneFont
'## 参数：Dest 为StdFont型
'## 参数：Src 为StdFont型
'##################################################################
Private Sub CloneFont(Dest As StdFont, Src As StdFont)
    With Dest
    .Bold = Src.Bold
    .Charset = Src.Charset
    .Italic = Src.Italic
    .Name = Src.Name
    .Size = Src.Size
    .Strikethrough = Src.Strikethrough
    .Underline = Src.Underline
    .Weight = Src.Weight
    End With
End Sub
'##################################################################
'## 过程名称：PrintContent
'## 参数：Optional 为ntDevice As Printer型
'##################################################################
Public Sub PrintContent(Optional PrintDevice As Printer)
'On Error Resume Next
    Const TableStartX = 10
    If PrintDevice Is Nothing Then
        CurtPrinter1.StartPrint toPreview '预览
    Else
        CurtPrinter1.StartPrint toPrinter '打印到打印机
    End If
    Dim strr
    With CurtPrinter1
    '一些图形方法的演示
    '重新开始一页，直接打印报表，注意，它会自动换页，如果你设定了标题，它也自动打哦:)
     .NewPage
    '直接打印MSHFlexGrid
    .DirectPrint Me.grdDataGrid, Me.grdDataGrid.Caption
    .TextOut "  "
  ' .TextOut "说明：<毛重>对应统计的是(平均毛重)，<皮重>对应统计的是(平均皮重)，<净重>对应统计的是(累计净重)。"
    .EndDoc
    End With
End Sub