T HC VISUAL BASIC 6.0 - PHN 3 1 http://ebooks.vdcmedia.com MC LC Dùng  Ha (Phn II) . 3 Dùng  Ha (Phn III) 12 C s d liu (Database) . 23 Dùng Control Data 35 Lp trình vi k thut DAO 46 Lp trình vi ADO (phn I) 58 T HC VISUAL BASIC 6.0 - PHN 3 2 http://ebooks.vdcmedia.com T HC VISUAL BASIC 6.0 - PHN 3 3 http://ebooks.vdcmedia.com Dùng  Ha (Phn II) In trên màn nh VB6 có method Print cho ta in thng trên Form, PictureBox hay Printer. Ba loi control này đc coi nh nhng khung vi mà ha s v lên. Bn hãy khi đng mt chng trình VB6 mi. t lên form mt PictureBox tên Picture1 và mt button tên CmdPrintTenLines vi Caption Print Ten Lines. DoubleClick lên button này và vit code di đây: Private Sub CmdPrintTenLines_Click() Dim i As Integer ' String variable used for display Dim strLine As String ' Write 10 lines, one under the other For i = 1 To 10 strLine = "This is line " & CStr(i) Me.Print strLine ' Print on Form Picture1.Print strLine ' Print on Picture1 Next End Sub Bn hãy chy th program ri click nút Print Ten Lines. Trong trng hp này ta dùng default Font và Color đ in 10 hàng. Sau mi Print, chng trình t đng xung hàng. K đó, thêm mt button tên CmdPrintFontSizes vi Caption Print Font Sizes. DoubleClick lên button này và vit code di đây: Private Sub CmdPrintFontSizes_Click() Dim i As Integer ' Print numbers 1 to 10, one after the other on the same line For i = 1 To 10 ' Define Font size Me.Font.Size = Me.Font.Size + i ' Define Color using Function QBColor Me.ForeColor = QBColor(i) ' Print without moving to next line. Note the semicolon ";" Me.Print Str(i); Next End Sub T HC VISUAL BASIC 6.0 - PHN 3 4 http://ebooks.vdcmedia.com Trong Sub CmdPrintFontSizes_Click, ta thay đi c kiu ch đ cho các con s đc in ra ln lên dn dn và thay đi màu ca các con s bng cách dùng function QBColor.  in các con s liên tc không xung hàng ta dùng method Print vi semicolon (;). Bn hãy chy chng trình li. Click nút Print Ten Lines ri click nút Print Font Sizes, kt qu s ging nh di đây: Bây gi bn th minimize ca s ca chng trình, k đó restore nó li kích thc c. Bn s thy các hàng ta in lúc nãy không còn trong form hay PictureBox na. Lý do là khi ta Print lên form hay PictureBox, các hình y đc v trong graphic đa phng ch không đc VB6 k là mt phn ca ca s. Mun tránh tr ngi này ta phi dn VB6 nh v li bng cách set property AutoRedraw ca form và Picture1 ra True. T HC VISUAL BASIC 6.0 - PHN 3 5 http://ebooks.vdcmedia.com H thng ta đ Khi đt mt Object hay v mt cái gì lên màn nh (screen) hay form .v.v ta cn phi ch đnh Object y nm ch nào k t (with reference to) cái góc Trên Trái (Top Left) ca màn nh hay form. Cái góc Trên Trái là Trung tâm ta đ ca screen hay form.  đó ta đ X và Y đu bng 0, ta vit là 0,0. Nu ta đi ln qua phi theo chiu rng ca screen thì ta đ X tng lên. Nu ta đi dc xung di theo chiu cao ca screen thì ta đ ca Y tng lên. K đn là đn v đo lng ta dùng đ biu din khong cách. Trong bài trc ta đã nói đn đ mn ca màn nh (screen resolution) da vào pixel. Ta có th dùng đn v pixel đ nói mt Object có ta đ X và Y mi chiu bao nhiêu pixels tính t trung tâm ta đ. Nh th, ngay c trên cùng mt màn nh khi ta tng đ mn nó lên thì mt Object đã đc đt lên màn nh theo đn v pixel s xích qua trái và lên trên mt ít vì kích thc mt pixel bây gi nh hn lúc trc mt chút. Hình di đây minh ha các kích thc ca màn nh và Form. im cn bit là có nhng phn nh title bar và border ca mt form ta không th v lên đc. Do đó din tích còn li ca form đc gi là Client Area. Chiu rng và chiu cao ca Client Area đc gi là ScaleWidth và ScaleHeight. Nu mun khong cách t mt Object đn trung tâm ta đ, hay kích thc ca chính Object, không h thay đi dù ta có tng, gim đ mn ca màn nh hay in hình ra printer (thí d ta mun nó luôn luôn dài 5cm chng hn) thì ta dùng h thng ta đ theo đn v twips ca form. T HC VISUAL BASIC 6.0 - PHN 3 6 http://ebooks.vdcmedia.com Twips là Default Coordinate System ca VB6. Trong h thng này mi đim là tng đng vi 1/567 centimeter. Do đó, nu bn v mt dng dài 567 twips nó s hin th dài 1cm trên màn nh, và khi bn in nó ra, nó cng dài 1cm trên giy. Tc là đ dài tht ca Object không tùy thuc vào loi màn nh (đ mn cao hay thp) hay printer. Ngi ta nói nó là Device independent coordinate system (H thng ta đ đc lp vi dng c). Nói mt cách khác Twips cho ta tht s what you see is what you get (WYSIWYG - thy sao có vy), rt thích hp vi Desktop publishing. Bn có th thay đi h thng ta đ ca mt form bng cách edit property ScaleMode qua ca s Properties nh sau: Ghi chú: Thay đi tr s ScaleMode không có hiu lc ngay mà ch nh hng nhng gì đc thit k sau đó. Ging nh khi ta Edit Text trong Notepad, Text Cursor (thanh | chp chp) là v trí hin ti, ni s hin th cái ch ta đánh sp ti, trong graphic ta có mt Cursor vô hình, ni s hin th cái gì ta sp Print. Ta ch đnh v trí ca graphic cursor y bng cách cho tr s ca CurrentX và CurrentY. Bn hãy khi đng mt d án VB6 mi và vit code cho Event Resize ca form chính nh sau: T HC VISUAL BASIC 6.0 - PHN 3 7 http://ebooks.vdcmedia.com Th chy chng trình và Resize form. Mi khi bn Resize form, ch X s đc di đn v trí khong chính gia ca Client Area ca form. Dùng Graphics ã có mt chút cn bn v graphics ca VB6, bây gi ta có th đt nhng graphics lên form. Có hai cách đ làm chuyn y: • Dùng Graphical Controls: Ta có PictureBox và Image có th cha hình nh. Trong khi Line và Shape có th v đng thng hay các hình ch nht, tròn .v.v trên form, lúc thit k. • Dùng Graphics Methods: ây là nhng mnh lnh cho ta v trc tip lên form lúc run-time. Các mnh lnh VB6 cho ta là Cls, Pset, Point, Line và Circle. T HC VISUAL BASIC 6.0 - PHN 3 8 http://ebooks.vdcmedia.com Tùy theo hoàn cnh, bn có th la chn cách nào tin dng. PictureBox và Image Dùng PictureBox hay Image là cách d nht đ hin th mt graphic trong form. Lúc thit k, bn có th đánh thng tên ca graphic vào property Picture trong ca s Properties. Form cng nhn property Picture. Bn cng có th click lên bên phi ch property Picture đ browse và chn mt graphic, thng là Bitmap hay Icon. S khác bit chí gia Image và PictureBox là Image có property Stretch mà ta có th set thành True đ kéo dãn graphic ra cho chim trn din tích ca Image. Image là mt grapgic control lightweight (nh ký), tc là nó không đòi hi nhiu memory và chy nhanh hn PictureBox. Lý do là PictureBox là mt container, tc là nó có th cha các controls khác. Ngoài ra, PictureBox cng cho phép ta v lên trên nó ging nh trên form. T HC VISUAL BASIC 6.0 - PHN 3 9 http://ebooks.vdcmedia.com Trong hình di đây, trong lúc thit k ta đt mt PictureBox và mt Image cùng mt c lên cùng mt form. K đó ta assign cùng mt picture hình happy.bmp cho c hai. Riêng vi Image, ta set property Stretch ca nó ra True. Ch đnh hình nh lúc run-time Trong lúc program đang chy, ta có th thay đi hình nh cha trong PictureBox hay Image bng cách dùng Function LoadPicture. Nh là ta không th assign trc tip vào Property Picture ca hai graphical controls này. Lý do là Property Picture ch là mt cách thân thin cho ta ch đnh mt graphic trong lúc thit k. Khi mt hình nh đã đc ch đnh ri, VB6 cha c hình y vào file có cùng tên vi file ca form nhng vi extension .frx. Tc là nu tên ca form là Form1 thì graphic ca Property Picture đc cha chung vi các graphics khác ca form trong file Form1.frx. Do đó, vì VB6 program cha luôn graphic chung vi nó, ta không cn phi nhc đn tên ca graphic file khi dùng hay deploy, tc là không cn đính kèm tên graphic file trong Setup file cho ngi ta install. Di đây là code mu đ lúc run-time ta load mt graphic tên sad.bmp nm trong Subfolder tên images ca App.path vào Image control tên Image1. Private Sub CmdLoad_Click() Dim LocalDir As String ' Assign Folder where program resides to LocalDir LocalDir = App.Path ' Append right backslash if last character is not "\" If Right(LocalDir, 1) <> "\" Then LocalDir = LocalDir & "\" T HC VISUAL BASIC 6.0 - PHN 3 10 http://ebooks.vdcmedia.com End If ' Load graphic "sad.bmp" from SubFolder "images" into Image1 Image1.Picture = LoadPicture(LocalDir & "images\sad.bmp") End Sub D nhiên, nu ta mun load graphic lúc run-time thì phi cung cp graphic file riêng. Control Shape Control Shape cho phép bn v nhng hình đn gin nh đng thng, hp, vòng tròn trên form, lúc thit k. Sau khi DoubleClick lên control Shape trong Toolbox đ thêm mt control Shape vào form, bn chn loi Shape ca nó t ca s Properties ri nm vào mt góc ca Shape trên form drag ln nh tùy ý. Mun sn bên trong mt Shape, bn chn màu t property FillColor. Property FillColor cng ging nh BackColor ca các controls khác, nhng nó ch có hiu lc khi bn cho property FillStyle mt tr s khác hn là 1- Transparent (trong sut), thí d nh 0- Solid (dày đc). [...]... http://ebooks.vdcmedia.com ng th i thêm T H C VISUAL BASIC 6.0 - PH N 3 ' Draw a Pie Slice from 90deg to 45deg Circle (30 00, 4000), 800, , -Rads(90), ' Position the graphic cursor to Print CurrentX = 2800: CurrentY = 4400 Print "87.5%" FillColor = vbBlue ' Draw a Pie Slice from 45deg to 90deg Circle (30 50, 39 00), 800, , -Rads(45), ' Position the graphic cursor to Print CurrentX = 34 00: CurrentY = 30 00 Print "12.5%" FillStyle... dòng code này CurrentX =30 00 và CurrentY=4000 thì dòng code t ng ng v i: Line (30 00,4000)- (36 00,4500), vbMagenta http://ebooks.vdcmedia.com T H C VISUAL BASIC 6.0 - PH N 3 17 3 Dùng ch Step nói s khác bi t t CurrentX và CurrentY: thí d : Line Step(400, 600)-Step(800, -500), vbGreen N u tr c khi execute dòng code này CurrentX =36 00 và CurrentY=4500 thì dòng code t ng ng v i: Line (4000,5100)-(4800,4600),... m ngang Private Sub CmdEllipse_Click() Circle (1400, 30 00), 800, vbMagenta, , , 2 Circle (1400, 30 00), 800, vbBlue, , , 0.5 End Sub N u b n kh i ây: ng ch ng trình và click c b n buttons b n s th y hình sau http://ebooks.vdcmedia.com T H C VISUAL BASIC 6.0 - PH N 3 22 Property DrawMode Thông th ng khi ta v , tr s default c a property DrawMode là 13- Copy Pen Có m t tr s DrawMode r t thích h p cho áp... t record khi field y ch a m t empty string Khi ta t o m t record l n u, n u không cho tr s c a m t field, thì field y có tr s là NULL Th ng th ng, Visual Basic 6.0 không thích NULL value nên ta http://ebooks.vdcmedia.com T H C VISUAL BASIC 6.0 - PH N 3 31 ph i th m t field v i Function IsNULL() m b o nó không có tr s NULL tr c khi làm vi c v i nó N u IsNULL tr v tr s False thì ta có th làm vi c v i... n N u ph n l n các ch ng trình áp d ng c thi t k làm vi c cách này, thì trong t ng lai ta không c n m t Database Server th t m nh http://ebooks.vdcmedia.com T H C VISUAL BASIC 6.0 - PH N 3 35 Dùng Control Data Control Data T VB5, Visual Basic cho l p trình viên m t control truy c p c s d li u, tên nó ch n s là Data Nh ta bi t, có m t c s d li u Microsoft gói kèm khi ta mua VB6 - ó là Jet Database Engine... dùng Menu Command File | Get External Data | Link Tables r i ch n lo i DBase và chính file c a table mà b n mu n dùng nhét nó vào Access database ang m : http://ebooks.vdcmedia.com T H C VISUAL BASIC 6.0 - PH N 3 33 Database Server và m t s ý ni m Dù Jet Database Engine là m t relational database r t t t và hi u n ng, nó thu c lo i File Based database, t c là nó th ng, không ch y m t mình nh ng ph... picGraphic b ng cách Browse m t Bitmap file t c a s Properties ây ta ch n INTL_NO.BMP t folder \Program Files\Microsoft Visual Studio\Common\Graphics\Bitmaps\Assorted http://ebooks.vdcmedia.com T H C VISUAL BASIC 6.0 - PH N 3 Trong ch ng trình này ta mu n h chuy n Mouse cursor thì khi cursor i 13 khi è nút trái c a Mouse xu ng và di n âu, hình INTL_NO cv n ó Ta s dùng m t Flag ánh d u nút-trái-c a-Mouse-Down,... Boolean (Yes/No), Currency ( ch a tr s ti n) và Date ( ch a date/time) Datatype Number l i g m có nhi u lo i datatypes v con s nh Integer, Long (integer chi m 32 bits), Single, Double, v.v http://ebooks.vdcmedia.com T H C VISUAL BASIC 6.0 - PH N 3 D 26 i ây là Datatypes c a các fields trong record Author: Có lo i Datatype c bi t tên là AutoNumber Th t ra nó là Long nh ng tr s c phát sinh t ng m i khi... hay Referential Integrity Rule thì c g i là Database-Specific Integrity Rules Nh ng quy lu t này d a vào chính lo i database và nh t là tùy thu c vào các http://ebooks.vdcmedia.com T H C VISUAL BASIC 6.0 - PH N 3 30 quy lu t v m u d ch (Business Rules) ta dùng cho database, thí d nh m i record v ti n l ng c a công nhân ph i có m t field S Thu (Tax Number) do s Thu V phát hành cho công dân L u ý là... Line (50, 100)- (30 00, 4000) Khi ng này c v xong thì v trí c a graphic cursor có t a là v trí c a cu i ng, t c là CurrentX =30 00 và CurrentY=4000 trong tr ng h p này 2 Ch cho bi t t a cu i ng th ng: thí d : Line - (36 00, 4500), vbMagenta Trong tr ng h p này v trí c a graphic cursor (CurrentX, CurrentY) c l y làm t a c a u ng th ng khi v T c là n u tr c khi execute dòng code này CurrentX =30 00 và CurrentY=4000 . 58 T HC VISUAL BASIC 6.0 - PHN 3 2 http://ebooks.vdcmedia.com T HC VISUAL BASIC 6.0 - PHN 3 3 http://ebooks.vdcmedia.com Dùng. này CurrentX =30 00 và CurrentY=4000 thì dòng code tng đng vi: Line (30 00,4000)- (36 00,4500), vbMagenta T HC VISUAL BASIC 6.0 - PHN 3 17 http://ebooks.vdcmedia.com