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 str…

Imports System.Data.SqlClient Imports 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 Boo…

Module syspwd Public Const STR_MASK = "MyFunction" '加密用字串 '預定義密碼長度 Public GintCheckPwd As Integer '當傳入的密碼長度大於預定義密碼長度時 '將?生一個Message Box '以下兩個常量是該Message Box中的具體提示資訊和標題欄中的文字 Public Const STR_PWD_ERROR = "The length of password can not be gre…

'--------------Job No 0900408 -------------- '--DIM PART ONE ONLINE Update Order Qty '''主要新加過程名 RefreshOrderQty() 用于每次查詢即時更新數據源中的Lot Qty,保持與Protex的一致 '-Add by Shiny Dong Imports System.IO Imports Microsoft.VisualBasic Imports Microsoft.Win32 Imports…

Imports System Imports System.Data Imports System.Data.OleDb Imports Microsoft.VisualBasic Imports System.Console Imports System.Windows.Forms Imports System.IO Imports System.Text Imports System.Drawing Namespace BogartMis.Cls Public Class DataContr…

Imports System.Data.SqlClient Imports System.Data Public Class BogartAutoCodeDataBase Private Conn As SqlClient.SqlConnection = SqlConnect Sub New() 'Conn = New BogartAutoCodeConnection End Sub ' 保存的错误! Private _StrError As String = "" Friend Re…

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()…

一.C#中MessageBox.Show用法 MessageBox.Show (String) 显示具有指定文本的消息框. 由 .NET Compact Framework 支持. MessageBox.Show (IWin32Window, String) 在指定对象的前面显示具有指定文本的消息框. MessageBox.Show (String, String) 显示具有指定文本和标题的消息框.由 .NET Compact Framework 支持. MessageBox.Show (IWi…

前言:在用VB.NET开发射频检测系统ADS时,当激活已存在的目标MDI子窗体时,被其他子窗体遮住了,导致目标MDI子窗体不能显示. 这个问题怎么解决呢?网上看到一篇帖子VB.NET设置控件和窗体的显示级别,总结得挺不错的.现转载过来,以备后用. 解决方案: 1)使用Controls属性将子窗体作为子控件显示到Panel等的所有子控件最前方 有些控件可以作为容器使用如类似Panel.PictureBox等的控件,在向容器控件中加入其它控件时,这些子控件组合到一起成为一个控件集合,在这个控件集合中…

在PowerDesigner使用脚本批量导入excel中记录的表结构信息,由于需要通过powerdesigner逆向工程创建一些sybase IQ的表,由于是接口数据,只有excel表,手动导入太耗时了(几十张),所以百度了一下批量导入execl的方法,发现可以执行vb脚本来读excel表格,从而批量生成表结构图. 这是EXCEL格式: Option Explicit Dim mdl ' the current model Set mdl = ActiveModel If (mdl Is Not…