vb 组件调用DEMO

Option ExplicitPrivate Sub Command1_Click() Dim obj As Object Dim vct As KFO.Vector Set obj = CreateObject("GT_K3BillCall.clsMain") obj.CreateNewBill (Text1.Text) Set obj = NothingEnd SubPrivate 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 = NothingEnd SubPrivate 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 = NothingEnd SubPrivate 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 = NothingEnd SubPrivate 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 = NothingEnd SubPrivate Sub Command3_Click() Dim obj As Object Set obj = CreateObject("GT_K3BillCall.clsMain") Call obj.CallNewList(Text1.Text) Set obj = NothingEnd SubPrivate Sub Command4_Click() Dim obj As Object Set obj = CreateObject("GT_K3BillCall.clsMain") Call obj.CallNewBill(Text1.Text, , Text2.Text) Set obj = NothingEnd SubPrivate Sub Command5_Click() Dim obj As Object Set obj = CreateObject("GT_K3BillCall.clsMain") Call obj.GetNewList(Text1.Text, False, , , , "1=1") Set obj = NothingEnd SubPrivate 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 = NothingEnd SubPrivate 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 = NothingEnd SubPrivate Sub Command8_Click() Dim obj As Object Set obj = CreateObject("GT_K3BillCall.clsMain") Call obj.CallBill(Text3.Text, , Text4.Text) Set obj = NothingEnd SubPrivate 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 = NothingEnd SubPrivate Sub Form_Load() MMTS.CheckMts TrueEnd Sub