myapi.bas

进销存管理(ADO+Acess),适合初学者使用!

       With bxreg.buygd
           Set .DataSource = mydata
           .DataMember = "rs销表"
           .Refresh
        End With
        
    Case 104                 '用户模块填加刷新
       mydata.rsrs用户.Requery
       With userreg.buygd
           Set .DataSource = mydata
           .DataMember = "rs用户"
           .Refresh
        End With
        
  End Select
  Exit Sub
exit_sub:
End Sub

Public Sub CnToEn(flag As Integer)
   Select Case flag
     Case 0  ' Chinese
        With mainform.frmmenu.MenuItems
           .Caption(1) = "登记登记"
           .Caption(2) = "进货登记进货登记"
           .Caption(3) = "销售登记销售登记"
           .Caption(5) = "客商登记客商登记"
           .Caption(6) = "商品登记商品登记"
           .Caption(7) = "浏览浏览"
           .Caption(8) = "商品浏览商品浏览"
           .Caption(9) = "客商浏览客商浏览"
           .Caption(10) = "进货名细进货名细"
           
           .Caption(11) = "出货名细出货名细"
           .Caption(13) = "报表打印报表打印"
           .Caption(14) = "商品利润商品利润"
           .Caption(15) = "商品库存商品库存"
           .Caption(16) = "查询查询"
           .Caption(17) = "商品查询商品查询"
           .Caption(18) = "利润查询利润查询"
           .Caption(20) = "高级查询高级查询"
           
           .Caption(21) = "系统系统"
           .Caption(22) = "管理员库管理员库"
           .Caption(23) = "语言语言"
           .Caption(24) = "中文中文"
           .Caption(25) = "EngLish"
           .Caption(27) = "帮助帮助"
           
        End With
        With mainform.mytoolbar
           .Buttons(2).ToolTipText = "新建"
           .Buttons(3).ToolTipText = "编辑"
           .Buttons(4).ToolTipText = "刷新"
           .Buttons(6).ToolTipText = "管理员库"
           .Buttons(7).ToolTipText = "帮助"
           .Buttons(8).ToolTipText = "退出"
        End With
        mainform.stbt.Caption = "当前库："
     Case 1
        With mainform.frmmenu.MenuItems
           .Caption(1) = "Data"
           .Caption(2) = "Goods Input"
           .Caption(3) = "Goods Output"
           .Caption(5) = "Trader Input"
           .Caption(6) = "Goods Register"
           .Caption(7) = "View"
           .Caption(8) = "Goods View"
           .Caption(9) = "Trader View"
           .Caption(10) = "I/O View"
           
           .Caption(11) = "Out Detail"
           .Caption(13) = "Report"
           .Caption(14) = "Goods Profit"
           .Caption(15) = "Goods Stock"
           .Caption(16) = "Search"
           .Caption(17) = "Stock Total"
           .Caption(18) = "Profit Total"
           .Caption(20) = "Super Search"
           
           .Caption(21) = "System"
           .Caption(22) = "User Data"
           .Caption(23) = "Langue"
           .Caption(24) = "中文中文"
           .Caption(25) = "EngLish"
           .Caption(27) = "Help"
           
        End With
        With mainform.mytoolbar
           .Buttons(2).ToolTipText = "New"
           .Buttons(3).ToolTipText = "Edit"
           .Buttons(4).ToolTipText = "Refresh"
           .Buttons(6).ToolTipText = "User Data"
           .Buttons(7).ToolTipText = "Help"
           .Buttons(8).ToolTipText = "Exit"
        End With
        mainform.stbt.Caption = "Current Data:"
    
   End Select
End Sub


Public Sub SetLForm(flag As Integer)
  Select Case LangueSelect
    Case 0
    Case 1
     Select Case flag
       Case 1    '商品表
         With buyreg
            .formcaption.Caption = "Edit"
            .frmcaption2.Caption = "Edit"
            .append_b.Caption = "Append"
            .delete_b.Caption = "Del"
            .exit_b.Caption = "Exit"
         End With
         
         With buyreg.buygd
            .Columns(1).Caption = "Name"
            .Columns(2).Caption = "From"
            .Columns(3).Caption = "Manufacturer"
            .Columns(4).Caption = "Date"
         End With
       
       Case 11   '商品表填加
         With buyappendform
             .formcaption.Caption = "Append"
             .frmcaption2.Caption = "Append"
             .append_b.Caption = "Append"
             .exit_b.Caption = "Exit"
             
             .Label4.Caption = "Date"
             .lb_a.Caption = "ID"
             .Label1.Caption = "Name"
             .Label2.Caption = "Form"
             .Label3.Caption = "Manufacturer"
         End With
         
       Case 2    '商加表
         With sbreg
            .formcaption.Caption = "Edit"
            .frmcaption2.Caption = "Edit"
            .append_b.Caption = "Append"
            .delete_b.Caption = "Del"
            .exit_b.Caption = "Exit"
         End With
         
         With sbreg.buygd
            .Columns(0).Caption = "Name"
            .Columns(1).Caption = "Tel"
            .Columns(2).Caption = "Linkman"
            .Columns(3).Caption = "Address"
            .Columns(4).Caption = "Dak No"
            .Columns(5).Caption = "Bank Accounts"
            .Columns(6).Caption = "Date"
         End With
         
       Case 22
         With sbappendform
             .formcaption.Caption = "Append"
             .frmcaption2.Caption = "Append"
             .append_b.Caption = "Append"
             .exit_b.Caption = "Exit"
             
             .Label4.Caption = "Date"
             .lb_a.Caption = "Name"
             .Label1.Caption = "Tel"
             .Label2.Caption = "LinkMan"
             .Label3.Caption = "Address"
             .Label6.Caption = "Dak No"
             .Label5.Caption = "B.A"
         End With
         
       Case 3    '购预览
         With bsreg
            .formcaption.Caption = "Edit"
            .frmcaption2.Caption = "Edit"
            .append_b.Caption = "Append"
            .delete_b.Caption = "Del"
            .exit_b.Caption = "Exit"
         End With
         
         With bsreg.buygd
            .Columns(0).Caption = "Order ID"
            .Columns(1).Caption = "Invoice ID"
            .Columns(2).Caption = "Date"
            .Columns(3).Caption = "Manufacturer"
            .Columns(4).Caption = "Name"
            .Columns(5).Caption = "Unit Price"
            .Columns(6).Caption = "Amount"
         End With
         
      Case 13
         With bsappendform
             .formcaption.Caption = "Append"
             .frmcaption2.Caption = "Append"
             .append_b.Caption = "Append"
             .exit_b.Caption = "Exit"
             
             .Label4.Caption = "Edit Date"
             .Label5.Caption = "Order Date"
             .lb_a.Caption = "Order ID"
             .Label1.Caption = "Invoice ID"
             .Label3.Caption = "Manufacturer"
             .Label6.Caption = "P.Money"
             .Label7.Caption = "Goods"
             .Label8.Caption = "Unit Price"
             .Label9.Caption = "Amount"
         End With
         
       Case 4    '销预览
         With bxreg
            .formcaption.Caption = "Edit"
            .frmcaption2.Caption = "Edit"
            .append_b.Caption = "Append"
            .delete_b.Caption = "Del"
            .exit_b.Caption = "Exit"
         End With
         
         With bxreg.buygd
            .Columns(0).Caption = "Order ID"
            .Columns(1).Caption = "Invoice ID"
            .Columns(2).Caption = "Date"
            .Columns(3).Caption = "Manufacturer"
            .Columns(4).Caption = "Name"
            .Columns(5).Caption = "Unit Price"
            .Columns(6).Caption = "Amount"
         End With
         
      Case 14
         With bxappendform
             .formcaption.Caption = "Append"
             .frmcaption2.Caption = "Append"
             .append_b.Caption = "Append"
             .exit_b.Caption = "Exit"
             
             .Label4.Caption = "Edit Date"
             .Label5.Caption = "Order Date"
             .lb_a.Caption = "Order ID"
             .Label1.Caption = "Invoice ID"
             .Label3.Caption = "Manufacturer"
             .Label6.Caption = "P.Money"
             .Label7.Caption = "Goods"
             .Label8.Caption = "Unit Price"
             .Label9.Caption = "Amount"
         End With
         
       Case 9    '高级查询
         With spfind
            .formcaption.Caption = "S.Find"
            .frmcaption2.Caption = "S.Find"
            .append_b.Caption = "Search"
            .exit_b.Caption = "Exit"
            .Label1.Caption = "Super Find...  Please Select Mode....."
            .Label3.Caption = "Order ID"
            .Label4.Caption = "Invoice ID"
            .Label5.Caption = "Goods"
            .Label6.Caption = "Manufacturer"
            .d1.Caption = "Stock"
            .d2.Caption = "Arrear"
         End With
         
         With spfind.gda
            .Columns(0).Caption = "Order ID"
            .Columns(1).Caption = "Invoice ID"
            .Columns(2).Caption = "Manufacturer"
            .Columns(3).Caption = "C.Money"
            .Columns(4).Caption = "P.Money"
            .Columns(5).Caption = "Order Date"
            .Columns(6).Caption = "Edit Date"
         End With
         With spfind.gdb
            .Columns(0).Caption = "Name"
            .Columns(1).Caption = "Price"
            .Columns(2).Caption = "Amount"
            .Columns(3).Caption = "From"
         End With
     End Select
  End Select
End Sub

Public Function GetLStr(flag As Integer)
  Select Case LangueSelect
    Case 0
       Select Case flag
         Case 1
          GetLStr = "请完整的填写数据表格！"
         Case 2
          GetLStr = "此单据号已存在。单据号："
         Case 3
          GetLStr = "记录填写成功，请重新填写！"
         Case 4
          GetLStr = "此商品号已存在。名称为："
         Case 5
          GetLStr = "确认要删除吗？"
         Case 6
          GetLStr = "此用户为高级用户，您不能删除！"
         Case 7
          GetLStr = "你无权访问此软件！"
         Case 8
          GetLStr = "进销库中有此产品记录存在，您不能删除！"
         Case 9
          GetLStr = "此商家名称已存在。联系人为："
         Case 10
          GetLStr = "此管理员已存在。名称为："
         Case 11
          GetLStr = "只有高级用户才能编辑此库！"
      End Select
    Case 1
       Select Case flag
         Case 1
          GetLStr = "Please fill in the form！"
         Case 2
          GetLStr = "Repetition  ID。ID："
         Case 3
          GetLStr = "Success,Please next one...！"
         Case 4
          GetLStr = "Repetition Name。Name："
         Case 5
          GetLStr = "Really？"
         Case 6
          GetLStr = "You can't del this user！"
         Case 7
          GetLStr = "...."
         Case 8
          GetLStr = "You can't del this record！"
         Case 9
          GetLStr = "Repetition Manufacturer。Trader："
         Case 10
          GetLStr = "Repetition User。User："
         Case 11
          GetLStr = "You can't edit this data！"
      End Select
  End Select
End Function