摘要：Imports System.Data.SqlClientImports System.DataPublic Class BogartAutoCodeDataBase Private Conn As SqlClient.SqlConnection = SqlConnect Sub New() 'Conn = New BogartAutoCodeConnection End Sub ' 保存的错误！ Private _StrError As String = "" Friend ReadOnly Property StrError() As St... 阅读全文

摘要：Imports System.Data.SqlClientImports System.Data#Region "IBogartToolbar,請勿隨便更改"Interface IBogartToolbar Sub j_menuPrint() Sub j_LoadData() 'Sub j_setToolsBar() Sub j_ChangeRecord() Sub j_AddRow() Sub j_EditRow() Property EnabledPrint() As Boolean Sub SetToolsControl(ByVal g ... 阅读全文

摘要：Module syspwd Public Const STR_MASK = "MyFunction" '加密用字串 Public Const INT_PWD_LENGTH = 10 '預定義密碼長度 Public GintCheckPwd As Integer '當傳入的密碼長度大於預定義密碼長度時 '將?生一個Message Box '以下兩個常量是該Message Box中的具體提示資訊和標題欄中的文字 Public Const STR_PWD_ERROR = "The length of pas... 阅读全文

摘要：'--------------Job No 0900408 --------------'--DIM PART ONE ONLINE Update Order Qty'''主要新加過程名 RefreshOrderQty() 用于每次查詢即時更新數據源中的Lot Qty，保持與Protex的一致'-Add by Shiny Dong Imports System.IOImports Microsoft.VisualBasicImports Microsoft.Win32Imports System.Text.RegularExpressionsNa 阅读全文

摘要：Module gFunction '其它不是常用的方法及函數#Region " 將指定的數據格式轉換為英文格式" Public Function EnglishFormat(ByVal intNum As Double, ByVal blnMoney As Boolean) As String On Error GoTo err Dim strNum As String Dim intStart As Integer Dim strInt As String '整數位 Dim strDec As St... 阅读全文

摘要：Namespace BogartMis.Cls Public Class gGrid '設定表格控的列標題的別名 '說明：strItem字符串的格式為"01,02,03,04,05" 其中[01]這個字符串中不得包含特定符號 '特定符號： # / . - * 等 Public Overloads Sub setGridColCaption(ByVal g As DataTable, ByVal strItem As String) Try Dim myArray As String... 阅读全文

摘要：Imports SystemImports System.DataImports System.Data.OleDbImports Microsoft.VisualBasicImports System.ConsoleImports System.Windows.FormsImports System.IOImports System.TextImports System.DrawingNamespace BogartMis.Cls Public Class DataControl #Region "SQL Process " Public Function... 阅读全文

摘要：sql = "Select case when date ='' then '0'else CONVERT(varchar(100), date, 101) end as date,case when ad ='' then '0'else CONVERT(varchar(100), ad, 101) end as ad,event1,type1,code from EventData where ip='" + UserIP + "' order by code,event1&quo 阅读全文