⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 jinhuodan.frm

📁 一个医药进存销程序
💻 FRM
📖 第 1 页 / 共 3 页
字号:
🔍
123 
            Top             =   240
            Width           =   1335
         End
         Begin VB.Label Label7 
            Caption         =   "价格："
            Height          =   255
            Left            =   480
            TabIndex        =   32
            Top             =   1800
            Width           =   615
         End
         Begin VB.Label Label6 
            Caption         =   "规格："
            Height          =   255
            Left            =   2880
            TabIndex        =   31
            Top             =   720
            Width           =   615
         End
         Begin VB.Label Label5 
            Caption         =   "药品名称："
            Height          =   255
            Left            =   2520
            TabIndex        =   29
            Top             =   240
            Width           =   1095
         End
      End
      Begin VB.Frame Frame2 
         Height          =   855
         Left            =   120
         TabIndex        =   23
         Top             =   120
         Width           =   9375
         Begin VB.CommandButton Command5 
            BackColor       =   &H00E0E0E0&
            Caption         =   "Command5"
            Height          =   255
            Left            =   9000
            MaskColor       =   &H008080FF&
            TabIndex        =   21
            Top             =   240
            Width           =   255
         End
         Begin VB.ComboBox Combo2 
            Height          =   300
            Left            =   7320
            TabIndex        =   1
            Top             =   240
            Width           =   1695
         End
         Begin VB.ComboBox Combo1 
            Height          =   300
            Left            =   5400
            TabIndex        =   20
            Top             =   240
            Width           =   975
         End
         Begin VB.TextBox Text2 
            Height          =   375
            Left            =   3120
            TabIndex        =   19
            Top             =   240
            Width           =   1575
         End
         Begin VB.TextBox Text1 
            Height          =   375
            Left            =   1080
            TabIndex        =   18
            Top             =   240
            Width           =   1335
         End
         Begin VB.Label Label4 
            Caption         =   "往来单位"
            Height          =   255
            Left            =   6480
            TabIndex        =   27
            Top             =   360
            Width           =   855
         End
         Begin VB.Label Label3 
            Caption         =   "操作员"
            Height          =   255
            Left            =   4800
            TabIndex        =   26
            Top             =   360
            Width           =   735
         End
         Begin VB.Label Label2 
            Caption         =   "单据号"
            Height          =   255
            Left            =   2520
            TabIndex        =   25
            Top             =   360
            Width           =   855
         End
         Begin VB.Label Label1 
            Caption         =   "操作时间"
            Height          =   255
            Left            =   120
            TabIndex        =   24
            Top             =   360
            Width           =   855
         End
      End
   End
End
Attribute VB_Name = "jinhuodan"
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 Gridflex()
 'init the headers of the msflexgrid1
    MSFlexGrid1.Cols = 15
    
    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.TextMatrix(0, 12) = "数量"
    MSFlexGrid1.TextMatrix(0, 13) = "金额"
    MSFlexGrid1.TextMatrix(0, 14) = "备注"
    
    MSFlexGrid1.ColWidth(0) = 500
    MSFlexGrid1.ColWidth(1) = 2100
    MSFlexGrid1.ColWidth(2) = 900
    MSFlexGrid1.ColWidth(3) = 2100
    MSFlexGrid1.ColWidth(4) = 1100
    MSFlexGrid1.ColWidth(5) = 1100
    MSFlexGrid1.ColWidth(6) = 1100
    MSFlexGrid1.ColWidth(7) = 1100
    MSFlexGrid1.ColWidth(8) = 2100
    MSFlexGrid1.ColWidth(9) = 900
    MSFlexGrid1.ColWidth(10) = 2100
    MSFlexGrid1.ColWidth(11) = 1100
    MSFlexGrid1.ColWidth(12) = 1100
    MSFlexGrid1.ColWidth(13) = 1100
    MSFlexGrid1.ColWidth(14) = 1100
   ' Trecordset3.Close
    With Trecordset3
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select * from jinhuo 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("jinhuohao")
       MSFlexGrid1.TextMatrix(t, 2) = Trecordset3.Fields("caozuoyuan")
       MSFlexGrid1.TextMatrix(t, 3) = Trecordset3.Fields("wanglaidanwei")
       MSFlexGrid1.TextMatrix(t, 4) = Trecordset3.Fields("shijian")
       MSFlexGrid1.TextMatrix(t, 5) = Trecordset3.Fields("yaopinming")
       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("jiage")
       MSFlexGrid1.TextMatrix(t, 12) = Trecordset3.Fields("shuliang")
       MSFlexGrid1.TextMatrix(t, 13) = Trecordset3.Fields("jine")
       MSFlexGrid1.TextMatrix(t, 14) = 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 = 15
    
    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.TextMatrix(0, 12) = "数量"
    MSFlexGrid1.TextMatrix(0, 13) = "金额"
    MSFlexGrid1.TextMatrix(0, 14) = "备注"
    
    MSFlexGrid1.ColWidth(0) = 500
    MSFlexGrid1.ColWidth(1) = 2100
    MSFlexGrid1.ColWidth(2) = 900
    MSFlexGrid1.ColWidth(3) = 2100
    MSFlexGrid1.ColWidth(4) = 1100
    MSFlexGrid1.ColWidth(5) = 1100
    MSFlexGrid1.ColWidth(6) = 1100
    MSFlexGrid1.ColWidth(7) = 1100
    MSFlexGrid1.ColWidth(8) = 2100
    MSFlexGrid1.ColWidth(9) = 900
    MSFlexGrid1.ColWidth(10) = 2100
    MSFlexGrid1.ColWidth(11) = 1100
    MSFlexGrid1.ColWidth(12) = 1100
    MSFlexGrid1.ColWidth(13) = 1100
    MSFlexGrid1.ColWidth(14) = 1100
   ' Trecordset3.Close
    With Trecordset3
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select * from jinhuo 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("jinhuohao")
       MSFlexGrid1.TextMatrix(t, 2) = Trecordset3.Fields("caozuoyuan")
       MSFlexGrid1.TextMatrix(t, 3) = Trecordset3.Fields("wanglaidanwei")
       MSFlexGrid1.TextMatrix(t, 4) = Trecordset3.Fields("shijian")
       MSFlexGrid1.TextMatrix(t, 5) = Trecordset3.Fields("yaopinming")
       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("jiage")
       MSFlexGrid1.TextMatrix(t, 12) = Trecordset3.Fields("shuliang")
       MSFlexGrid1.TextMatrix(t, 13) = Trecordset3.Fields("jine")
       MSFlexGrid1.TextMatrix(t, 14) = Trecordset3.Fields("beizhu")
       Trecordset3.MoveNext
       t = t + 1
    Loop
    Trecordset3.Close
    Set Trecordset3 = Nothing
    
End Sub
Sub Initial()
    '''''''''init bar
    Text1.Enabled = False
    Text2.Enabled = False
    Text3.Enabled = False
    Text4.Enabled = False
    Text5.Enabled = False
    Text6.Enabled = False
    Text7.Enabled = False
    Combo1.Enabled = False
    Combo2.Enabled = False
    Combo3.Enabled = False
    Combo4.Enabled = False
    Combo5.Enabled = False
    Combo6.Enabled = False
    Combo7.Enabled = False
    Combo8.Enabled = False
    Combo9.Enabled = False
    Combo10.Enabled = False
    Combo11.Enabled = False
    Combo12.Enabled = False
    
    Command4.Enabled = False
Text1.BackColor = &H80000004
Text2.BackColor = &H80000004
Text3.BackColor = &H80000004
Text4.BackColor = &H80000004
Text5.BackColor = &H80000004
Text6.BackColor = &H80000004
Text7.BackColor = &H80000004
Combo1.BackColor = &H80000004
Combo2.BackColor = &H80000004
Combo3.BackColor = &H80000004
Combo4.BackColor = &H80000004
Combo5.BackColor = &H80000004
Combo6.BackColor = &H80000004
Combo7.BackColor = &H80000004
Combo8.BackColor = &H80000004
Combo9.BackColor = &H80000004
Combo10.BackColor = &H80000004
Combo11.BackColor = &H80000004
Combo12.BackColor = &H80000004

Label22.Caption = MM
    'init the combobox
    Combo1.Clear
    Combo2.Clear
    Combo3.Clear
    Combo4.Clear
    Combo5.Clear
    Combo6.Clear
    For i = 1980 To Year(Date)
        Combo7.AddItem i
        Combo10.AddItem i
    Next
    Combo7.Text = Year(Date)
    Combo10.Text = Year(Date) + 1
    For i = 1 To 12
        Combo8.AddItem i
        Combo11.AddItem i
    Next
    Combo8.Text = Month(Date)
    Combo11.Text = Month(Date)
    For i = 1 To 31
        Combo9.AddItem i
        Combo12.AddItem i
    Next
    Combo9.Text = Day(Date)
    Combo12.Text = Day(Date)
    'open the DSN''''''''''''''''操作员
    With Trecordset
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select * from yuangong "
         .Open
    End With
    Do While Not Trecordset.EOF
       Combo1.Text = YuanGong
       Combo1.AddItem Trecordset.Fields("name")
    Trecordset.MoveNext
    Loop
    Trecordset.Close
    'open the DSN''''''''''''''''往来单位
    With Trecordset
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select * from wanglaidanwei "
         .Open
    End With
    Do While Not Trecordset.EOF
       Combo2.Text = Trecordset.Fields("name")
       Combo2.AddItem Trecordset.Fields("name")
    Trecordset.MoveNext
    Loop
    Trecordset.Close
    '''''''''''''''''''''''''药品名称

    With Trecordset1
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select * from yaopin "
         .Open
    End With
    Do While Not Trecordset1.EOF
       Combo3.AddItem Trecordset1.Fields("name")
    Trecordset1.MoveNext
    Loop
    Trecordset1.Close
    
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''打开进货数据表
     With Trecordset3
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select * from jinhuo order by id desc"
         .Open
    End With
    If Trecordset3.RecordCount > 0 Then
    Trecordset3.MoveFirst
123

⌨️ 快捷键说明

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