📄 jinhuotongji.frm

📁 一个医药进存销程序
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
    For i = 1 To 12
        Combo3.AddItem i
        Combo6.AddItem i
    Next
    Combo3.Text = Month(Date)
    Combo6.Text = Month(Date)
    For i = 1 To 31
        Combo4.AddItem i
        Combo7.AddItem i
    Next
    Combo4.Text = Day(Date)
    Combo7.Text = Day(Date)
    '''''''''''''''''''''''''药品名称

    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
       Combo1.Text = "全部"
       Combo1.AddItem Trecordset1.Fields("yaopinming")
    Trecordset1.MoveNext
    Loop
    Trecordset1.Close
End Sub
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) = 1100
    MSFlexGrid1.ColWidth(3) = 1100
    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.ColWidth(10) = 2100
    MSFlexGrid1.ColWidth(11) = 900
    MSFlexGrid1.ColWidth(12) = 2100
    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 + 2
    If Trecordset3.RecordCount > 0 Then Trecordset3.MoveFirst
    t = 1
    zongshu = 0
    zongjine = 0
    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("shuliang")
       MSFlexGrid1.TextMatrix(t, 3) = Trecordset3.Fields("jine")
       MSFlexGrid1.TextMatrix(t, 4) = Trecordset3.Fields("caozuoyuan")
       MSFlexGrid1.TextMatrix(t, 5) = Trecordset3.Fields("wanglaidanwei")
       MSFlexGrid1.TextMatrix(t, 6) = Trecordset3.Fields("shijian")
       MSFlexGrid1.TextMatrix(t, 7) = Trecordset3.Fields("yaopinming")
       MSFlexGrid1.TextMatrix(t, 8) = Trecordset3.Fields("guige")
       MSFlexGrid1.TextMatrix(t, 9) = Trecordset3.Fields("jixing")
       MSFlexGrid1.TextMatrix(t, 10) = Trecordset3.Fields("leixing")
       MSFlexGrid1.TextMatrix(t, 11) = Trecordset3.Fields("shengchanriqi")
       MSFlexGrid1.TextMatrix(t, 12) = Trecordset3.Fields("youxiaoqi")
       MSFlexGrid1.TextMatrix(t, 13) = Trecordset3.Fields("jiage")

       MSFlexGrid1.TextMatrix(t, 14) = Trecordset3.Fields("beizhu")
       zongshu = Val(zongshu) + Val(Trecordset3.Fields("shuliang"))
       zongjine = Val(zongjine) + Val(Trecordset3.Fields("jine"))
       Trecordset3.MoveNext
       t = t + 1
    Loop
       MSFlexGrid1.TextMatrix(t, 1) = "合计"
       MSFlexGrid1.TextMatrix(t, 2) = Val(zongshu)
       MSFlexGrid1.TextMatrix(t, 3) = Val(zongjine)
   
    
    Trecordset3.Close
    Set Trecordset3 = Nothing
    
End Sub
Sub Gridflex1()
 'init the headers of the msflexgrid1
    MSFlexGrid1.Clear
  MSFlexGrid1.Cols = 15
    
    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) = 1100
    MSFlexGrid1.ColWidth(3) = 1100
    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.ColWidth(10) = 2100
    MSFlexGrid1.ColWidth(11) = 900
    MSFlexGrid1.ColWidth(12) = 2100
    MSFlexGrid1.ColWidth(13) = 1100

    MSFlexGrid1.ColWidth(14) = 1100


    MSFlexGrid1.Rows = Trecordset2.RecordCount + 2
    If Trecordset2.RecordCount > 0 Then Trecordset2.MoveFirst
    t = 1
    zongshu1 = 0
    zongjine1 = 0
    Do While Not Trecordset2.EOF
       MSFlexGrid1.TextMatrix(t, 0) = Trecordset2.Fields("id")
       MSFlexGrid1.TextMatrix(t, 1) = Trecordset2.Fields("jinhuohao")
       MSFlexGrid1.TextMatrix(t, 2) = Trecordset2.Fields("shuliang")
       MSFlexGrid1.TextMatrix(t, 3) = Trecordset2.Fields("jine")
       MSFlexGrid1.TextMatrix(t, 4) = Trecordset2.Fields("caozuoyuan")
       MSFlexGrid1.TextMatrix(t, 5) = Trecordset2.Fields("wanglaidanwei")
       MSFlexGrid1.TextMatrix(t, 6) = Trecordset2.Fields("shijian")
       MSFlexGrid1.TextMatrix(t, 7) = Trecordset2.Fields("yaopinming")
       MSFlexGrid1.TextMatrix(t, 8) = Trecordset2.Fields("guige")
       MSFlexGrid1.TextMatrix(t, 9) = Trecordset2.Fields("jixing")
       MSFlexGrid1.TextMatrix(t, 10) = Trecordset2.Fields("leixing")
       MSFlexGrid1.TextMatrix(t, 11) = Trecordset2.Fields("shengchanriqi")
       MSFlexGrid1.TextMatrix(t, 12) = Trecordset2.Fields("youxiaoqi")
       MSFlexGrid1.TextMatrix(t, 13) = Trecordset2.Fields("jiage")

       MSFlexGrid1.TextMatrix(t, 14) = Trecordset2.Fields("beizhu")
       zongshu1 = Val(zongshu1) + Val(Trecordset2.Fields("shuliang"))
       zongjine1 = Val(zongjine1) + Val(Trecordset2.Fields("jine"))
       Trecordset2.MoveNext
       t = t + 1
    Loop
       MSFlexGrid1.TextMatrix(t, 1) = "合计"
       MSFlexGrid1.TextMatrix(t, 2) = Val(zongshu1)
       MSFlexGrid1.TextMatrix(t, 3) = Val(zongjine1)

    
End Sub

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Command2_Click()
    With Trecordset2
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         If Combo1.Text = "全部" Then
         .Source = "Select * from jinhuo where  shijian>=cdate('" & Trim(Combo2.Text) & "-" & Trim(Combo3.Text) & "-" & Trim(Combo4.Text) & "') and shijian<=cdate('" & Trim(Combo5.Text) & "-" & Trim(Combo6.Text) & "-" & Trim(Combo7.Text) & "')"
         Else
         .Source = "Select * from jinhuo where yaopinming='" & Trim(Combo1.Text) & "'and shijian>=cdate('" & Trim(Combo2.Text) & "-" & Trim(Combo3.Text) & "-" & Trim(Combo4.Text) & "') and shijian<=cdate('" & Trim(Combo5.Text) & "-" & Trim(Combo6.Text) & "-" & Trim(Combo7.Text) & "')"
         End If
         .Open
    End With
    Gridflex1
    If MsgBox("需要打印进货统计单吗？", vbYesNo + vbInformation, "提示") = vbYes Then
'************************************保存
    
       dayin1
       Load dayin
       dayin.Show
       
    End If
    Trecordset2.Close
    Set Trecordset2 = Nothing
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 '''''''''''''''''初始化进货单
    Gridflex
End Sub
上一页 12
⌨️ 快捷键说明

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