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

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

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

 

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

 

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

 

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

 

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

 

至此,我們已完成商品"查詢"的功能

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

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

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

 

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

 

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

 

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

 

 

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

 

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

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

1.參考 進銷存篇(11)的方式,新增表單
2.將屬性(Name)改為:frmProductIndex
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 商用軟體開發-進銷存篇(21)-商品(3/8)

上篇,完成了UI設計,再來繼續寫程式。
1.先在開頭定義公用變數:

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

 

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

 

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

 

  5.撰寫首筆按鈕函數

 

  6.撰寫上筆鈕函數

 

  7.撰寫下筆鈕函數

 

  8.撰寫尾筆鈕函數

 

  9.撰寫新增鈕函數

 

  10.撰寫修改鈕函數

 

  11.撰寫查詢鈕函數

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

 

  12.撰寫刪除鈕函數

 

  13.撰寫列印鈕函數

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

 

  14.撰寫儲存鈕函數

 

  15.撰寫取消鈕函數

 

  16.撰寫離開鈕函數

 

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

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

 

2010 FIFA世足賽16強戰報(8)

西班牙1:0葡萄牙

節奏有點慢,有點不過癮的感覺

udn(聯合報)我是記者 推贊助計畫

這是無意中看見的,雖然好像才剛開始起步,但,至少,公民第五權的力量,漸漸在擴大中。
欣見國內的傳媒業者正視他們的存在還給予支持.

相關聯結

2010 FIFA世足賽16強戰報(7)

巴拉圭5:3日本 

不意外,巴拉圭把日本轟回去了,
可怕的是戰到加長賽仍分不出來,只好靠點球PK來分囉

貼住Honey的傷痕CICA CARE疤痕矽膠片，讓媽咪遠離剖腹產疤痕

CICA CARE 疤痕矽膠片　新舊疤痕都秀秀喔~
CICA CARE疤痕矽膠片，是由全球領導傷口敷料商「英商史耐輝(smith & nephew)」所推出。由醫療級矽膠製成，具有高保濕性能緊密貼合皮膚，鎖住疤痕周圍水分，幫助撫平軟化疤痕。正常情形，能重複使用28次。輕鬆貼住老婆小腹上那條揮之不去的疤痕。

體驗美肌，參加活動即可抽獎!
【活動期間】即日起～07/31(六)23:59:59止
立即參加金剛「疤」比OUT!!!貼出你的美肌活動，即可參加抽獎
【活動辦法】
活動期間，上傳照片製作自己的金剛「疤」比，並且成功貼出無瑕美人娃娃，即獲得抽獎資格，主辦單位將隨機抽出80名幸運得主，有各種好禮送給大家!

金剛「疤」比退散，趕快貼出你的漂亮好心情!!
立即前往：http://www.sun-ap.com/cica-care/2010?id=11衛署醫器輸壹字第004496號 / 北市衛器廣字第99050157號

2010 FIFA世足賽16強戰報(6)

巴西3:0智利 森巴軍團完全踢翻了智利

2010 FIFA世足賽16強戰報(5)

 荷蘭2:1斯洛伐克 最後10秒的大放送,讓斯洛伐克爽了一下

一步一腳印之 Visual Basic 6 商用軟體開發-進銷存篇(20)-商品(2/8)

1.依下圖紅色圈起處修改其屬性:
(Name):frmProduct
Caption:商品

Caption屬性改變後,上方綠色標示處會跟著改變。

2.開始把畫面設上去,請照下圖的樣式設計:

操作步驟

(1).設定畫面寬度及高度,Width=8835 Height=5310

(2)2.建立操作按鈕的底層框 :

   (I)拉一個PictureBox進來,(Name)屬性改成:picButtons

   (II)設定其寬、高、頂端高度:Width=8715 Height=420 Top=0

   (III)拉一個按鈕進來此PictureBox,(Name)屬性改成:cmdFirst

   (IV)設定其寬、高:Width=700 Height=420

   (V)設定標題:Caption=首筆

   (VI)用複製的方式,依序建立其他11個按鈕:

        只需更改其標題:

        上筆:cmdPrevious

        下筆:cmdNext

        尾筆:cmdLast

        新增:cmdAdd

        修改:cmdEdit

        查詢:cmdIndex

        刪除:cmdDelete

        列印:cmdPrint

        儲存:cmdUpdate

        取消:cmdCancel

        離開:cmdClose

 

3.建立輸入欄位的底層及內容 :

   (01)拉一個PictureBox進來,(Name)屬性改成:Picture1

   (02)設定其寬、高、頂端:Width=8655 Height=4400 Top=360

   (03)拉一個Label進此PictureBox

   (04)設定標題:Caption=商品編號

   (05)設定其寬、高、頂端、左端:Width=855 Height=255 Top=105  Left=120

   (06)拉一個Label進來此PictureBox

   (07)設定標題:Caption=商品類別

   (08)設定其寬、高、頂端、左端:Width=855 Height=255 Top=105  Left=2160

   (09)拉一個Label進來此PictureBox

   (10)設定標題:Caption=商品名稱

   (11)設定其寬、高、頂端、左端:Width=855 Height=255 Top=420  Left=120

   (12)拉一個Label進來此PictureBox

   (13)設定標題:Caption=規格

   (14)設定其寬、高、頂端、左端:Width=855 Height=255 Top=720  Left=120

   (15)拉一個Label進來此PictureBox

   (16)設定標題:Caption=庫存數量

   (17)設定其寬、高、頂端、左端:Width=855 Height=255 Top=1000  Left=120

   (18)拉一個Label進來此PictureBox

   (19)設定標題:Caption=安全存量

   (20)設定其寬、高、頂端、左端:Width=855 Height=255 Top=1320  Left=120

   (21)拉一個Label進來此PictureBox

   (22)設定標題:Caption=單位

   (23)設定其寬、高、頂端、左端:Width=855 Height=255 Top=1620  Left=120

   (24)拉一個Label進來此PictureBox

   (25)設定標題:Caption=成本

   (26)設定其寬、高、頂端、左端:Width=855 Height=255 Top=1920  Left=120

   (27)拉一個Label進來此PictureBox

   (28)設定標題:Caption=售價

   (29)設定其寬、高、頂端、左端:Width=855 Height=255 Top=2240  Left=120

   (30)拉一個Label進來此PictureBox

   (31)設定標題:Caption=備註

   (32)設定其寬、高、頂端、左端:Width=855 Height=255 Top=2530  Left=120

   (33)拉一個Label進來此PictureBox

   (34)設定標題:Caption=最後交易日期

   (35)設定其寬、高、頂端、左端:Width=855 Height=255 Top=2235  Left=4245

   (36)拉一個Adodc進來此PictureBox
   (37)設定名稱:Name=datPrimaryRS  Visible屬性=False
   (38)拉一個Textbox進來此PictureBox
   (39)設定其寬、高、頂端:Width=1095 Height=285 Top=60

   (40)設定資料來源:DataSource=datPrimaryRS

   (41)設定欄位名稱:DataField=ProductNo

   (42)將Text屬性清空

   (43)設定最大輸入長度:MaxLength=16

   (44)拉一個ComboBox進來此PictureBox
   (45)設定其左端、寬、高、頂端:Left=2950 Width=2175 Height=300 Top=50  

   (46)將Text屬性清空

   (47)拉一個Textbox進來此PictureBox
   (48)設定其左端、寬、高、頂端:Left=960 Width=3735 Height=285 Top=360

   (49)設定資料來源:DataSource=datPrimaryRS

   (50)設定欄位名稱:DataField=ProductName

   (51)將Text屬性清空

   (52)設定最大輸入長度:MaxLength=20

   (53)拉一個Textbox進來此PictureBox
   (54)設定其左端、寬、高、頂端:Left=960 Width=1095 Height=285 Top=660

   (55)設定資料來源:DataSource=datPrimaryRS

   (56)設定欄位名稱:DataField=ProductSpec

   (57)將Text屬性清空

   (58)設定最大輸入長度:MaxLength=10

   (59)拉一個Textbox進來此PictureBox
   (60)設定其左端、寬、高、頂端:Left=960 Width=1095 Height=285 Top=960

   (61)設定資料來源:DataSource=datPrimaryRS

   (62)設定欄位名稱:DataField=Quanty

   (63)將Text屬性清空

   (64)拉一個Textbox進來此PictureBox

   (65)設定其左端、寬、高、頂端:Left=960 Width=1095 Height=285 Top=1260

   (66)設定資料來源:DataSource=datPrimaryRS

   (67)設定欄位名稱:DataField=SafeQuanty

   (68)將Text屬性清空

   (69)拉一個Textbox進來此PictureBox

   (70)設定其左端、寬、高、頂端:Left=960 Width=615 Height=285 Top=1560

   (71)設定資料來源:DataSource=datPrimaryRS

   (72)設定欄位名稱:DataField=Unit

   (73)將Text屬性清空

   (74)設定最大輸入長度:MaxLength=4

   (75)拉一個Textbox進來此PictureBox
   (76)設定其左端、寬、高、頂端:Left=960 Width=1095 Height=285 Top=1860

   (77)設定資料來源:DataSource=datPrimaryRS

   (78)設定欄位名稱:DataField=List

   (79)將Text屬性清空

   (80)拉一個Textbox進來此PictureBox

   (81)設定其左端、寬、高、頂端:Left=960 Width=1095 Height=285 Top=2160

   (82)設定資料來源:DataSource=datPrimaryRS

   (83)設定欄位名稱:DataField=Price

   (84)將Text屬性清空

   (85)拉一個Textbox進來此PictureBox

   (86)設定其左端、寬、高、頂端:Left=960 Width=1095 Height=285 Top=2160

   (87)設定資料來源:DataSource=datPrimaryRS

   (88)設定欄位名稱:DataField=LastDate

   (89)將Text屬性清空

   (90)設定最大輸入長度:MaxLength=10

   (91)拉一個Textbox進來此PictureBox
   (92)設定其左端、寬、高、頂端:Left=960 Width=5415 Height=645 Top=2460

   (93)設定資料來源:DataSource=datPrimaryRS

   (94)設定欄位名稱:DataField=Memo

   (95)將Text屬性清空

   (96)設定多行輸入:MultiLine=True

 

 

 

 

 

 

 

 

 

一步一腳印之 Visual Basic 6 商用軟體開發-進銷存篇(19)-商品(1/8)

1.首先到Access資料庫裡增加商品類別資料表,表名為:Product
依照下圖建立此資料表:

2.開始建立商品,點選下圖紅色圈起處:

 

3.此時會彈出一個新增表單的畫面,如下圖,點選"表單",按下"開始"按鈕

 

4.一個新的空白表單等我們開始UI設計: