📄 liruntongji.frm
字号:
.CursorLocation = adUseServer
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Source = "Select * from lingshou order by id desc"
.Open
End With
MSFlexGrid1.Rows = Trecordset3.RecordCount + Trecordset5.RecordCount + 6
If Trecordset3.RecordCount > 0 Then Trecordset3.MoveFirst
Dim zongshu As String, zongjine As String, lirun As String
t = 1
zongshu = 0
zongjine = 0
lirun = 0
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("shuliang")
MSFlexGrid1.TextMatrix(t, 3) = Trecordset3.Fields("jine")
MSFlexGrid1.TextMatrix(t, 4) = Trecordset3.Fields("lirun")
MSFlexGrid1.TextMatrix(t, 5) = Trecordset3.Fields("caozuoyuan")
MSFlexGrid1.TextMatrix(t, 6) = Trecordset3.Fields("wanglaidanwei")
MSFlexGrid1.TextMatrix(t, 7) = Trecordset3.Fields("shijian")
MSFlexGrid1.TextMatrix(t, 8) = Trecordset3.Fields("yaopinming")
MSFlexGrid1.TextMatrix(t, 9) = Trecordset3.Fields("guige")
MSFlexGrid1.TextMatrix(t, 10) = Trecordset3.Fields("jixing")
MSFlexGrid1.TextMatrix(t, 11) = Trecordset3.Fields("leixing")
MSFlexGrid1.TextMatrix(t, 12) = Trecordset3.Fields("shengchanriqi")
MSFlexGrid1.TextMatrix(t, 13) = Trecordset3.Fields("youxiaoqi")
MSFlexGrid1.TextMatrix(t, 14) = Trecordset3.Fields("jiage")
MSFlexGrid1.TextMatrix(t, 15) = Trecordset3.Fields("beizhu")
zongshu = Val(zongshu) + Val(Trecordset3.Fields("shuliang"))
zongjine = Val(zongjine) + Val(Trecordset3.Fields("jine"))
lirun = Val(lirun) + Val(Trecordset3.Fields("lirun"))
Trecordset3.MoveNext
t = t + 1
Loop
MSFlexGrid1.TextMatrix(t, 0) = "批发"
MSFlexGrid1.TextMatrix(t, 1) = "合计"
MSFlexGrid1.TextMatrix(t, 2) = Val(zongshu)
MSFlexGrid1.TextMatrix(t, 3) = Val(zongjine)
MSFlexGrid1.TextMatrix(t, 4) = Val(lirun)
Trecordset3.Close
t = t + 2
''''''''''''''''''''''''''''''''''''''''零售
'MSFlexGrid1.Rows = Trecordset3.RecordCount + 2
If Trecordset5.RecordCount > 0 Then Trecordset5.MoveFirst
Dim zongshu0 As String, zongjine0 As String, lirun0 As String
zongshu0 = 0
zongjine0 = 0
Do While Not Trecordset5.EOF
MSFlexGrid1.TextMatrix(t, 0) = Trecordset5.Fields("id")
MSFlexGrid1.TextMatrix(t, 1) = Trecordset5.Fields("lingshouhao")
MSFlexGrid1.TextMatrix(t, 2) = Trecordset5.Fields("shuliang")
MSFlexGrid1.TextMatrix(t, 3) = Trecordset5.Fields("jine")
MSFlexGrid1.TextMatrix(t, 4) = Trecordset5.Fields("lirun")
MSFlexGrid1.TextMatrix(t, 5) = Trecordset5.Fields("caozuoyuan")
MSFlexGrid1.TextMatrix(t, 6) = Trecordset5.Fields("wanglaidanwei")
MSFlexGrid1.TextMatrix(t, 7) = Trecordset5.Fields("shijian")
MSFlexGrid1.TextMatrix(t, 8) = Trecordset5.Fields("yaopinming")
MSFlexGrid1.TextMatrix(t, 9) = Trecordset5.Fields("guige")
MSFlexGrid1.TextMatrix(t, 10) = Trecordset5.Fields("jixing")
MSFlexGrid1.TextMatrix(t, 11) = Trecordset5.Fields("leixing")
MSFlexGrid1.TextMatrix(t, 12) = Trecordset5.Fields("shengchanriqi")
MSFlexGrid1.TextMatrix(t, 13) = Trecordset5.Fields("youxiaoqi")
MSFlexGrid1.TextMatrix(t, 14) = Trecordset5.Fields("jiage")
MSFlexGrid1.TextMatrix(t, 15) = Trecordset5.Fields("beizhu")
zongshu0 = Val(zongshu0) + Val(Trecordset5.Fields("shuliang"))
zongjine0 = Val(zongjine0) + Val(Trecordset5.Fields("jine"))
lirun0 = Val(lirun0) + Val(Trecordset5.Fields("lirun"))
Trecordset5.MoveNext
t = t + 1
Loop
MSFlexGrid1.TextMatrix(t, 0) = "零售"
MSFlexGrid1.TextMatrix(t, 1) = "合计"
MSFlexGrid1.TextMatrix(t, 2) = Val(zongshu0)
MSFlexGrid1.TextMatrix(t, 3) = Val(zongjine0)
MSFlexGrid1.TextMatrix(t, 4) = Val(lirun0)
t = t + 2
MSFlexGrid1.TextMatrix(t, 0) = "销售"
MSFlexGrid1.TextMatrix(t, 1) = "合计"
MSFlexGrid1.TextMatrix(t, 2) = Val(zongshu0 + zongshu)
MSFlexGrid1.TextMatrix(t, 3) = Val(zongjine0 + zongjine)
MSFlexGrid1.TextMatrix(t, 4) = Val(lirun0 + lirun)
Trecordset5.Close
Set Trecordset5 = Nothing
End Sub
Sub Gridflex1()
'init the headers of the msflexgrid1
MSFlexGrid1.Clear
MSFlexGrid1.Cols = 16
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.TextMatrix(0, 15) = "备注"
MSFlexGrid1.ColWidth(0) = 500
MSFlexGrid1.ColWidth(1) = 1500
MSFlexGrid1.ColWidth(2) = 800
MSFlexGrid1.ColWidth(3) = 800
MSFlexGrid1.ColWidth(4) = 800
MSFlexGrid1.ColWidth(5) = 900
MSFlexGrid1.ColWidth(6) = 1500
MSFlexGrid1.ColWidth(7) = 900
MSFlexGrid1.ColWidth(8) = 900
MSFlexGrid1.ColWidth(9) = 900
MSFlexGrid1.ColWidth(10) = 900
MSFlexGrid1.ColWidth(11) = 900
MSFlexGrid1.ColWidth(12) = 900
MSFlexGrid1.ColWidth(13) = 900
MSFlexGrid1.ColWidth(14) = 900
MSFlexGrid1.ColWidth(15) = 2000
MSFlexGrid1.Rows = Trecordset3.RecordCount + Trecordset5.RecordCount + 6
If Trecordset3.RecordCount > 0 Then Trecordset3.MoveFirst
Dim zongshu As String, zongjine As String, lirun As String
t = 1
zongshu = 0
zongjine = 0
lirun = 0
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("shuliang")
MSFlexGrid1.TextMatrix(t, 3) = Trecordset3.Fields("jine")
MSFlexGrid1.TextMatrix(t, 4) = Trecordset3.Fields("lirun")
MSFlexGrid1.TextMatrix(t, 5) = Trecordset3.Fields("caozuoyuan")
MSFlexGrid1.TextMatrix(t, 6) = Trecordset3.Fields("wanglaidanwei")
MSFlexGrid1.TextMatrix(t, 7) = Trecordset3.Fields("shijian")
MSFlexGrid1.TextMatrix(t, 8) = Trecordset3.Fields("yaopinming")
MSFlexGrid1.TextMatrix(t, 9) = Trecordset3.Fields("guige")
MSFlexGrid1.TextMatrix(t, 10) = Trecordset3.Fields("jixing")
MSFlexGrid1.TextMatrix(t, 11) = Trecordset3.Fields("leixing")
MSFlexGrid1.TextMatrix(t, 12) = Trecordset3.Fields("shengchanriqi")
MSFlexGrid1.TextMatrix(t, 13) = Trecordset3.Fields("youxiaoqi")
MSFlexGrid1.TextMatrix(t, 14) = Trecordset3.Fields("jiage")
MSFlexGrid1.TextMatrix(t, 15) = Trecordset3.Fields("beizhu")
zongshu = Val(zongshu) + Val(Trecordset3.Fields("shuliang"))
zongjine = Val(zongjine) + Val(Trecordset3.Fields("jine"))
lirun = Val(lirun) + Val(Trecordset3.Fields("lirun"))
Trecordset3.MoveNext
t = t + 1
Loop
MSFlexGrid1.TextMatrix(t, 0) = "批发"
MSFlexGrid1.TextMatrix(t, 1) = "合计"
MSFlexGrid1.TextMatrix(t, 2) = Val(zongshu)
MSFlexGrid1.TextMatrix(t, 3) = Val(zongjine)
MSFlexGrid1.TextMatrix(t, 4) = Val(lirun)
Trecordset3.Close
t = t + 2
''''''''''''''''''''''''''''''''''''''''零售
'MSFlexGrid1.Rows = Trecordset3.RecordCount + 2
If Trecordset5.RecordCount > 0 Then Trecordset5.MoveFirst
Dim zongshu0 As String, zongjine0 As String, lirun0 As String
zongshu0 = 0
zongjine0 = 0
Do While Not Trecordset5.EOF
MSFlexGrid1.TextMatrix(t, 0) = Trecordset5.Fields("id")
MSFlexGrid1.TextMatrix(t, 1) = Trecordset5.Fields("lingshouhao")
MSFlexGrid1.TextMatrix(t, 2) = Trecordset5.Fields("shuliang")
MSFlexGrid1.TextMatrix(t, 3) = Trecordset5.Fields("jine")
MSFlexGrid1.TextMatrix(t, 4) = Trecordset5.Fields("lirun")
MSFlexGrid1.TextMatrix(t, 5) = Trecordset5.Fields("caozuoyuan")
MSFlexGrid1.TextMatrix(t, 6) = Trecordset5.Fields("wanglaidanwei")
MSFlexGrid1.TextMatrix(t, 7) = Trecordset5.Fields("shijian")
MSFlexGrid1.TextMatrix(t, 8) = Trecordset5.Fields("yaopinming")
MSFlexGrid1.TextMatrix(t, 9) = Trecordset5.Fields("guige")
MSFlexGrid1.TextMatrix(t, 10) = Trecordset5.Fields("jixing")
MSFlexGrid1.TextMatrix(t, 11) = Trecordset5.Fields("leixing")
MSFlexGrid1.TextMatrix(t, 12) = Trecordset5.Fields("shengchanriqi")
MSFlexGrid1.TextMatrix(t, 13) = Trecordset5.Fields("youxiaoqi")
MSFlexGrid1.TextMatrix(t, 14) = Trecordset5.Fields("jiage")
MSFlexGrid1.TextMatrix(t, 15) = Trecordset5.Fields("beizhu")
zongshu0 = Val(zongshu0) + Val(Trecordset5.Fields("shuliang"))
zongjine0 = Val(zongjine0) + Val(Trecordset5.Fields("jine"))
lirun0 = Val(lirun0) + Val(Trecordset5.Fields("lirun"))
Trecordset5.MoveNext
t = t + 1
Loop
MSFlexGrid1.TextMatrix(t, 0) = "零售"
MSFlexGrid1.TextMatrix(t, 1) = "合计"
MSFlexGrid1.TextMatrix(t, 2) = Val(zongshu0)
MSFlexGrid1.TextMatrix(t, 3) = Val(zongjine0)
MSFlexGrid1.TextMatrix(t, 4) = Val(lirun0)
t = t + 2
MSFlexGrid1.TextMatrix(t, 0) = "销售"
MSFlexGrid1.TextMatrix(t, 1) = "合计"
MSFlexGrid1.TextMatrix(t, 2) = Val(zongshu0) + Val(zongshu)
MSFlexGrid1.TextMatrix(t, 3) = Val(zongjine0) + Val(zongjine)
MSFlexGrid1.TextMatrix(t, 4) = Val(lirun0) + Val(lirun)
Trecordset5.Close
Set Trecordset5 = Nothing
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command2_Click()
'''''''''''''''''''
' Trecordset3.Close
With Trecordset3
Set .ActiveConnection = SGWConnection
.CursorLocation = adUseServer
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
If Combo1.Text = "全部" Then
.Source = "Select * from pifa 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 pifa 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
With Trecordset5
Set .ActiveConnection = SGWConnection
.CursorLocation = adUseServer
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
If Combo1.Text = "全部" Then
.Source = "Select * from lingshou 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 lingshou 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
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
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("需要打印利润单吗？", vbYesNo + vbInformation, "提示") = vbYes Then
'************************************保存
Load print_jinhuo
print_jinhuo.Show
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -