基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

Option Explicit

Private Sub Command1_Click()
    Dim obj As Object
    Dim vct As KFO.Vector
    Set obj = CreateObject("GT_K3BillCall.clsMain")
    obj.CreateNewBill (Text1.Text)
    Set obj = Nothing
End Sub

Private Sub Command10_Click()
    Dim obj As Object
    Dim vct As KFO.Vector
    Set obj = CreateObject("GT_K3BillCall.clsMain")
    Call obj.GetList(Text5.Text, , "1=1")
    Set obj = Nothing

End Sub

Private Sub Command11_Click()
    Dim obj As Object
    Dim vct As KFO.Vector
    Set obj = CreateObject("GT_K3BillCall.clsMain")
    Call obj.CallList(Text5.Text, True, "1=1")
    Set obj = Nothing
End Sub

Private Sub Command12_Click()
    Dim obj As Object
    Dim vct As KFO.Vector
    Set obj = CreateObject("GT_K3BillCall.clsMain")
    Call obj.GetList(Text5.Text, True, "1=1")
    Set obj = Nothing

End Sub

Private Sub Command2_Click()
    Dim obj As Object
    Dim vct As KFO.Vector
    Set obj = CreateObject("GT_K3BillCall.clsMain")
    Set vct = obj.GetNewList(Text1.Text)
    Set obj = Nothing
End Sub

Private Sub Command3_Click()
    Dim obj As Object
    Set obj = CreateObject("GT_K3BillCall.clsMain")
    Call obj.CallNewList(Text1.Text)
    Set obj = Nothing
End Sub

Private Sub Command4_Click()
    Dim obj As Object
    Set obj = CreateObject("GT_K3BillCall.clsMain")
    Call obj.CallNewBill(Text1.Text, , Text2.Text)
    Set obj = Nothing
End Sub

Private Sub Command5_Click()
    Dim obj As Object
    Set obj = CreateObject("GT_K3BillCall.clsMain")
    Call obj.GetNewList(Text1.Text, False, , , , "1=1")
    Set obj = Nothing
End Sub

Private Sub Command6_Click()
    Dim obj As Object
    Dim vct As KFO.Vector
    Set obj = CreateObject("GT_K3BillCall.clsMain")
    Call obj.CallNewList(Text1.Text, False, , , , "1=1")
    Set obj = Nothing

End Sub

Private Sub Command7_Click()
    Dim obj As Object
    Dim vct As KFO.Vector
    Set obj = CreateObject("GT_K3BillCall.clsMain")
    Call obj.CreateBill(Text3.Text)
    Set obj = Nothing

End Sub

Private Sub Command8_Click()
    Dim obj As Object
    Set obj = CreateObject("GT_K3BillCall.clsMain")
    Call obj.CallBill(Text3.Text, , Text4.Text)
    Set obj = Nothing

End Sub

Private Sub Command9_Click()
    Dim obj As Object
    Dim vct As KFO.Vector
    Set obj = CreateObject("GT_K3BillCall.clsMain")
    Call obj.CallList(Text5.Text, , "1=1")
    Set obj = Nothing

End Sub

Private Sub Form_Load()
    MMTS.CheckMts True
End Sub