2012年4月30日 星期一

vbnet 熱鍵 API

引用來源
--
這是屬單 form 的熱鍵,運用起來; 會比 form 內的 e.keycode 好用!


Step 1:

Start a new project.

Step 2:
Below Form1 add this:
Code:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Step 3:
Add a timer and double click it. in the timer's code add this:
Code:
Dim hotkey1 As String
hotkey1 = GetAsyncKeyState(Keys.F2)
If hotkey1 = True Then
MsgBox("Hello you just activated the Hotkey!", MsgBoxStyle.Information)
End If

2012年4月29日 星期日

Shell cmd ipconfig


Shell("cmd /c ipconfig >> d:\ipuse.txt")
Dim filename As String = "d:\ipuse.txt"
TextBox1.Text = My.Computer.FileSystem.ReadAllText(filename, System.Text.Encoding.Default)

2012年4月28日 星期六

設備租借系統(多店/網路版)/永久試用沒有時間限制


■金湧 ERP 後台系統,現階段支援項目■
1.進銷存系統(多店/網路版)/永久試用沒有時間限制
2.設備租借系統(多店/網路版)/永久試用沒有時間限制

★多元化特色★
1.支援條碼機列印
2.支援商品條碼本製作
3.支援匯出匯入 MS-Office Excel 2003.2007.2010 均可以,OpenOffice Calc
4.人性化操作,簡化重覆性操作
5.多門市系統
6.支援任何品牌盤點機資料匯入


★註冊享有權益★
1.享180天的保固期,期間內可調/增功能.報表(非主體功能須斟酌另報價)
2.保固或維護合約期間內遠端維護.更新一律免費
金湧 ERP 整合系統:
■進銷存系統【單店註冊1主機1副機(2台授權),促銷價:50,000元整】
■設備租借系統【單店註冊1主機1副機(2台授權),促銷價:30,000元整】
3.採月租每月只要2000元整,請參考金湧ERP系統-月租制
請參考 池龍工作室



使用 PIVOT 和 UNPIVOT

使用 PIVOT 和 UNPIVOT

2012年4月18日 星期三

vb6 Do Until 讓電腦等待


Dim WithEvents w_timer As New Timer
Dim w_tick As Integer
Private Sub wait(ByVal second As Integer)
    w_tick = 0
    w_timer.Interval = second * 1000
    w_timer.Enabled = True
    Do Until w_tick >= 1
        Application.DoEvents()
    Loop
    w_timer.Enabled = False
    w_timer.Interval = 1
End Sub
Private Sub w_timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles w_timer.Tick
    w_tick += 1
End Sub

2012年4月16日 星期一

msi how install fonts to win7

以前封裝,在install字型都可安裝在 windows xp 都是沒問題的
可遇到 win7 , 都是權限多多
g 了好久,大家都在求解答...
目前的解法都是手動安裝!!
等待更好的方式了

2012年4月15日 星期日

附加/卸載 SQL Server 資料庫

參考來源
--

卸載 
..//連接資料庫

string strSql = "exec sp_detach_db @dbname=TestDB";
string strExc = "alter database TestDB set single_user with rollback immediate "+strSql;
//請先將資料庫設為 SINGLE_USER 模式以取得獨佔存取權,才能進行卸離

SqlCommand cmd=new SqlCommand();
cmd.Connection=SqlSvrCon;
cmd.CommandText = strExc;
cmd.ExecuteNonQuery();


附加
...//連接資料庫

StringBuilder sb = new StringBuilder();
sb.Append("sp_attach_single_file_db @dbname=TestDB,");
sb.Append("@physname=\"C:\\TestDb.MDF\"");
SqlCommand cmd=new SqlCommand();
cmd.Connection=SqlSvrCon;
cmd.CommandText = sb.ToString();
cmd.ExecuteNonQuery();

2012年4月14日 星期六

進銷存系統(多店/網路版)/永久試用沒有時間限制












■金湧 ERP 後台系統,現階段支援項目■
1.進銷存系統(多店/網路版)/永久試用沒有時間限制

★多元化特色★
1.支援條碼機列印
2.支援商品條碼本製作
3.支援匯出匯入 MS-Office Excel,OpenOffice Calc


一、金湧 ERP 後台系統運作,必須安裝底下相關檔案
http://wushi.myftp.org/dowmtmp/GR_ERP_下載安裝網址.htm

(1)金湧 ERP 後台系統安裝程式
下載:GR_ERP.msi
http://wushi.myftp.org/dowmtmp/GR_ERP.msi
http://wushi.myftp.org/dowmtmp/GR_ERP_Win7安裝手冊.rar
http://wushi.myftp.org/dowmtmp/GR_ERP_WinXP安裝手冊.rar


(2)crystal report 報表驅動 x86
下載:CRRuntime_32bit_13_0_2.msi
http://downloads.businessobjects.com/akdlm/crnetruntime/clickonce/CRRuntime_32bit_13_0_3.msi


(3)Microsoft .NET Framework 4 (獨立安裝程式) (XP 必須下載安裝,Win7已內建)
檔案:dotNetFx40_Full_x86_x64.exe
http://www.microsoft.com/downloads/zh-tw/details.aspx?FamilyID=0a391abd-25c1-4fc0-919f-b21f31ab88b7


安裝MS-SQL 2008 R2 必安裝
*必安裝 1:下載並安裝 Microsoft .Net Framework 3.5 SP1。(XP 必須下載安裝,Win7已內建)
檔案:dotnetfx35.exe
http://www.microsoft.com/downloads/zh-tw/details.aspx?displaylang=zh-tw&FamilyID=d0e5dea7-ac26-4ad7-b68c-fe5076bba986


*必安裝 2:下載並安裝 Windows Installer 4.5。(XP 必須下載安裝,Win7已內建)
檔案:WindowsXP-KB942288-v3-x86.exe
http://www.microsoft.com/downloads/zh-tw/details.aspx?displaylang=zh-tw&FamilyID=5a58b56f-60b6-4412-95b9-54d056d6f9f4

*必安裝 3:下載並安裝 Windows PowerShell 2.0。(XP 必須下載安裝,Win7已內建)
檔案:WindowsXP-KB968930-x86-CHT.exe
http://www.microsoft.com/downloads/zh-tw/details.aspx?FamilyID=60CB5B6C-6532-45E0-AB0F-A94AE9ABABF5


(4)Microsoft SQL Server 2008 R2 SP1 - Express Edition
檔案:SQLEXPR_x86_CHT.exe  113.2MB
http://www.microsoft.com/downloads/zh-tw/details.aspx?FamilyID=ff38db3d-b0fb-4dad-bcd4-e9a4c509b017


(5)Microsoft SQL Server 2008 R2 RTM - Management Studio Express
檔案:SQLManagementStudio_x86_CHT.exe 177.8MB
http://www.microsoft.com/downloads/zh-tw/details.aspx?FamilyID=56AD557C-03E6-4369-9C1D-E81B33D8026B




二、作業系統所須安裝順序

WIN7 86/64位元,安裝順序如下(請確定已有底下檔案)/ (請看 WIN7安裝.pdf):
安裝1.CRRuntime_32bit_13_0_2.msi
安裝2.SQLEXPR_x86_CHT.exe
安裝3.SQLManagementStudio_x86_CHT.exe
安裝4.GR_ERP.msi
5.環境設定

Windows XP,安裝順序如下(請確定已有底下檔案)/ (請看 WINXP安裝.pdf):
安裝1.dotnetfx35.exe
安裝2.WindowsXP-KB968930-x86-CHT.exe
安裝3.WindowsXP-KB942288-v3-x86.exe
安裝4.dotNetFx40_Full_x86_x64.exe
安裝5.CRRuntime_32bit_13_0_2.msi
安裝6.SQLEXPR_x86_CHT.exe
安裝7.SQLManagementStudio_x86_CHT.exe
安裝8.GR_ERP.msi
9.環境設定

2012年4月13日 星期五

找尋 open Forms

For Each frm In My.Application.OpenForms

osql 常用指令

參考1
參考2
--
SQLServer 本機登入
osql -E

資料庫備份/還原
BACKUP DATABASE mydb TO DISK = 'C:\MSDE\Backup\mydb.bak'

RESTORE DATABASE mydb FROM DISK ='C:\MSDE\Backup\mydb.bak'

RESTORE DATABASE mydb FROM DISK ='C:\MSDE\Backup\mydb.bak' with move "mydb_Data" to "X:\XXXX\mydb.mdf",move "mydb_log" to "X:\XXX\mydb.ldf"


資料庫附加/卸離

EXEC sp_detach_db 'mydb'

EXEC sp_attach_db @dbname = N'EFPOS', @filename1 = N'C:\Program Files\Microsoft SQL Server\MSSQL\data\EFPOS_Data.MDF', @filename2 = N'C:\Program Files\Microsoft SQL Server\MSSQL\data\EFPOS_Log.LDF'

執行 SQL 檔案
osql -E -i xxxx.sql


RESTORE DATABASE EFMIS FROM DISK ='C:\EFMIS\Install\EFMIS.DAT' with move "EFMIS_Data" to "C:\Program Files (x86)\Microsoft SQL Server\MSSQL\Data\EFMIS_Data.mdf",move "EFMIS_log" to "C:\Program Files (x86)\Microsoft SQL Server\MSSQL\Data\EFMIS_log.ldf"


MSDE 安裝
Setup /settings Path\Install\Setup.ini 

osql 附加資料庫


利用osql工具实现对数据库的附加操作
1.在运行中输入"CMD",进入DOS操作环境
2.执行osql -U sa
3.根据提示输入密码
4.进入SQL的命令操作界面
  1>
  在">"后输入相应的命令,例如附加数据库命令:sp_attach_db  N'PM2006',    
        @filename1 = N'D:/Data/PM_Data.MDF',    
        @filename2 = N'D:/Data/PM_Log.LDF'
  回车后,出现
  2>
  输入GO,执行命令操作
5.执行SQL命令完成后,输入QUIT退出,或直接关闭CMD窗体

vbnet 判斷程式是否執行


If   Process.GetProcessesByName( "FlashGet ").Length   >   0   Then
        MsgBox( "運作中")
End   IF

2012年4月12日 星期四

vb6 win7 64bit 問題

這問題一直很多人問
但到底是否相容,各說各話
底下為我的經驗:

1.當在 win7 64 下,vb6 編譯出來的 ;只能給 64 bit 的使用
2.當在 win7 32 下,OS不可升級 SP1 ; 否則只剩自己的能用! 在未升 SP1 , 可相容 32(xp)/64
但還是會有些狀況,不是很明確!
3.最好的方式 ,就是在 windows xp 環境使用 vb6

如何獲取本機信息

參考引用
---
Private Sub e_detail_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '網絡狀況
        If My.Computer.Network.Ping("172.18.48.215") Then
            Label2.Text = "暢通"
        Else
            Label2.Text = "不通"
        End If
        '機器名稱
        Label3.Text = Environment.MachineName
        'OS名稱
        Label5.Text = My.Computer.Info.OSFullName
        'Symantec病毒碼日期
        Label10.Text = Microsoft.VisualBasic.Left(Microsoft.VisualBasic.Right(My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\SharedDefs", "DEFWATCH_10", Nothing), 12), 8)
        'Inter Explorer版本
        Label11.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer", "Version", Nothing)
        'CPU
        Label12.Text = Microsoft.VisualBasic.Trim(My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", Nothing))
        '主板
        Label14.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System", "SystemBiosVersion", Nothing).ToString
        '鼠?
        Label16.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\MultifunctionAdapter\5\PointerController\0\PointerPeripheral\0", "Identifier", Nothing)
        '顯卡
        Label21.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000", "DriverDesc", Nothing)
        '登入人員
        Label23.Text = Environment.UserName
        'Broker是自動分配還是手工分配
        Label26.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\OOERP\Broker", "Enabled", Nothing).ToString
        '總內存
        Label28.Text = Str(My.Computer.Info.TotalPhysicalMemory / 1000000) & "M"
        'emax.exe版本
        Label29.Text = My.Computer.FileSystem.GetFileInfo("C:\emax\application\emax.exe").LastWriteTime.ToString
        'broker server
        Label30.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\OOERP\AutoUpdateParams", "IP", Nothing).ToString
        'OS ServicePack
        Label33.Text = Environment.OSVersion.ServicePack.ToString
        '系統時間
        Label35.Text = My.Computer.Clock.LocalTime.ToString
        'C空間和剩餘空間
        Label36.Text = "C:盤總空間:" & Int(My.Computer.FileSystem.GetDriveInfo("C:").TotalSize / 1000 / 1000 / 1000) & "G" & " 可用空間:" & Int(My.Computer.FileSystem.GetDriveInfo("C:").TotalFreeSpace / 1000 / 1000 / 1000) & "G"
        Label37.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\OOERP\CodePage", "TRANSFERTABLEPATH", Nothing).ToString
        Label38.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\OOERP\Broker", "IP", Nothing).ToString
    End Sub

2012年4月11日 星期三

科技素材

科技创意-素材世界-分类首页
--
真多,不錯唷

網業模板
 

vbnet 內嵌資源讀取回寫

參考引用
--
這篇真是高招,我竟沒想到用這招



項目資源中可存放字符串,圖像文件,圖標文件,音頻文件,及其它文件(可以選擇以二進制或文本形式存入)。
當程序中需要調用這張圖片時可在My.Resources.中找到所到加入的圖我名稱。
(My.Resources.)是項目默認的資源文件,跟據情況,一個項目可添加多個資源文件.
例:
PictureBox1.Image = My.Resources.aaa '調用資源中的圖片
File.WriteAllBytes(Application.StartupPath & "\data.qct", QQ_Call.My.Resources.data) '把項目資源中的data文件以字節形式生成到項目所在的文件夾.
參看QQTempCall中檢測與恢復數據文件的方法:
先將數據文件加入項目的資源文件中
'''

    ''' 檢查數據庫文件的存在,不存在也不重新建立則反回False,其餘返回True
    '''

    Public Function data_jc() As Boolean
        Dim msgs As DialogResult
        If File.Exists(Application.StartupPath & "\data.qct") = False Then
            msgs = MessageBox.Show("數據庫件丟失,是否重新建立數據文件?", "提示!", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)
            If msgs = Windows.Forms.DialogResult.Yes Then
                File.WriteAllBytes(Application.StartupPath & "\data.qct", QQ_Call.My.Resources.data) '把項目資源中的data文件以字節生成到項目所在的文件夾
                MessageBox.Show("數據文件恢復成功!", "操作成功")
                Return True
            Else
                MsgBox("無數據文件,操作取消!")
                Return False
            End If
        Else
            Return True
        End If
    End Function

PS:項目資源文件中的內容只讀.

2012年4月7日 星期六

讓Windows XP 支援大硬碟137GB


其實 Windows 已更新至最新狀態,不過大於 137GB 的硬碟還是沒辦法直接使用! 這是因為微軟並沒有把這個隱藏的功能啟動之故。要啟用此功能,要先執行 Regedit 登錄編輯程式,然後找到這個選項:

登錄中啟用 48 位元 LBA 大型磁碟支援:

1. 開啟「登錄編輯程式」(Regedt32.exe)。
2. 找出並按一下登錄中的下列機碼:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Atapi\Parameters
3. 在 [編輯] 功能表上,按一下 [新增值],然後新增下列登錄值:
數值名稱:EnableBigLba
資料類型:REG_DWORD
數值資料:0x1 (直接輸入1)
4. 結束「登錄編輯程式」。

或-在 Parameters 上按滑鼠右鍵選新增→DWORD值, 然後命名為 EnableBigLba ,命名完後點兩下EnableBigLba 將值填為 1 就搞定了!

設定及儲存後要"重新關機" , 重開才算完成!!

2012年4月2日 星期一

sql 識別規格=是 , 怎複寫

真是被這問題卡得煩
 以前沒什麼經驗,喜歡讓 sql 自己編序號
結果把自己搞倒了...





比如:
現在暫存檔(自動編號) to 歷史檔(非自動編號)---->就火了
若來源來自很多 .... 暈倒了,天下大亂

最後想了一招:
declare @ix int
set @ix=isnull((select top 1 RANK() OVER(ORDER BY sys_id) from HT_INSTK_D order by sys_id desc),0)+1
print @ix

這樣一來,即可避免這問題

2012年4月1日 星期日