大家來吃辛拉麵－香濃美味吃不厭

一步一腳印之 Visual Basic 6 商用軟體開發-進銷存篇(64)-進貨單(6/8)-預告

稍後加入

一步一腳印之 Visual Basic 6 商用軟體開發-進銷存篇(63)-進貨單(5/8)-預告

稍後加入

一步一腳印之 Visual Basic 6 商用軟體開發-進銷存篇(62)-進貨單(4/8)-預告

稍後加入

一步一腳印之 Visual Basic 6 商用軟體開發-進銷存篇(61)-進貨單(3/8)-預告

稍後加入

施羅德投資粉絲擴大募集中

總是令人信任，以管理眾多家庭與個人生活的穩定與幸福為己任，並擁有兩百年歷史的資產管理公司 － 施羅德投資正式進軍Facebook !! 施羅德投資官方粉絲團(fan page)已於 6/01(二)正式上線，粉絲頁內不僅將有施羅德的最新消息，也將創立許多簡單的互動成份，讓您在粉絲頁內輕鬆獲得更多知識，還有機會獲得精緻施華洛世奇晶鑽筆 乙支喔!!!
6/1粉絲頁正式開放，雙重好禮等您拿!!
第一重 : 前往施羅德之鏡測驗您的投資心態!!看看專為您打造的施羅德之鏡是否能照出 您內心的投資態度呢?
6/1~6/22，參加施羅德之鏡測驗並加入粉絲，施羅德將送出1500份精緻施華洛世奇晶鑽筆!
 <馬上前往施羅德之鏡>

第二重 :您是否有許多的夢想想要實現呢?現實的壓力是否常常綑綁著您? 
6/24~7/14，只要成為粉絲並於7/8猜出故事結局，施羅德將送出500份精緻施華洛世奇晶鑽筆!<6/24正式上線，敬請期待>

還在等待什麼呢?
立即前往粉絲頁成為粉絲獲得更多資訊及好康 http://www.facebook.com/schroderstw 

施羅德證券投資信託股份有限公司 
台北市信義路5段108號2樓 電話：02-2722-1868 
網站 www.schroders.com.tw 施羅德投信獨立經營管理

網路賺錢-上傳檔案就能賺錢-FileServe

Fileserve也是一個上傳檔案賺錢性質的網站，
透過上載檔案，有人下載你的檔案就會有收入。
這張表是每次千他們付給你的方式,依地區分為A、B、C、D 四區。

這網站的特色就是其25%高額下線提成，

網站特色:

1. 接受所有國家的下載流量
2. 25% 下線提成
3. 國內的級別是D級
4. 請款要求將會在每星期一處理,並在星期三發放 最低請款為$20 usd
5. 註冊後下載該網站的檔案的速度會提升
6. 多上載工具選擇
7.提供空間容量:500GB
8.最大單檔容量:1GB

加入網址:FileServe

網路賺錢-什麼?上傳檔案也能賺錢? FreakShare

Freakshare成立於2007年，是一 家免費網路空間服務公司。可以免費上傳檔案，分享給其他網友下載，並可賺取收益

【付款方式】：Paypal
【付款速度】：2天以內
【付款最低額度】：20歐元
【客服態度】：回覆速度快。如果是FAQ內已有的解答，一 般不回應。
【收益方式】：上傳檔案、依下載次數，賺收益金。
【收益模式】：1.5～30歐元 / 每千次下載（等級越高、檔案越大、下載次越多、收益就越高。）
【註冊網址】：FreakShare

官網介紹:
通過上傳文件並分享您的鏈接賺錢

每1000次下載，您將賺取高達20歐元。
每一位高級賬戶關注，您將賺取1歐元
您可以在介紹到我們服務的人的收益中，賺取10%的提成。

我們有以下的速度和收益

Rank	5-50 Mb	50-100 Mb	100-450 Mb
Low	1.5 €	2 €	3 €
Lite	3 €	4 €	6 €
Normal	4 €	7 €	10 €
Pro	7 €	12 €	14 €
VIP	14 €	18 €	30 €

我們的所有價格對所有國家都是以每1000次下載來計算。

一步一腳印之 Visual Basic 6 商用軟體開發-進銷存篇(60)-進貨單(2/8)-預告

稍後加入

一步一腳印之 Visual Basic 6 商用軟體開發-進銷存篇(59)-進貨單(1/8)-預告

稍後加入

一步一腳印之 Visual Basic 6 商用軟體開發-進銷存篇(58)-客戶(8/8)

在進銷存篇(18)我們已完成報表模組的設計,現回頭來寫程式。
1.先打開frmRpt Index1
2.修改Form_Load(),如下方紅色圈起處:

3.修改"預覽"按鈕,如下方紅色圈起處:

至此,我們已完成了客戶的報表預覽及列印的工作 ! :)

一步一腳印之 Visual Basic 6 商用軟體開發-進銷存篇(57)-客戶(7/8)

將滑鼠移到專案總管,在專案名稱處按下右鍵,出面如下畫面:

移到上方紅色圈起處,會另出現一個畫面如下圖,選擇紅色圈起處:

 

 此時會出面VB內建的報表設計畫面:

 

請依照下方圖示進行設計即可:

一步一腳印之 Visual Basic 6 商用軟體開發-進銷存篇(56)-客戶(6/8)

1.切到程式碼畫面,開始寫了,首先,在程式最上方宣告公用變數:

2.然後在Form_Load()撰寫如下程式:

3.呼叫的更換查詢條件程式:

4.再來,我們調整一下文字輸入欄的一段程式:

 

5.繼續增加"取回"按鈕的程式:

 

6.最後,則是增加"離開"按鈕的程式:

 

至此,我們已完成客戶"查詢"的功能

一步一腳印之 Visual Basic 6 商用軟體開發-進銷存篇(55)-客戶(5/8)

21.進入後,請依下方紅示標示處更改標題及屬性

22.再由上方綠色標示處挑選第二個,改成下圖所示

23再增加DataGrid的欄位六個,然後依下方六個圖示修改:

24.完成後,再點選"版面配置"的屬性頁面,如下圖綠色標示處,然後,再修改紅色圈起處的屬性:

25.依上個步驟,參考下方七個圖示,依序修改紅色圈起處:

26.按下確定鈕,回到設計畫面,應可以看到如下畫面:

下篇,我們來寫這部份程式

一步一腳印之 Visual Basic 6 商用軟體開發-進銷存篇(54)-客戶(4/8)

1.參考 進銷存篇(11)的方式,新增表單
2.將屬性(Name)改為:frmCustomIndex
3.將屬性Caption改為:客戶查詢視窗
4.增加一個Label元件在表單空白處,Caption屬性改成:查詢欄位
5.設定其寬、高、頂端高度:Width=855 Height=255 Top=160 Left=120
6.增加一個ComboBox元件在表單空白處,將(Name)屬性改為:Combo1,Caption屬性改成:查詢欄位
7.設定其寬、高、頂端高度:Width=1335 Height=300 Top=160 Left=920
8.如下圖所示,設定List屬性:公司簡稱,公司名稱,編號,負責人,連絡人,電話,手機

9.增加一個Label元件在表單空白處,Caption 屬性改成:查詢資料

10.設定其寬、高、頂端高度:Width=855 Height=255 Top=160 Left=2400

11.增加一個TextBox元件在表單空白處,將 (Name)屬性改為:txtSearch,Text屬性清成空白
12.設定其寬、高、頂端高度:Width=2295 Height=270 Top=100 Left=3240
13.增加一個CommandButton元件在表單空白處,將 (Name)屬性改為:Command1,Caption屬性改成:取回
14.設定其寬、高、頂端高度:Width=855 Height=375 Top=40 Left=5640
15.增加一個CommandButton元件在表單 空白處,將 (Name)屬性改為:Command2,Caption屬性改成:離開
16.設定其寬、高、頂端高度:Width=855 Height=375 Top=40 Left=660017.增加一個Adodc元件在表單空白處,將 Visible屬性改為:False
18.增加一個DataGrid1元件在表單空白處
19.設定其寬、高、頂端高度:Width=10395 Height=4095 Top=480 Left=020.於此元件內任一處按下滑鼠右鍵,選屬性,如下圖,並點選紅色圈起處:

一步一腳印之 Visual Basic 6 商用軟體開發-進銷存篇(53)-客戶(3/8)

完成供應商的UI設計,再來繼續寫程式。
1.先在開頭定義公用變數:

2.然後,修改程式進入點Form_Load:

 

3.撰寫開啟資料庫函數 OpenData()

4.撰寫依資料操作模式顯示功能鍵函數 ShowMode()

 

  5.撰寫首筆按鈕函數

 

  6.撰寫上筆鈕函數

 

  7.撰寫下筆鈕函數

 

  8.撰寫尾筆鈕函數

 

  9.撰寫新增鈕函數

 

  10.撰寫修改鈕函數

 

  11.撰寫查詢鈕函數

        此函數是另外呼叫外部程式(frmCustomSeIndex)l來執行

  12.撰寫刪除鈕函數

 

  13.撰寫列印鈕函數

        此函數是另外呼叫外部程式(frmRptIndex1)l 來執行,並傳遞參數ReportIndex

  14.撰寫儲存鈕函數

 

  15.撰寫取消鈕函數

 

  16.撰寫離開鈕函數

 

  17.功能按鈕完成後,有兩個特殊的函數也要用上去,它們的作用是在輸入時顯示特別顏色來標

       示,等失去焦點時,則恢復原來色彩。