home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
db3v
/
combo.frm
(
.txt
)
next >
Wrap
Visual Basic Form
|
1993-10-03
|
9KB
|
196 lines
Form1
Product Information
Form1
Label1
Item:
Label2
Price:
Price
Label3
Qty in Stock:
Product
DBENGINE
TopButton
NextButton
BottomButton
Bottom
PreviousButton
Previous
MNU_File
&File
MNU_Create
&Create Product Database
MNU_Quit
&Quit
Form_Click
@ Form_Load
Product6
TableName
IndexID
SaveEveryChange
False
Action
OpenTable
Form_Unload
Cancel
CloseTableK
MNU_Quit_Click*
GetRecordo
FillFormF
FieldName
GetField
FieldValued
Price
Command1_Click
FirstRecord
Command2_Click
LastRecord
Command3_Click
NextRecord
Command4_Click
PreviousRecord#
Command5_Click5
PutField
InsertRecord
Reaction
Command6_Click
UpdateRecord
@ FillCombo
Item_Change
SearchMode
SearchFirst/
SearchField
Item_LostFocus
Item_Click
TopButton_Clickj
BottomButton_Click
NextButton_Click
PreviousButton_Click
DTBL_Error
Customer
DataTable_Error
ErrorCode
DBENG_Error
MNU_Create_Click
NFields}
TableFieldNames
TableFieldTypes
CreateTable
IndexNFields
CreateIndex
Fill_Database
TableType
Paradox40
Form_Load
Here we set up the DataTable - Table parameterso
Note - Here is the PRODUCT database table structure:
FIELD
FIELD TYPE
Item
A50
Price
Qty
Note key fields are marked with an *..
Also note that this program expects the PRODUCT database
(PRODUCT.DB and PRODUCT.PX) to be located on drive C
in the root directory.
C:\PRODUCT
Specify database table name.
Open with all indexes.
Buffer data to disk.
Open up the tableT
Fill the combo box on the form
with products from the database.
in the field Item.
Fill the form.
Form_Unload
MNU_Quit_Click
FillForm
Fill in the form with a record from the database
Get the first record
Item field
Get the field value
Place in the combo box
Price"
Price fieldo
Get the field valuel
Place in text box
Qty field
Get the field value
Place in text box'
FillCombo
Here we have some code to fill a Visual Basic Combo boxx
With products from our database. We will be placing itemss
from the datatbase into our combo box using the AddItem method
Get the record
Error handlerF
Field in the database with the items
to place in the combo boxn
Move to the first record in the database..
Loop to place all items in combo box. Loop while no DataTable error.
Get the record
Get the field value
Add it to the combo box list
Move to next recordt
Done now move back to the first record.
Item_Click
Item not found!"
TopButton_Click
Move to the first record in the table
Fill the form
BottomButton_Click
Move to the last record in the table
Fill the form
NextButton_Click
Move to the next record
Fill the form
PreviousButton_Click
Move to the previous recordv
Fill the form
DBENG_Error
Error code:"
-Drive not ready!
Error code:"
-End of table!
Error code:"
-Start of table!
Error code:"
-Table not found!"
Error code:"
-Unknown error!"
MNU_Create_Click
We will create the Product table here in the root directory on drive C
C:\Product
Item,Price,Qty
A50,$,S"
Now create the primary index
C:\Product
Fill_Database
This function fills in the C:\PRODUCT database with a few itemss
in order to have records to fill the combo box..
Place the first item, price and Qty in the databasee
VGA Monitor"
Price"
245.00
Insert a new record
Place the second item, price and Qty in the database
EGA Monitor"
Price"
145.00
Insert a new record
Place the third item, price and Qty in the database
CGA Monitor"
Price"
145.00
Insert a new record
Place the fourth item, price and Qty in the database
Keyboard/101 key/AT Style"
Price"
55.00"
Insert a new record
Place the fifth item, price and Qty in the databasee
Mouse/serial
Price"
35.00"
Insert a new record