邏輯生活

2013年12月18日星期三

crystal report 處理頁次和總頁

if PageNumber < TotalPageCount then
formula = false
else
formula = true
end if

2013年12月14日星期六

Epson ESC/POS (TM-L90) Cant print barcode

引用來源
--
applet.append("\x1D\x68\x50");
applet.append("\x1D\x6B\x02");
applet.append("496595707379\x00");
applet.append("\x0A");

applet.append("\x1D\x68\x64");
applet.append("\x1D\x6B\x02");
applet.append("496595707379\x00");
applet.append("\x0A");

applet.print();

2013年12月12日星期四

vbnet 字串切割處理函式

本函式主要是要處理中英數 bytes 問題! 條碼機運用
---
Private Function word_substring(ByVal prod_name_str As String, ByVal prod_ptr As Integer) As String
word_substring = prod_name_str
Try
Dim prod_name_A As String = ""
Dim prod_name_B As String = ""
'
Dim chk_ab As Integer = 0
Dim prod_line As Integer = 0
Dim prod_c As String = ""
For i As Integer = 1 To Len(prod_name_str)
prod_c = Asc(Mid(prod_name_str, i, 1))
If prod_c >= 0 And prod_c < 128 Then
prod_line += 1
chk_ab = 1
Else
prod_line += 2
chk_ab = 2
End If
prod_name_A += Mid(prod_name_str, i, 1)
'--
If prod_line >= prod_ptr Then
Select Case prod_line
Case prod_ptr
Case prod_ptr + 1 '加1碼
'words -2 bytes
prod_name_B += Mid(prod_name_A, 1, prod_name_A.Length - 2) + Space(2)
prod_name_B += Mid(prod_name_A, prod_name_A.Length - 1, 2)
prod_name_A = prod_name_B
End Select
prod_line = 0
End If
'--
Next
Return prod_name_A

Catch ex As Exception
Return word_substring
End Try
End Function

2013年12月9日星期一

下載 Microsoft ODBC Driver for SQL Server (windows,linux)

官網:Microsoft ODBC Driver for SQL Server
--
Microsoft 的 SQL Server ODBC 驅動程式是由 Windows 的 ODBC 驅動程式和 Linux 的 ODBC 驅動程式所組成。
--
真是不錯! 在linux 也能用ODBC 了!
但..微軟卻沒有 for linux 的開發工具...

mssql sp_updatestats 效能變差-維護的方式(完整)

參考引用來源:升級 SQL Server，效能變差

--01 更新 AdventureWorks 資料庫中之資料表的統計資料。
USE Northwind;
GO
EXEC sp_updatestats

--02 對每一個資料庫執行 sp_updatestats 作業
USE master
GO
EXEC sp_MSforeachdb @command1="print '?' EXEC [?].dbo.sp_updatestats"

Regsvr32 指令參數與用法

Regsvr32 指令一共有四個參數, 分別是:
　　 /s: 安裝或移除成功後不顯示提示訊息
　　 /u: 移除已安裝的元件或 DLL 檔案
　　 /n: 不調用 DLLRegisterServer 要注意這個參數應與 /i 一起使用
　　 /i: 調用 DLLInstall, 並給其傳遞一個可選的 [cmdline] 當使用 /u 時用來移除DLL

Regsvr32 /u shimgvw.dll 移除圖片和傳真查看器
Regsvr32 /u zipfldr.dll 移除 ZIP 檔案夾顯示功能
Regsvr32 /u cabview.dll 移除 CAB 檔案支援
Regsvr32 /u shmedia.dll 移除 XP 的影像預覽功能
Regsvr32 /u wmpdxm.dll 網頁用 WMP 播放媒體
Regsvr32 /u mydocs.dll 刪除我的文件夾
Regsvr32 /u scrrun.dll 停用 FSO 對像
Regsvr32 /u wmpshell.dll 移除 WMP 右鍵選單項目

2013年12月5日星期四

綠水培養+水蚤繁殖經驗完整分享

綠水培養+水蚤繁殖經驗完整分享

一直有人在問怎培養綠水和怎繁殖水蚤
底下總整理一份文件,希望對培養綠水和要繁殖水蚤的人有所幫助!

[綠水]
1.從無綠水到有綠水,該怎培養?
A.先準備透明塑膠杯3-5杯(我是用胖胖杯),將缸水+魚便抽出來後;倒到透明塑膠杯內
並將蘋果螺每杯放2-3顆! 都完成後,拿去有陽光的地方曬太陽!
B.大約3天會看到變淡綠,此時加入花肥(如圖)加1-2粒下去(請依透明塑膠杯大小而定,若中小杯放1粒就好)
C.再過3-4天,會看到淡綠轉回中.深綠 (表示成功了)
D.當深濃綠後,可擴杯或擴更大的綠水培養容器!
D1.擴杯(蘋果螺每杯放2-3顆)-->將原培養好的綠水倒半杯到空杯內,然後各補缸水+魚便下去
D2.擴大容器(蘋果螺每杯放5-10顆)-->一樣倒半杯下去即可,原杯補缸水+魚便下去;大容器一樣補缸水+魚便下去
E.以上反覆操作,當有提走綠水;就是要補缸水+魚便(若是胖胖杯的,一次最多取半杯的量就好)
F.若沒那麼多缸水+魚便,怎辦?
F1.可直接加自來水,此時要看原綠水是否過淡;若過淡就是補花肥1粒下去

[室外水蚤]
1.水蚤怎養繁殖?
A.水蚤的容器可以用魚缸或是較寬的塑膠盒等均可
B.綠水+缸水+蘋果螺(越多越好)-->水深度約10~15cm均可
C.建議都養室外,所放的地方不要全照陽光;若全照,可用木板遮住一半
D.綠水+水蚤養法,幾時要換綠水?
D1.變清或變黃,抽掉3/4的水;先補缸水+後補綠水
D2.綠水該補多少? 看水色,補到有中綠即可 (不可全補綠水[酸度問題])
D3.補完後,就是等水色又變到跟圖片一樣的顏色! 就是要抽掉3/4的水;先補缸水+後補綠水
E.水蚤咧? 抽掉3/4 --->就是用倒的到收集的大容器內! 再一次來過濾+撈水蚤!
F.過濾出來的水蚤,要再用自來水沖過或先撈到乾淨的水內;再給魚吃喔!
F1.過濾蚤時,可依大小隻過出來;給仔魚或亞成魚吃(網目準備2種即可)

-----------
差不多這樣了!