摘要： 原创作品，允许转载，转载时请务必以超链接形式标明文章原始出处、作者信息和本声明。否则将追究法律责任。http://ccchencheng.blog.51cto.com/2419062/929695oracle数据库默认的时间格式只能精确到天（DD-MON-RR），在实际工作环境中，开发程序通常需要取得精确到秒的时间值，经查询资料在oracle中修改时间值的方式大致可以分为以下几种：1、临时修改时间格式第一种方式是通过to_char函数来获得精确的时间值select to_char(sysdate,'yyyy-mm-dd hh24:mi:ss') from dual;这种方式对于 阅读全文

摘要： 1、异常的优点 如果没有异常，在程序中，应当检查每个命令的成功还是失败，如 BEGIN SELECT ... -- check for ’no data found’ error SELECT ... -- check for ’no data found’ error SELECT ... -- check for ’no data found’ error 这种实现的方法缺点在于错误处理没有与正常处理分开，可读性差，使用异常，可以方便处理错误，而且异常处理程序与正常的事务逻辑分开，提高了可读性，如 BEGIN SELECT ... SELECT ... SEL... 阅读全文

摘要： vb shell:Private Sub AddBarcodeImages(ByVal DTab As DataTable) If Not DTab Is Nothing Then DTab.Columns.Add("BCIMAGE", Type.GetType("System.Byte[]")) Dim r As DataRow For Each r In DTab.Rows Try Dim BatchNo As String = CStr(r.... 阅读全文

摘要： ORACLE常用数值函数、转换函数、字符串函数介绍。数值函数： abs(m) m的绝对值 mod(m,n) m被n除后的余数 power(m,n) m的n次方 round(m[,n]) m四舍五入至小数点后n位的值（n缺省为0）trunc(m[,n]) m截断n位小数位的值（n缺省为0）-------------------------------------------------------------------------------- 字符函数： initcap(st) 返回st将每个单词的首字母大写，所有其他字母小写 lower(st) 返回st将每个单词的字母全部小写 upper 阅读全文

摘要： 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... 阅读全文