Visual BasicWindows 3 Visual Basic 6.0

9172346589ASCIIVisual BasicVisual BasicVisual BasicVisual BasicVisual Basic

Visual Basic2005Visual Basic

20047

()

1 Visual Basic 6.0 2 3 4 5 6 7 8 9

1 Visual Basic 6.0 1.1 Visual Basic 1.2 Visual Basic 6.01.3 Visual Basic1.4 1.5 Visual Basic 1.6 Visual Basic 1.7

1.1.1 Visual Basic BasicBeginners All-Purpose Symbol Instruction CodeVisual BasicBasicBasicWindowsWindowsVisualGUI

1.1.1 Visual Basic 1991Visual Basic1.0Visual BasicVisual Basic1.0 1992Visual Basic Professional ToolkitMicrosoft Visual Basic 2.0TrueFalse 1993Visual Basic 3.0Jet 1.1 1995Visual Basic 4.0Visual BasicOLE32OCXVisual BasicMicrosoft WordMicrosoft Excel

1.1.1 Visual Basic 1997Visual Basic 5.0Microsoft COMActiveXVisual BasicDLL 1998Visual Basic 6.0WebSQL Server

1.1.1 Visual Basic Visual Basic 5.0/6.03 ActiveXActiveXInternet Visual Basic 6.0SQL Server 3Visual Basic 6.0

1.1.2 Visual Basic Visual BasicWindows1 Visual BasicOOPVisual BasicWindows

1.1.2 Visual Basic2 Visual Basic3 Visual Basic (1) Basic (2) (3) (4) (5) (6)

1.1.2 Visual Basic4 Visual BasicWindows5 Visual BasicMicrosoft AccessDbaseMicrosoft FoxProParadoxMicrosoft ExcelLotusl 1-2-3

1.1.2 Visual Basic6DDEDLLOLE Microsoft WindowsWindowsVisual BasicWindowsWindowsVisual BasicDLLWindowsAPISDK7Help WindowsVisual BasicVisual Basic

1.1.3 Visual Basic 6.0 Visual Basic 6.0Visual StudioVisual Basic 5.0Visual Basic 6.0InternetVisual Basic 6.01 Visual Basic 6.0Visual Basic 5.0ADOActive Data ObjectADOADO

1.1.3 Visual Basic 6.0 2InternetInternetVisual Basic 6.0Internet(1) IISVisual Basic 6.0IIS(2) DHTMLVisual Basic 6.0Visual Basic(3) Internet Explorer 4.xActiveX3(1) DataGridDataListDataComboData BaseDBDBGridOLEDBListDBComboADO(2) (3) (4)

1.1.3 Visual Basic 6.0 4 Visual Basic 6.0Visual Component ManagerVCMVisual ModelerVCMVisual BasicVisual ModelerVisual C++Visual BasicVCMVisual BasicVisual C++5ActiveX Visual Basic 6.0ActiveXCVisual C++Visual BasicDelphiWordAccess6 Visual Basic 6.0Visual Basic 6.0Visual BasicVisual Basic

1.2.1 Visual Basic 6.0 Visual Basic 6.0IDEVisual Basic 6.0 Visual Basic 6.01-1 1-1 Visual Basic 6.0

1.2.1 Visual Basic 6.0Visual Basic 6.0131031-13(1) 11(2) (3) EXE1-2Visual Basic

1.2.1 Visual Basic 6.01-2 Visual Basic 6.0

1.2.1 Visual Basic 6.01-2Visual Basic11-3Visual Basic3DesignRunBreak1-Microsoft Visual Basic[](1) 1-2(2) 1 Microsoft Visual Basic [](3) 1 Microsoft Visual asic [break]F5

1.2.1 Visual Basic 6.02Visual BasicVisual Basic131-31-3 Visual Basic 6.0

1.2.1 Visual Basic 6.0 Visual Basic 6.0(1) (2) (3) IDE(4) Windows(5) (6) (7) (8) (9) Visual Basic(10) ActiveX(11) (12) (13)

1.2.1 Visual Basic 6.03 Visual Basic1-3

1.2.2 WindowsForm1/.FrmName

1.2.3 General201-4 1-4 Visual Basic

1.2.3 ActiveXActiveX1-5ActiveX 1-5

1.2.4 1-6 3 (1) (2) (3)

1.2.4 1-6 1-7

1.2.5 Visual Basic 6.0Command1Caption1-7

1.2.6 1-8Form11-9 1-8 1-9

1.2.7 1-10 1-10

1.2.8 (1) X= 3.14:Y=2:Z=30:P=True: K=False(2) Print ? X+Y 5.14 ' Print Int(X)+Y/2 4 ' ? Not P Or K And P Or Y>Z False '

1.2.8 Visual Basic/Ctrl+G1-11Visual BasicDebugPrintDebug.print[]Debug.print VBVBPrint 1-11

1.2.8 1-12 Visual Basic 6.02 1-12

1.3.1 Windows Visual Basic Visual BasicVisual Basic Visual BasicWindows

1.3.2 1 ObjectCPUContainerVisual Basic 6.0Visual Basic

1.3.2 2Visual Basic

1.3.3 NameColorVisibleCaptionTextCaptionText(1) (2) Visual Basic. = .Visual BasicLabel1Label1.Caption = ""

1.3.4 Visual Basic[.][] Form1Visual Basic Print Form1.Print " Visual Basic" Form1Print " Visual Basic"

1.3.5 1Visual BasicLoadClickDblClickCmdOKClick

1.3.5 2ClickSub Form_[] End SubSub _[] End SubcmdOk Sub cmdOK_Click( ) Cmd0k.Visible=False End Sub

1.4.1 WindowsVisual Basic1-13 Windows

1.4.1 1-13

1.4.2 NameLeftTopHeightWidthVisibleEnabledFontForeColorBackColorVisual Basic1Name Visual BasicNameForm1Form2NameMainFrm

1.4.2 2LeftTop LeftTopLeftToptwip1twip=1/20=1/1440in=1/567cm3HeightWidth 1-14ScreenForm1OkLeftTopHeightWidthLeftTopVisual Basic

1.4.2 1-14 LeftTop HeightWidth

1.4.2 1-1 Form11/2LoadPrivate Sub Form_Load ()Form1.Width = Screen.Width/2 ' ScreenForm1.Height = Screen.Height/2 ' ' Form1.Left = (Screen.Width - Form1.Width)/2 ' Form1.Top = (Screen.Height - Form1.Height)/2 End Sub

1.4.2 4Caption1-13CaptionVB5FontuFontNameuFontSize9uFontBoldFalseuFontItalicFalseuFontStrikeThruFalseuFontUnderLineFalse

1.4.2 1-2 Text1CmdOkPrivate Sub Text1_Change( )If Text1.Text = "" Then' CmdOK.Enabled = False' Else CmdOK.Enabled = True ' End IfEnd Sub

1.4.2 7Visible Visible False8BackColorForeColor BackColorForeColorVisual BasicWindows--RGBRGBQBColorRGB Form1 Form1.BackColor = RGB(255, 0, 0) Visual BasicBackColor Form1.BackColor = &HFF& Form1.BackColor = vbRed

1.4.2 9MaxButtonMinButton TureFalse10Icon ControlBoxTure Icon*.Ico*.Cur11ControlBox TureFalseMaxButtonMinButtonTure

1.4.2 12Picture 13BorderStyle BorderStyle61-1 1-1 BorderStyle

1.4.2 14WindowsState 331-215AutoRedraw CircleLinePsetPrintAutoRedrawTrueFalse

1.4.2 LoadPrintAutoRedrawTrueLoad

1.4.3 Visual Basic 6.0301Click Visual BasicForm_ClickClick2DblClick ClickDblClick

1.4.3 3Load Load4Unload 5Resize Resize6Activate

1.4.4 PrintClsShowHideMove1Print .Print [] Print x, y, "WINDOWS"x,yWINDOWS Print2.3.22Cls Cls.Cls ClsC1sCurrentXCurrentY0

1.4.4 3Move Move.Move Left[,Top[,Width[,Height]]] LeftTopWithHeight MoveLeftWidthLeftTopLeftTopWidthHeight

1.4.4 1-3 Move FormlPrivate Sub Form_DblClick( )Form1.Move 0, 0, Form1.Width / 2, Form1.Height / 2End Sub

1.4.4 4Show Show Show Visible True .Show [vbModal | vbModeless] (1) vbModalvbModelessvbModalShowvbModal (2) Load

1.4.4 5Hide Hide .Hide VisibleFalseHide HideShow

1.4.4 1-4 FormlPrivate Sub Form_Click() Form1.Hide ' MsgBox "" ' Form1.Show ' End SubLinePsetCircle Refresh6

1.4.5 (1) Visual Basic1-151-16 1-15 1-16

1.4.5 (2) ... (3) ShowForm2.Show Form2 (4) UnloadUnload Form2Form2 (5) 1Form111-17Visual BasicSub main4

1.4.5 1-17

1.4.6 1-181-19

1.5.1 Visual Basic Visual Basic*.Vbp.Frm.Bas.Cls1-20 (1) (2)

1.5.1 Visual Basic (3) 1-20 Visual Basic

1.5.1 Visual Basic (1) .frx.frx (2) .res (3) ActiveX.ocxActiveX

1.5.2 Visual Basic Visual Basic Visual BasicVisual Basic DblClickClickMouseDownMouseUp

1.5.3 Visual Basic (1) (2) (3) (4) (5) (6)

1.6 Visual Basic Visual BasicVisual BasicVisual BasicVisual BasicVisual BasicVisual Basic 1-5 1-2112XXXVBXXX1-22

1.6 Visual Basic 3Visual Basic3Visual Basic35.1 1-21 1-22

1.6 Visual Basic1 CommandBttion cmd NameHeightWidthTopLeftEnabledVisibleFontCaption Click2 Label

1.6 Visual Basic3 TextBoxText TextTextTextString ChangeLostFocusKeyPress TextChange TabLostFocus ASCIIKeyPress

1.6.1 Visual Basic 6.01-1EXEVisual BasicVisual Basic11-2

1.6.2 2131-3 1-3

1.6.2 1-31-23 F5 1-24 1-23 1-24

1.6.3 Command1Click1-251-25

Private Sub Command1_Click() ' Command1.Visible = False ' Command1 Text1.Visible = False ' Text1 Label1.Visible = False ' Label1 Label2.Visible = True ' Label2 Label2.AutoSize = True Label2 Label2.FontSize = 12 ' Label212 Label2.FontName = ' Label2 Label2.ForeColor = vbRed ' Label2 Label2.Caption = Text1.Text & "VB" Command2.Visible = True ' Command2 Command3.Visible = True ' Command3End SubPrivate Sub Command2_Click() ' Command2.Visible = False Command3.Visible = False Label1.Visible = True Label2.Visible = False Command1.Visible = True Text1.Visible = TrueEnd SubPrivate Sub Command3_Click() ' EndEnd Sub

1.6.4 Visual Basic*.Frm*.VbpVisual Basic1-26 1-26Visual Basic

1.6.4 Visual Basic 1-26

1.6.5 F5 1-21Text1Txet11-271-27

1.6.5 3 (1) (2) 1-28F5 (3) 1-28

1.7 Visual BasicVisual BasicVisual Basic Visual Basic (1) WindowsVisual BasicVisual BasicNameCommand1Commandd2

1.7 (2) Visual BasicVisual Basic (3) Visual Basic

2 2.1 Visual Basic 2.2 2.3 Print 2.4 2.5

2.1.1 BasicFORTRANC

2.1.1 (1) Visual BasicDim x As Integerxx32767x = 32768 x=5: y=x*7.3x=5, y=x*7.3Visual Basic (2) Visual Basic

2.1.2 Visual Basic 1 Visual BasicVisual Basic Visual Basic

2.1.2 Visual Basic 2 Visual Basic Visual BasicVisual Basic (1) (2) (3) (4)

2.2.1 Visual Basic2-12-2 2-1 Visual Basic 6.0

2.2.1 2-2 Visual Basic 6.0

2.2.1 a32767Dim a As IntegerVisual Basica2b32767Dim b As LongVisual Basicb4 vvSingleSinglev6Doublev 2-2Visual Basic

2.2.2 Visual Basic1Byte Visual Basic182Byte(11111111)22552Integer Visual Basic2162Integer01(0111111111111111)232767

2.2.2 3Long Visual Basic4322Integer01(01111111111111111111111111111111)221.474Single Single4 2JQJQ2Visual BasicSingle 32382J23Q 23710Single6

2.2.2 5Double DoubleSingle32641J31QDoubleSingle16 Visual BasicSingleDouble100.622 Currency154

2.2.3 1 (1) (2) 3.14159eE 3.14159e0 0.314159E1 0.0314159e2 314.159e-2 (3) Overflow (4) Visual Basic&h&o

2.2.3 2 "h1h2h3...hn"1"VB""123"Chr(13)""3 TrueFalseBoolean0False0TrueBooleanFalse0True-14 Visual BasicWindows##08/18/2001##08/18/2001 08:10:38 AM#

2.2.3 5Const = 2-1 Const pi = 3.1416 'Private Sub Command1_Click() Const pi = 3.14 ' ' Print3.143.1416 Print piEnd SubPrivate Sub Command2_Click() 'pipipi3.1416 Print piEnd Sub

2.2.4 1 255Suma2x_1Visual Basic1xx+y2 (1) Visual BasicVisual BasicPrintIf (2) (3) Visual BasicX1x1 (4) ALFABATEab

2.2.4 3 Dim Visual Basic DIM Dim yb As Byte, yc As Byte, nk As Integer, k As Long Dim gx As Single, dy As Double, sname As String*10 ybycnkkgxdysname10 Dim m As Integer, n As IntegerDim m, n As Integermm

2.2.4 2-2 Option ExplicitDim ss as String 'Private Sub Form_Load() ss = "VB6.0"End SubPrivate Sub Form_Click() Print ssEnd Sub LoadLoadssssssForm_clickVB 6.0

2.2.4 Visual BasicssloadssclickssPrivate Sub Form_Load() Dim ss as String 'SSForm_Load ss = "VB6.0"End SubPrivate Sub Form_Click() Print ss ssForm_clickEnd Sub

2.2.4 2-12-244 Visual Basic0""False

2.3.1 DIM [AS ][, [AS ]...] (1) < > (2) [ ] (3) { }| (4)

2.3.2 Print Print[.] Print [[[{,|;}][]]...] FormPictureBoxPrinter (1) ,; (2) ,;print (3) Visual Basic14122

2.3.2 Print 2-3 PrintPrivate Sub Form_Click() Print 123, 888, -456, 3.14 Print 123; 888; -456; 3.14 Print "123"; "888"; "abc", True; Print 123, 888; -456; 3.14 Print Print 123, 888, -456, 3.14End Sub 2-1 2-1 2-3

2.3.2 Print 2-3 (1) 2-11238882888-4561 (2) TrueFalse

2.3.3 = .= (1) (2) (3) (4)

2.3.3 2-4 ABCACBACB Private Sub Form_Click() Dim a as Integer, b as Integer, c as Integer a=5: b=8 Print a,b ' c=a: a=b: b=c ' Print a,b 'End Sub a=b: b=a

2.4.1 1 2-3Visual Basic72-3

2.4.1 2 ^ - * / \ Mod + - ByteIntegerLongSingleDoubleVisual Basic

2.4.1 3 Visual Basic (1) 3xy3*x*y (2) Visual Basic2-5 Visual Basic 1/(1+1/(1+x)) -(a*a+b*b*b)*y^4 (-a^(b^c)+b^0.5)*(a-b)^-0.5 kk mod 10 + k\10

2.4.2 +& "ABCD" & "efg" "ABCDefg" & " " &+ "xyz" & 123 "xyz123 "xyz" + 123

2.4.3 == 6TrueFalse (1) 3 #03/05/2001# False (3) ASCII2ASCII "ABCd" >= "ABCD" True "ABCd" >= "cd" False "ABCd" = "ABCd" True =True

2.4.4 32-4 NotAndOr FalseTrue 2-4

2.4.4 2-6 Visual Basic -3

2.4.5 Visual BasicVisual BasicVisual Basic1 (1) Sin(x)Cos(x)Tan(x)Atan(x) Visual Basicx1/Tan(x) SinCosTansin30Visual BasicSin(30*3.1416/180) Visual BasicAtan(x/sqr(1-x*x))sin-1xAsin(x)Visual BasicAsin

2.4.5 (2) Abs(x)x (3) Exp(x)eex (4) Log(x)x (5) Sgn(x)x>0Sgn(x)1x=0Sgn(x)0x

2.4.5 2(1) Ltrim(x)x Ltrim(" abc")"abc"Rtrim(x)x Rtrim("abc ")"abc"Trim(x)x Trim(" abc ")"abc"(2) Left(x,n)xnRight(x,n)xnMid(x,m,n)xmns"abcdefg"Left(s,2)"ab"Right(s,2)"fg"Mid(s,9,3)Mid(s,2,3)"bcd"

2.4.5 (3) Len(x)xxxLen("abcdefg")7Len(k%)2Visual Basic2Integer (4) Lcase(x)Ucase(x)Lcase("abCDe")"abcde"Ucase("abCDe")"ABCDE" (5) Space(n)na="abc"+Space(5)+"def" a"abc def"5 (6) Instr(x,y)yxyxyx0a"abcd efg cd_xy"Instr(a,"cd")3a"cd"a3Instr(a,"yx")0a"yx"

2.4.5 3 (1) DatePrint Date (2) TimePrint Time() (3) NowPrint Now (4) Minute(Now)Minute(Time)hh:mm:ssmm (5) Second(Now)Second(Time)hh:mm:ssss4 (1) Str(x)x (2) Val(x)x (3) Chr(x)AsciixChr(65)"A" (4) Asc(x)xASCIIChrAsc("ABcde")65

2.4.5 5 (1) RandomizeVisual Basic (2) Rnd01 Print Rnd Visual Basic [a,b]Int(Rnd*(b-a+1))+a

2.4.5 6Print Visual BasicPrint (1) Tab(n)nTab Print Tab(10); 123, Tab(30); "abc"10123303abc (2) Spc(n)n Print "abc"; Spc(3); "def"abc def

2.4.5 2-7 Visual BasicxSqr(Abs(x))kInt(Abs(k))>9 And Int(Abs(k))

2.4.6 InputBoxMsgBox 1InputBox InputBox=InputBox([][[][]] (1) (2) (3) n=InputBox("","",10)nVisual Basic2-2

2.4.6 InputBoxMsgBox 123.45nIntegernn123123.56n124Lac2-2

2.4.6 InputBoxMsgBox2MsgBox MsgBox[] = MsgBox([][[][]]) (1) (2) (3) 32-52-62-7

2.4.6 InputBoxMsgBox2-5 2-6

2.4.6 InputBoxMsgBox2-7 n=MsgBox("",3+32+0,"")2-33+32+033201(Y) 2-3

2.4.6 InputBoxMsgBox 3+32+035Visual Basic (4) MsgBox12-8 2-8

2.4.6 InputBoxMsgBoxMsgBox MsgBox1320 n=MsgBox("",1+32,"") If n=1 Then End 12-8n1

2.5 Visual BasicVisual BasicVisual BasicVisual Basic

3 3.1 3 3.2 3.3 3.4 3.5 3.6

3.1 3 gotoBASIC 333

3.1 33-1 3

3.2.1 IF1IFIF THEN [ ELSE ] 123-1(b)ELSE2 IF Visual Basic1 _3-1

3.2.1 IF3-1 xf(x)InputBoxxf(x)Text

Text1Command1 Command1_ClickPrivate Sub Command1_Click() Dim x as Single x=InputBox("x","") If x

3.2.1 IF3-2 xyxyxyxyTextLabel Text1Text2Label1 Form_ClickPrivate Sub Form_Click() Dim x as Single,y as Single,Temp as Single 'Text1Text2xy x=Text1.Text: y=Text2.Text 'x

3.2.1 IF "x="+str(x)+" y="+str(y)"x="+x+" y="+y+2IFIf Then [ Else ] End If 12Visual Basic

3.2.2 Select Case [ Case [] ] [ Case [] ] ... [Case Else [] ] End Select

3.2.2 (1) (2) To 1 1,3,5,7 To15,20 Is(3) End Select Case ElseCase ElseEnd Select

3.2.3 On Error GoTo Visual Basicx= Visual BasicVisual Basicaa 0 On Error GoTOOn Error GoTo L1 L1

3.3.1 For/Next FOR = TO [STEP ] NEXT 3-31100For n=1 to 99 step 2 s=s+nNext nFor n=99 to 1 step -2: s=s+n: Next n

3.3.1 For/Next3-3 For/Next

3.3.1 For/NextFor/Next (1) 1 (2) For n=99 to 1 step 2 s=s+n Next n (3) Exit ForNext (4) Exit For1

3.3.2 While/Wend While WendTrueWhile/Wend

3.3.3 Do/Loop 1Do [{While|Until}] ' Loop2Do ' Loop [{While|Until}] (1) WhileUntil (2) Exit DoDO/LOOP

3.4

3.5.1 14ySingleyy(0)y(1)y(2)y(3)y(4)y(5)Integerm m(0)m(1)m(2)m(3)m(4)m(5)m(6)Singlex x(1)x(2)x(3)x(4)x(5)Dim y(5) As Singlea As byte Dim m(6) As Integer, x(1 To 5) As Singley(5)m(6)x(1 To 5)

3.5.1 2 () (,) [m1 To] m2 m1m2m1m2 (,,) (1) (2) [m1 To]Option Base (3)

3.5.1 3()(,)

3.5.2 n=InputBox("")Dim a(n) As Integer Visual Basic ReDim ([,...]) As [,...]

3.6 3IfSelectFor/NextWhile/WendDo/Loop Visual Basic

4 4.1 4.2 4.3 4.4

4.1.1 1[ Public|Private][Static] Function [()] [As ] End Function (1) PrivatePublicPrivate (2) Static4.3.3 (3) 1 (4)

4.1.1 [Byval|ByRef] As () As ByvalByRef4.2 2

4.1.1 2(1) Private()(2) Public.()(3) VBFunction1SubCallCallVB

4.1.2 SUB VBSUBSUB1SUB[ Public|Private][Static] Sub [()] SUBEnd sub SUBSUBExit Sub SUBSUB

4.1.2 SUB 2SUB Call Sub() Sub PublicPrivateSub Sub CallCommand1_Clickhello!Form_ClickCall Command1Command1_Clickhello! SubKeyAsciik

4.2.1 1Byval (1) (2) (3) swap

4.2.1 2 VB (1) 12312312a (2) 123"123"

4.2.2 1Byref (1) (2) 2 1

4.3.1 1 4-34-4 4-3 4-4

4.3.1 2(1) PrivateForm1Private4-3(b)x2(2) Public(3) Public

4.3.2 31 SubConst 4-10delkgCommand1i delkgiii 2Public

4.3.2 3 Public Form1x = Form2.kkForm2Public Public

4.3.3 StaticDynamic1 Dim

4.3.3 2 Static Static Private Static Sub aa() SubaaStaticDimPrivate Static

4.4 VBSubSub Public

5 5.1 5.2 5.3 5.4 5.5 5.6 5.7 5.8

5.1.1 1Name NameName Visual Basic Command1Command2cmdcmdStart

5.1.1 2Caption Caption1Caption CaptionNameCommand1CaptionCommand1CaptionCaption CaptionCaption&Alt Caption(&X)Alt+X

5.1.1 3Enabled EnabledEnabledFalseTrueEnabledFalseEnabledTrueEnabledTrue Enabled

5.1.1 Private Sub Form_Load() Command1.Caption = "" Command2.Caption = "" Command2.Enabled = FalseEnd Sub Private Sub Command1_Click() Command2.Enabled = True ' Command1 End Sub

5.1.1 4 (1) BackColorPictureStyle BackColor Picture StyleStyleStyle0WindowsStyle1

5.1.1 (2) Cancel CancelCancelTrueEscCancelTrueCancelFalse(3) Default DefaultDefaultTrueEnterDefaultTrueDefaultFalse

5.1.1 (4) Font FontFontFontNameBoldItalicSizeUnderlineStrikethroughFont.NameFontNameFont.BoldFontBoldTrueFalseFont.ItalicFontItalicTrueFalseFont.SizeFontSize9 Font.UnderlineFontUnderlineTrueFalseFont.StrikethroughFontStrikethruTrueFalse

5.1.1 (5) LeftTopWidthHeightu Leftu Topu Widthu Height 4Twip1440=1in(6) Visible VisibleTrueVisibleFalse

5.1.1 (7) ValueValueTrueClickValue(8) ToolTipTextToolTipTextToolTipText

5.1.2 ClickClickCommand1CaptionPrivate Sub Command1_Click() EndEnd Sub (1) (2) Enter (3) Alt+

5.1.3 1Caption Caption Caption &Alt+TabTabIndexTabTabIndexTabIndex0TabIndexTabTabIndex0

5.1.3 SetFocus.SetFocus SetFocus2AutoSizeWordWrap (1) AutoSize (2) WordWrap CaptionAutosizeFalse5-1AutosizeTrueWordWrapFalse5-1AutosizeTrueWordWrapTrue5-1

5.1.3 5-1 AutoSizeWordWrap3Alignment AlignmentAlignment0Alignment1Alignment2

5.1.3 4BackStyleBackStyleBackStyle0BackStyle1BackColor5BorderStyleBorderStyleBorderStyle0BorderStyle1

5.1.4 ChangeClickDblClick

5.1.5 Text1Text2txt LockedTrueText1Text TextTextTextTextText

5.1.5 2MaxLengthMaxLengthMaxLength0655350655350Text1MaxLength6Text16abcdefghijText1.MaxLength=10Text1.Text="abcdefghijk12345"

5.1.5 3MultiLine MultiLine MultiLineFalse MultiLineTrueText (1) TextCtrl+Enter (2) TextChr(13)vbCrchr(10)vbLfvbCrLf

5.1.5 4ScrollBars ScrollBars (1) ScrollBars0 (2) ScrollBars1 (3) ScrollBars2 (4) ScrollBars3 MultiLineTrueScrollBars123

5.1.5 5PasswordChar PasswordCharPasswordChar ""PasswordChar Windows* Text1PasswordChar*abcdefgText1*******

5.1.5 6 (1) SelStartSelStart0SelStart (2) SelLength (3) SelText 3

5.1.5 SelStartSelLength Text1.SetFocus ' Text1.SelStart = 0 ' Text1.SelLength = Len(Text1.Text) ' ClipBoard5.1.75-2

5.1.6 1Change TextChange Change Text1xCommand1_Click1/x0Command1

5.1.6 Private Sub Form_Load() Command1.Enabled = FalseEnd SubPrivate Sub Text1_Change() If Val(Text1.Text) 0 Then Command1.Enabled = True Else Command1.Enabled = False End IfEnd Sub

5.1.6 2KeyPress KeyPressKeyPress KeyPress Private Sub _KeyPress(KeyAscii As Integer) KeyPressKeyAsciiKeyPressASCIIKeyAscii Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii < 48 Or KeyAscii > 57 Then ' KeyAscii = 0 ' End IfEnd Sub

5.2.1 5-4 5-4

5.2.1 Check1Check2chk1Caption Caption2Alignment Alignment Alignment0Alignment1

5.2.1 3Value Value (1) Value0Value1Value2 (2) Value0Value1 Value12Value0 Value01

5.2.2 Click Value Check1Private Sub Check1_Click() If Check1.Value = 1 Then ' Else ' End IfEnd Sub

5.2.3 5-5 5-5

5.2.3 Option1Option2opt CaptionAlignment Enabled ValueValueFalseValueTrue ValueTrueValueTrueValueFalse

5.2.4 ClickClick

5.2.5 LeftTopLeftTop Frame1Frame2fra Caption (1) (2)

5.3.1 List1List2lst 1List List01

5.3.1 .List(Index) 5-10List1List1.List(0)List1.List(2)= ListCtrl+EnterEnterList 5-10

5.3.1 2ListCount ListCountListCount0.ListCount-1 5-10List106List1.ListCount73ListIndex ListIndex-1

5.3.1 4MultiSelectMultiSelectMultiSelect MultiSelect0 MultiSelect1Space MultiSelect2ShiftCtrl

5.3.1 5Text TextTextText Text.List.ListIndex 5-10List1List1.TextList1.List(List1.ListIndex)List1.List(4)6Selected SelectedList0.ListConut-1SelectedTrueFalseSelected

5.3.1 7SelCount SelCount8Sorted SortedSortedFalseSortedTrue 5-10List1SortedTrueList1

5.3.1 5-11 Style Style1MutiSelect

5.3.2 1AddItem .AddItem [,] ListCount 5-10List1List1.AddItem "", 0List1 ListListCountList

5.3.2 2RemoveItem.RemoveItem 5-10List1List1.RemoveItem 4List1.ListCount6 ListIndex 5-10List1List1.RemoveItem List1.ListIndex 3Clear .Clear 5-10List1List1.ClearList1

5.3.3 1Click Click2DblClick DblClick WindowsDblClickClickClick

5.3.3 3KeyPressKeyPressKeyPressKeyPressKeyAsciiKeyAsciiASCIIList1EnterPrivate Sub List1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then ' End IfEnd Sub

5.3.4 Combo1Combo2cbo 3Style

5.3.4 1Style StyleStyle Style0 Style1 Style2

5.3.4 2Text Text AddItemRemoveItemClear ClickDblClickKeyPressChangeChangeChange

5.4 HScrollBarVScrollBar

5.4.1 HScroll1HScroll2hsb VScroll1VScroll2vsb1Value Value2MaxMin MaxMinValue3LargeChange LargeChangeValue4SmallChange SmallChangeValue

5.4.2 1Change ValueChangeValueChangeChange2Scroll ScrollChangeChangeScrollChange

5.5.1 VisibleWidthHeightLeftTop Timer1Timer2tmr1Interval IntervalTimer Interval165535Interval0Interval10001Interval 2Enabled EnabledTimerEnabledTrueEnabledFalse

5.5.2 Timer TimerTimerInterval

5.6.1 32767 11NameVisual BasicIndexIndex01

5.6.1 (2) Visual BasicIndex2 LoadUnLoadIndex0LoadLoadLoad ()

5.7 3Visual BasicVisual Basic

5.7.1 (1) Label1100Label1.Move ,Label1.Top+100Move4Label1.Move Label1.Left,Label1.Top+100

5.7.1 (2) Label1SetFocusLabel1.SetFocusSetFocus.(3) Label1Label1.FontColor=vbRedForeColorFontColorLabel1.ForeColor = vbRed

5.7.2 (1) List13List1.RemoveItem ""RemoveItemList1.RemoveItem 2

5.7.2 (2) Text1Private Sub Form_Load() Text1.SetFocusEnd SubForm_LoadPrivate Sub Form_Load() Me.Show Text1.SetFocusEnd Sub

5.8 Visual Basic10CommandButtonLabelTextBoxOptionButtonCheckBoxFrameListBoxComboHScrollBarVScrollBarTimerVisual Basic Click

5.8 MinMaxChangeScroll TimerInterval/1000

6 6.1 6.2 Visual Basic 6.3 6.4

6.1.1 Picture1Picture2pic Print1(1) Picture Picture u Pictureu LoadPicture.Picture = LoadPicture (filename)

6.1.1 (2) AutoSize AutoSizeTrue (3)Align Align0 Align1Align2 Align3Align4

6.1.1 2(1) PrintPrint.Print Picture1.Print ""Picture13(2) ClsCls .Cls

6.1.2 Image1Image2img1(1) PicturePictureLoadPicture6.1.1(2) StretchAutoSizeTrue

6.1.2 2ChangeClickMouseDownMouseUpMouseMovePrivate Sub Image1_MouseDown(Button As Integer,Shift As Integer, _ X As Single, Y As Single) 'xy Print X, YEnd SubImageClick

6.1.3 Shape1Shape2shp1 (1) Shape Shape Shape 0VbShapeRectangle 1VbShapeSquare 2VbShapeOval 3VbShapeCircle 4VbShapeRoundedRectangle 5VbShapeRoundedSquare

6.1.3 (2) BorderStyle 0 1 2 3 4 5 6BorderWidth1

6.1.3 (3) FillStyle 0 1 2 3 4 5 6 7

6.1.3 (4) BorderColor FillColor BorderWidth

6.1.4 Line1Line2lin x1,y1x2,y2 LineBorderStyle

6.2.1 Visual BasicXY6-111TopLeft 6-11 Visual Basic

6.2.1 (1) TopTop(2) LeftPrivate Sub Form_Click() Print Top, Left, Height, Width Print Frame1.Top, Frame1.Left, Frame1.Height, Frame1.Width Print Text1.Top, Text1.Left, Text1.Height, Text1.WidthEnd Sub

6.2.1 2(1) Width(2) Height6-11TopLeftWidthHeightWidthHeight3(1) ScaleLeft0(2) ScaleTop0(3) ScaleWidth(4) ScaleHeight(5) CurrentXCurrentYCurrentXCurrentY

6.2.2 Scale 10.01764mm Scale .Scale (x1,y1)-(x2,y2) (x1,y1)(x2,y2)Xx2-x1Yy2-y14 .ScaleLeft=x1 .ScaleTop=y1 .ScaleWidth=x2-x1 .ScaleHeight=y2-y1

6.2.3 Visual BasicScaleMode1 ScaleMode110.017640.05 ScaleMode210.353 ScaleMode3 ScaleMode4612 ScaleMode5 ScaleMode6 ScaleMode7

6.2.3 ScaleLeftScaleTop0ScaleHeightScaleWidth2 ScaleMode0 ScaleScaleMode0ScaleLeftScaleTopScaleHeightScaleWidthScaleMode0

6.3.1 Visual Basic 6.016&HFFFF00&316 02551600

6.3.1 1 Visual BasicRGBQBColor (1) RGB RGB RGB(Red,Green,Blue) RedGreenBlue0255Form1 Form1.BackColor=RGB(255,0,0) RGBLong6-1

6.3.1 6-2 Color 6-1R GB

6.3.1 Form1Form1.BackColor=QBColor(12)2Visual Basic 6.0ColorConstantsForm1.BackColor=vbRed 'Form1.BackColor=vbGreen '3Form1.BackColor=&HFF& 'Form1.BackColor=&HFF00& 'Form1.BackColor=&HFFFF00& '

6.3.2 1Pset[.]Pset [step](x,y)[,color] (x,y)colorxySinglecolorForeColor .CurrentX.CurrentYStep.CurrentX+x.CurrentY+y DrawWidth DrawWidth1327671PsetLineCircle

6.3.2 2PointPoint(x,y)(x,y)C=Point(50,100)(50,100)C6-1 PsetCos(x)Private Sub Form_Click() Dim x As Integer,i As Integer For i=0 To 10000 PSet (i,1200),vbRed ' Next i For x=0 To 10000 PSet(x,1000*Cos(x*3.1415926/1800)+1200),vbBlue Next xEnd Sub

6.3.2 3Line(1) 1[.]Line [(x1,y1)]-(x2,y2)[,Color] ColorForeColorSingle Picture1 Line(100,150)-(400,300),RGB(120,120,200) ' Picture1.Line(10,10)-(60,100),RGB(0,0,255) ' 2[.]Line[(x1,y1)]-Step(x2,y2)[,Color] (x1,y1)(x1+x2,y1+y2)

6.3.2 (2) 1 6-15Line (50,100)-(100,100),RGB(120,120,200)Line -(150,150),RGB(120,120,200)Line -Step(-50,50),RGB(120,120,200)Line -(50,200),RGB(120,120,200)Line -(0,150),RGB(120,120,200)Line -(50,100),RGB(120,120,200)

6.3.2 6-15 (3) 1[.]Line [(x1,y1)]-[Step](x2,y2)[,[Color][,B]]FillStyleFillColorColorColorForeColor

6.3.2 2[.]Line [(x1,y1)]-[Step](x2,y2),[Color],BF FillStyleFillColor 6-16Form1.FillStyle=2Form1.FillColor=vbBlueForm1.ForeColor=vbGreenLine(100,100)-(1500,1000), vbRed,B 'Line(1600,100)-(2500,1000), , B 'Line(2800,100)-(3800,1000),vbRed,BF '

6.3.2 4Circle (1) [.]Circle [Step](x,y),radius[,Color] (x,y)Step(CurrentX+x,CurrentY+y)radiusColor Color (2) [.]Circle [Step](x,y),radius,[Color],start,end startendSinglestartendx0 start1end (3)[.]Circle [Step](x,y),radius, Color] ,start,end[,aspect] aspectSingleaspect1radius,

6.4 Visual Basic PrintClick Visual BasicVisual Basic FillStyleFillColor

7 7.1 7.2 CommonDialog 7.3 7.4

7.1.1 Visual Basic 1BorderStyle BorderStyle1 BorderStyle3VbFixedDoubleialog2ControlBox TrueFalse

7.1.2 Visual Basic 6.0ODBC67-17-2 7-1 7-2

7.1.3 1 Show (1) .Show vbModalvbModal1 (2) :.Show 2 HideUnLoadMe.Hide .HideUnLoad MeMe11.4

7.2 CommonDialog Visual BasicWindowsCommonDialogBox 6OpenSave AsColorFontPrinterHelp Visual BasicActiveX (1) (2) Microsoft Common Dialog Control 6.0

7.2 CommonDialog (3) CommonDialog1CommonDialog2 ActionShow

7.2.1 Action7-17-1 Action

7.2.2 CommonDialog...7-5 5 7-5

7.2.3 / ShowOpenAction1 ShowSaveAction2 1Dialog Title CommonDialog DialogTitle2Filter FilterFilter |||

7.2.3 /3FilterIndexFilterIndex0FilterFilterIndex1Word(*.doc)FilterIndex14InitDirInitDirCommonDialog1.InitDir ="D:\LCSFile"5DefaultExtDefaultExt

7.2.3 /6CancelError CancelError TrueErrNumber32755cdlCancel FalseActionShowOpenShowSave

7.2.3 /7FileName FileNameFileName8FileTitle FileTitleFileTitleFileName

7.2.4 ShowColorAction37-12Color 7-14

7.2.5 ShowFontAction41 Font Name FontBold FontItalic FontStrikethru FontUnderline FontSize Color

7.2.5 2Flags Flags7-2OrcdlCFScreenFonts Or cdlCFEffectsFontStrikethruFontUnderlineColor3FlagscdlCFEffects256 7-2 Flags

7.2.6 Visual Basic 6.04 ShowHelpWindowsVisual Basic

7.3.1 Windows3 Visual BasicCaptionEnabledVisibleCheckedClick

7.3.2 Visual Basic 6.0Visual Basic 6.0 7-18(1) (2) FopenFopen_Click(3) (4) None Ctrl+O (5) CheckedTrue.Checked= Not .Checked

7.3.2 (6) EnabledTrueFalse(7) VisibleTrueFalse(8) 4141Visual Basic611(9) (10) (11)

7.3.3 Visual Basic 6.0 Visual Basic63 (1) (2) (3) (4) (5) (7) (2)(5)(8)

7.3.4 (1) (2) VisibleFalse(3) MouseUpMouseDownPopupMenuPopupMenuPopupMenu [,flags[,x[,y[,Boldcommand]]]](1) PopupMenu(2) Name(3) Flags

7.4 CommonDialogShowAction WindowsVisual BasicVisual BasicClick7-4

8 8.1 8.2 8.3 8.4

8.1.1 Drive1Drive21 (1) DriveDrive .Drive= Drive1.Drive="CDE"Drive1.Drive="c:"c: DriveDrive1D:Drive1.Drive"d:"

8.1.1 DriveListBoxAddItemRemoveItem (2) ListList10ListCount-1 (3) ListCountListCount a:c:d:e:f:Drive1ListCount5a: c: d: e: f:For i=0 To Drive1.ListCount - 1 Print Drive1.List(i);Next i

8.1.1 2 DriveChangeDriveChange DriveChangeDriveChange

8.1.2 8-3VB98Dir1Dir2 8-3

8.1.2 1 (1) PathPath Path8-2VB98 Path xPathx:\xyPathx:\y Path\

8.1.2 DrivePathPath.Path=ListIndexPathPath.Path=.List(.ListIndex)(2) ListCountListCount8-2VB98Dir1.ListCount5

8.1.2 (3) ListIndexListIndex-1-2-31021ListCount-1 ListIndex-nListCount-1-n 8-2Dir1VB98VB98Dir1.ListIndex-1Dir1.ListIndex=2TsqlDir1.ListIndex=0SetupDir1.ListIndex=-3Program Files

8.1.2 (4) ListListList-nListCount-1-n 8-2Dir1.List(-1)VB98c:\Program Files\Microsoft Visual Studio\VB98Dir1.List(-2)Dir1.List(0)Dir1.List(Dir1.ListCount-1)Dir1.List(Dir1.ListIndex)

8.1.2 2 (1) ChangePathChange PathChange (2) ClickDir1ClickListIndexDir1.PathDir1_ClickDir1.Path = Dir1.List(Dir1.ListIndex)Dir1.Path

8.1.3 File1File21 (1) PathPath Path Form_LoadFile1.Path=C:\WindowsFile1C:\Windows (2) Pattern*.*

8.1.3 Form_load File1.Pattern="*.exe"File1EXE File1.Pattern="*.dat;a*.*"File1DATa (3) FileNameFileName fs If Right(File1.Path, 1)="\" Then fs=File1.Path+File1.FileName Else fs=File1.Path+"\"+File1.FileName End If

8.1.3 7FileName 3Drive1Dir1File1Private Sub Drive1_Change() Dir1.Path=Drive1.DriveEnd SubPrivate Sub Dir1_Change() File1.Path=Dir1.PathEnd Sub

8.1.3 2PathChangePatternChangeChange(1) PathChangePathPathChange(2) PatternChangePatternPatternChange(3) ClickClick(4) DblClickDblClick

8.2.1 Shell Shell.exe .com.bat.pif.exe shellCall Shell([,Windows_style]) Shell[,Windows_style] =Shell(FileName [,Windows_style]) FileName Windows_style 0 1 2 3 4 6 FileName IDID

8.2.2 1ChDrive 8-6 calc.exec:\Windows\calc.exePrivate Sub Command1_Click() ChDrive "c:" 'c: Call Shell("\windows\calc.exe", 0) 'End Sub

8.2.2 2MkDir 8-7 1Private Sub command1_click() Mkdir "c:\aaa" 'c:\aaa MkDir "c:\aaa\bbb" 'c:\aaa\bbbEnd Sub bbbc:\aaa

8.2.2 3RmDir 8-8 8-7Private Sub Command1_Click() RmDir "c:\aaa\bbb" 'c:\aaa\bbb RmDir "c:\aaa" 'c:\aaa1End Sub RmDir

8.2.2 4ChDir ChDir "c:\vb6"c:\vb6CurDirCurDir[()]ChDrive "c:" ' c:ChDir "\winnt" ' c:\winntPrint CurDir ' CurDirc:\winnt

8.2.2 5FileCopy , FileCopy "d:\hts\vb_4.doc","a:\vb4.doc"d:\htsvb_4.doca:vb4.doc 6Kill Kill "d:\hts\vb_4.doc"d:\htsvb_4.doc Kill "d:\hts\*.doc"d:\htsdoc

8.2.2 7Name as Name "d:\hts\aaa.txt" as "d:\bbb.dat"d:\hts\aaa.txtd:\bbb.dat

8.2.2 8GetAttr() x=GetAttr("d:\bbb.dat") 0 1 2 4 16 32

8.2.2 9SetAttr ,Attributes SetAttr d:\bbb.dat,1 d:\bbb.datSetAttr "aaa.txt",2 ' aaa.txt101FileDateTime() dt=FileDateTime("d:\bbb.dat")dt00-5-23 PM 4:18:26120005234182611FileLen() Print Filelen("d:\bb.dat")bb.dat

8.3.1 132(1) ASCIIASCII1(2)

8.3.1 3 (1) (2) 1 (3)

8.3.2 / InputOutputAppend Output Append Input

8.3.2 1 (1) Open For Mode [Lock Lock_level] As [#]File_numb FileName Mode Input Output Append

8.3.2 File_numbFreefileOpenn=Freefile: Open "d:\user\a.txt" For Output As n(2) CloseClose [[#]File_numb] File_numb[#]File_numbOpen2Print #Write #(1) Print #Print #File_numb,[]Print #Print

8.3.2 3 Input #Line Input # (1) Input #Input #File_numb, E #

8.3.2 (2) Line Input #Line Input #file_numb, Input8-10d:\aaa\a.datOpen "d:\aaa\a.dat" For Input As #1Line Input #1, sPrint s12345

8.3.2 4 (1) EOF(#File_numb) TRUE Input #Line Input #EOF (2) LOF(#File_numb)

8.4 WindowsVisual BasicDriveListBoxDirListBoxFileListBox337

9 9.1 9.2 Visual Basic 9.3 9.4 SQL 9.5 9.6 9.7

9.1.1 DBSData Base System1DBData Base2DBMSData Base Management System

9.1.1 3 4 3DBA

9.1.2 (1) (2) (3) (4) (5)

9.1.3 31 (1) (2) 2 (1) (2)

9.1.3 3 3 Mircosoft Access Visual FoxProPowerBuildParadoxSQL Server Oracle

9.1.4 FieldRecordTable1Field 2Record 3Table

9.1.4 4KeyWord 9-15DataBase

9.1.4 6 3 (1) (2) (3)

9.2.1 Visual Basic9-1 9-5 (1) (2) 9-6.

9.2.1 9-5

9.2.1 9-6

9.2.1 (3) 39-7 (4) 9-8

9.2.1 9-7 3

9.2.1 9-8

9.2.2 Visual Basic Visual BasicRecordset1Visual Basic3ActiveX ADORDODAO(1) DAOData Access ObjectsMicrosoft Jet Microsoft AccessVisual BasicODBCOpen DataBase ConnectivityAccessDAO

9.2.2 Visual Basic (2) RDORemote Data ObjectsODBCDAOODBCRDOJetISAM ODBC RDOSQL ServerOracle RDO (3) ADOActiveX Data ObjectsDAO/RDOADORDOADODAORDO

9.2.2 Visual Basic ADOADO/WebADORDSWeb Visual Basic3ADOActiveX Data ObjectMicrosoftActiveXOLE DBDAORDOODBCRDODAOADO

9.2.2 Visual Basic2Recordset RecordsetRecordset Recordset ADORecordsetRecordset3DataSource Visual BasicDataRemoteDataADO DataSource

9.2.2 Visual Basicobject.DataSource [=datasource] DataSource object DatasourceADO RecordsetDataSourceBehavior=vbDataSource SetDataSourceSet Text1.DataSource=Adodc1 DataRemoteDataDataSource Set Text1.DataSource = Data1 DataRemoteDataDataSource

9.2.2 Visual Basic

9.3.1

9.3.1 Visual Basic 3

9.3.1 Visual BasicVisual BasicVisDataMirosoft AccessMirosoft Access Visual BasicVisDataMicrosoft AccessMicrosoft Access 7.0Microsoft Access 2000Visual Basic

9.3.2 1Microsoft Access 2000 Microsoft AccessMicrosoft OfficeMicrosoft Access 2000Microsoft Office 2000Microsoft Office 2000 (1) Microsoft Access 2000 (2) (3) 2Visual BasicVisData VisDataVisual BasicAccessVisual BasicVisData

9.3.2 (1) ||Microsoft Access|Version7.0 MDBVisData (2) 9-21 (3)

9.3.3 Microsoft Access 20009-17Visual BasicVisData9-23SQL

9.4 SQL SQLStructured Query LanguageSQLSQLSQL SQL CREATE TABLE-SQL ALTER TABLE-SQL DELETE-SQL INSERT-SQL UPDATE-SQL SELECT-SQL

9.4 SQL SQLSQLSQLSQLVisual BasicVisual CDelphiSQLSQL SQLSELECT-SQLSELECT - SQL

9.4.1 SELECT SELECTSELECT1SELECT(1) SELECTSELECT [ALL | DISTINCT] [TOP [PERCENT]][.][AS ][, [.] [AS ] ...]FROM [FORCE][!] [][[INNER | LEFT [OUTER] | RIGHT [OUTER] | FULL [OUTER] JOIN[!] [][ON ... ][[INTO ] | [TO FILE [ADDITIVE] | TO PRINTER [PROMPT]| TO SCREEN]][PREFERENCE ][NOCONSOLE][PLAIN][NOWAIT][WHERE [AND...][AND | OR [AND | OR ...]]][GROUP BY [, ...]][HAVING][UNION [ALL] SELECT][ORDER BY [ASC | DESC] [,[ASC | DESC] ...]]

9.4.1 SELECT(2) SELECT SELECT FROM [WHERE ] [ORDER BY ] SELECT ..AVGCOUNTSUMMAXMIN[AS ] BETWEENLIKEIN ASCDESC

9.4.1 SELECT2SELECTSQLSQLVisual BasicVisual CDelphiSELECTVisual BasicVisDataSQL (1) * Select * from (2) Select , , from

9.4.1 SELECT(3) 60 Select distinct from where

9.4.1 SELECT(5) 951SelectSelect , , , From _Where LEFT(,3)="951" Order by Desc(6) Select ., ., .,. From , _Where . =.. = ...

9.4.2 SQL 1INSERT1Insert Into ()Select From Where FromWhereSelectInsert IntoStudentStudentSQLInsert Into Student Select , , , From Where >02Insert Into () Values()valuesinsert into953026SQLInsert Into (, ) Values("953026", "")

9.4.2 SQL2DELETEDelete [Table.*] From Where DeleteFromWhere953026SQL Delete .* From Where = "953026"3UPDATEUpdate Set Where UpdateWhereSet50100100SQLUpdate Set = + 100 Where >= 50 And

9.5 Visual Basic3ActiveXADORDODAO

9.5 Visual Basic33ADO DataDataRDORemote DataADO Data DataRemote DataADO DataADO DataMicrosoft ActiveX Data Objects (ADO) ADO DataDataRemote Data

9.5 (1) (2) SQL (3) (4) DataADO DataVisual Basic DataADO Data

9.5.1 DATADataVisual BasicDataMicrosoftJetMicrosoft AccessDataDataAccessdBaseFoxProparadoxData DataData1Data2 Data4 Data

9.5.1 DATA1Data(1) ConnectDataAccessDataAccess(2) DatabaseNameDataE:\GYH\VB\.mdbData(3) RecordSourceData

9.5.1 DATA(4) DefaultTypeDataRecordset JetODBC2-JetJetJetMicrosoft AccessVisual BasicJetODBCODBC/Microsoft SQL ServerOracleSybase(5) RecordsetDataRecordsetData RecordsetTypeSQL

9.5.1 DATA(6) RecordsetTypeDataRecordsetDynaset3(7) ReadOnlyDataTrueFalse(8) ExclusiveData TrueFalse

9.5.1 DATA(9) EOFActionEOFTrueDataEOFAction0sbEOFActionMoveLastData(10) BOFActionBOFTrueData

9.5.1 DATA(11) Recordset AbsolutePosition0AbsolutePosition0156 RecordCount Eof Bof BookMark Fields NoMatchSeekFind Index

9.5.1 DATA3Data(1) UpdateRecordData(2) UpdateControlsDataRecordSet(3) RefreshDataDatabaseNameReadOnlyExclusiveConnectRecordSet

9.5.1 DATA(4) RecordSet MoveFirstData1.Recordset.MoveFirst MoveLast MoveNext MovePrevious AddNew Delete Updata Seek 4DataData

9.5.2 ADO Data ADO DataMicrosoft ActiveXADOOLE DBVisual Basic ActiveXADO Data ADO DataVisual Basic

9.5.2 ADO Data1ADOADO3ConnectionCommandRecordsetErrorsParameteraFields(1) ConnectionConnection/(2) CommandCommandRecordsetCommand

9.5.2 ADO Data(3) RecordsetRecordsetADORecordsetRecordsetRecordsetBOFEOF FalseBOFEOFTrue (4) RecordsetFieldRecordsetFieldFieldsFieldRecordsetFieldValueField

9.5.2 ADO Data2ADO Data(1) ConnectionStringProviderData SourceProvider Access Provider=Microsoft.Jet.OLEDB.4.0Data SourceData Source=E:\GYH\VB\1b.mdb

9.5.2 ADO Data(2) RecordSourceSQLSQL(3) UserNameADO Recordset(4) PasswordADO Recordset (5) CommandTextSQL""

9.5.2 ADO Data(6) CommandTypeCommandADO4 AdCmdTextCommandText AdCmdTableCommandText SQL AdCmdStoredProcCommandText AdCmdUnknownCommandText(7) BOFActionBOFTrueData (8) EOFActionEOFTrueData

9.5.2 ADO Data(9) CursorTypeRecordsetADO3 adOpenDynamic Recordset adOpenKeysetRecordset adOpenStaticRecordsetADORRecordset

9.5.2 ADO Data(10) LockType 4LockTypeEnum AdLockReadOnly AdLockPessimistic AdLockOptimistic Update AdLockBatchOptimistic

9.5.2 ADO Data3ADO DataADO Data 4ADO Data(1) RefreshADO DataDatabaseNameReadOnlyExclusiveConnectRecordSet(2) RecordSet MoveFirstAdodc1.Recordset.MoveFirst MoveLast MoveNext

9.5.2 ADO Data5ADO DataADO Data 9-35DataGridAdod1Adod1E:\GYH\VB\1b.mdb(1) ADO DataCTRL+TMicrosoft ADO Data Control 6.0(OLEDB) (2) ADOF4ConnectionString

9.5.2 ADO Data(3) RecordSourceSQLCommandType2-adcmdtableRecordSourceCommandType1-adcmdtextRecordSourceSQLSELECT * FROM WHERE >= 50(4) DateGridDateGridDataSourceADO DataADODC1DateGridADO Data(5) F5ADO Data4

9.6.1 Visual BasicLabelTextBoxCheckBoxOLERecordsetDataSourceDataFieldDataSourceDataFieldRecordset

9.6.1 1Label LabelDataADODataSourceDataField 2TextBox TextBoxDataADOLabelTextBoxTextBoxTextBoxDataSourceDataField

9.6.1 3CheckBox CheckBoxDataADOCheckBoxCheckBoxCheckBoxbooleanDataSourceDataField 4OLE OLEDataOLEBinaryOLEOLEOLEBinaryDataSourceDataField

9.6.2 ActiveX Visual BasicActiveXADODataListDataComboDataGridHierarchical FlexGridDBListDBComboMSFlexGridDataVisual Basic 1DBListDBCombo (1) DBListDBComboDBListDBCombo

9.6.2 ActiveX DBListDBComboDataDataDBListDBComboDataDBComboDBCombo DBListDBComboListBoxComboBoxListBoxComboBoxAddItemDBListDBComboDataRecordsetDBListDBComboData Recordset DBListDBCombo

9.6.2 ActiveX(2) DBListDBComboDataBoundTextDataSourceDataFieldDBListDBCombo BoundText null2DataListDataCombo(1) DataListDataComboDataListDataComboDBListDBComboOLEDBADODataListDataComboADO

9.6.2 ActiveXDataComboDataListADO Data3 (2) DataListDataCombo DataListDataComboDataSourceRowSourceDataFieldBoundColumnListFieldListField BoundColumnBoundColumnListField

9.6.2 ActiveX3DataGrid (1) DataGridDataGrid RecordsetDataGrid9-67DataGridDataGrid DataGridAdo Data DataListDataGrid DataSourceADO DataRecordSourceADO Data

9.6.2 ActiveX(2) DataGrid DataSource AllowAddNewDataGridRecordset AllowDelete DataGrid Recordset AllowUpdateDataGrid BookmarkDataGridRowBuffer Text ColumnsColumn ColRowDataGrid CellTextDataGrid CellValueDataGrid RowColChange

9.6.2 ActiveX(3) DataGrid DataGrid DataGridDataSource

9.6.2 ActiveX DataGridColumnsCountRecordsetRecordCountDataGrid32767(4) DataGrid DataGrid1.TextDataGrid1.RowDataGrid1.Col CellTextCellValueCellText 4MSHFlexGridMSFlexGrid (1) MSHFlexGrid Microsoft Hierarchical FlexGridMSHFlexGridADO DataMicrosoft FlexGridMSFlexGridDataRecordsetMSHFlexGridMSFlexGridMSHFlexGrid

9.6.2 ActiveX Hierarchical FlexGridMicrosoft Data BoundDataGridHierarchical FlexGridHierarchical FlexGrid MSHFlexGridRowColMSHFlexGridText

9.6.2 ActiveXHierarchical FlexGrid Hierarchical FlexGrid DataSourceDataMember ActiveX(R) Data Binding

9.6.2 ActiveX(2) Hierarchical FlexGrid DataSource Text ColRowMSHFlexGrid RowColChange(3) Hierarchical FlexGridVisual BasicHierarchical FlexGrid Microsoft Hierarchical FlexGrid Control 6.0MSHFlexGridVisual Basic Visual BasicMSHFlexGridVisual BasicVisual BasicMSHFlexGrid

9.8 SQLSQLSQL