frmcx.frm

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

    
'##################################################################
'## 过程名称：datPrimaryRS_Error
'## 参数：ByVal 为orNumber As Long型
'## 参数：Description 为String型
'## 参数：ByVal 为de As Long型
'## 参数：ByVal 为rce As String型
'## 参数：ByVal 为pFile As String型
'## 参数：ByVal 为pContext As Long型
'## 参数：fCancelDisplay 为Boolean型
'##################################################################
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
    
    
    
'##################################################################
'## 过程名称：cmdDelete_Click
'## 参数： 无
'##################################################################
Private Sub cmdDelete_Click()
    'On Error GoTo DeleteErr
    With datPrimaryRS.Recordset
    .delete
    .MoveNext
    If .EOF Then .MoveLast
    End With
    Exit Sub
DeleteErr:
    MsgBox err.Description
End Sub
    
'##################################################################
'## 过程名称：cmdRefresh_Click
'## 参数： 无
'##################################################################
Private Sub cmdRefresh_Click()
    '只有多用户应用程序需要
    'On Error GoTo RefreshErr
    datPrimaryRS.refresh
    Exit Sub
RefreshErr:
    MsgBox err.Description
End Sub
    
'##################################################################
'## 过程名称：cmdUpdate_Click
'## 参数： 无
'##################################################################
Private Sub cmdUpdate_Click()
    'On Error GoTo UpdateErr
    
    datPrimaryRS.Recordset.UpdateBatch adAffectAll
    Exit Sub
UpdateErr:
    MsgBox err.Description
End Sub
    
'##################################################################
'## 过程名称：cmdClose_Click
'## 参数： 无
'##################################################################
Private Sub cmdClose_Click()
Unload Me
End Sub
     
Private Sub mnuExit_Click()
Me.CurtPrinter1.Visible = False
End Sub

Private Sub mnuoutput_Click()

Dim filename As String
Dim filenanmber As Integer
Dim jj As Integer
Dim ii As Integer
filenanmber = FreeFile
Me.CommonDialog1.Filter = "*.txt|*.txt"
Me.CommonDialog1.ShowOpen
If Me.CommonDialog1.filename <> "" Then
Open Me.CommonDialog1.filename For Output As #filenanmber
'Call Command9_Click
Me.datPrimaryRS.refresh
Me.datPrimaryRS.Recordset.MoveFirst
For ii = 0 To 10
            Print #filenanmber, Me.datPrimaryRS.Recordset.Fields(ii).Name, ";",
 
     Next ii
      Print #filenanmber, Chr(13)
   For jj = 1 To Me.datPrimaryRS.Recordset.RecordCount
     For ii = 0 To 10
            Print #filenanmber, Me.datPrimaryRS.Recordset.Fields(ii), ";",
      Next ii
Print #filenanmber, Chr(10)
Me.datPrimaryRS.Recordset.MoveNext
   Next jj
Close #filenanmber
End If
End Sub

'##################################################################
'## 过程名称：mnuPreview_Click
'## 参数： 无
'##################################################################
Private Sub mnuPreview_Click()
    CurtPrinter1.Visible = True
    mnuManual.Enabled = True
    PrintContent
End Sub
    
'##################################################################
'## 过程名称：mnuPrint_Click
'## 参数： 无
'##################################################################
Private Sub mnuPrint_Click()
    
    PrintContent Printer
End Sub
    
    
'##################################################################
'## 过程名称：Text1_Change
'## 参数： 无
'##################################################################
Private Sub Text1_Change()
    
End Sub
    
Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
'On Error Resume Next
        Dim lj As Long
    datPrimaryRS.RecordSource = jl_sql & " where  ch like '" & Text1.Text & "%'  and " & jl_sqlstr & ".sj>='" & Format(DTPicker1.Value, "yyyy-mm-dd") & "' and " & jl_sqlstr & ".sj<='" & Format(DTPicker2.Value + 1 + 1, "yyyy-mm-dd") & "' Order by " & jl_sqlstr & ".sj"
    datPrimaryRS.refresh
    Set Me.MSHFlexGrid1.DataSource = datPrimaryRS
    Me.MSHFlexGrid1.refresh
        Call js
            Me.prin.Enabled = True
End If
End Sub

'##################################################################
'## 过程名称：Text2_Change
'## 参数： 无
'##################################################################
Private Sub Text2_Change()
    
End Sub
    
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim lj As Long
    datPrimaryRS.RecordSource = jl_sql & " where   hth like '" & Text2.Text & "%' and " & jl_sqlstr & ".sj>='" & Format(DTPicker1.Value, "yyyy-mm-dd") & "' and " & jl_sqlstr & ".sj <='" & Format(DTPicker2.Value + 1 + 1, "yyyy-mm-dd") & "' Order by " & jl_sqlstr & ".sj"
     datPrimaryRS.refresh
     '
    Me.MSHFlexGrid1.refresh
        Call js
          Me.prin.Enabled = True
End If

End Sub

'##################################################################
'## 过程名称：Text3_Change
'## 参数： 无
'##################################################################
Private Sub Text3_Change()
  Dim lj As Long
    datPrimaryRS.RecordSource = jl_sql & " where  shr like '" & Trim(Text3.Text) & "%' and " & jl_sqlstr & ".sj>='" & Format(DTPicker1.Value, "yyyy-mm-dd") & "' and " & jl_sqlstr & ".sj<='" & Format(DTPicker2.Value + 1 + 1, "yyyy-mm-dd") & "' Order by " & jl_sqlstr & ".sj"
    datPrimaryRS.refresh
    '
    Me.MSHFlexGrid1.refresh
        Call js
            Me.prin.Enabled = True
End Sub
    
Private Sub Text3_Click()
  Dim lj As Long
datPrimaryRS.RecordSource = jl_sql & " where  shr like '" & Trim(Text3.Text) & "%' and " & jl_sqlstr & ".sj>='" & Format(DTPicker1.Value, "yyyy-mm-dd") & "' and " & jl_sqlstr & ".sj<='" & Format(DTPicker2.Value + 1 + 1, "yyyy-mm-dd") & "' Order by " & jl_sqlstr & ".sj"
    datPrimaryRS.refresh
        Call js
            Me.prin.Enabled = True
End Sub

'##################################################################
'## 过程名称：Text4_Change
'## 参数： 无
'##################################################################
Private Sub Text4_Change()
    datPrimaryRS.RecordSource = jl_sql & " where  fhr like '" & Trim(Text4.Text) & "%' and " & jl_sqlstr & ".sj>='" & Format(DTPicker1.Value, "yyyy-mm-dd") & "' and " & jl_sqlstr & ".sj<='" & Format(DTPicker2.Value + 1 + 1, "yyyy-mm-dd") & "' Order by " & jl_sqlstr & ".sj"
    datPrimaryRS.refresh
    
    Me.MSHFlexGrid1.refresh
        Call js
            Me.prin.Enabled = True
End Sub
    
Private Sub Text4_Click()
  Dim lj As Long
 ' 'debug.Print jl_sql
datPrimaryRS.RecordSource = jl_sql & " where  " & jl_sqlstr & ".fhr like '" & Trim(Text4.Text) & "%' and " & jl_sqlstr & ".sj>='" & Format(DTPicker1.Value, "yyyy-mm-dd") & "' and " & jl_sqlstr & ".sj<='" & Format(DTPicker2.Value + 1 + 1, "yyyy-mm-dd") & "' Order by " & jl_sqlstr & ".sj"
    ''debug.Print datPrimaryRS.RecordSource
    datPrimaryRS.refresh
        Call js
            Me.prin.Enabled = True
End Sub

'##################################################################
'## 过程名称：Text5_Change
'## 参数： 无
'##################################################################
Private Sub Text5_Change()
  Dim lj As Long
    datPrimaryRS.RecordSource = jl_sql & " where  dhdd like '" & Trim(Text5.Text) & "%' and " & jl_sqlstr & ".sj>='" & Format(DTPicker1.Value, "yyyy-mm-dd") & "' and " & jl_sqlstr & ".sj<='" & Format(DTPicker2.Value + 1 + 1, "yyyy-mm-dd") & "' Order by " & jl_sqlstr & ".sj"
    datPrimaryRS.refresh
    
    Me.MSHFlexGrid1.refresh
        Me.prin.Enabled = True
         Call js
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)
    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.MSHFlexGrid1, "重车流水查询"
    .TextOut " "
    .TextOut "  "
   .TextOut "说明：<毛重>对应统计的是(平均毛重)，<皮重>对应统计的是(平均皮重)，<净重>对应统计的是(累计净重)。"
    .EndDoc
    End With
End Sub
Private Sub Text5_Click()
  Dim lj As Long
datPrimaryRS.RecordSource = Trim(jl_sql & " where " & jl_sqlstr & ".dhdd like '%" & Trim(Text5.Text) & "%' and " & jl_sqlstr & ".sj>='" & Format(DTPicker1.Value, "yyyy-mm-dd") & "' and " & jl_sqlstr & ".sj <='" & Format(DTPicker2.Value + 1 + 1, "yyyy-mm-dd") & "' Order by " & jl_sqlstr & ".sj")
   
    datPrimaryRS.refresh
    
    Call js
End Sub
Private Sub js()
On Error Resume Next
Dim cols1
Dim rows1
Dim je, i
Dim ljje
Dim yfl, wfl, htl
Dim pjje
Dim ljhtl
Dim ljyfl
Dim ljwfl
'clos1 = datPrimaryRS.Recordset.Fields.Count
rows1 = datPrimaryRS.Recordset.RecordCount

With Me.MSHFlexGrid1
.Rows = rows1 + 2
For i = 1 To rows1
    .Col = 3
    .Row = i
    htl = Val(.Text)
    .Col = 4
    
    yfl = Val(.Text)
    .Col = 5
    wfl = Val(.Text)
    ljhtl = ljhtl + htl
    ljyfl = ljyfl + yfl
    ljwfl = ljwfl + wfl
  Next i
.Row = i
'.RowHeight(i) = 500
.Col = 1
.TextMatrix(i, 1) = "统计(吨)"
.Col = 2
.Text = "(车次)" & rows1
.Col = 3
.Text = Fix((ljhtl / rows1) / 1000)
.Col = 4
.Text = Fix((ljyfl / rows1) / 1000)
.Col = 5
.Text = Fix(ljwfl / 1000)

End With

End Sub