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

1.依下圖紅色圈起處修改其屬性:
(Name):frmSupply
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=975 Height=255 Top=105  Left=0

   (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=2800  Left=4245

   (36)拉一個Label進來此PictureBox

   (37)設定標題:Caption=電子郵件

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

   (39)拉一個Label進來此PictureBox

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

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

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

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

   (47)設定欄位名稱:DataField=SupplyNo

   (48)將Text屬性清空

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

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

   (52)將Text屬性清空

   (53)拉一個Textbox進來此PictureBox

   (54)設定其左端、寬、高、頂端:Left=960 Width=5415 Height=285 Top=360

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

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

   (57)將Text屬性清空

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

   (59)拉一個Textbox進來此PictureBox

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

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

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

   (63)將Text屬性清空

   (64)設定最大輸入長度:MaxLength=8

   (65)拉一個Textbox進來此PictureBox

   (66)設定其左端、寬、高、頂端:Left=960 Width=5415 Height=285 Top=960

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

   (68)設定欄位名稱:DataField=Addr

   (69)將Text屬性清空

   (70)設定最大輸入長度:MaxLength=50

   (71)拉一個Textbox進來此PictureBox

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

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

   (74)設定欄位名稱:DataField=PAddr

   (75)將Text屬性清空

   (76)設定最大輸入長度:MaxLength=50

   (77)拉一個Textbox進來此PictureBox

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

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

   (80)設定欄位名稱:DataField=Boss

   (81)將Text屬性清空

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

   (83)拉一個Textbox進來此PictureBox

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

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

   (86)設定欄位名稱:DataField=Conn

   (87)將Text屬性清空

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

   (89)拉一個Textbox進來此PictureBox

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

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

   (92)設定欄位名稱:DataField=Tel

   (93)將Text屬性清空

   (94)設定最大輸入長度:MaxLength=15

   (95)拉一個Textbox進來此PictureBox

   (96)設定其左端、寬、高、頂端:Left=960 Width=1575 Height=285 Top=2460

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

   (98)設定欄位名稱:DataField=Fax

   (99)將Text屬性清空

   (100)設定最大輸入長度:MaxLength=15

   (101)拉一個Textbox進來此PictureBox

   (102)設定其左端、寬、高、頂端:Left=960 Width=1575 Height=285 Top=2760

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

   (104)設定欄位名稱:DataField=Mobile

   (105)將Text屬性清空

   (106)設定最大輸入長度:MaxLength=15

   (107)拉一個Textbox進來此PictureBox

   (108)設定其左端、寬、高、頂端:Left=960 Width=975 Height=285 Top=2760

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

   (110)設定欄位名稱:DataField=TranDate

   (111)將Text屬性清空

   (112)設定最大輸入長度:MaxLength=8

   (113)拉一個Textbox進來此PictureBox

   (114)設定其左端、寬、高、頂端:Left=960 Width=5415 Height=645 Top=3360

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

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

   (117)將Text屬性清空

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

   (119)拉一個Adodc進來此PictureBox
   (120)設定Visible屬性=False