module1.bas

电子衡自动计量系统.能对电子汽车衡进行自动计量.完成车皮存储,重车自动除皮等功能.

Attribute VB_Name = "Module1"

Option Explicit
'Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public jl_qym As String
Public jl_hth As String
Public hthh As String

Public jl_hwm As String
Public jl_zgdw As String ' 原程序没有
Public jl_shdw As String
Public jl_ch As String
Public jl_fhr As String
Public jl_shr As String
Public jl_sby As String
Public jl_jby As String
Public jl_zg As String
Public jl_sj As String
Public jl_dhddk As String
Public jl_zfjl  As Long
Public jl_bz As Variant
Public jl_mz As Long
Public jl_pz As Long
Public jl_pz1 As Long
Public jl_jz As Long
Public jl_htl As Long
Public jl_yfsl As Long
Public jl_wfsl As Long
Public jl_lsh As Long
Public jl_dj, jl_je As Long
Public jl_no
Public pr_p, jl_ye, mou As Boolean
Public Const NOTSRCCOPY = &H330008
Public Const NOTSRCERASE = &H1100A6
Public Const SRCAND = &H8800C6
Public Const SRCCOPY = &HCC0020
Public Const SRCERASE = &H440328
Public Const SRCINVERT = &H660046
Public Const SRCPAINT = &HEE0086
'Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
'Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public jl_tzsy As String '套帐索引
Public jl_sqlstr As String '套帐选择表变量
Public jl_tmpsql As String '临时查询表变量
Public Echo As Boolean        ' 回应 打开/关闭 标志。
Public CancelSend As Integer  ' 停止发送文本文件的标志。
Public jl_dwm As String
Public connetstr As String
Declare Sub SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)


Public Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Public Declare Function SetPrinter Lib "winspool.drv" Alias "SetPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, pPrinter As Byte, ByVal Command As Long) As Long

Public Declare Function SetPrinterData Lib "winspool.drv" Alias "SetPrinterDataA" (ByVal hPrinter As Long, ByVal pValueName As String, ByVal dwType As Long, pData As Byte, ByVal cbData As Long) As Long





'##################################################################
'## 过程名称：teb
'## 参数：fh 为String型
'## 参数：cs 为Integer型
'## 参数：i 为Integer型
'##################################################################
Sub teb(fh As String, cs As Integer, i As Integer)
    For i = 0 To cs
        Printer.Print fh;
    Next
End Sub
    
'##################################################################
'## 过程名称：oprin
'## 参数： 无
'##################################################################
Sub oprin()
    'printer.Show
    On Error Resume Next
    Dim i, no, j As Integer
    Dim pri, hth As String
    Dim lab(4) As String
    Dim shr As String
    jl_no = jl_lsh
    lab(2) = "随货同行"
    lab(0) = "存    根"
    lab(1) = "出 门 证"
    lab(3) = "到 货 单"
    Printer.FontSize = 11
    Printer.Print
   For j = 0 To 3
    'Printer.ScaleMode = 4
    ' Printer.PaperSize = 19
      Printer.Orientation = 1
        Printer.FontSize = 14
        Printer.Print Tab(14); jl_qym & "过磅单（"; lab(j); "）";
        'printer.Print
        Printer.FontSize = 11 ''''
        Printer.Print Tab(60); "单位:  KG     NO。:  "; jl_lsh
        Printer.Print "┏"; ''''
        Call teb("━", 40, (i))
        Printer.Print "┓"
        Printer.Print "┃"; "提货单位:"; jl_fhr;
        Printer.Print "│   "; "检斤时间:  " & Format(Now, "yyyy年mm月dd日hh时mm分");
        Printer.Print Tab(85); "┃"
        Printer.Print "┠";
        For i = 0 To 2
            Call teb("─", 6, (i))
            Printer.Print "┬";
        Next
        Printer.Print String(17, "─");
        'Call teb("─", 17, (i))
        Printer.Print "┨"
        Printer.Print "┃"; Space(14); "│"; Space(14); "│"; Space(14); "│"; Space(12); "重      量"; Space(12); "┃"
        Printer.Print "┃"; Space(4); "合同号"; Space(4); "│"; Space(4); "车  号"; Space(4); "│"; Space(5); "煤  种"; Space(3); "├";
        Printer.Print String(5, "─"); "┬"; String(5, "─"); "┬"; String(5, "─"); "┨"
        Printer.Print "┃"; Space(14); "│"; Space(14); "│"; Space(14); "│"; "   毛重"; Space(3); "│"; "   皮重"; Space(3); "│"; "   净重"; Space(3); "┃"
        Printer.Print "┠"; String(7, "─"); "┼"; String(7, "─"); "┼"; String(7, "─"); "┼"; String(5, "─"); "┼"; String(5, "─"); "┼"; String(5, "─"); "┨"
        Printer.Print "┃"; jl_hth;
        Printer.Print Tab(17); "│";
        Printer.Print Spc(5); jl_ch;
        Printer.Print Tab(33); "│"; Spc(3); jl_hwm;
        Printer.Print Tab(49); "│"; Spc(2); dyyl.Label19(0).Caption; Tab(61); "│"; Spc(2); dyyl.Label20(0).Caption; Tab(73); "│"; Spc(2); dyyl.Label18(0).Caption; Tab(85); "┃"
        Printer.Print "┠"; String(7, "─"); "┴"; String(7, "─"); "┼"; String(7, "─"); "┴"; String(5, "─"); "┴"; String(5, "─"); "┴"; String(5, "─"); "┨"
        Printer.Print "┃"; "到货地点:  "; jl_dhddk; Tab(33); "│"; "备注:   "; jl_bz; Tab(85); "┃"
        Printer.Print "┗"; String(15, "━"); "┷"; String(25, "━"); "┛"
        Printer.Print "负责人："; Trim(jl_zg); Spc(5); "司磅员:  "; jl_sby; Spc(5); "收货人:  "; jl_shr
        Printer.Print
        Printer.Print
         
 Next j
   Printer.NewPage
    Printer.EndDoc
    
End Sub
'##################################################################
'## 过程名称：oprint
'## 参数： 无
'##################################################################
Sub oprint()
    Dim lab(4) As String
    Dim i, j As Integer
    lab(0) = "随货同行"
    lab(1) = "存    根"
    Printer.FontSize = 12
    'For j = 0 To 1
        Printer.Print Tab(8); jl_qym & "过磅单（"; lab(j); "）"
        'printer.Print
        Printer.Print Tab(40); "单位:  KG    NO。:  "; jl_no
        Printer.Print "┏";
        Call teb("━", 30, (i))
        Printer.Print "┓"
        Printer.Print "┃";
        Printer.Print Spc(10); "检斤时间:  " & Format(Now, "yyyy年mm月dd日hh时mm分");
        Printer.Print Tab(65); "┃"
        Printer.Print "┠";
        Call teb("─", 14, (i))
        Printer.Print "┬";
        Call teb("─", 14, (i))
        Printer.Print Tab(65); "┨"
        Printer.Print "┃"; Space(10); "车  号"; Space(14); "│"; Space(10); "重      量"; Space(2);
        Printer.Print Tab(65); "┃"
        Printer.Print "┠";
        Call teb("─", 14, (i))
        Printer.Print "┼";
        Call teb("─", 14, (i))
        Printer.Print Tab(65); "┨"
        Printer.Print "┃"; Spc(10); jl_ch; Tab(33); "│"; Spc(10); jl_pz; Tab(65); "┃"
        Printer.Print "┗"; String(15, "━"); "┷"; String(15, "━"); "┛"
        
        Printer.Print "负责人："; jl_zg; Tab(30); "司磅员:  "; jl_sby; Spc(5); "监磅员:  "; jl_jby
        Printer.Print
        Printer.Print
    'Next j
    Printer.EndDoc
    jl_no = jl_no + 1
    
End Sub
    
'##################################################################
'## 过程名称：cal
'## 参数： 无
'##################################################################
Function connet() As Boolean
   Dim filen As String
   Dim freefeilen As Integer
   Dim stree As String
   freefeilen = FreeFile
   filen = App.Path & "\config.cfg"
  If Dir(filen) > "" Then
    Open filen For Input As #freefeilen
   
   Do
   Line Input #freefeilen, stree
   connetstr = connetstr & stree
   Loop Until EOF(freefeilen)
   Close #freefeilen
   connet = True
    Else
    connet = False
   MsgBox "数据库配置文件不存在", , "数据库配置文件检测"
   frmODBCLogon.Show
   End If
   
End Function