What do you need help on?
On Wed, 30 Mar 2005 00:40:08 -0000, tears_from_heavenly_angels
<[EMAIL PROTECTED]> wrote:
>
>
> Below is the problem I'm trying to do....
> Steel Fabricators purchases raw steel to fabricate beams and other
> parts used in large buildings. It purchases its steel from many
> overseas sources. Due to currency fluctuations in the countries in
> which the steel is purchased, the price must frequently be changed
> for each item from a particular country. Prices can be changed
> upward or downward depending on the country of origin. Steel
> Fabricators needs a program to update the prices and to view the
> price list. When complete, the main form for the program should
> look like Figure 8-21.
>
> a) Run the executable file named Chapter.08\Exercise\Ex2.exe.
> The form contains option buttons to select the country as well as
> option buttons to charge the prices. In addition, a text box
> enables the user to indicate the percentage amount of the price
> change. When the user clicks the Update Prices command button, the
> prices for a particular country increase or decrease by the
> percentage amount specified. The Display Prices command button
> displays the current price list, and the Exit command button ends
> the program. Note that for this executable program to run, the
> database file Steel.mdb must reside in the same folder as the
> executable file. The price entered should be a decimal value
> between 0 and 1. For brevity, the percentage has not been checked
> for errors. End the program.
> b) Start Visual Basic and create a new project, if necessary.
> c) Set the form name to frmEx2 and the caption to Steel
> Fabricators – Update Prices.
> d) Save the from as frmEx2.frm and the project as Ex2.vbp in
> the Chapter.08\Exercise folder. Set the drive designator as
> necessary.
> e) In the general declarations section of the form module,
> create a variable named gdbCurrent that can store the reference to a
> Database object.
> f) Open the database named Chapter.08\Exercise\Steel.mdb when
> the form loads. Set the drive designator as necessary. Store a
> reference to the open database in the object variable named
> gdbCurrent.
> g) Create a command button to exit the program.
> h) Create a Frame object and set the caption to Country.
> i) Create a control array of three option buttons named
> optCountry. Set the captions of these option buttons to Brazil,
> Korea, and Japan.
> j) Create a second Frame object with the caption Price
> Direction.
> k) Create a control array of two option buttons named
> optDirection in the frame. Set the captions of these option buttons
> to Increase and Decrease.
> l) Create a Frame object with the caption Percent and a text
> box inside the frame named txtPercent.
> m) Create two command buttons: one to update prices and another
> to display a form containing the price list. Set the names and
> captions as necessary.
> n) In the command button to update prices, write the statements
> in the Click event procedure to determine which option button the
> user has selected and to store the selected country name in a String
> variable.
> o) Write the statements to store the price change percentage in
> a variable having the Single data type. If the new price represents
> an increase, the number should be positive. If the new price
> represents a decrease multiple the number by -1 to make it negative.
> p) In a local String variable, store an UPDATE statement that
> will update the field namded fldItemPRice in the table named
> tblPriceList where the field named fldCountry is the same as the
> selected country. The price stored in fldItemPrice should be
> increased or decreased by the percentage amount specified by the
> user.
> q) Create a form that will display and locate the records from
> the table named tblPriceList. You can create this form manually or
> use the Data Form Wizard to accomplish this task. Save the form
> using the name frmPrices.frm. Use the fields named fldItemNumber,
> fldCountry, fldItemDescription, and fldItemPrice.
> r) Program the second command button on the main form to
> display the newly created form as a modal form.
> s) Test the program by displaying the original price list,
> then increasing and decreasing the prices by different percentages.
> t) Save the forms and project again. Exit Visual Basic.
>
> Below this is the code in which I have wrote....
>
> Option Explicit
> Public gdbCurrent As Database
> Public mrstCurrent As Recordset
> Private pstrCountry As String
> Private psngPercent As Single
> Private psngDirection As Single
>
> Private Sub cmdDisplayPrices_Click()
> frmPrices.Show vbModal
> End Sub
>
> Private Sub cmdExit_Click()
> Unload Me
> End Sub
>
> Private Sub cmdUpdatePrices_Click()
> Dim pstrSQL As String
> Dim pstrTest As String
>
> psngPercent = Val(txtPercent.Text)
>
> If optCountry(0) Then
> pstrCountry = "Brazil"
> Else
> If optCountry(1) Then
> pstrCountry = "Koreo"
> Else
> If optCountry(2) Then
> pstrCountry = "Japan"
> End If
> End If
> End If
>
> If optDirection(0) Then
> psngDirection = (psngPercent * 1) +
> frmPrices.txtItemPrice.Text
> Else
> psngDirection = (psngPercent * -1) +
> frmPrices.txtItemPrice.Text
> End If
>
> pstrSQL = "UPDATE tblPriceList" & _
> " SET fldItemPrice =" & psngDirection & _
> " WHERE fldCountry =" & "pstrCountry"
>
> mrstCurrent.Edit
> mrstCurrent.Update
> End Sub
>
> Private Sub Form_Load()
> Set gdbCurrent = OpenDatabase("A:\Chapter.08\Exercise\Steel.mdb")
> Set mrstCurrent = gdbCurrent.OpenRecordset("tblPriceList")
> End Sub
>
> Option Explicit
> Public gdbCurrent As Database
> Private mrstCurrent As Recordset
>
> Private Sub cmdClose_Click()
> Me.Hide
> End Sub
>
> Private Sub LoadCurrentRecord()
> txtItemNumber.Text = mrstCurrent![fldItemNumber]
> txtCountry.Text = mrstCurrent![fldCountry]
> txtItemDescription.Text = mrstCurrent![fldItemDescription]
> txtItemPrice.Text = mrstCurrent![fldItemPrice]
> End Sub
>
> Private Sub Form_Load()
> Dim pstrFields As String
>
> pstrFields = "fldItemNumber, fldCountry, fldItemDescription,
> fldItemPrice"
>
> Set gdbCurrent = OpenDatabase("A:\Chapter.08\Exercise\Steel.mdb")
> Set mrstCurrent = gdbCurrent.OpenRecordset("tblPriceList")
> Call LoadCurrentRecord
> End Sub
>
> I need this back before tomorrow....if you all can help that would
> be great...thanks for your time....
>
--
Don Roberts - [EMAIL PROTECTED]
http://www.drscripting.com
http://www.freakingidiot.com
'// =======================================================
Rules : http://ReliableAnswers.com/List/Rules.asp
Home : http://groups.yahoo.com/group/vbHelp/
=======================================================
Post : [email protected]
Join : [EMAIL PROTECTED]
Leave : [EMAIL PROTECTED]
'// =======================================================
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/vbhelp/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
