📄 kucunpandian.frm

📁 一个医药进存销程序
💻 FRM
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form kucunpandian 
   Caption         =   "库存盘点"
   ClientHeight    =   6390
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11565
   LinkTopic       =   "Form1"
   ScaleHeight     =   6390
   ScaleWidth      =   11565
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "打  印"
      Height          =   375
      Left            =   5760
      TabIndex        =   5
      Top             =   240
      Width           =   975
   End
   Begin VB.TextBox Text1 
      Height          =   270
      Left            =   1080
      TabIndex        =   0
      Top             =   240
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "退  出"
      Height          =   375
      Left            =   7560
      TabIndex        =   4
      Top             =   240
      Width           =   975
   End
   Begin VB.ComboBox Combo1 
      Height          =   300
      Left            =   3600
      TabIndex        =   1
      Top             =   240
      Width           =   1815
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   5655
      Left            =   120
      TabIndex        =   3
      Top             =   840
      Width           =   11535
      _ExtentX        =   20346
      _ExtentY        =   9975
      _Version        =   393216
      AllowUserResizing=   3
   End
   Begin VB.Label Label2 
      Caption         =   "药品代码："
      Height          =   255
      Left            =   120
      TabIndex        =   6
      Top             =   240
      Width           =   975
   End
   Begin VB.Label Label1 
      Caption         =   "药品名称："
      Height          =   375
      Left            =   2640
      TabIndex        =   2
      Top             =   240
      Width           =   975
   End
End
Attribute VB_Name = "kucunpandian"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Trecordset As New ADODB.Recordset
Dim Trecordset1 As New ADODB.Recordset
Dim Trecordset2 As New ADODB.Recordset
Dim Trecordset3 As New ADODB.Recordset
Dim Trecordset4 As New ADODB.Recordset
Dim Trecordset5 As New ADODB.Recordset
Sub dayin1()
On Error GoTo HandlePrint
        Printer.ScaleMode = 6
        'Printer.FontName = "SYSTEM"
        If Trecordset2.RecordCount > 0 Then Trecordset2.MoveFirst
        Printer.FontSize = 16
        Printer.Print Tab(22); "库存统计表单"
        Printer.Print Tab(19); "============================"
        Printer.FontSize = 12
        Printer.Print "   ------------------------------------------------------------------------------------------------"
      
       
        For I1 = 1 To Trecordset2.RecordCount
        Printer.Print "药品名称："; Trecordset2.Fields("yaopinming"); "    规格："; Trecordset2.Fields("guige"); "    剂型："; Trecordset2.Fields("jixing"); "    类型："; Trecordset2.Fields("leixing")
        Printer.Print "生产日期："; Trecordset2.Fields("shengchanriqi"); "    有效期："; Trecordset2.Fields("youxiaoqi"); "    价格："; Trecordset2.Fields("jiage"); "    数量："; Trecordset2.Fields("shuliang"); "    金额："; Trecordset2.Fields("jine")
        Printer.Print "往来单位："; Trecordset2.Fields("wanglaidanwei"); "    备注："; Trecordset2.Fields("beizhu")
        Trecordset2.MoveNext
        Next
        Printer.Print "  --------------------------------------------------------------------------------------------------"
        Printer.Print " "
        Printer.EndDoc
        Exit Sub
HandlePrint:
        MsgBox "打印出错，请检查您的计算机是否已经正确的和打印机连接！", vbOKOnly
End Sub
Sub Initial()
    '''''''''''''''''''''''''药品名称

    With Trecordset1
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select distinct yaopinming from kucun "
         .Open
    End With
    Do While Not Trecordset1.EOF
       Combo1.Text = Trecordset1.Fields("yaopinming")
       Combo1.AddItem Trecordset1.Fields("yaopinming")
    Trecordset1.MoveNext
    Loop
    Trecordset1.Close
End Sub
Sub Gridflex()
 'init the headers of the msflexgrid1
    MSFlexGrid1.Cols = 12
    
    MSFlexGrid1.TextMatrix(0, 0) = "编号"
    MSFlexGrid1.TextMatrix(0, 1) = "往来单位"
    MSFlexGrid1.TextMatrix(0, 2) = "药品名称"
    MSFlexGrid1.TextMatrix(0, 3) = "库存价格"
    MSFlexGrid1.TextMatrix(0, 4) = "数量"
    MSFlexGrid1.TextMatrix(0, 5) = "进货金额"
    MSFlexGrid1.TextMatrix(0, 6) = "包装规格"
    MSFlexGrid1.TextMatrix(0, 7) = "剂型"
    MSFlexGrid1.TextMatrix(0, 8) = "药品类型"
    MSFlexGrid1.TextMatrix(0, 9) = "生产日期"
    MSFlexGrid1.TextMatrix(0, 10) = "有效日期"

    MSFlexGrid1.TextMatrix(0, 11) = "备注"
    
    MSFlexGrid1.ColWidth(0) = 300
    MSFlexGrid1.ColWidth(1) = 1800
    MSFlexGrid1.ColWidth(2) = 900
    MSFlexGrid1.ColWidth(3) = 1700
    MSFlexGrid1.ColWidth(4) = 900
    MSFlexGrid1.ColWidth(5) = 1700
    MSFlexGrid1.ColWidth(6) = 900
    MSFlexGrid1.ColWidth(7) = 800
    MSFlexGrid1.ColWidth(8) = 800
    MSFlexGrid1.ColWidth(9) = 1000
    MSFlexGrid1.ColWidth(10) = 1100

    MSFlexGrid1.ColWidth(11) = 2000

   ' Trecordset3.Close
    With Trecordset3
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select * from kucun order by id desc"
         .Open
    End With
    MSFlexGrid1.Rows = Trecordset3.RecordCount + 1
    If Trecordset3.RecordCount > 0 Then Trecordset3.MoveFirst
    t = 1
    Do While Not Trecordset3.EOF
       MSFlexGrid1.TextMatrix(t, 0) = Trecordset3.Fields("id")
       MSFlexGrid1.TextMatrix(t, 1) = Trecordset3.Fields("wanglaidanwei")
       MSFlexGrid1.TextMatrix(t, 2) = Trecordset3.Fields("yaopinming")
       MSFlexGrid1.TextMatrix(t, 3) = Trecordset3.Fields("jiage")
       MSFlexGrid1.TextMatrix(t, 4) = Trecordset3.Fields("shuliang")
       MSFlexGrid1.TextMatrix(t, 5) = Trecordset3.Fields("jine")
       MSFlexGrid1.TextMatrix(t, 6) = Trecordset3.Fields("guige")
       MSFlexGrid1.TextMatrix(t, 7) = Trecordset3.Fields("jixing")
       MSFlexGrid1.TextMatrix(t, 8) = Trecordset3.Fields("leixing")
       MSFlexGrid1.TextMatrix(t, 9) = Trecordset3.Fields("shengchanriqi")
       MSFlexGrid1.TextMatrix(t, 10) = Trecordset3.Fields("youxiaoqi")

       MSFlexGrid1.TextMatrix(t, 11) = Trecordset3.Fields("beizhu")
       Trecordset3.MoveNext
       t = t + 1
    Loop
    Trecordset3.Close
    Set Trecordset3 = Nothing
    
End Sub
Sub Gridflex1()
 'init the headers of the msflexgrid1
    MSFlexGrid1.Clear
    MSFlexGrid1.Cols = 12
    
    MSFlexGrid1.TextMatrix(0, 0) = "编号"
    MSFlexGrid1.TextMatrix(0, 1) = "往来单位"
    MSFlexGrid1.TextMatrix(0, 2) = "药品名称"
    MSFlexGrid1.TextMatrix(0, 3) = "库存平均价格"
    MSFlexGrid1.TextMatrix(0, 4) = "数量"
    MSFlexGrid1.TextMatrix(0, 5) = "进货花费金额"
    MSFlexGrid1.TextMatrix(0, 6) = "包装规格"
    MSFlexGrid1.TextMatrix(0, 7) = "剂型"
    MSFlexGrid1.TextMatrix(0, 8) = "药品类型"
    MSFlexGrid1.TextMatrix(0, 9) = "生产日期"
    MSFlexGrid1.TextMatrix(0, 10) = "有效日期"

    MSFlexGrid1.TextMatrix(0, 11) = "备注"
    
    MSFlexGrid1.ColWidth(0) = 300
    MSFlexGrid1.ColWidth(1) = 1800
    MSFlexGrid1.ColWidth(2) = 900
    MSFlexGrid1.ColWidth(3) = 1700
    MSFlexGrid1.ColWidth(4) = 900
    MSFlexGrid1.ColWidth(5) = 1700
    MSFlexGrid1.ColWidth(6) = 900
    MSFlexGrid1.ColWidth(7) = 800
    MSFlexGrid1.ColWidth(8) = 800
    MSFlexGrid1.ColWidth(9) = 1000
    MSFlexGrid1.ColWidth(10) = 1100

    MSFlexGrid1.ColWidth(11) = 2000


    MSFlexGrid1.Rows = Trecordset2.RecordCount + 1
    If Trecordset2.RecordCount > 0 Then Trecordset2.MoveFirst
    t = 1
    Do While Not Trecordset2.EOF
       MSFlexGrid1.TextMatrix(t, 0) = Trecordset2.Fields("id")
       MSFlexGrid1.TextMatrix(t, 1) = Trecordset2.Fields("wanglaidanwei")
       MSFlexGrid1.TextMatrix(t, 2) = Trecordset2.Fields("yaopinming")
       MSFlexGrid1.TextMatrix(t, 3) = Trecordset2.Fields("jiage")
       MSFlexGrid1.TextMatrix(t, 4) = Trecordset2.Fields("shuliang")
       MSFlexGrid1.TextMatrix(t, 5) = Trecordset2.Fields("jine")
       MSFlexGrid1.TextMatrix(t, 6) = Trecordset2.Fields("guige")
       MSFlexGrid1.TextMatrix(t, 7) = Trecordset2.Fields("jixing")
       MSFlexGrid1.TextMatrix(t, 8) = Trecordset2.Fields("leixing")
       MSFlexGrid1.TextMatrix(t, 9) = Trecordset2.Fields("shengchanriqi")
       MSFlexGrid1.TextMatrix(t, 10) = Trecordset2.Fields("youxiaoqi")
       
       MSFlexGrid1.TextMatrix(t, 11) = Trecordset2.Fields("beizhu")
       Trecordset2.MoveNext
       t = t + 1
    Loop
     
End Sub

Private Sub Combo1_change()
    If Trecordset2.State = adStateOpen Then Trecordset2.Close

    With Trecordset2
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select * from kucun where yaopinming='" & Trim(Combo1.Text) & "'"
         .Open
    End With
    Gridflex1

End Sub

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Command2_Click()
    If MsgBox("需要打印库存单吗？", vbYesNo + vbInformation, "提示") = vbYes Then
'************************************保存
    dayin1
       Trecordset2.Close
    Set Trecordset2 = Nothing
    Load dayin
    dayin.Show
    Else
       Trecordset2.Close
    Set Trecordset2 = Nothing
    End If
End Sub

Private Sub Form_Load()
    'set the window in the middle
    Me.Left = (Screen.Width - Me.Width) / 2
    Me.Top = (Screen.Height - Me.Height) / 2
    Initial '''''''''''''''''初始化进货单
    
    Gridflex
End Sub

Private Sub MSFlexGrid1_Click()
       kucunID = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 0))
       Load kucunpandianModify
       kucunpandianModify.Show
       Unload kucunpandian
End Sub

Private Sub Text1_Change()
    Combo1.Clear
    If Trecordset2.State = adStateOpen Then Trecordset2.Close
    With Trecordset2
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
        ' .Source = "Select * from kucun where yaopinming like '%" & Trim(Combo1.Text) & "%'"
         .Source = "Select * from yaopin where daima like '%" & Trim(Text1.Text) & "%'"
         .Open
    End With
    If Trecordset2.RecordCount > 0 Then

        Do While Not Trecordset2.EOF
           Combo1.AddItem Trecordset2.Fields("name")
        Trecordset2.MoveNext
        Loop
    End If
    If Trecordset2.RecordCount > 0 Then
       Trecordset2.MoveFirst
       Combo1.Text = Trecordset2.Fields("name")
    End If
End Sub
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -