jinhuomodify.frm

一个医药进存销程序

         ForeColor       =   &H00FF0000&
         Height          =   255
         Left            =   2280
         TabIndex        =   26
         Top             =   1800
         Width           =   255
      End
      Begin VB.Label Label15 
         Caption         =   "备  注："
         Height          =   255
         Left            =   5760
         TabIndex        =   25
         Top             =   1440
         Width           =   735
      End
      Begin VB.Label Label13 
         Caption         =   "年"
         Height          =   255
         Left            =   10320
         TabIndex        =   24
         Top             =   360
         Width           =   375
      End
      Begin VB.Label Label16 
         Caption         =   "月"
         Height          =   375
         Left            =   11160
         TabIndex        =   23
         Top             =   360
         Width           =   375
      End
      Begin VB.Label Label17 
         Caption         =   "日"
         Height          =   255
         Left            =   11880
         TabIndex        =   22
         Top             =   360
         Width           =   255
      End
      Begin VB.Label Label18 
         Caption         =   "年"
         Height          =   255
         Left            =   10440
         TabIndex        =   21
         Top             =   960
         Width           =   375
      End
      Begin VB.Label Label19 
         Caption         =   "月"
         Height          =   255
         Left            =   11280
         TabIndex        =   20
         Top             =   960
         Width           =   255
      End
      Begin VB.Label Label20 
         Caption         =   "日"
         Height          =   255
         Left            =   12000
         TabIndex        =   19
         Top             =   960
         Width           =   255
      End
      Begin VB.Label Label21 
         Caption         =   "元"
         ForeColor       =   &H00FF0000&
         Height          =   255
         Left            =   4560
         TabIndex        =   18
         Top             =   1680
         Width           =   375
      End
      Begin VB.Label Label28 
         Caption         =   "药品代码："
         Height          =   255
         Left            =   120
         TabIndex        =   17
         Top             =   240
         Width           =   975
      End
      Begin VB.Label Label29 
         Caption         =   "金额："
         Height          =   255
         Left            =   2880
         TabIndex        =   16
         Top             =   1680
         Width           =   615
      End
   End
End
Attribute VB_Name = "jinhuoModify"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Trecordset3 As New ADODB.Recordset
Sub Bai()
    Text1.Enabled = True
    Text2.Enabled = True
    Text3.Enabled = True
    Text4.Enabled = True
    Text5.Enabled = True
    Text6.Enabled = True
    Text7.Enabled = True
    Text8.Enabled = True
    Text9.Enabled = True

    Combo1.Enabled = True
    Combo2.Enabled = True
    Combo3.Enabled = True
    Combo4.Enabled = True
    Combo5.Enabled = True
    Combo6.Enabled = True
    Combo7.Enabled = True
    Combo8.Enabled = True
    Combo9.Enabled = True
    Combo10.Enabled = True
    Combo11.Enabled = True
    Combo12.Enabled = True
    
    
    Text1.BackColor = &HFFFFFF
    Text2.BackColor = &HFFFFFF
    Text3.BackColor = &HFFFFFF
    Text4.BackColor = &HFFFFFF
    Text5.BackColor = &HFFFFFF
    Text6.BackColor = &HFFFFFF
    Text7.BackColor = &HFFFFFF
    Text8.BackColor = &HFFFFFF
    Text9.BackColor = &HFFFFFF

    Combo1.BackColor = &HFFFFFF
    Combo2.BackColor = &HFFFFFF
    Combo3.BackColor = &HFFFFFF
    Combo4.BackColor = &HFFFFFF
    Combo5.BackColor = &HFFFFFF
    Combo6.BackColor = &HFFFFFF
    Combo7.BackColor = &HFFFFFF
    Combo8.BackColor = &HFFFFFF
    Combo9.BackColor = &HFFFFFF
    Combo10.BackColor = &HFFFFFF
    Combo11.BackColor = &HFFFFFF
    Combo12.BackColor = &HFFFFFF
End Sub
Sub Hei()
 '''''''''init bar
    Command3.Enabled = False
    Text1.Enabled = False
    Text2.Enabled = False
    Text3.Enabled = False
    Text4.Enabled = False
    Text5.Enabled = False
    Text6.Enabled = False
    Text7.Enabled = False
    Text8.Enabled = False
    Text9.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
    
Text1.BackColor = &H80000004
Text2.BackColor = &H80000004
Text3.BackColor = &H80000004
Text4.BackColor = &H80000004
Text5.BackColor = &H80000004
Text6.BackColor = &H80000004
Text8.BackColor = &H80000004
Text9.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
End Sub
Sub Gridflex()
    If Trecordset3.State = 1 Then Trecordset3.Close
    With Trecordset3
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select * from jinhuo where id= val('" & jinhuoID & "')  order by id desc"
         .Open
    End With
    Text1.Text = Trecordset3.Fields("shijian")
    Text2.Text = Trecordset3.Fields("jinhuohao")
    Combo1.Text = Trecordset3.Fields("caozuoyuan")
    Combo2.Text = Trecordset3.Fields("wanglaidanwei")
    Combo3.Text = Trecordset3.Fields("yaopinming")
    Combo4.Text = Trecordset3.Fields("guige")
    Combo5.Text = Trecordset3.Fields("jixing")
    Combo6.Text = Trecordset3.Fields("leixing")
    Text8.Text = Trecordset3.Fields("shengchanriqi")
    Text9.Text = Trecordset3.Fields("youxiaoqi")
    Text3.Text = Trecordset3.Fields("jiage")
    Text4.Text = Trecordset3.Fields("shuliang")
    Text5.Text = Trecordset3.Fields("jine")
    Text6.Text = Trecordset3.Fields("beizhu")

'    Trecordset3.Close
'    Set Trecordset3 = Nothing
    
End Sub

Private Sub Command1_Click()
    Bai
    Command1.Enabled = False
    Command3.Enabled = True
    Command2.Enabled = False
    Tag = "2"
End Sub

Private Sub Command2_Click()
    Command3.Enabled = True
    Command1.Enabled = False
    Command2.Enabled = False
    Tag = "1"
End Sub

Private Sub Command3_Click()
If Tag = "1" Then
    If MsgBox("您确定删除本条记录吗？", vbYesNo + vbInformation, "提示") = vbYes Then
       Trecordset3.Delete
       Trecordset3.Requery
       Trecordset3.Close
      'DataToScreen
     ' If SGWConnection.State = adStateOpen Then Closconn
       MsgBox "记录已删除！", vbOKOnly + vbInformation, "提示"
       Unload jinhuoModify

      ' Unload Me
    End If
ElseIf Tag = "2" Then
    Trecordset3.Fields("shijian") = Trim(Text1.Text)
    Trecordset3.Fields("jinhuohao") = Trim(Text2.Text)
    Trecordset3.Fields("caozuoyuan") = Trim(Combo1.Text)
    Trecordset3.Fields("wanglaidanwei") = Trim(Combo2.Text)
    Trecordset3.Fields("yaopinming") = Trim(Combo3.Text)
    Trecordset3.Fields("guige") = Trim(Combo4.Text)
    Trecordset3.Fields("jixing") = Trim(Combo5.Text)
    Trecordset3.Fields("leixing") = Trim(Combo6.Text)
    Trecordset3.Fields("shengchanriqi") = Trim(Text8.Text)
    Trecordset3.Fields("youxiaoqi") = Trim(Text9.Text)
    Trecordset3.Fields("jiage") = Trim(Text3.Text)
    Trecordset3.Fields("shuliang") = Trim(Text4.Text)
    Trecordset3.Fields("jine") = Trim(Text5.Text)
    Trecordset3.Fields("beizhu") = Trim(Text6.Text)
    Trecordset3.Update
    Trecordset3.Requery
       Trecordset3.Close
End If
    Hei
    Command1.Enabled = True
    Command2.Enabled = True
    Command3.Enabled = False
End Sub

Private Sub Command4_Click()
    Unload Me
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
''''''''''''''''''''''''''
    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)
''''''''''''''''''''''''''
    Hei
    Gridflex
End Sub