📄 danjuchaxun.frm

📁 一个医药进存销程序
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
    
    MSFlexGrid1.ColWidth(0) = 500
    MSFlexGrid1.ColWidth(1) = 1500
    MSFlexGrid1.ColWidth(2) = 900
    MSFlexGrid1.ColWidth(3) = 1500
    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

    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

    
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) = 1500
    MSFlexGrid1.ColWidth(2) = 900
    MSFlexGrid1.ColWidth(3) = 1500
    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

    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("pifahao")
       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

    
End Sub
Sub Gridflex2()
  '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) = 1500
    MSFlexGrid1.ColWidth(2) = 900
    MSFlexGrid1.ColWidth(3) = 1500
    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

    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

    
End Sub

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Command2_Click()
    With Trecordset3
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select * from jinhuo where jinhuohao='" & Trim(Combo1.Text) & "' order by id desc"
         .Open
    End With
    Gridflex
    If MsgBox("需要打印进货单吗？", vbYesNo + vbInformation, "提示") = vbYes Then
'************************************保存
    dayin1
       Trecordset3.Close
    Set Trecordset3 = Nothing
    Load dayin
    dayin.Show
    Else
       Trecordset3.Close
    Set Trecordset3 = Nothing
    End If
End Sub

Private Sub Command3_Click()
    With Trecordset3
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select * from pifa where pifahao='" & Trim(Combo2.Text) & "' order by id desc"
         .Open
    End With
    Gridflex1
    If MsgBox("需要打印批发单吗？", vbYesNo + vbInformation, "提示") = vbYes Then
'************************************保存
    dayin2
       Trecordset3.Close
    Set Trecordset3 = Nothing
    Load dayin
    dayin.Show
    Else
       Trecordset3.Close
    Set Trecordset3 = Nothing
    End If
End Sub

Private Sub Command4_Click()
    With Trecordset3
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select * from lingshou where lingshouhao='" & Trim(Combo3.Text) & "' order by id desc"
         .Open
    End With
    Gridflex2
    If MsgBox("需要打印零售单吗？", vbYesNo + vbInformation, "提示") = vbYes Then
'************************************保存
    dayin3
       Trecordset3.Close
    Set Trecordset3 = Nothing
    Load dayin
    dayin.Show
    Else
       Trecordset3.Close
    Set Trecordset3 = 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 '''''''''''''''''初始化进货单

End Sub
上一页 12
⌨️ 快捷键说明

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