Teacher Information Management
[Users questions | Browse:49 | Favorites]
Users questions:Design a teacher for input application information, design of the "national", "title" with the combo box, "sex" with the option button, "the level of training foreign language" (1-100) with the horizontal scroll bar, the other with a text box .
Experts answer: 'definition of teachers to record the type PrivateTypeteicAsString*8titleAsString*20salaryAsLonglangAsIntegerhistoryAsString*100EndTypeDimtechAsteacherPrivateSubmEmpty()IfText1= OrText2= OrText3= OrText4= OrText5= OrCombo1.Text= OrList1.Text= OrCombeck1.Value=0Thentech.helth=FalseElsetech.helth=TrueEndIfEndSubPrivateSubCombo1_Change()tech.nation=Combo1.TextCallmEmptyEndSubPrivateSubCombo2_Change()tech.politic=Combo2.TextCallmEmptyEndSubPrivateSubForm_Load()Text1.Text= :Text2.Text= :Text3.Text= Text4.Text= :Text5.Text= List1.AddItem( ) Add to the list box option List1.AddItem ("Lecturer") List1.AddItem ("Associate Professor") List1.AddItem ("Professor") List1.AddItem ("aid workers") List1.AddItem ("Engineer ") List1.AddItem (" senior engineer ") Combo2.AddItem (" Party ") 'add to the combo box option Combo2.AddItem (" preparatory members ") Combo2.AddItem (" member ") Combo2.ListIndex=0Combo1.AddItem( )Combo1.AddItem( )Combo1.AddItem( )Combo1.ListIndex=0Command1.Enabled = False 'start no records of revocation of the command button tech.sex = "M" EndSubPrivateSubdisplay () IfOptsex (0). Value = TrueThentech.sex= Elsetech.sex= EndIftech.name=Text1.Text:tech.BirthDay=Text2.Text:tech.place=Text3.Text:tech.lang=HScr.Valuetech.nation=Combo1.Text:tech.politic=Combo2.Text:tech.title=List1.Text:tech.salary=Val(Text4.Text) tech.helth = IIf (Check1.Value = 0, False, True): tech.history = Text5.Text 'This process is used to customize the output in the Debug window, record D
Experts answer: 'definition of teachers to record the type PrivateTypeteicAsString*8titleAsString*20salaryAsLonglangAsIntegerhistoryAsString*100EndTypeDimtechAsteacherPrivateSubmEmpty()IfText1= OrText2= OrText3= OrText4= OrText5= OrCombo1.Text= OrList1.Text= OrCombeck1.Value=0Thentech.helth=FalseElsetech.helth=TrueEndIfEndSubPrivateSubCombo1_Change()tech.nation=Combo1.TextCallmEmptyEndSubPrivateSubCombo2_Change()tech.politic=Combo2.TextCallmEmptyEndSubPrivateSubForm_Load()Text1.Text= :Text2.Text= :Text3.Text= Text4.Text= :Text5.Text= List1.AddItem( ) Add to the list box option List1.AddItem ("Lecturer") List1.AddItem ("Associate Professor") List1.AddItem ("Professor") List1.AddItem ("aid workers") List1.AddItem ("Engineer ") List1.AddItem (" senior engineer ") Combo2.AddItem (" Party ") 'add to the combo box option Combo2.AddItem (" preparatory members ") Combo2.AddItem (" member ") Combo2.ListIndex=0Combo1.AddItem( )Combo1.AddItem( )Combo1.AddItem( )Combo1.ListIndex=0Command1.Enabled = False 'start no records of revocation of the command button tech.sex = "M" EndSubPrivateSubdisplay () IfOptsex (0). Value = TrueThentech.sex= Elsetech.sex= EndIftech.name=Text1.Text:tech.BirthDay=Text2.Text:tech.place=Text3.Text:tech.lang=HScr.Valuetech.nation=Combo1.Text:tech.politic=Combo2.Text:tech.title=List1.Text:tech.salary=Val(Text4.Text) tech.helth = IIf (Check1.Value = 0, False, True): tech.history = Text5.Text 'This process is used to customize the output in the Debug window, record D
- The logical operators in vb
- Seek expert help me write a vbs script timed
- VB enrollment management system requirements
- How to do a form in VB
- Score key demand VB way to send analog
- mdiform
- Younger brother to help translate what is really do not understand ah!
- VB datagrid how to set the two parent-child relationship?
- DIR How to use?
- How this code does not match the type of display?
- This information provided by the users.Thanks!
Computer Knowledge Copyright 2005-2015 All Rights Reserved.