服飾單據報表清單

金湧服飾單據報表清單(ERP GR_FCS REPORT)

單據功能說明：
01. 歷史區單據允許列印報表。
02. 應收、應付單據可針對您目前使用的會計系統進行客製拋轉。
03. 支援拋出Excel頭身檔。
04. 支援Excel匯入頭身檔功能。
05. 不限定盤點機，支援所有盤點機拋出的文字檔格式檔。
06. 明細檔支持Excel匯入。
07. 開放所有欄位查詢並取回與指定。
08. 支援轉單功能。
09. 建單據頭身檔就跟建立Excel一樣輕鬆打。

凡客戶在維護合約內，均允許提出需求增加報表一律不加價!!

【需求單】
需求單報表
項目統計需求報表


【採購單】
採購單報表
項目統計採購報表


【訂貨單】
訂貨單報表
項目統計訂貨報表
分廠商訂貨單報表

【進貨單】
進貨單報表
項目統計進貨報表
分廠商進貨單報表

【退貨單】
退貨單報表
項目統計退貨報表
分廠商退貨單報表

【調撥單】
調撥單報表
項目統計調撥報表
分門市調撥單報表

【故障單】
故障單報表
項目統計調撥報表


【盤點單】
盤點單報表
項目統計盤點報表
分盤點狀況盤點單報表

【寄賣單】
寄賣單報表
項目統計寄賣報表
分客戶寄賣單報表

【批發單】
批發單報表
項目統計批發報表
分客戶批發單報表
客戶批發單*中一刀完整
客戶批發單*中一刀套表

【切貨單】
切貨單報表
項目統計切貨報表
分客戶切貨單報表
客戶切貨單*中一刀完整
客戶切貨單*中一刀套表

【應付帳款單】
應付帳款單報表
項目統計應付帳款報表
分廠商應付帳款單報表

【應收帳款單】
應收帳款單報表
項目統計應收帳款報表
分客戶應收帳款單報表

3D學園

不錯的3D教學

12個silverlight教學網站

要學習 Silverlight , 底下收集了很詳細教學說明的網站:

1.1
2.2
3.3
4.4
5.5
6.6
7.7
8.8
9.9
10.10
11.11
12.12

silverlight中文社區

大陸silverlight中文社區

Android 開發工具與環境

InstallAndroid - androidbmi - 安裝 Android 開發工具 - BMI (Body Mass Index) Calculator App on Android platform - Google Project Hosting
--
安裝流程:
1.下載 Eclipse
2.安裝 Eclipse
3.安裝 ADT 擴充套件
4.下載 Android SDK
5.設定 Android SDK

--
詳細請參考 google 官網發布的內容
--
要進軍開發 Android APP軟體市場的,就得跟進唷!
Android 真是大浪,很燙熱;先進場取得先機.

資料庫存取文件

'** SQL數據庫
'** iConcStr = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
'** "User ID=用戶名;Password=密碼;Initial Catalog=數據庫名;Data Source=SQL服務器名"
'**
'*************************************************************************


'保存文件到數據庫中

Sub s_SaveFile()
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
Dim iConcStr As String

'數據庫連接字符串
iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=F:/My Documents/客戶資料1.mdb"

'讀取文件到內容
Set iStm = New ADODB.Stream

With iStm
.Type = adTypeBinary '二進制模式
.Open
.LoadFromFile "c:/test.doc"
End With

'打開保存文件的表
Set iRe = New ADODB.Recordset

With iRe
.Open "表", iConc, adOpenKeyset, adLockOptimistic
.AddNew '新增一條記錄
.Fields("保存文件內容的字段") = iStm.Read
.Update
End With

'完成後關閉對像
iRe.Close
iStm.Close

End Sub

'從數據庫中讀取數據,保存成文件
Sub s_ReadFile()
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
Dim iConc As String

'數據庫連接字符串

iConc = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=//xz/c$/Inetpub/zj/zj/zj.mdb"

'打開表
Set iRe = New ADODB.Recordset
iRe.Open "tb_img", iConc, adOpenKeyset, adLockReadOnly
iRe.Filter = "id=64"

'保存到文件
Set iStm = New ADODB.Stream
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write iRe("img")
.SaveToFile "c:/test.doc"
End With
'關閉對像
iRe.Close
iStm.Close
End Sub

強化SQL Server效能的好方法

當資料量大了之後，或許「效能」就是一個馬上會面臨到的問題

和程式設計面或許有關，
資料量大也有可能，
很多人是設了索引但是又不去維護。

資料庫規劃面來說，或許可以參考以下的想法。
在網路上找了一些資料，與大家一同分享…

一、如果要達到快速交易時盡量少用Cursor(特殊需求才用)及透過索引可以強化資料存取與強化鎖定效能。
二、儘量降低重複編譯re-compilation(讓CPU最佳化)->多用stored procedure應該會有幫助!!
三、儘量避免joins(最佳化IO使用)
四、NOLOCK HINT(只能用於SELECT陳述式，可避免造成鎖定，聽說加速3倍查詢速度。但容易造成Dirty Read!)
五、LOCK_TIMEOUT (避免程式無反應)
六、SET QUERY_GOVERNOR_COST_LIMIT(避免長時間查詢的程式執行)
七、索引的設計與規畫(這是一門學問...)。
八、在stored procedure 加 set nocount off [官網說明]

C# 程式設計教學

免費電子書：C# 程式設計

匯出/匯入 XML

參考
--
Imports System.Xml
Imports System.Data

[匯出]
Dim my_datatable As New DataTable
my_datatable = CType(DataGridView1.DataSource, DataTable)
my_datatable.WriteXml(save_file.FileName)

[匯入]
Dim xmlFile As XmlReader
xmlFile = XmlReader.Create(open_file.FileName, New XmlReaderSettings())
Dim ds As New DataSet
ds.ReadXml(xmlFile)
DataGridView1.DataSource = ds.Tables(0)

EVERY8D企業簡訊

EVERY8D企業簡訊 - 全球商務簡訊平台、Excel 簡訊平台、0800關鍵字簡訊、免費簡訊

幣別的簡寫代碼整理-幣別代碼

TWD > 台幣
RMB > 人民幣
USD > 美金
EUR > 歐元
GBP > 英鎊
JPY > 日幣
HKD > 港幣
AUD > 澳洲幣
CHF > 瑞士法郎
SGD > 新加坡幣
SEK > 瑞典克郎
THB > 泰銖
CHF > 瑞士法郎
CAD > 加幣
MYR > 馬來幣
NZD > 紐西蘭幣

線上不同幣別轉帳試算

utf8轉big5語法

Function encode_fun(ByVal detail)
'轉碼功能 utf8->big5
Dim strUtf8 As Byte() = System.Text.Encoding.Unicode.GetBytes(detail)
Dim strBig5 As Byte() = System.Text.Encoding.Convert(System.Text.Encoding.Unicode, System.Text.Encoding.Default, strUtf8)
encode_fun = System.Text.Encoding.Default.GetString(strBig5)
End Function

把 ANSI來編碼 另存 成 U8 的文字檔

參考
--
string fn = Server.MapPath("rand.txt");
FileStream fsSource = new FileStream(Server.MapPath(".") + @"\rand.txt",FileMode.Open); //Source File
FileStream fsDest = new FileStream(Server.MapPath(".") + @"\rand2.txt",FileMode.OpenOrCreate,FileAccess.ReadWrite); // Desc File
byte[] S_Byte =new byte[fsSource.Length];
fsSource.Read(S_Byte,0,Convert.ToInt32(fsSource.Length)); // Read Bytes from Source
byte[] D_Byte = System.Text.Encoding.Convert(System.Text.Encoding.Default,System.Text.Encoding.UTF8,S_Byte); // Bytes Encode Covert
fsDest.Write(D_Byte,0,D_Byte.Length); //Write File.
fsSource.Close();
fsDest.Close();

ReportAll 免費報表工具

官網

ERP 服飾模組

服飾租借管理系統
金湧-服飾綜合管理系統(簡稱:ERP服飾);歡迎意者洽詢!(池龍工作室)
ERP服飾模組:

[已完成模組]
01.服飾租借管理系統
02.[單據型]進銷存管理系統->應付管理系統
03.[單據型]寄賣管理系統->應收管理系統
04.[單據型]批發管理系統->應收管理系統
05.[單據型]切貨管理系統->應收管理系統
06.[單據型]網拍管理系統,支援[奇摩][露天]
07.[前後.後台]銷售管理系統
...陸續...
...持續...
...開發...

[未開發模組]
08.總部系統(管理所有門市帳.單據.商品數量.分析等)
09.商品促銷變化類型
10.獨立[賣場型]銷售系統,整合硬體週邊設備
11.整合式結合網站,讓單據類允許雲端化作業

ERP 服飾,單據流程圖 (暫存單據)

TFS 安裝(1)

TFS 2008+SP1
1.Visual Studio Team System 2008 Team Foundation 安裝指南
2.Visual Studio Team System 2008 Team Foundation Server (90 天試用版)
3.Visual Studio 2008 Team Foundation Server Service Pack 1

--------
TFS 2010+SP1
1.Microsoft Visual Studio Team Foundation Server 2010 試用版 - ISO
2.Microsoft® Visual Studio Team Foundation Server® 2010 Service Pack 1

UPDATE語法精選

update #ACC
set ACC.ATTR='1'
from #ACC ACC
inner join "ACCTNO" ACT
on ACC.L4_NO=ACT.TYPE_CODE
where ACT.ACCT_YEAR=@this_year and ACT.TYPE_ATRB='2' and ACT.LAYER=4

-----------------

必需跟據ACCTNO中符合的條件去更新#ACC template table, Update #ACC temple

from 欲更新table #ACC, 串接ACCTNO table

FUNCTION : 傳入西元年月,得出該月的最後一天

/************************************

程式說明 : 傳入西元年月,得出該月的最後一天
執行範例 : getYYYMMLastdd 09411
=> 2005-04-11
*********************************/
BEGIN
DECLARE @datting datetime
declare @i char(5)

set @i=substring(@YYYMM,4,5)

begin
--select @i
if @i = '12'
set @datting=Convert(datetime,substring(convert(varchar,convert(integer,substring(@YYYMM,2,2))+1911),1,4)+'-12'+'-31')
else
set @datting=dateadd(dd,-1,substring(convert(varchar,convert(integer,substring(@YYYMM,2,2))+1911),1,4)+'-'+"right"('0'+ltrim(convert(varchar,convert(integer,substring(@YYYMM,4,2))+1)),2)+'-01')
end
--select @datting

RETURN @datting
END

格式化字串方法

Format是VB.Net中很好用,不需死記參數,很人性化的格式化Function,舉例:

123456789 (三位一撇千分位)

Format(123456789, "###,###") OutPut ; 123,456,789

0.2666666 (小數點後兩位,四捨五入,並加上%)

Format(0.2666666,"0.00%") OutPut : 26.67%

千分位,小數點捨去

Format(Val(strValue.ToString), "###,##0")

取印表機

CODE:
Imports System.Drawing
Imports System.Data
Imports System.Drawing.Printing
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call OsGetPrinter(ComboBox1)
End Sub


Private Sub OsGetPrinter(ByVal cmbprint As ComboBox)
Try
cmbprint.Items.Clear()
For Each rprint As String In PrinterSettings.InstalledPrinters
cmbprint.Items.Add(rprint)
Next
If cmbprint.Items.Count >= 0 Then
cmbprint.SelectedIndex = 0
End If
Catch ex As Exception
MessageBox.Show(ex.Message + Chr(13) + Chr(10) + ex.Source)
End Try
End Sub

End Class