print_jinhuo.frm

一个医药进存销程序

VERSION 5.00
Begin VB.Form print_jinhuo 
   Caption         =   "打印进货单"
   ClientHeight    =   2460
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5670
   LinkTopic       =   "Form1"
   ScaleHeight     =   2460
   ScaleWidth      =   5670
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame1 
      Height          =   2415
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   5655
      Begin VB.Timer Timer1 
         Enabled         =   0   'False
         Interval        =   500
         Left            =   3960
         Top             =   1800
      End
      Begin VB.Label Label1 
         Caption         =   "Label1"
         BeginProperty Font 
            Name            =   "幼圆"
            Size            =   15
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   120
         TabIndex        =   1
         Top             =   840
         Width           =   5415
      End
   End
End
Attribute VB_Name = "print_jinhuo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Tr As New ADODB.Recordset
Sub PrintData1()
On Error GoTo HandlePrint
        If MM > 0 Then Tr.MoveFirst
        Printer.ScaleMode = 6
        'Printer.FontName = "SYSTEM"
        Printer.FontSize = 16
        Printer.Print Tab(22); "进货表单"
        Printer.Print Tab(19); "============================"
        Printer.FontSize = 12
        Printer.Print "   ------------------------------------------------------------------------------------------------"
        Printer.Print "    进货号："; Tr.Fields("jinhuohao"); "    操作员："; Tr.Fields("caozuoyuan"); "    往来单位："; Tr.Fields("wanglaidanwei")
        Printer.Print "   ------------------------------------------------------------------------------------------------"
        For I1 = 1 To MM
        Printer.Print "    药品名称："; Tr.Fields("yaopinming"); "    规格："; Tr.Fields("guige"); "    剂型："; Tr.Fields("jixing"); "    类型："; Tr.Fields("leixing")
        Printer.Print "    生产日期："; Tr.Fields("shengchanriqi"); "    有效期："; Tr.Fields("youxiaoqi"); "    价格："; Tr.Fields("jiage"); "    数量："; Tr.Fields("shuliang"); "    金额："; Tr.Fields("jine")
        Printer.Print "    备注："; Tr.Fields("beizhu")
            Tr.MoveNext
        Next
        Printer.Print "  --------------------------------------------------------------------------------------------------"
        Printer.Print " "
        Printer.EndDoc
        Exit Sub
HandlePrint:
        MsgBox "打印出错，请检查您的计算机是否已经正确的和打印机连接！", vbOKOnly + vbInformation, "提示"
End Sub
Sub PrintData()
On Error GoTo HandlePrint
        If MM > 0 Then Tr.MoveFirst
        Printer.ScaleMode = 6
        'Printer.FontName = "SYSTEM"
        Printer.FontSize = 16
        Printer.Print Tab(22); "进货表单"
        Printer.Print Tab(19); "============================"
        Printer.FontSize = 12
        Printer.Print "   ------------------------------------------------------------------------------------------------"
        Printer.Print "    进货号："; Tr.Fields("jinhuohao"); "    操作员："; Tr.Fields("caozuoyuan"); "    往来单位："; Tr.Fields("wanglaidanwei")
        Printer.Print "   ------------------------------------------------------------------------------------------------"
        Printer.Print "    药  品  名  称"; "      规  格"; "     价  格"; "     数  量"; "     金  额"; "     批发价"; "     零售价"
        For I1 = 1 To MM
        Printer.Print "     "; Tr.Fields("yaopinming"); Tab(25); Tr.Fields("guige"); Tab(37); Tr.Fields("jiage"); Tab(48); Tr.Fields("shuliang"); Tab(59); Tr.Fields("jine"); Tab(70); Tr.Fields("pifajia"); Tab(81); Tr.Fields("lingshoujia")
            Tr.MoveNext
        Next
        Printer.Print "  --------------------------------------------------------------------------------------------------"
        Printer.Print " "
        Printer.EndDoc
        Exit Sub
HandlePrint:
        MsgBox "打印出错，请检查您的计算机是否已经正确的和打印机连接！", vbOKOnly + vbInformation, "提示"
End Sub

Private Sub Form_Load()
   'set the window to the middle
   Me.Left = (Screen.Width - Me.Width) / 2
   Me.Top = (Screen.Height - Me.Height) / 2
   
On Error GoTo handle
    Label1.Caption = "正在打印进货单，请稍候..."
     With Tr
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select * from jinhuo order by id desc"
         .Open
    End With

    Timer1.Enabled = True
    Exit Sub
handle:
    MsgBox "无法与数据库服务器建立正确的连接，请检查网络或ODBC设置！", vbOKOnly + vbInformation, "提示"
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error GoTo exitme
    Tr.Close
    Set Tr = Nothing
    Exit Sub
    
exitme:
End Sub

Private Sub Timer1_Timer()
    PrintData
    Unload Me
End Sub