lingshoudan.frm

一个医药进存销程序

    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 lingshou 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("lingshouhao")
       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.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 lingshou 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("lingshouhao")
       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
    Combo1.Enabled = False
    Combo2.Enabled = False
    Combo3.Enabled = False
    Combo4.Enabled = False
    Combo5.Enabled = False
    Combo6.Enabled = False
    Combo7.Enabled = False
    Combo8.Enabled = False
    
    
    Command4.Enabled = False
Text1.BackColor = &H80000004
Text2.BackColor = &H80000004
Text3.BackColor = &H80000004
Text4.BackColor = &H80000004
Text5.BackColor = &H80000004
Text6.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

    '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("haoma")
    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.AddItem Trecordset.Fields("name")
    Trecordset.MoveNext
    Loop
    Trecordset.Close
    '''''''''''''''''''''''''药品名称

    With Trecordset1
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select distinct yaopinming from jinhuo "
         .Open
    End With
    Do While Not Trecordset1.EOF
       Combo3.AddItem Trecordset1.Fields("yaopinming")
    Trecordset1.MoveNext
    Loop
    Trecordset1.Close
    
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''打开进货数据表
     With Trecordset3
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select * from lingshou order by id desc"
         .Open
    End With
    If Trecordset3.RecordCount > 0 Then
    Trecordset3.MoveFirst
    id = Trecordset3.Fields("id")
    Else
    id = 1
    End If
    Trecordset3.Close
    Gridflex
   '''''''''''''''''''''''''''''''''''''''其他
   Text1.Text = Date
   Text2.Text = "LSD" & Date & "-" & id + 1
   Text1.Enabled = False
   Text2.Enabled = False
End Sub

Private Sub Combo3_Change()
    Combo4.Clear
    Combo5.Clear
    Combo6.Clear
    Combo7.Clear
    Combo8.Clear
    If Trecordset2.State = adStateOpen Then Trecordset2.Close
    With Trecordset2
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select distinct guige from jinhuo where yaopinming='" & Trim(Combo3.Text) & "'"
         .Open
    End With
    Do While Not Trecordset2.EOF
       Combo4.AddItem Trecordset2.Fields("guige")
    Combo4.Text = Trecordset2.Fields("guige")
    Trecordset2.MoveNext
    Loop
    
    Trecordset2.Close
    With Trecordset2
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select distinct jixing from jinhuo where yaopinming='" & Trim(Combo3.Text) & "'"
         .Open
    End With
    Do While Not Trecordset2.EOF
       Combo5.Text = Trecordset2.Fields("jixing")
       Combo5.AddItem Trecordset2.Fields("jixing")
    Trecordset2.MoveNext
    Loop
    Trecordset2.Close
    With Trecordset2
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select distinct leixing from jinhuo where yaopinming='" & Trim(Combo3.Text) & "'"
         .Open
    End With
    Do While Not Trecordset2.EOF
       Combo6.Text = Trecordset2.Fields("leixing")
       Combo6.AddItem Trecordset2.Fields("leixing")
    Trecordset2.MoveNext
    Loop
    Trecordset2.Close
    With Trecordset2
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select distinct shengchanriqi from jinhuo where yaopinming='" & Trim(Combo3.Text) & "'"
         .Open
    End With
    Do While Not Trecordset2.EOF
       Combo7.Text = Trecordset2.Fields("shengchanriqi")
       Combo7.AddItem Trecordset2.Fields("shengchanriqi")
    Trecordset2.MoveNext
    Loop
    Trecordset2.Close
    With Trecordset2
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select distinct youxiaoqi from jinhuo where yaopinming='" & Trim(Combo3.Text) & "'"
         .Open
    End With
    Do While Not Trecordset2.EOF
       Combo8.Text = Trecordset2.Fields("youxiaoqi")
       Combo8.AddItem Trecordset2.Fields("youxiaoqi")
    Trecordset2.MoveNext
    Loop
    Trecordset2.Close
    With Trecordset2
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select distinct lingshoujia from yaopin where name='" & Trim(Combo3.Text) & "'"
         .Open
    End With
       Trecordset2.MoveFirst
       If IsNull(Trecordset2.Fields("lingshoujia")) Then
          Text3.Text = 0
       Else
          Text3.Text = Trecordset2.Fields("lingshoujia")
          
       End If
    Trecordset2.Close
    With Trecordset2
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select distinct jiage from jinhuo where yaopinming='" & Trim(Combo3.Text) & "'"
         .Open
    End With
    If Trecordset2.RecordCount > 0 Then
       Trecordset2.MoveFirst
       Label13.Caption = Trecordset2.Fields("jiage")
    End If
    Trecordset2.Close
    Set Trecordset2 = Nothing
End Sub

Private Sub Combo3_Click()
    Combo4.Clear
    Combo5.Clear
    Combo6.Clear
    Combo7.Clear
    Combo8.Clear
    If Trecordset2.State = adStateOpen Then Trecordset2.Close
    With Trecordset2
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select distinct guige from jinhuo where yaopinming='" & Trim(Combo3.Text) & "'"
         .Open
    End With
    Do While Not Trecordset2.EOF
       Combo4.AddItem Trecordset2.Fields("guige")