搜尋此網誌

2010年6月28日 星期一

一步一腳印之 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
 
 
 
 
 
 
 
 
 

沒有留言: