yaopin.frm

一个医药进存销程序

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form yaopin 
   Caption         =   "药品管理"
   ClientHeight    =   6135
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10110
   LinkTopic       =   "Form1"
   ScaleHeight     =   6135
   ScaleWidth      =   10110
   StartUpPosition =   3  '窗口缺省
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   3855
      Left            =   0
      TabIndex        =   13
      Top             =   2160
      Width           =   10095
      _ExtentX        =   17806
      _ExtentY        =   6800
      _Version        =   393216
   End
   Begin VB.Frame Frame1 
      Height          =   2055
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   10095
      Begin VB.TextBox Text4 
         Height          =   270
         Left            =   4800
         TabIndex        =   9
         Top             =   1560
         Width           =   975
      End
      Begin VB.TextBox Text3 
         Height          =   270
         Left            =   3120
         TabIndex        =   8
         Top             =   1560
         Width           =   855
      End
      Begin VB.CommandButton Command3 
         Caption         =   "添加"
         Height          =   375
         Left            =   6000
         TabIndex        =   10
         Top             =   1440
         Width           =   975
      End
      Begin VB.CommandButton Command2 
         Caption         =   "退出"
         Height          =   375
         Left            =   8760
         TabIndex        =   12
         Top             =   1440
         Width           =   855
      End
      Begin VB.CommandButton Command1 
         Caption         =   "保存"
         Height          =   375
         Left            =   7440
         TabIndex        =   11
         Top             =   1440
         Width           =   855
      End
      Begin VB.ComboBox Combo5 
         Height          =   300
         ItemData        =   "yaopin.frx":0000
         Left            =   1080
         List            =   "yaopin.frx":0013
         TabIndex        =   7
         Top             =   1560
         Width           =   1095
      End
      Begin VB.ComboBox Combo4 
         Height          =   300
         Left            =   7440
         TabIndex        =   6
         Top             =   840
         Width           =   2535
      End
      Begin VB.ComboBox Combo3 
         Height          =   300
         ItemData        =   "yaopin.frx":002B
         Left            =   4800
         List            =   "yaopin.frx":0038
         TabIndex        =   5
         Top             =   840
         Width           =   1335
      End
      Begin VB.ComboBox Combo2 
         Height          =   300
         ItemData        =   "yaopin.frx":005A
         Left            =   1080
         List            =   "yaopin.frx":0067
         TabIndex        =   4
         Top             =   840
         Width           =   2415
      End
      Begin VB.ComboBox Combo1 
         Height          =   300
         Left            =   7440
         TabIndex        =   3
         Top             =   240
         Width           =   2535
      End
      Begin VB.TextBox Text2 
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   4800
         TabIndex        =   2
         Top             =   240
         Width           =   1335
      End
      Begin VB.TextBox Text1 
         BackColor       =   &H00FFFFFF&
         Height          =   375
         Left            =   1080
         TabIndex        =   1
         Top             =   240
         Width           =   2415
      End
      Begin VB.Label Label9 
         Caption         =   "零售价："
         Height          =   255
         Left            =   4080
         TabIndex        =   22
         Top             =   1680
         Width           =   855
      End
      Begin VB.Label Label8 
         Caption         =   "批发价："
         Height          =   255
         Left            =   2400
         TabIndex        =   21
         Top             =   1680
         Width           =   735
      End
      Begin VB.Label Label7 
         Caption         =   "药品单位："
         Height          =   255
         Left            =   120
         TabIndex        =   20
         Top             =   1680
         Width           =   1095
      End
      Begin VB.Label Label6 
         Caption         =   "药品类型："
         Height          =   255
         Left            =   3720
         TabIndex        =   19
         Top             =   960
         Width           =   975
      End
      Begin VB.Label Label5 
         Caption         =   "生产厂家："
         Height          =   375
         Left            =   6360
         TabIndex        =   18
         Top             =   360
         Width           =   975
      End
      Begin VB.Label Label4 
         Caption         =   "药品剂型："
         Height          =   375
         Left            =   120
         TabIndex        =   17
         Top             =   960
         Width           =   1095
      End
      Begin VB.Label Label3 
         Caption         =   "药品代码："
         Height          =   255
         Left            =   3720
         TabIndex        =   16
         Top             =   360
         Width           =   1095
      End
      Begin VB.Label Label2 
         Caption         =   "包装规格："
         Height          =   255
         Left            =   6360
         TabIndex        =   15
         Top             =   960
         Width           =   975
      End
      Begin VB.Label Label1 
         Caption         =   "药品名称："
         Height          =   255
         Left            =   120
         TabIndex        =   14
         Top             =   360
         Width           =   1095
      End
   End
End
Attribute VB_Name = "yaopin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Trecordset As New ADODB.Recordset
Sub Gridflex()
 'init the headers of the msflexgrid1
    MSFlexGrid1.Cols = 10
    
    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.ColWidth(0) = 500
    MSFlexGrid1.ColWidth(1) = 2100
    MSFlexGrid1.ColWidth(2) = 900
    MSFlexGrid1.ColWidth(3) = 1000
    MSFlexGrid1.ColWidth(4) = 900
    MSFlexGrid1.ColWidth(5) = 2100
    MSFlexGrid1.ColWidth(6) = 1100
    MSFlexGrid1.ColWidth(7) = 1100
    MSFlexGrid1.ColWidth(8) = 1100
    MSFlexGrid1.ColWidth(9) = 1100
    MSFlexGrid1.Rows = Trecordset.RecordCount + 1
    If Trecordset.RecordCount > 0 Then Trecordset.MoveFirst
    t = 1
    Do While Not Trecordset.EOF
       MSFlexGrid1.TextMatrix(t, 0) = Trecordset.Fields("id")
       MSFlexGrid1.TextMatrix(t, 1) = Trecordset.Fields("name")
       MSFlexGrid1.TextMatrix(t, 2) = Trecordset.Fields("daima")
       MSFlexGrid1.TextMatrix(t, 3) = Trecordset.Fields("pifajia")
       MSFlexGrid1.TextMatrix(t, 4) = Trecordset.Fields("lingshoujia")
       MSFlexGrid1.TextMatrix(t, 5) = Trecordset.Fields("shengchanchangjia")
       MSFlexGrid1.TextMatrix(t, 6) = Trecordset.Fields("yaopinjixing")
       MSFlexGrid1.TextMatrix(t, 7) = Trecordset.Fields("yaopinleixing")
       MSFlexGrid1.TextMatrix(t, 8) = Trecordset.Fields("baozhuangguige")
       MSFlexGrid1.TextMatrix(t, 9) = Trecordset.Fields("yaopindanwei")
      
       Trecordset.MoveNext
       t = t + 1
    Loop
End Sub
Private Sub Command1_Click()
   ' Do While Not Trecordset.EOF
    If Trim(Text1.Text) = "" Then
       MsgBox "药品名称不能为空！", vbOKOnly, "提示"
       Exit Sub
    End If
    If Trim(Text2.Text) = "" Then
       MsgBox "药品代码不能为空！", vbOKOnly, "提示"
       Exit Sub
    End If
    If Trim(Combo1.Text) = "" Then
       MsgBox "生产厂家不能为空！", vbOKOnly, "提示"
       Exit Sub
    End If
    If Trim(Combo2.Text) = "" Then
       MsgBox "药品剂型不能为空！", vbOKOnly, "提示"
       Exit Sub
    End If
    If Trim(Combo3.Text) = "" Then
       MsgBox "药品类型不能为空！", vbOKOnly, "提示"
       Exit Sub
    End If
    If Trim(Combo4.Text) = "" Then
       MsgBox "包装规格不能为空！", vbOKOnly, "提示"
       Exit Sub
    End If
    If Trim(Combo5.Text) = "" Then
       MsgBox "药品单位不能为空！", vbOKOnly, "提示"
       Exit Sub
    End If
    If Trim(Text3.Text) = "" Then
       MsgBox "批发价不能为空！", vbOKOnly, "提示"
       Exit Sub
    End If
    If Trim(Text4.Text) = "" Then
       MsgBox "零售价不能为空！", vbOKOnly, "提示"
       Exit Sub
    End If
    Trecordset.AddNew
    Trecordset.Fields("name") = Trim(Text1.Text)
    Trecordset.Fields("daima") = Trim(Text2.Text)
    Trecordset.Fields("shengchanchangjia") = Trim(Combo1.Text)
    Trecordset.Fields("yaopinjixing") = Trim(Combo2.Text)
    Trecordset.Fields("yaopinleixing") = Trim(Combo3.Text)
    Trecordset.Fields("baozhuangguige") = Trim(Combo4.Text)
    Trecordset.Fields("yaopindanwei") = Trim(Combo5.Text)
    Trecordset.Fields("pifajia") = Trim(Text3.Text)
    Trecordset.Fields("lingshoujia") = Trim(Text4.Text)
    '   Trecordset.MoveNext
   ' Loop
    Trecordset.Update
    Trecordset.Requery
    Text1.Enabled = False
    Text2.Enabled = False
    Text3.Enabled = False
    Text4.Enabled = False
    Combo1.Enabled = False
    Combo2.Enabled = False
    Combo3.Enabled = False
    Combo4.Enabled = False
    Combo5.Enabled = False
Text1.BackColor = &H80000004
Text2.BackColor = &H80000004
Text3.BackColor = &H80000004
Text4.BackColor = &H80000004
Combo1.BackColor = &H80000004
Combo2.BackColor = &H80000004
Combo3.BackColor = &H80000004
Combo4.BackColor = &H80000004
Combo5.BackColor = &H80000004
Command3.Enabled = True
Command1.Enabled = False
Unload Me
Load yaopin
yaopin.Show
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub Command3_Click()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
Combo3.Enabled = True
Combo4.Enabled = True
Combo5.Enabled = True
Command1.Enabled = True
Text1.BackColor = &HFFFFFF
Text2.BackColor = &HFFFFFF
Text3.BackColor = &HFFFFFF
Text4.BackColor = &HFFFFFF
Combo1.BackColor = &HFFFFFF
Combo2.BackColor = &HFFFFFF
Combo3.BackColor = &HFFFFFF
Combo4.BackColor = &HFFFFFF
Combo5.BackColor = &HFFFFFF
Command3.Enabled = False
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
    '********
    'open the DSN
    With Trecordset
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select * from wanglaidanwei order by id desc"
         .Open
    End With
    Do While Not Trecordset.EOF
       Combo1.AddItem Trecordset.Fields("name")
    Combo1.Text = Trecordset.Fields("name")
    Trecordset.MoveNext
    Loop
    Trecordset.Close
'''''''''''''''''''''''''''''
    With Trecordset
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select * from yaopin order by id desc"
         .Open
    End With
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
Combo4.Enabled = False
Combo5.Enabled = False
Command1.Enabled = False
Text1.BackColor = &H80000004
Text2.BackColor = &H80000004
Text3.BackColor = &H80000004
Text2.BackColor = &H80000004
Combo1.BackColor = &H80000004
Combo2.BackColor = &H80000004
Combo3.BackColor = &H80000004
Combo4.BackColor = &H80000004
Combo5.BackColor = &H80000004
Gridflex
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Trecordset.Close
    Set Trecordset = Nothing
End Sub

Private Sub MSFlexGrid1_Click()
       yaopinID = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 0))
       Load yaopinModify
       yaopinModify.Show
       Unload yaopin
End Sub