Belajar Foxpro

Basic - Visual Basic Foxpro
Page 1 of 82
Page 1
1.1.
Preliminary Microsoft Visual Foxpro is a software that is saplikasi business orientation,
particularly those using the database (data processing) for which data is quite a lot. Microsoft Visual Foxpro is a database management system (database management system, DBMS) that enables the creation of object-oriented applications powerful database quickly and easily. Ease of application development using Visual Foxpro, among others, because Visual Foxpro programming as well as procedural and object-oriented (object oriented programming, OOP), which go hand in hand and intertwined. A procedural programming with object-oriented programming and design features worked together Interactive Visual Foxpro make much used by the current Windows programmer. Broadly speaking, includes a database application development process as follows: Plan or design application Creating a Database (table, view, table relationships). Creating a class (event, property, method). Provide access to utility (form, menu, toolbar). Providing access to information (query, report, graph). Testing and debuging. Database design, determination of need functional
Making the database: Table, View, Relation Table
http://translate.googleusercontent.com/translate_c?hl=en&prev=/search%3Fq%3Dmen... 4/26/2012
Page 2 of 82
Table, View, Relation Table
Provision of Access functional for the user: Form, Menu, Toolbar
Provision of Access Information for the user: Query, Report, Graph
Testing and debuging
Application Database Application Process Diagram Nova Ardiansyah, S.Kom | 1
Page 2 1.2. Starting Visual Foxpro There are several ways to start the software Visual Foxpro, namely: A. Starting Visual Foxpro via the Start menu - Programs - Microsoft Visual Foxpro. 2. Starting Visual Foxpro Visual Foxpro via shortcuts. 1.3. Main Display Visual Foxpro 1.3.1. Window of Microsoft Visual Foxpro When the Microsoft Visual Foxpro is run, a window will appear as images of work below.
Toolbar 1.3.2. Menu Bar
Menubar
Command Window
Page 3 of 82
1.3.3. ToolBar Toolbar, as shown below, contains icons that serve mepersingkat command on the Menu Bar.
1.3.4 Project Manager Window
Project Manager window shows the active project and files making up the project.
Nova Ardiansyah, S.Kom
| 2
Page 3
1.3.5 Properties Window Properties window is used to modify the properties of an object. Property settings window can be done in various ways: in the Properties By typing the desired value (Example: Caption property, Width). Choosing a value already exists (for example: Style properties, alignment). Selecting an existing sample (eg, property BackColor, ForeColor). Browsing (example: Picture property).
In addition to the properties window, setting
Page 4 of 82
property can also be done through the program through the lines listing. 1.4. Basic Elements of Visual Foxpro Visual Foxpro basic elements of data type (Data Type), Operator, Function / Procedure and orders. 1.4.1. Data Types In Visual Foxpro expression or formula should not be the type of data (data type) mixed. Data types available in Visual Foxpro is a character, binary characters, numeric and fractions, integers, fractions double, money numbers, date, date plus hours, the logic (L) and memo (M). Character Types Type the characters is a string data type in the form of sequences of characters of the alphabet, numbers 0-9 are dingggap character. Type the double quotation marks elbow. single or characters are made using the (enclosed) quotes Example: 'Visual Foxpro' "STMIK Tasikmalaya" [Visual Foxpro Programming] Binary character type Binary character types such as regular character data type, but is permanent. Numeric Types and fractions Numeric type (float) is a type of fractional numbers or numbers that have a range of -0.999999999E +20 0.999999999E +19 up to. Nova Ardiansyah, S.Kom | 3
In making the program can not be separated from the formula and the formula yanng form
Page 4 Integer Type Type integer is the number of data types that have a range between-2147483647 up to 2147483646.
Page 5 of 82
Multiple types of fractions which has a range of + /-4.94065645841247E-324 to + /-8.9884656743115E307. Numbers of type Money Type of money is the number of data types to form the data that have a range of money -922337203685477.5808 To 922337203685477.5807. To express numbers form of money we have to use the symbol $ (default form). Type Date Type the date data type to data form the date of (date). The default format is the shape of U.S. dates, the format mm / dd / yy (if SET CENTURY OFF). To facilitate our establish a specific date format, note the table below: Arrangement AMERICAN ANSI GERMAN ITALIAN JAPAN / TAIWAN USA MDY DMY Ymd Type Logic (L) Logic type (L) is a data type to a form of logic TRUE (true), can use the symbol T, t, Y or FALSE (one) can use the symbol F, f, N, n. Type of Memo Memo type is the type of data to be used as characters in length, and only applies for the field is not variable. Memo size is not fixed, such as characters and stored in the file. FPT. Format SET CENTURY OFF time mm / dd / yy yy.mm.dd dd.mm.yy dd-mm-yy yy / mm / dd mm-dd-yy mm / dd / yy dd / mm / yy yy / mm / dd
Type multiple fractions (larger than the float type) is the type of numbers or fractional numbers
BRITISH / FRENCH dd / mm / yy
| 4
Page 6 of 82
Page 5 General type (G) Ordinary common data types can be used to store data OLE (Object Linking Embedded), such as spreadsheets, graphics, sounds created from other applications. 1.4.2. Operator or a specific formula. Examples of symbol - a symbol of the operator as in the following table: Operator Usefulness For the data type = + ! or NOT *, / ^ Testing the similarity Addition Negation (opposite) Multiplication / division Perpangkat All types Numeric, Character, Date, DateTime Logical Numeric Numerical
Operators are symbols that are used for a specific operation, usually used in the expression
Note: In a variable expression must have the same data type, if not the same data type must be converted first. 1.4.3. Function / Procedure Function or procedure is a set of specific instructions are given for specific purposes name, so if you want to use only the function name only. 1.5. Basic commands Foxpro SET DEFAULT TO <path-drive> Used to activate / change the working drive. Example: CLOSE ALL Used to close all active windows. QUIT Command to exit from Visual Foxpro. 1.6. With the application of Form Form is an object in Visual Foxpro is used to process data table or as a basis for the design of display applications. SET DEFAULT TO C: \ Foxpro ?
Page 7 of 82
table or as a basis for the design of display applications. To create a form we can do with three ways: A. 2. 3. With the help of the Wizard Design Programming
| 5
Page 6
Form Design and Modification Form Once we can create a form with the Wizard, and it appears there was weakness. Then for that we must use the second way is to design the Form itself. Steps to make / medesain form according to his own wishes as follows: In the Command Window, type the command: CREATE FORM <nama-form> or select the menu FILE - NEW - FORM - NEW FILE, so the dialog box appears: Form Control Toolbar Form Designer window Properties window
Properties window Properties window is used to modify the properties an object. Setting properties in the Properties window can be done in various ways: By typing the desired value (for example: Caption property, Width). Choosing a value already exists (example: property Style, Alignment). Selecting an existing sample (eg BackColor property, ForeColor). Browsing (example: Picture property).
Page 8 of 82
Browsing (example: Picture property).
Activate / execute Form To run / activate a pace that is on Commad Form Window type the command: DO FORM <nama-form> or Select Menu Program - Do - <nama-file-fom> or On the Toolbar, click the button or on the keyboard press CTRL + E.
Add / designing Control Form To add a new control on a form, how is the click of a controls that we want from the Form Control Toolbar, then Dilam designe Form window, Drag and Drop mouse pointer to create a grid control that we want. Some commonly used types of controls are: Nova Ardiansyah, S.Kom | 6
Page 7
Toolbar Label
Name on Form
Function Used to make a comment or description A control that can contain a data field or a memory variables. A control that can contain a data field or a memory variables and have a scrolling bar. Used to execute a command a particular program. Used to provide some choice / option that can only be selected one. Used to provide a choice / option that can be in select more than one. Used to input data at once can used for the selection of specific data. Used to display data from a table. Its function is to accommodate the image that usually
Textbox EditBox Commad Button Option CheckBox ComboBox Grid Image
Page 9 of 82
Image Line
taken from a separate file. Used to create a line. TASK Practicum I
A. Do it yourself design the form below so that the results are as below. Then Fielding's name FORM1A.SCX store premises. Type in the Form object Init Procedure and Click Command1 Objeck Procedure. Thisform.text1.Value = "" Thisform.text2.Value = 0 Thisform.text3.Value = 0 Thisform.text4.Value = 0 Thisform.text1.SetFocus () Type Procedure Click on the Object Command2. THISFORM.RELEASE () Type in Object text3 Valid Procedure A = Thisform.text2.value B = Thisform.text3.value C=A*B Thisform.text4.value = C Nova Ardiansyah, S.Kom | 7
Page 8 TASK Practicum II A. Create a program to calculate addition, subtraction, multiplication and division of two numbers with a design output as follows:
Page 10 of 82
2. Keep the form with the name FORM1B.SCX TASK Practicum III A. Make a program to calculate the conversion from Celsius to reamur, fanrenheit and kelvin using the following formula: Reamur = 4/5 celcius Fanrenheit = 9/5 C + 32 Kelvin = Celsius + 273 2. With a design like the following output:
3. Save the form circuitry name FORM1C.SCX
| 8
Page 9
Page 11 of 82
Branching logic Conditional branching process From the previous meeting, a program that we make is a program that is sequence / sequences means that the process starts from the first instruction line and continues last instruction in sequence. If an instruction to jump or do an instruction with a specific requirement, we need a command repetition and branching orders. Branching Structure Conditional branching allows us to check a condition, then based on the results of different forming operations. There are two commands in Visual Foxpro is used to create conditional branching. IF logic commands This command conditionally executes a set of commands based on the value logical expression. In general, conditional branching commands commonly used among other: IF ... ENDIF IF ... ELSE ... ENDIF
IF ... ENDIF command The syntax of this command is: IF <kondisi> ........................... ........................... ........................... ENDIF IF ... ELSE ... commands ENDIF The syntax of this command is: IF <kondisi> <Bagian Program to be executed if the condition benar> ELSE <Bagian Program to be executed if the condition salah> ENDIF
Part of a program that is run when Events are met / true
Page 12 of 82
| 9
Page 10
DO CASE command ... endcase This command executes a number of the first order condition expression value True (. T). The syntax of this command is: DO CASE CASE <expresi-1> <Bagian Program that will run when kondisi-1 benar> CASE <expresi-2> <Bagian Program that will run when kondisi-2 benar> ... CASE <expresi-n> <Bagian Program that will run when kondisi-n benar> Otherwise <Bagian Program to be executed when all conditions salah> Endcase
Make a sample form with a lay as follows: The provisions of: Alphabetical value >> > 85 alphabet A 76-85 alphabet B 66-75 alphabet C 56-65 alphabet D <55 alphabet E Specification >> If nilai_akhir> 55, Passed
If nilai_akhir <55, Not Passed
Page 13 of 82
| 10
Page 11
Step - Step: To make the choice to use control subjects OptionGroup, steps: o Add Optiongroup object of the form control to the form, then it will appear:
o To replace each option, right click on the object optiongroup, then select the Builder, it will appear:
o The Number Of Button, change to 2 (to determine the number of options / choices Optiongroup on it). then replace each caption. o Click the Layout tab, to set the display option.
Page 14 of 82
To set the number format on text3 object, change the properties Value = 0.
| 11
Page 12
At text3 object, enter the following program code in InteractiveChange procedure. value = thisform.text3.value if value> = 55 thisform.text5.value = "Passed" else thisform.text5.value = "Not Passed" endif do case case the value of> 85 thisform.text4.value = "A" case the value of> 75 thisform.text4.value = "B" case the value of> 65 thisform.text4.value = "C" case the value of> 55 thisform.text4.value = "D" otherwise thisform.text4.value = "E" endcase
Page 15 of 82
endcase In the Command1 object (the new data), enter the procedure code in the program Click. thisform.text1.value = "" thisform.text2.value = "" thisform.optiongroup1.value = 1 thisform.text3.value = 0 thisform.text4.value = "" thisform.text5.value = "" thisform.text1.setfocus On the object Command2 (Exit button), enter the code in the procedure Click program. THISFORM.RELEASE
| 12
Page 13
TASK IV Practicum A. Work on the form below to enter the list of purchasing a computer and its peripherals. Then save it as FORM2A.SCX
Page 16 of 82
Set the Object Properties form above: OBJECT Form1 Label1 PROPERTIES Caption AutoCenter Caption AutoSize FontSize FontBold Caption AutoSize Caption AutoSize Caption AutoSize Caption AutoSize Caption AutoSize Caption AutoSize Caption AutoSize Caption AutoSize Caption AutoSize Caption Caption VALUE / VALUE PURCHASE FORM . T. - True LIST PURCHASE ACCESSORIES . T. - True 10 . T. - True NAME OF PURCHASER . T. - True NAME OF . T. - True UNIT PRICE . T. - True NUMBER OF GOODS . T. - True TOTAL PAID . T. - True PAID . T. - True SISA . T. - True FACTS . T. - True Keel . T. - True \ <START \ <ENDS NAME OF PURCHASER | 13
COMPUTER
Label2 Label3 Label4 Label5 Label6 Label7 Label8 Label9 Check1 Command1 Command2
Object OptionGroup1: Option1 Caption Nova Ardiansyah, S.Kom
Page 14
Page 17 of 82 Page 14
Option2
AutoSize Caption AutoSize
. T. - True NAME OF PURCHASER . T. - True
Procedure Type / Object Event on the following: Form1 Init Procedure and Procedure Click Commad1 Thisform.text1.Value = "" Thisform.combo1.Value = "" Thisform.text2.Value = 0 Thisform.text3.Value = 0 Thisform.text4.Value = 0 Thisform.text5.Value = 0 Thisform.text6.Value = 0 Thisform.check1.Value = 0 Thisform.optiongroup1.Value = 0 Thisform.text1.SetFocus () Click Command2 Procedure THISFORM.RELEASE () Combo1 LostFocus Procedure Code = Thisform.combo1.Value DO Case CASE code = "COMPUTER" HRG = 5000000 CASE code = "KEYBOARD" HRG = 25 000 CASE code = "MONITOR" HRG = 750 000 CASE code = "MOUSE" HRG = 30 000 Endcase Thisform.text2.Value = HRG Valid Procedure text3 HRG = Thisform.text2.Value Number = Thisform.text3.Value Tb = HRG * Amount Thisform.text4.Value = Tb Valid Procedure Text5 Tb = Thisform.text4.Value Dbyr = Thisform.text5.Value Ss = Tb - Dbyr DO
Page 18 of 82
DO CASE CASE ss = 0 Thisform.label8.Caption = "SISA" Kt1 = 1 kt2_1 = 0 kt2_2 = 1 Nova Ardiansyah, S.Kom | 14
Page 15
CASE ss> 0 Thisform.label8.Caption = "SISA" Kt1 = 0 Kt2_1 = 0 Kt2_2 = 1 CASE ss <0 Thisform.label8.Caption = "RETURN" Kt1 = 1 Kt2_1 = 1 Kt2_2 = 0 Endcase Thisform.text6.Value = ss Thisform.check1.Value = kt1 Thisform.optiongroup1.option1.Value = kt2_1 Thisform.optiongroup1.option2.Value = kt2_2 2. Once completed, run the form and see the results. TASK Practicum V A. Make a program to shift the line from top to bottom and from left to right, * with design output like this!
Set the object properti Timer1 and Timer2: Interval = 100
2. Type the following program listing: In the Timer1 object, click the Timer, put the program listing the following:
Page 19 of 82
If Thisform.label1.top <= 250 aid = thisform.label1.Top thisform.label1.Top = bantu +3 ELSE thisform.label1.Top = 0 ENDIF Timer2 on an object, click the timer, put the program listing the following:
If Thisform.label1.left <= 350 aid = thisform.label1.left thisform.label1.left = bantu +3 ELSE thisform.label1.left = 0 ENDIF 3. Keep the form with the name FORM2B.SCX
| 15
Page 16
TASK VI Practicum A. Make an application program to calculate the total pay at a hotel below. Set the Display Properties Form and such so it looks like this :
Page 20 of 82
Program Provisions:
Types of rooms offered: ECONOMIC, BUSINESS EXECUTIVE, SWEETROOM inputkan Older Staying Calculated from the date out - Check-in: Overnight fee shown is based on room type selected Room Types ECONOMY BUSINESS EXECUTIVE SWEETROOM The cost of staying / day 150 000 300 000 600 000 850 000
Name Guest, Visitor Type, Tariff / day, Date Entry, Exit Date and Other expenses i
Staying a long time, tourism tax, the total cost of stay and pay automatically display
Tourism tax is calculated from the 10% of the cost to Stay Total Pay is calculated from (* Fee Stay Long Stay) + Other Expenses + Tax Tour 2. Save the Form with the name FORM2C.SCX
| 16
Page 17
The logic of repetition / looping
Repeating the process The loop allows us to execute one or more lines of code as much as we want. There are three commands in Visual Foxpro used for iteration, namely: DO WHILE command - EndDo This command executes the commands that are in the loop conditional. Iteration be done continuously during the conditions are met (. T. or right). Repetition of the command syntax is: http://translate.googleusercontent.com/translate_c?hl=en&prev=/search%3Fq%3Dmen... 4/26/2012
Page 21 of 82
Repetition of the command syntax is: DO WHILE ......................... ......................... ......................... EndDo Repetition will be done when conditions are right. Repetition of this condition can also use conditions. T., namely: DO WHILE. T. ......................... ......................... ......................... [Loop] [Exit] EndDo Example: x=1 DO WHILE x <= 20 ? x x = x +1 EndDo
Parts of the program will be repeated
| 17
Page 18
Repetition EOF () and BOF () In Process Again An iterative process can be done in processing the records in a table one by one until exhausted. To limit the repetition of commonly used function EOF () (End Of File) and BOF () (Begin Of File).
Page 22 of 82
File) and BOF () (Begin Of File). Functionality will provide the logic function. T. when pointer has been at the end of the file. Form of repetition to process the data file up: DO WHILE.NOT.EOF () ......................... ......................... ......................... EndDo
FOR command. . . Endfor This loop will execute the commands as much as we specify. Value we specify a fixed value / constant. Repetition of the command syntax is: FOR <var> = <nilai_awal> TO <nilai_akhir> ......................... Parts of the program will be repeated ......................... ......................... Endfor Example: FOR v_angka = 1 TO 10 ? v_angka Endfor SCAN command. . . ENDSCAN These commands move the record pointer past the table being selected and execute a command every time a record block qualified defined conditions. Repetition of the command syntax is: SCAN [FOR <kondisi1>] [WHILE <kondisi2>] ......................... ......................... ......................... [Loop] [Exit] ENDSCAN Example: SCAN FOR city = "Tasikmalaya" ? name, department ENDSCAN Parts of the program will be repeated
| 18
Page 23 of 82
18
Page 19 TASK VII Practicum A. Make a looping program to display the numbers 1 through circuitry 10 use functions and do while loop circuitry for output like the following design. Then save the form by name FORM3A.SCX
2. Then fill thebutton on code in accordance with the objects and events yanng required, among ot For program an object, click the Click event, place the following program listing: FOR i = 1 TO 10 Thisform. List1. AddListItem ('Value For All =' Endfor + ALLTRIM (STR (i))) Do While on the object key, click the Click event, place the following program listing: i=1 DO WHILE i <= 10 thisform. List1. AddListItem ('Value Do While to =' i + ALLTRIM (STR (i))) i = +1 EndDo Delete button on the object, click the Click event, place the following program listing: thisform. List1. Clear Exit button on the object, click the Click event, place the following program listing: thisform. Release
Page 24 of 82
| 19
Page 20
TASK VIII Practice A. Make a program to format the font with the font style, color and background with the design output as follows. Save the form by name FORM3B.SCX
2. Type the source code for each object: In the object-option1 OptionGroup1, click Click event, place the following listing: thisform. label1. ForeColor = RGB (255,0,0) In the object-Option2 OptionGroup1, click Click event, place the following listing: thisform. label1. ForeColor = RGB (0,255,0) In the object-Option3 OptionGroup1, click Click event, place the following listing: thisform. label1.
Page 25 of 82
thisform. label1. ForeColor = RGB (0,0,128) In the object-Option3 OptionGroup1, click Click event, place the following listing: thisform. label1. ForeColor = RGB (128,64,64)
In the object-option1 OptionGroup2, click Click event, place the following listing: thisform. label1. BackColor = RGB (255,255,255)
In the object-Option2 OptionGroup2, click Click event, place the following listing: thisform. label1. BackColor = RGB (0,0,0)
| 20
Page 21
In the object-option1 OptionGroup3, click Click event, place the following listing: thisform. label1. FontBold =. t. thisform. label1. FontUnderline =. F. thisform. label1. FontItalic =. F.
In the object-Option2 OptionGroup3, click Click event, place the following listing: thisform. label1. FontBold =. F. thisform. label1. FontUnderline =. F. thisform. label1. FontItalic =. T.
In the object-Option3 OptionGroup3, click Click event, place the following listing: thisform. label1. FontBold =. F. thisform. label1. FontUnderline =. T. thisform. label1. FontItalic =. F.
The button on the object, click the Click event, Put the following listing: thisform. label1. Caption = thisform. text1. Value
Exit button on the object, click the Click event, Put the following listing:
Page 26 of 82
thisform. Release
| 21
Page 22
Conversion functions and Message Box 4.1 FUNCTION In Visual foxpro provides some functions commonly used in programming. Functions include conversion functions, string functions, date functions, and time etc..
Page 27 of 82
Functions include conversion functions, string functions, date functions, and time etc.. 4.1.1 Conversion Functions This function is useful for changing the data elements from one type to another. Functions include: VAL (alphanumeric string) To change the number to string numerical value DTOC (date) To change the date field content (date) to the character CTOD (alphanumeric string) To change the alphanumeric string into date form. 4.1.2 Functions Date And Time TIME () DATE () CDOW (date) DOW (date) 4.1.3 String Functions UPPER <alphanumerik>: Changing the text / letters to uppercase. LOWER <alphanumerik>: Changing the text / letters to lowercase. TRIM <alphanumerik>: To remove / cut spaces. LTRIM <aplanumerik>: To remove the spaces from the left. RTRIM <alphanumerik>: to remove the spaces from the right. Substr <alphanumerik>: to take a character / word of a sentence / word. LEFT <alpanumerik>: to take a character from the left. RIGHT <alphanumerik>: to take a character from the right. LEN <alphanumerik>: to count the number of characters. ASC <alphanumerik>: to produce a numerical value of the ASCII character Nova Ardiansyah, S.Kom | 22 right now. Display the current date Indicate the name day of the date indicated. Show name day in
Displays the time indicated at the time of the computer system
CMONTH (date) Indicates the name of the month indicated date.
week, 2 = Monday, 3 = Tuesday, 4 = Wednesday, 5 = Thursd
Page 23 TASK Practicum IX
Page 28 of 82
A. Work on the form below to use the command or function in foxpro. Then save the form by name FORM4A.SCX
Procedure Type / Object Event on the following: Procedure Text1 InteractiveChange WITH thisform xtext = ALLTRIM (. text1.Value) . Text2.Value = LEFT (xtext, 3) . Text3.Value = right (xtext, 3) . Text4.Value = substr (xtext, 2.4) . Text5.Value = Len (xtext) . Text6.Value = Upper (xtext) . Text7.Value = Lower (xtext) . Text8.Value = Proper (xtext) ENDWITH Click Command1 Procedure THISFORM.RELEASE 3. Run the form and see the results.
Page 29 of 82
| 23
Page 24
TASK practicum X A. Work using the form below to use the date of the operating functions. Save the form by name FORM4B.SCX
Set the following properties: Object Name Text1 Text3 Text4 Text5 Text6 Text7 Text8 Command1 Command2 Timer1 Properties Readonly Readonly Readonly Readonly Readonly Readonly Readonly Caption Caption Interval Value T - True T - True T - True T - True T - True T - True T - True \ <Run \ <Quit 1000
Procedure Type / Object Event on the following: a. Form1 Init Procedure SET CENTURY ON && display 4-digit date format http://translate.googleusercontent.com/translate_c?hl=en&prev=/search%3Fq%3Dmen... 4/26/2012
Page 30 of 82
SET CENTURY ON && display 4-digit date format SET DATE BRITISH && date format dd / mm / yy thisform.text2.Value = DATE () && text1 object to insert date b. Timer1 Timer Procedure Thisform.text1.Value = TIME () && insert the time / clock is active c. Click Command1 Procedure WITH thisform date =. Text2.value tglke = DAY (date) Nova Ardiansyah, S.Kom | 24
Page 25
harike = DOW (date) namahari = CDOW (date) year = YEAR (date) bulanke = MONTH (date) namabln = CMONTH (date) . Text3.value = tglke . Text4.value = harike . Text5.value = namahari . Text6.value = year . Text7.value = bulanke . Text8.value = namabln ENDWITH d. Command2 Procedure Click THISFORM.RELEASE () 4.2. DIALOG / MESSAGEBOX Dialog box is used to notify the information to the user / users, for example, displaying an error message. In addition, the messagebox dialog box also used to confirm to the user, such as confirmation of YES and NO. Mesagebox syntax: Messagebox ("message", <tipe_kotak_dialog>, <title>) The second and third arguments can also be excluded. Example of use: Messagebox ("Sure this? ", http://translate.googleusercontent.com/translate_c?hl=en&prev=/search%3Fq%3Dmen... 4/26/2012 will close program
Page 31 of 82
this? ", 4 +32 Or +" Messagebox ("Data entered already exists!") Confirmation ") This layout for the confirmation message "Yes" and "No". The table for this type of dialog box: Value Box Type 0 1 2 3 4 5 Buttons available / show Ok Ok, Cancel Abort, Retry, Ignore Yes, No, Cancel Yes, No Retry, Cancel
| 25
Page 26
Table Icon to be displayed in the dialog box: Values Icon 16 Picture Icon
32
48
64
Selected key values: Value The selected button
Page 32 of 82
Value 1 2 3 4 5 6 7
The selected button Ok Cancel Abort Retry Ignore Yes No
To state that the button is selected, it can use DO IF or CASE statements. Example of use:
Answer = MessageBox ("Are you sure you will close the program?", 4 +16 + "Confirmation") IF Answer = 6 && YES if the button is selected then exit the program THISFORM.RELEASE ENDIF
| 26
Page 27 SETTING PROPERTIES AND EVENT OBJECT Object Name Caption Text Fontname Backcolor ForeColor Information Provide the name of an object Give the title on an object Almost the same as the caption Determine the type of letter Specifies the background color Specifies the text color or font
Page 33 of 82
ForeColor Enabled Visible Height Width Top Left Tabindex Dragmode Mousepointer AutoSize FontBold BackStyle
Specifies the text color or font Set the control that is not accessible Hide objects Determine the height of an object Specifies the width of an object Determine the position of the object from above Determine the position of the object from the left Menentuka order pemfocusan Set the control's behavior during dragand drop Allows the mouse to change shape as it passes through object Arranged to adjust the width of an object with a width object Arranged for the object in Bold / bold Arrange for a transparent object or not.
Types of Event Click DblClick DragDrop Activate DeActiave GotFocus LostFocus Load Unload Init Valid KeyPress Interactive Change
Occurs when pressing and releasing the left mouse button the object Pressing the left button on an object x 2 Holding down the left and drag tombok objects from one plac Another tmpt Occurs when an object is active The opposite of activate Occurs when an object becomes the sole focus Occurs when an object loses Focus Occurs when a form is opened or invoked Occurs when a form is closed Initial value in a form Provide validation of the object Occurred when receiving input from the keyboard Occurs when an object changes the value of
| 27
Page 28
Page 34 of 82
Page 28
Creating Project and Database
5.1.
Preliminary In Visual Foxpro program we should make the program begins with a
a project, because the whole program, forms, database, report, view, query and other located in the project. This will help us organize. In the project there are several databases that can be interconnected. Meanwhile, in the database there can be multiple tables, each table can be connected by a key. 5.2. Project Project is a place to put the data, documents, class, code / program, and the others. To create a project there are 2 ways: A. Through the menu 2. Through Visual Foxpro command (on command window) 5.2.1. Creating a Project Through the Menu To make the Project through a menu, perform the following steps this: A. On the menu, choose File> New 2. Then select the option Project 3. Click on New 5.2.2. Creating a Visual Foxpro Project Through Commands To create a Project via Visual Foxpro commands, we can mengetikkam command on jedela Command Window. The syntax is: Create Project [namaproject] 5.3. Database
Understanding the Visual FoxPro database is different from understanding the Foxpro database versei before, which means the table. In Visual Foxpro, is what one type of database file which is extensinya. DBC. Database is a collection of tables. Create a table in database, has several advantages, among others: Determine the type of primary key or candidate Create a permanent relationship (Persitant Relation) between tables
Page 35 of 82
Create a permanent relationship (Persitant Relation) between tables Creating Caption (title) field for the title of Grid Defining a long name for the field Specifies the default value field | 28
Page 29
Determining the Input Mask (Format enter the field) Make Tingger Creating a stored procedure (Stored Procedure) Creating a File View Make rules and Field Level Record Level Provide comments to the table, field checkers database.
5.3.1. Creating a Database To create a database in a project, it can be done two ways: Creating a Database Through the Project Manager Untuk membuat database lewat project manager, lakukan : Di project manager, pilih halaman Data > Database > New
Membuat Database Lewat Perintah Visual Foxpro pada jendela Command Window : Create Database [namadatabase] 5.4. Table Tabel merupakan tempat kita meletakkan record atau data. Nama file perluasan (Extention) file tabel adalah .DBF. 5.4.1. Membuat Tabel Cara membuat tabel ada dua cara, yaitu : Lewat Project Manager Untuk membuat tabel lewat project, langkahnya adalah : Pada Project Manager, pilih Data | Free Table | New Lewat Perintah Visual Foxpro
Untuk membuat database lewat perintah visual foxpro, kita dapat mengetikkan perintah berikut
Page 36 of 82
Untuk membuat tabel lewat perintah visual foxpro, ketikkan perintah berikut pada Comman Window : Create [NamaTable]
| 29
Page 30
Maka dilayar akan Visual Foxpro akan tampil :
masukkanlah struktur tabel tersebut. Kemudian klik OK . Keterangan Structure Designer Dialog : Nama Kolom Name Type Width Decimal Null Information Menyatakan nama Field Menyatakan type data yang ditampung Menyatakan lebar/panjang untuk data field Menyatakan jumlah digit bagian pecahan. Bila muncul tanda checklist, dapat diberikan
Aturan Penulisan Field : Penulisan nama field, tidak boleh menggunakan spasi. http://translate.googleusercontent.com/translate_c?hl=en&prev=/search%3Fq%3Dmen... 4/26/2012
Page 37 of 82
Penulisan nama field, tidak boleh menggunakan spasi. Jangan menggunakan tanda koma (,), tanda pipe (|) dan tanda seru (!). Tipe-tipe Field : Type Field Character (C) Information yang dapat tercetak, lebar field tipe antara 1 sampai dengan 254 karakter. Currency Float (F) Date DateTime Double Integer -, dan . (tanda decimal) scientific Berisi nilai dari tanggal, waktu atau tanggal dan waktu nilai tersebut. Data nilai tersebut disimpan dengan format yy/mm/dd/hh/mm/ss desimal (float) Untuk menyimpan bilangan bulat 4-byte, value -2147483647 s/d 2147483647 Nova Ardiansyah, S.Kom -| 30
Untuk menampung kumpulan karakter huruf, angka dan karakter ASC
Untuk menyimpan nilai mata uang dan berisi hingga 20 digit, termasu
Merupakan tipe data special dari field numeric yang didesain untuk da
Untuk menyimpan data tanggal memasukkan dengan format mm/dd/y
Digunakan untuk melakukan perhitungan dengan nilai yang berisi tand
Page 31
Logical Memo General Character (Binary) Memo (binary)
Untuk menyimpan masukan True (T) atau False (F) apa saja.
Untuk menyimpan sejumlah besar data, field memo dapat berisi tipe d
Digunakan untuk menyimpan OLE (object Lingking and Embedding) 1 byte perkarakter s/d 254. tanpa mengunah kode dengan ukuran 4 byte dalam tabel.
Digunakan untuk menampung banyaknya data karakter . dengan ukura
Digunakan untuk menampung banyaknya data memo dengan perawat
5.4.2 Operasi pada Tabel Mengaktifkan/membuka Tabel Untuk mengaktifkan tabel, maka perintahnya : http://translate.googleusercontent.com/translate_c?hl=en&prev=/search%3Fq%3Dmen... 4/26/2012
Page 38 of 82
Untuk mengaktifkan tabel, maka perintahnya : USE <nama_tabel> Misalnya kita akan mengaktifkan tabel barang, maka : Use Barang Membuka/Memodifikasi Struktur Tabel Pada saat tabel telah dibuat, jika terdapat kesalahan dalam pengetikan nama field, tipe data atau lebarnya dll, maka kita perlu memodifikasi struktur tabelnya tetapi harus diaktifkan dulu nama tabelnya. Sintaknya : USE <nama_tabel> MODIFY STRUCTURE <enter> <enter>
Menampilkan struktur tabel ke layar Untuk menampilkan struktur tabel yang aktif, maka ketikkan perintah : LIST STRUCTURE DISPLAY STRUCTURE Mengisi Data Langsung kedalam Tabel Untuk memasukkan data kedalam tabel, pertama pastikan tabel tersebut sudah aktif, kemudian ketikkan perintah : APPEND <enter>
-| 31
Page 32
untuk mengisi data tabel, tetapi data nya diambil dari tabel lain, langkahnya : Aktifkan tabel yang akan diisi : USE <nama_tabel> Kemudian ketikkan perintah.
Page 39 of 82
Kemudian ketikkan perintah. APPEND FROM <nama_tabel_data> [FOR <kondisi>]
Melihat isi Tabel Untuk melihat hasilnya bahwa data telah ditambahkan/dimasukkan, ketikkan perintah : BROWSE <enter> Maka akan muncul :
Mengatur Letak Pointer Ada beberapa perintah untuk mengatur letak pointer : Menuju record paling atas/awal : GO TOP Menuju record paling akhir/bawah : GO BOTTOM Menuju record tertentu : GO <no_record>
Menghapus data dalam Tabel Untuk menghapus data pada tabel, menggunakan perintah : DELETE Dalam penghapusan, ada beberapa cara/teknik yaitu : Menghapus data record ke 2, maka perintahnya : GO 2 DELETE Menghapus data yang kode barangnya = B0003, maka perintahnya : DELETE FOR kode_brg='B000003' Untuk melihat hasilnya bahwa data telah dihapus, ketikkan perintah Browse Ternyata data belum dihapus, tapi diberi tanda hitam disebelah kirinya. Karena perintah DELETE ini hanya memberi tanda pada data yang akan dihapus. Untuk melakukan penghapusan, maka ketikkan perintah : PACK <enter> Untuk melihat hasilnya bahwa data telah dihapus, ketikkan perintah Browse.
-| 32
Page 40 of 82
32
Page 33 Mengedit data tabel Untuk mengedit/merubah data dalam tabel, kita bisa melakukan pengeditan langsung melalui tabel, atau menggunakan perintah : EDIT [FIELDS <field1>,<field2>,] [FOR <kondisi>] Mengganti data dalam Tabel Untuk mengganti/update/ memasukkan data pada tabel, maka digunakan perintah : REPLACE WITH Misalnya mengganti nama barang untuk kode barang 'B001' menjadi Hardisk the command: REPLACE nama_brg WITH 'Hardisk Seagete 80 GB' FOR kode_brg='B0000001' Menutup Tabel yang sedang Aktif Untuk menutup tabel yang sedang aktif, maka ketikkan perintah : CLOSE DATABASE <enter> Untuk menutup semua yang sedang aktif, maka ketikkan perintah : CLOSE ALL <enter> Mengcopy tabel dan mengcopy struktur tabel Untuk mengcopy tabel, pertama pastikan seluruh tabel telah di tutup/nonaktif. Then ketikkan perintah : COPY FILE <nama_tabel> TO <nama_tabel_baru> <enter> Dengan cara ini kita telah mengcopykan struktur dan isi data tabel tersebut. To mengcopykan struktur tabelnya, maka langkahnya : Tutup semua tabel yang aktif CLOSE DATABASE Aktifkan tabel yang akan di copy USE <nama_tabel> Kemudian ketikkan perintah : COPY STRUCTURE TO <nama_tabel_baru>
Page 41 of 82
-| 33
Page 34
Mengolah Data Dengan Form 6.1. Preliminary Memasukkan data kedalam tabel dapat dilakukan dengan beberapa cara, diantarnya dengan langsung memasukkan kedalam tabel browse atau menggunakan Form. Form digunakan untuk mengolah data tabel. Kita dapat menambah, mengedit/merubah, menghapus atau mencari data melalui Form yang telah kita program/rancang dengan cepat dan mudah. A. Penyimpanan Data Pemasukkan data pada form kemudian akan disimpan ke dalam database / tabel yang telah ditentukan. Proses penyimpanan tersebut pada saat kita melakukan event pada objek pada form, misalnya pada umumnya pada objek Command button. Sintak perintah untuk penyimpanan yaitu sebagai berikut : Replace <field_name> With <variable> Misal Perintah dalam Pemasukkan Data Barang : Append Blank Replace kode_brg With Thisform.text1.value Replace Nm_Brg With Thisform.text2.value . . . . . . Or Append
Page 42 of 82
Append Blank Kode_brg with Thisform.text1.value , Nm_Brg With Replace Thisform.text2.value , . . . . . . Note: Append Blank berfungsi menambahkan record kosong pada tabel. Jika penyimpanan tersebut berfungsi untuk menggantikan/replace, maka perintah Append Blank tidak digunakan.
Perintah Append Blank digunakan apabila kita akan menambahkan data baru kedalam tabe
-| 34
Page 35 TUGAS PRAKTIKUM XI - 1 A. Buatlah tabel dengan struktur dibawah ini dan simpan dengan nama PEGAWAI.DBF
kemudian masukkanlah data dibawah ini : NIP NAME ADDRESS GOL TGLLAHIR JENISKE
Page 43 of 82
NIP 89001 89002 89003
NAME LINA ASEP BUDI
ADDRESS GOL JL. AHMAD YANI 2 JL. ACEH RAYA 1 JL. RE MARTHADINATA3
TGLLAHIR 12-02-1980 10-04-1981 11-05-1982
JENISKE T F F
2. Setelah data tersebut dimasukkan, kemudian buatlah desain Form dibawah ini dan simpan dengan nama FORM6.SCX .
-| 35
Page 36
Aturlah Properties Objek Form seperti dibawah ini: OBJECT Form1 Label1 PROPERTIES Caption AutoCenter Caption Autosize FontSize FontBold Caption Autosize Caption Autosize Caption Autosize NILAI/VALUE PT. .T. True COMPUTER TASIKMALAYA CREATIVE PEMASUKKAN DATA PEGAWAI .T. True 11 .T. True NIP .T. True NAMA PEGAWAI .T. True TANGGAL LAHIR .T. True
Label2 Label3 Label4
Page 44 of 82
Label5 Label6 Label7 Label8 Combo1 Command1 Command2 Command3
Autosize Caption Autosize Caption Autosize Caption Autosize Caption Autosize RowSource RowSourceType Style Caption Caption Caption
.T. True ADDRESS .T. True GOLONGAN .T. True SEX .T. True JAM KERJA .T. True 1,2,3 1 - Value 2 DropDown List \<BROWSE \<SIMPAN \<KELUAR LAKI LAKI .T. True PEREAMPUAN .T. True
Object OptionGroup1 : Option1 Caption Autosize Option2 Caption Autosize
Ketikkan Procedure/Event pada Object dibawah ini : Form1 Procedure Init Thisform.text1.Value="" Thisform.text2.Value="" Thisform.text3.Value=DATE() Thisform.text4.Value="" Thisform.text5.Value=0 Thisform.combo1.Value="" Thisform.optiongroup1.Value = 1 thisform.text1.SetFocus Form1 Procedure Load CLOSE DATABASE SET TALK OFF SET ECHO OFF USE pegawai Nova Ardiansyah, S.Kom -| 36
Page 37 Form1 Procedure Unload
Page 45 of 82
Close Database Command1 Procedure Click BROWSE Command2 Procedure Click APPEND BLANK replace nip WITH thisform.text1.Value replace nama WITH thisform.text2.Value replace tgllahir WITH thisform.text3.Value replace alamat WITH thisform.text4.value replace gol WITH thisform.combo1.Value IF thisform.optiongroup1.Value =1 replace jnske WITH .T. ELSE replace jnske WITH .F. ENDIF replace jamk WITH thisform.text5.Value thisform.Init Command3 Procedure Click Thisform.Release() 3. Kemudian masukkan data-data dibawah ini dengan menggunakan form tersebut. NIP NAME ADDRESS GOL TGLLAHIR JNSKE 89004 DONI K JL. HASANUDDIN 1 22-06-1979 89005 IRMAN JL. LENGKONG 1 07-07-1983 89006 DELLY JL. PURBARATU 3 12-07-1979 89007 SANDRA JL. LENGKONG 3 13-05-1980 89008 INDRA L JL. PANCASILA 1 01-06-1980 89009 MAWAR JL. AHMAD YANI 2 12-11-1980 89010 INDAH P JL. NATIONALITY 1 01-01-1979 89011 GOGON JL. PATIMURA 3 02-05-1980 89012 BAHRUN JL. MOH HATTA 2 14-09-1981 89013 VIRA JL. CICAHEUM 1 18-03-1983
Page 46 of 82
-| 37
Page 38
TUGAS PRAKTIKUM XI - 2 A. Buatlah tabel dengan biodata seperti dibawah ini dan simpan dengan nama Biodata.DBF
2. Kemudian buat program input, simpan dengan nama Biodata.SCX . Dengan layout seperti dibawah ini :
Aturlah Properties Objek-objek : Nama Objek Properties Form1 Autocenter Caption Label1 Caption Label2 Caption
Value .T. Program Biodata Nik Name
Page 47 of 82
Label2 Label3 Label4 Label5 Label6 Label7 Combo1 Command1 Command2
Caption Caption Caption Caption Caption Caption RowSourceType RowSource Style Caption Caption
Name Place of birth Date of Birth Education Gender Home Address 1 Value Laki-laki, Perempuan 2 DropDown List \<Simpan \<Keluar
-| 38
Page 39
Kemudian isikan kode program sesuai dengan objek dan event yang diperlukan, antara other: Object Form1 Procedure Load Event CLOSE DATABASES USE biodata Object Form1 Procedure Init Event WITH thisform .text1. value = '' .text2. value = '' .text3. value = '' .text4. value = CTOD ('') .text5. value = '' .combo1. value = '' .text6. value = '' .image1. picture = '' .text1. setfocus ENDWITH Object Image1 Procedure Click Event LOCAL nFile nFile='' nFile= GETPICT ('BMP','Nama File','Buka') thisform .image1. Picture = nFile Object Command1 Procedure Click Event WITH thisform APPEND BLANK replace nik WITH .text1. value replace nama WITH .text2. value replace tempat_lhr WITH .text3. value replace tgl_lhr WITH .text4. value replace WITH replace http://translate.googleusercontent.com/translate_c?hl=en&prev=/search%3Fq%3Dmen... 4/26/2012
Page 48 of 82
replace pendidikan replace alamat jenis_k replace.combo1. WITH gambar . refresh () value . init () ENDWITH
.text5. WITH .text6. value value WITH .image1. picture
Object Command2 Procedure Click Event Thisform . release
-| 39
Page 40
Index & Searching 7.1. Preliminary Kegunaan utama file indeks adalah untuk mencari data tertentu berdasarkan field yang diketahui, dan untuk pengurutan di laporan (report). 7.2. Jenis File Indeks Dilihat dari jenis indeksnya, file indeks dalam Visual foxpro terdiri dari beberapa jenis : a. File Indeks Primer (Primary Index)
File Indeks merupakan file berisi data atau record yang terurut berdasarkan field tertentu.
File indeks primer atau file index utama merupakan file indeks yang tidak memperbolehka
Page 49 of 82
File indeks primer atau file index utama merupakan file indeks yang tidak memperbolehka duplikasi data kunci indeks, biasanya dipakai untuk relasi pada tabel primer (tabel satu). b. File Indeks Kandidat (Candidate Index) dapat memiliki lebih dari satu file indeks kandidat. c. File Indeks Reguler (Reguler Index) File indeks reguler merupakan file indeks yang memperbolehkan duplikasi data, biasanya dipakai pada tabel sekunder (tabel banyak). d. File Indeks Unik (Unique Index) file indeks reguler, tetapi hanya mencatat nilai kunci pertama dalam file indeks. 7.3. Membuat File Indeks Untuk membuat file index ada beberapa cara yaitu : Membuat File Indeks Lewat Table Designer Untuk membuat file indeks lewat Table Designer, yaitu dengan cara berikut. Pada Table Designer , pilih halaman Indexes . Membuat File Indeks Lewat Perintah Visual Foxpro Membuat file indeks lewat perintah, untuk itu indeks jenis .IDX, sintaknya adalah : Index On <field_kunci> To <FileIndeks> [Ascending|Descending] Example: Use Siswa Index On Nis To SiswaIdx
File indeks kandidat merupakan file indeks seperti file indeks primer, tetapi dalam satu tab
File indeks unik merupakan file indeks yang tidak sesuai dengan nama. File indeks ini sep
-| 40
Page 41 7.4. Membuka File Indeks Dalam Visual foxpro untuk membuka file indeks dapat dilakukan beberapa cara yaitu : Membuka File Indeks Lewat Menu A. Pada menu, pilih File > Open 2. Pilih File of type (IDX, *.CDX), akan tampil file-file indeks 3. Klik nama file indeks, kemudian klik Ok Membuka File Index Lewat Perintah
Page 50 of 82
Membuka File Index Lewat Perintah Untuk membuka file indeks lewat perintah, bentuk umum perintahnya adalah : Set Index To <FileIndeksList> Or Use <TableMaster> Index <FileIndeks> Example: Set Index To SiswaIdx Use Siswa Index SiswaIdx 7.5. Memilih File Indeks Untuk menentukan file indeks yang aktif pada jenis file indeks, gunakan perintah : Set Order To <indexNumber> 7.6. Mereindeks Data atau Record Jika sebuah file indeks sudah tidak sesuai dengan kondisi terbaru, kita dapat mereindeks ulang (reindeks). Ada beberapa cara untuk mereindeks. Mereindeks Data Lewat Table Designer : Buka tabel, kemudian pilih menu View > Browse Pilih Table > Rebuild Indexes Mereindeks Data Lewat Perintah Visual Foxpro : Untuk mereindeks data lewat perintah, gunakan perintah seperti contoh dibawah ini : Use Siswa Reindex [atau]
-| 41
Page 42
Page 51 of 82
Page 42
7.7. Pencarian Data Data yang kita inputkan/masukkan terkadang ingin kita lihat kembali untuk mengetahui
informasi data tersebut. Misalnya pada data pegawai, kita ingin mengetahui alamat dari pegawa
yang mempunyai NIP = 98012. Cara pertama kita bisa melihatnya langsung ke tabel browse. kita memerlukan waktu yang agak lama untuk pencariannya. Cara yang cepat yaitu kita membuat Form dan merancang program untuk pencarian data them. Proses pencarian data kita dapat menggunakan perintah : LOCATE <Expresi-Logika> SEEK <var>
Tetapi hal tersebut bisa kita lakukan mungkin untuk data yang sedikit, untuk data yang banyak,
Misal untuk dalam pencarian data barang : Menggunakan Perintah LOCATE Locate for kd_brg = Thisform.text1.value If Found() *Jika diketemukan . . . Else *Jika tidak diketemukan . . . Endif Menggunakan Perintah SEEK Kode = Thisform.Text1.Value Seek Kode If Found() *Jika diketemukan . . . Else *Jika tidak diketemukan . . . Endif
Page 52 of 82
-| 42
Page 43
TUGAS PRAKTIKUM XII A. Buatlah Form dibawah ini yang digunakan untuk mengedit/merubah data dan menghapus data dari hasil pencarian berdasarkan NIP. Simpan form tersebut dengan nama FORM7.SCX .
Aturlah Properties Objek Form seperti dibawah ini: OBJECT Form1 Label1 PROPERTIES Caption AutoCenter Caption Autosize FontSize FontBold Caption Autosize Caption Autosize Caption Autosize Caption Autosize Caption Autosize Caption NILAI/VALUE PT. .T. True COMPUTER TASIKMALAYA CREATIVE PENCARIAN DATA PEGAWAI .T. True 11 .T. True NIP .T. True NAMA PEGAWAI .T. True TANGGAL LAHIR .T. True ADDRESS .T. True GOLONGAN .T. True SEX
Label2 Label3 Label4 Label5 Label6 Label7
Page 53 of 82
Label7 Label8 Combo1 Command1 Command2 Command3 Command4
Caption Autosize Caption Autosize RowSource RowSourceType Style Caption Caption Caption Caption
SEX .T. True JAM KERJA .T. True 1,2,3 1 - Value 2 DropDown List \<CARI NIP \<EDIT DATA \<HAPUS DATA \<KELUAR LAKI LAKI .T. True PEREAMPUAN .T. True
Object OptionGroup1 : Option1 Caption Autosize Option2 Caption Autosize
-| 43
Page 44
Ketikkan Procedure/Event pada Object dibawah ini : Form1 Procedure Init *MENGOSONGKAN SEMUA OBJEK FORM Thisform.text1.Value="" Thisform.text2.Value="" Thisform.text3.Value=DATE() Thisform.text4.Value="" Thisform.text5.Value=0 Thisform.combo1.Value="" Thisform.optiongroup1.Value = 1 *MENONAKTIFKAN OBJEK FORM KECUALI TEXT1 Thisform.text2.Enabled = .F. Thisform.text3.Enabled = .F. Thisform.text4.Enabled = .F. Thisform.text5.Enabled = .F. Thisform.combo1.Enabled = .F. Thisform.optiongroup1.Enabled = .F.
Page 54 of 82
*MENGAKTIFKAN CURSOR DI TEXT1 thisform.text1.SetFocus Form1 Procedure Load CLOSE DATABASE SET TALK OFF SET ECHO OFF SET SAFETY OFF USE pegawai INDEX ON nip TO pegawai SET INDEX TO pegawai Form1 Procedure Unload Close Database
-| 44
Page 45
Command1 Procedure Click vNIP = ALLTRIM(Thisform.text1.value) SEEK vNIP IF FOUND() *jika diketemukan, Tampilkan data thisform.text1.Value = nip thisform.text2.Value = nama thisform.text3.Value = tgllahir thisform.text4.value = alamat thisform.combo1.Value = gol IF jnske thisform.optiongroup1.Value
Basic - Visual Basic Foxpro thisform.optiongroup1.Value =2 thisform.optiongroup1.Value =1 ENDIF Thisform.text5.Value = jamk ELSE *Jika tidak diketemukan, tampilkan pesan MESSAGEBOX("Data Tidak Diketemukan !") Thisform.init thisform.text1.SetFocus() ENDIF Command2 Procedure Click IF Thisform.Command1.Caption = "\<EDIT DATA" Thisform.Command1.Caption = "\<SIMPAN" Thisform.Command4.Caption = "\<BATAL"
Page 55 of 82
ELSE
*MENGAKTIFKAN OBJEK FORM KECUALI TEXT1 Thisform.text2.Enabled = .T. Thisform.text3.Enabled = .T. Thisform.text4.Enabled = .T. Thisform.text5.Enabled = .T. Thisform.combo1.Enabled = .T. Thisform.optiongroup1.Enabled = .T. *MENGAKTIFKAN CURSOR DI TEXT2 thisform.text2.SetFocus ELSE
-| 45
Page 46 IF Thisform.Command1.Caption = "\<SIMPAN" Thisform.Command1.caption = "\<EDIT DATA" Thisform.Command4.Caption = "\<HAPUS DATA" *merubah
Page 56 of 82
*merubah data replace nip WITH thisform.text1.Value pegawai replace nama WITH thisform.text2.Value berdasarkan hasil tgllahir WITH thisform.text3.Value replace pencarian replace alamat WITH thisform.text4.value replace gol WITH thisform.combo1.Value IF thisform.optiongroup1.Value =1 replace jnske WITH .T. ELSE replace jnske WITH .F. ENDIF replace jamk WITH thisform.text5.Value Thisform.Init ENDIF ENDIF Command3 Procedure Click Tombol = Thisform.command4.Caption IF Tombol = "\<HAPUS DATA" DELETE PACK ELSE Thisform.command1.Caption = "\<EDIT DATA" ENDIF Thisform.Init Command4 Procedure Click Thisform.Release()
-|
Page 57 of 82 | 46
Page 47
Object Form II 8.1 MENGGUNAKAN OBJECT GRID, LISTBOX DAN PAGEFRAME
8.1.1. Object Grid dapat digunakan untuk menampilkan data dari tabel atau juga dapat digunakan dalam pemasukkan data kedalam tabel. Cara pembuatan Object Grid : a. Aktifkan/klik object Grid pada tollbal Form Controls b. Kemudian Drag & Drop pada form designer, sehingga tampilannya seperti disamping :
Object Grid merupakan salah satu object dalam pembuatan suatu program aplikasi yang
c. Kemudian aturlah beberapa properties Grid diantaranya: Properties AllowAddNew ColumnCount DeleteMark GridLine ReadOnly RecordMark RecordSource RecordSourceType Function Untuk mengaktifkan grid supaya dapat menambah record. [.T. Or .F.] Menentukan/membuat jumlah kolom yang diperlukan didalam grid. Untuk menampilkan atau menghilangkan tanda pada saat penghapusan (DELETE) pada Grid. [.T. Or .F.] Untuk mengatur line/garis pembatas baris/kolom. Mengatur agar data didalam Grid hanya dapat dibaca. Untuk menampilkan atau menghilangkan tanda pointer didalam Grid. Menentukan sumber data/tabel yang akan ditampilkan didalam Grid. Menentukan jenis pemanggilan sumber data tabel.
Setelah pengaturan Object Grid, kemudian atur juga properties tiap-tiap kolom didalam grid diantaranya Caption Header tiap-tiap column yang ada didalam Grid.
8.1.2. http://translate.googleusercontent.com/translate_c?hl=en&prev=/search%3Fq%3Dmen... 4/26/2012
Page 58 of 82
8.1.2. Object ListBoxObject ListBox merupakan object yang fungsinya hampir sama dengan object Grid yait dapat menampilkan data dari tabel atau menampilkan data yang kita atur sendiri pada properties RowSource dan RowSourceType. Tetapi object ListBox ini tidak dapat berfungsi sebagai input data kedalam tabel seperti halnya object Grid.
-| 47
Page 48
Cara pembuatan Object ListBox : a. Aktifkan/klik Toolbar ListBox pada Toolbar Form Controls b. Kemudian Drag & Drop Object tersebut pada Form Designer sehingga akan tampil object ListBox pada Form seperti gambar : c. Aturlah Propertiesnya. Properties RowSource RowSourceType Function Menetukan Sumber Data Menentukan/mengatur jenis/tipe ditampilkan kedalam object ListBox.
8.1.3. Object PageFrame
Object PageFrame merupakan object yang berfungsi untuk membagi tampilan menjadi beberapa frame/bagian. Jadi dalam suatu form dapat dibuat menjadi beberapa page/halaman yang terpisah menggunakan object PageFrame. Langkah pembuatan PageFrame : a. Aktifkan/Klik object PageFrame pada Toolbar Form Controls b. Kemudian Drag & Drop object tersebut pada Form Designer sehingga tampilan object tersebut seperti gambar.
c. Aturlah beberapa propertiesnya. Properties PageCount TabStyle Function Menentukan jumlah Page/halaman yang diperlukan Mengatur bentuk tampilan perataan Tab/frame
Page 59 of 82
Kemudian atur juga properties Tiap Page dalam PageFrame tersebut diantaranya Caption untuk tiap tiap Page.
-| 48
Page 49 TUGAS PRAKTIKUM XIII A. Pindah kan drive kerja ke drive kerja masing-masing dengan perintah SET DEFAULT TO. 2. Bukalah kembali form FORM6.SCX . Kemudian aturlah kembali tampilan form tersebut dan tambahkan object Grid sehingga tampilannya seperti dibawah ini :
Aturlah Properties Objek Grid seperti dibawah ini: http://translate.googleusercontent.com/translate_c?hl=en&prev=/search%3Fq%3Dmen... 4/26/2012
Page 60 of 82
Aturlah Properties Objek Grid seperti dibawah ini: OBJECT Grid1 PROPERTIES NILAI/VALUE ColumnCount 7 DeleteMark .F. False ReadOnly .T. True RecordSource Employee RecordSourceType 2 Prompt
Tambahkan isi Procedure/Event pada Object dibawah ini : Command1 Procedure Click (Tombol simpan) APPEND BLANK replace nip WITH thisform.text1.Value replace nama WITH thisform.text2.Value replace tgllahir WITH thisform.text3.Value replace alamat WITH thisform.text4.value replace gol WITH thisform.combo1.Value IF thisform.optiongroup1.Value =2 replace jeniske WITH .T. ELSE replace jeniske WITH .F. ENDIF replace jamk WITH thisform.text5.Value Thisform.Grid1.Refresh thisform.Init Grid1 Procedure AfterRowColChange with thisform .text1.value=nip .text2.value=nama Nova Ardiansyah, S.Kom -| 49
Page 50 .text3.value=tgllahir .text4.value=alamat .combo1.value=gol if jnske .optiongroup1.value=2 else .optiongroup1.value=1 endif .text5.value=jamk Endwith 3. Setelah Form tersebut selesai, jalankan Form dan lihatlah hasil didalam Grid. 4.
Page 61 of 82
4. Simpan kembali Form tersebut . TUGAS PRAKTIKUM XIX A. Bukalah kembali Form FORM7.SCX , kemudian tambahkan Object grid pada form tersebut sehingga tampilan form tersebut seperti dibawah ini :
Aturlah Properties Objek Grid seperti dibawah ini: OBJECT Grid1 PROPERTIES ColumnCount DeleteMark ReadOnly RecordSource RecordSourceType NILAI/VALUE 7 .F. False .T. True Employee 2 Prompt
Tambahkan isi Procedure/Event pada Object dibawah ini : Command1 Procedure Click Thisform.grid1.refresh Command2 Procedure Click Thisform.grid1.refresh 2. Jalankan Form tersebut, kemudian lihatlah hasilnya didalam grid tersebut. 3. Simpan kembali Form tersebut.
-| 50
Page 51
Page 62 of 82
Bekerja Dengan Multi Table 9.1. Preliminary Dalam database yang kompleks dan besar, penggunaan file tabel data sering dipakai lebih dari satu tabel. Sementara secara standar file tabel hanya bisa digunakan satu buah pada saat yang sama. Untuk menggunakan lebih dari satu tabel pada waktu yang bersamaan digunakan perintah SELECT . Bentuk dari perintah SELECT ini adalah : SELECT <daerah-kerja> Contoh : untuk membuat program yang menggunakan 2 file data GAJI.DBF dengan PEGAWAI.DBF, kita dapat melakukan perintah dibawah ini : SELECT 1 USE Pegawai SELECT 2 USE Gaji Or SELECT A USE Pegawai SELECT B USE Gaji
Perintah Untuk Menangani Pengolahan Banyak File lain dengan menggunakan perintah khusus, diantaranya perintah : SET RELATION TO Perintah SET RELATION TO database yang berada di daerah kerja lain, berdasarkan suatu Field kunci tertentu. Sintaknya : SET RELATION TO <Field-kunci> INTO <Alias> Note: Field kunci harus terdapat dalam kedua file tersebut. Field kunci yang dikaitkan harus telah di Index berdasarkan Field kunci.
File-file yang telah dibuka di daerah kerja masing-masing/berbeda dapat dihubungkan satu sam
Perintah ini digunakan untuk menghubungkan / mengaitkan file tabel database aktif dengan file
Page 63 of 82
-| 51
Page 52
TUGAS PRAKTIKUM XX A. Pindah kan drive kerja ke drive kerja masing-masing dengan perintah SET DEFAULT TO. 2. Buatlah tabel dibawah ini untuk menampung data transaksi penjualan barang. With struktur seperti dibawah ini : TRANSAKSI.DBF Field Name No_tran Tgl_tran Kode_lang Total_byr DETILTRAN.DBF Field Name No_tran Kode_brg Jml_beli Type Character Character Numeric Width 5 5 3 Decimal 0 Type Character Date Character Numeric Width 5 8 5 10 Decimal 0
3. Buatlah form untuk pengolahan data transaksi penjualan barang. Simpan form tersebt dnegan nama TRANSAK.SCX . Kemudian aturlah kembali tampilan form tersebut dan tambahkan object Grid sehingga tampilannya seperti dibawah ini :
Page 64 of 82
-| 52
Page 53
Aturlah Properties : Properties Value Autocenter .T. Borderstyle 2 Fixed Dialog Caption Transaksi Penjualan Barang Text1 Maxlength 5 Text3 Maxlength 5 Text4 ReadOnly .T. Edit1 ReadOnly .T. Text5 ReadOnly .T. Text7 ReadOnly .T. Grid1 AllowAddNew .T. DeleteMark .F. RecordSource Temp RecordSourceType 1 Alias ColumnCount 5 Grid1.Column1.Header1 Caption Kode Barang Grid1.Column2.Header1 Caption Nama Barang Grid1.Column2.Header1.Text1 Enabled .F. Grid1.Column3.Header1 Caption Price Grid1.Column3.Header1.Text1 Enabled .F. Grid1.Column4.Header1 Caption Jml Beli Grid1.Column5.Header1 Caption Jml Bayar Grid1.Column5.Header1.Text1 Enabled .F. Command1 Caption \<Simpan Command2 Caption \<Keluar Form1 Ketikkan listing procedure dibawah ini : Form1.Load SET TALK OFF SET ECHO OFF http://translate.googleusercontent.com/translate_c?hl=en&prev=/search%3Fq%3Dmen... 4/26/2012 Object
Page 65 of 82
SET ECHO OFF SET SAFETY OFF CLOSE DATABASES CREATE TABLE temp.dbf (kode_brg c(5), nama_brg c(25), harga n(10), jml_beli n(3),; jml_byr n(10)) USE temp APPEND BLANK CLOSE DATABASES SELECT 1 USE barang INDEX ON kode_brg TO barang USE barang INDEX barang SELECT 2 USE pelanggan INDEX ON kode_lang TO pelanggan USE pelanggan INDEX pelanggan
-| 53
Page 54
SELECT 3 use transaksi INDEX ON no_tran TO transaksi USE transaksi INDEX transaksi SELECT 4 USE detiltran ALIAS detiltran SELECT 20 USE temp ALIAS temp Form1.Init WITH thisform .text1.value="" .text2.value=DATE() .text3.value=""
Page 66 of 82
.text3.value="" .text4.value="" .edit1.value="" .text5.value=0 .text6.value=0 .text7.value=0 SELECT temp ZAP APPEND BLANK .grid1.refresh .text1.setfocus ENDWITH Form1.Unload CLOSE DATABASES DELETE FILE temp.dbf Text1.Lostfocus WITH thisform IF ! EMPTY(.text1.value) SELECT 3 SEEK ALLTRIM(.text1.value) IF FOUND() MESSAGEBOX("No.Transaksi sudah ada !",0+16,"Perhatian") .text1.setfocus Nova Ardiansyah, S.Kom -| 54
Page 55
ENDIF ENDIF ENDWITH Text3.Lostfocus WITH thisform IF ! EMPTY(.text3.value) http://translate.googleusercontent.com/translate_c?hl=en&prev=/search%3Fq%3Dmen... 4/26/2012
Page 67 of 82
IF ! EMPTY(.text3.value) SELECT 2 SEEK ALLTRIM(.text3.value) IF FOUND() .text4.value=nama_lang .edit1.value=alamat ELSE MESSAGEBOX("Kode Pelanggan tidak ada!",0+16,"Perhatian") .text3.setfocus() ENDIF ENDIF ENDWITH Grid1.Column1.Text1.Lostfocus WITH thisform IF ! EMPTY(.grId1.column1.text1.value) SELECT 1 SEEK ALLTRIM(.grid1.column1.text1.value) IF FOUND() .grid1.column2.text1.value=nama_brg .grid1.column3.text1.value=harga ELSE MESSAGEBOX("Kode brg tidak ada !",0+16,"Perhatian") .grid1.column1.text1.setfocus ENDIF ENDIF ENDWITH Grid1.Column1.Text1.KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl *jika tekan tombol F5 IF nKeyCode=-4 DO FORM listbrg ENDIF Nova Ardiansyah, S.Kom -| 55
Page 56
Page 68 of 82
Page 56 Grid1.Column4.text1.InteractiveChange WITH thisform .grid1.column5.text1.value=.grid1.column3.text1.value*.grid1.column4.text1.value SUM temp.jml_byr TO .text5.value ENDWITH Text6.InteractiveChange WITH thisform .text7.value=.text6.value-.text5.value ENDWITH Command1.Click WITH thisform IF ! EMPTY(.text1.value) SELECT 3 *cari no.tran pada tabel transaksi SEEK ALLTRIM(.text1.value) IF ! FOUND() *simpan ke tabel transaksi APPEND BLANK replace no_tran WITH .text1.value replace tgl_tran WITH .text2.value replace kode_lang WITH .text3.value replace total_byr WITH .text5.value *simpan data pada grid ke tabel detiltran SELECT temp GO top DO while ! EOF() IF ! EMPTY(temp.kode_brg) SELECT 4 APPEND BLANK replace no_tran WITH .text1.value replace kode_brg WITH temp.kode_brg replace jml_beli WITH temp.jml_beli SELECT 1 http://translate.googleusercontent.com/translate_c?hl=en&prev=/search%3Fq%3Dmen... 4/26/2012
Page 69 of 82
SELECT 1 SEEK ALLTRIM(temp.kode_brg) replace stok WITH stok-temp.jml_beli
-| 56
Page 57
ENDIF SELECT temp skip ENDDO ENDIF ELSE MESSAGEBOX("Masukkan No.Transaksi!",0+16,"Perhatian") .text1.setfocus ENDIF .init ENDWITH Command2.Click Thisform.release 4. Buatlah Form seperti dibawah ini untuk menampilkan list data barang, kemdian simpan dengan nama LISTBRG.SCX Aturlah Properties List1 : ColumnCount Rowsource RowSourceType =2 = Barang = 2 Alias
Ketikkan Listing Procedure :
List1.DblClick dan Command1.Click transak.grid1.column1.text1.value=barang.kode_ transak.grid1.column1.text1.lostfocus thisform.Release Command2.Click Thisform.release
Page 70 of 82
-| 57
Page 58
Creating Reports 10.1. Preliminary Hampir 70 persen konsentrasi pengembang (programmer) dalam membuat atau mengembangkan sistem atau program adalah pembuatan laporan (report). Tujuan akhir sistem atau program hampir dapat dipastikan adalah laporan (pencetakan) ke kertas. In pembuatan report, pengembang harus membuat report mendekati bentuk laporan manual. Pengaturan printer yang dimilikinya juga membutuhkan waktu yang banyak, untuk itulah programmer harus berkonsentrasi pada laporan. 10.2. Bentuk Laporan bentuk laporan (layout), yaitu sebagi berikut : Title , merupakan judul laporan, yang akan muncul pada awal laporan.
Untuk memahami cara membuat laporan (report) di Visual Foxpro, kita harus memahami
Page Headeruntuk judul field-field (atribut) p dipakai ,
Page 71 of 82
Headeruntuk judul field-field (atribut) p dipakai , Merupakan laporan. judul halaman, Group Header , yang merupakan judul group, ditampilkan untuk mengklasifikasi re berdasarkan group tertentu pada field. Detail , merupakan bagian untuk menampilkan record data yang berulang.
Group Footer , dipakai untuk meletakkan subtotal group record tertentu dan letaknya below. Page Footer , merupakan catatan di bawah halaman, ditampilkan sekali akhir halaman. Summary , merupakan ringkasan yang akan ditampilkan diakhir report.
10.3. Objek-Objek Pembentuk Laporan Dalam pembuatan report di Visual Foxpro, kita banyak menggunakan objekpembentuk report. Kelompok objek pada Toolbar Control Report ( Report Control Toolbar ), seperti gambar dibawah ini :
-| 58
Page 59
Icon
Name Select Object Label Field Line Picture
Function Digunakan untuk memilih objek/mengaktifkan suatu objek didalam laporan (memindahkan atau menghapus objek). Untuk membuat seperti Judul laporan, informasi/keterangan pada laporan. Untuk menampilkan data dari tabel dan sering diletakkan pada bagian Detail pada laporan. Untuk membuat garis pada desain laporan. Digunakan untuk menampilkan perusahaan) pada desain laporan. picture
(bisa berupa log
10.4. Pembuatan
Page 72 of 82
10.4. Pembuatan Report Secara Sama halnya dalam pembuatan Form, dalam pembuatan Report/laporan juga kita dapat Wizard menggunakan fasilitas Wizard. Dengan menggunakan wizard, kita dapat membuat laporan dengan mudah dan cepat dengan cara mengikuti langkah-langkahnya. Langkah Pembuatan Laporan secara Wizard : A. Pilih menu File New Report Wizard Pada kotak dialog Wizard Selection , Pilih : One-to-Many Report Wizard untuk membuat laporan yang datanya lebih dari satu tabel. Report Wizard untuk membuat laporan dari satu tabel. 2. Step 1, memilih Field yang akan ditampilkan pada laporan. Urutannya : Pilih tabel yang akan dibuat laporan. pada laporan.
Pilih beberapa/seluruh field yang akan ditampil
Untuk memilih Beberapa Field satu Persa Untuk Memilih Seluruh Field Tabel Untuk memilih tabel Klik tombol Next>
3. Step 2, menentukan apakah kita akan melakukan Grouping Record. 4. Step 3, Tentukan Style laporan yang kita ingin inginkan. 5. Step 4, Tentukan bentuk laporan (Column atau Row), jumlah kolom dan posisi kertas. 6. Step 5, Tentukan apakah kita akan melakukan pengurutan data. 7. Step 6, Tentukan Judul untuk laporan tersebut. 8. Kemudian klik FINISH, simpan laporan tersebut.
-| 59
Page 60
Menampilkan Field Data pada laporan secara cepat : A. Pilih Quick Report dari menu Report 2. Pilih nama tabel sumber data 3.
Page 73 of 82
3. Pilih bentuk laporan (Column atau Row) 10.5. Memanggil Laporan Setelah kita rancang/desain laporan sesuai dengan keinginan kita, kita tinggal menampilkan laporan tersebut dan melakukan pencetakan ke media kertas atau printer. To menampilkan hasil desain laporan dari Report Desiger , kita tinggal pilih Print Preview pada menu File untuk melihat dilayar monitor atau pilih Print untuk mencetak ke printer. Tetapi untuk memanggil laporan tersebut dari sebuah form yang telah kita buat sebelumnya, kita memerlukan perintah untuk menampilkan laporan tersebut. Perintah Untuk memanggil/menampilkan Laporan : REPORT FORM <nama-file-lap.> PREVIEW REPORT FORM <nama-file-lap.> TO PRINTER Untuk mencetak ke Layar Untuk mencetak ke printer
Perintah tersebut kita ketikkan pada Command Button yang sebelumnya kita buat pada Procedure Click .
TUGAS PRAKTIKUM XXI A. Buatlah laporan data pegawai dari tabel Pegawai.DBF dengan menggunakan caraKemudian simpan file laporan tersebut dengan nama LAPPEG.FRX . Wizard. 2. Field tabel yang ditampilkan pada laporan yaitu : NIP,NAMA,TGLLAHIR,ALAMAT,GOL. 3. Lakukan Peng-Group-an berdasarkan GOL. 4. Pilihlah Style laporan sesuai dengan keinginan. 5. Lakukan Pengurutan berdasarkan field NIP secara Ascending. 6. Berilah Judul laporan LAPORAN DATA PEGAWAI 7. Lihatlah hasil laporan tersebut.
-|
Page 74 of 82 | 60
Page 61 TUGAS PRAKTIKUM XXII A. Buatlah laporan dengan Report Designer dari tabel Pegawai.DBF dengan perintah REPORT . Rancanglah desain laporan dengan menggunakan Report Controls CREATE Toolbar, sehingga tampilannya seperti dibawah ini.
2. Kemudian setelah laporan tersebut didesain, simpanlah laporan tersebut dengan nama LAPPEG1.FRX . 3. Lihatlah hasil laporan tersebut dengan cara PRINT PREVIEW . 4. Bukalah kembali File Form INPUTPEG.SCX dan tambahkan satu tombol lagi pada form them. Aturlah Properties Command Button Tersebut : Caption : \<LAPORAN Kemudian pada Commad Button tambahkan Procedure Click . Untuk memanggil laporan LAPPEG1.FRX dari form tersebut. REPORT FORM LAPPEG1.FRX PREVIEW 5. Kemudian jalankan Form tersebut, cobalah untuk mengklik tombol LAPORAN untuk menampilkan laporan yang telah kita rancang/desain. 6. Simpan kembali form tersebut. TUGAS PRAKTIKUM XXIII A. Buatlah Form dibawah ini yang digunakan untuk memanggil laporan LAPPEG1.FRX untuk dicetak dilayar dan dicetak ke printer.
Page 75 of 82
Aturlah properties masing-masing object form tersebut. 2. Simpan form tersebut dengan nama CETAKLAP.SCX Nova Ardiansyah, S.Kom -| 61
Page 62
TUGAS PRAKTIKUM XXIV A. Buatlah kembali form dibawah ini untuk mencetak data pegawai per golongan dari laporan LAPPEG1.FRX kelayar atau ke printer.
Aturlah properties masing-masing object form tersebut. 2. Simpanlah form tersebut dengan nama CETAKGOL.SCX
Page 76 of 82
-| 62
Page 63
Membuat Menu & Kompilasi 11.1. Preliminary Agar program yang dibuat lebihmudah dipakai, pengembang perlu membuat menu. Menu merupakan salah satu objek Visual Foxpro. Dengan menu, pemakai akhir (end user) hanya memilih menu untuk menjalankan aplikasi tertentu. File menu di Visual Foxpro mempunyai extensi file .MNX dan file memonya .MPR. 11.2. Merancang Menu Perencanaan menu yang tepat sangat penting untuk meyakinkan bahwa semua fungsi dalam aplikasi yang kita buat akan dimanfaatkan oleh pemakai secara maksimal dan tidah confusing. Pada saat merancang menu pertimbangkan pedoman berikut ini : Organisasikan sistem menurut tugas yang akan dilakukan user, bukan menurut hirarki program dalam aplikasi.
Page 77 of 82
program dalam aplikasi. Berikan judul yang memiki arti yang jelas dan mudah bagi setiap menu. Organisasikan item-item menu menurut frekuensi penggunaannya. Buat garis pemisah diantara kelompok ke kelompok item menu. Batasi jumlah item dimenu pada saat satu layar komputer Juka panjangnya melebih panjang layar komputer. Jika jumlahnya melebihi panjang layar, buatlah submeu untuk menu item yang sesuai Pilih tombol akses dan shortcut keyboard bagi menu dan item menu Gunakan kata yang jelas makanya bagi2 item-item menu. Gunakan kombinasi huruf besar dan huruf kecil pada item menu. Untuk menyajikan semua fasilitas seperti diatas, misalnya dibuatlah rancangan menu as follows: Main Menu File Input Data Pegawai Edit & Hapus Data Pegawai Pencarian Data Pegawai Keluar Report Information Laporan Pegawai keseluruhan Laporan Pegawai Per Golongan Tentang Program Submenu
-| 63
Page 64
11.3. Membuat Menu include: 11.3.1 Membuat Menu Lewat Menu Utama Untuk membuat menu lewat menu tama, caranya adalah : Dari menu utama, pilih File > New Pilih File Type nya > Menu Klik New File
Untuk membuat menu di Visual Foxpro ada beberapa cara yang bisa kita lakukan, yaitu
11.3.2 Membuat Menu http://translate.googleusercontent.com/translate_c?hl=en&prev=/search%3Fq%3Dmen... 4/26/2012
Page 78 of 82
11.3.2 Membuat Menu Lewat Quick Menu Untuk membuat menu lewat langkahnya adalah :
Quick Menu,
Di Project Manager, pilih tab Other > Menus Klik tombol New Pada kotak dialog New Menu , klik Menu sehingga tampil Menu Designer
11.3.3 Men-generate Menu Untuk menjalankan menu harus di generate dahulu, sehingga menjadi file berekstensi .MPR . cara men-generate menu sebagai berikut : A. Di Project Manager , pilih tab Other > Menus 2. Pilih Menu 3. Pilih Menu > Generate ... > Generate 4. Tentukan nama file menu tersebut.
-| 64
Page 65 11.3.4 Membuat Menu SDI ( Single-
Basic - Visual Basic Foxpro 11.3.4 Membuat Menu SDI ( Singledocument Interface )
Page 79 of 82
Menu SDI adalah menu yang tampil pada window SDI, kita harus menandai bahwa menu tersebut akan digunakan pada form SDI saat kita merancang menu them. Untuk membuat menu SDI, pada saat menu designer tampil : Pilih menu View General Options Aktifkan tanda cek Top-Level Form
Single-Document Interface (SDI). Untuk membuat men
TUGAS PRAKTIKUM XXV A. Buatlah sebuah menu dengan rancangan seperti dibawah ini : Main Menu File Submenu Input Data Pegawai Edit & Hapus Data Pegawai Pencarian Data Pegawai Keluar Laporan Pegawai keseluruhan Laporan Pegawai Per Golongan Tentang Program
Report Information
Untuk membuat submenu, pilih Result > Submenu , kemudian klik tombol Edit .
Untuk mengisi perintah pada tombol keluar, pilih Result > Procedure , kemudian klik Edit . Kembali lagi ke pilihan Menu Bar, pilih pada Menu Level .
Page 80 of 82
-| 65
Page 66
Kemudian ketikkan listing programnya sebagai berikut :
2. Buatlah sebuah form untuk digunakan menampilkan menu. Rancanglah form tersebut seperti dibawah ini dan kemudian simpan dengan nama MenuUtama.scx :
Properties Form : Object Form1 Properties Caption ShowWindow Nilai/Value Program Aplikasi Pegawai 2 As Top-Level Form
Page 81 of 82
WindowState Ketikkan Procedure pada object Form Form1 Procedure Active Do menu.mpr with thisform,.t. 3. Jalankan form tersebut dan lihatlah hasilnya.
2 Maximized
-| 66
Page 67 11.3.5 Kompilasi Project
Pada waktu kita membuat program, mungkin ada kesalahan yang terjadi. To memudahkan kita mengetahui kesalahan dan lokasi kesalahan, kita perlu men-debug kesalahan programs. Jika ingin mendistribusikan program ke komputer lain, kita perlu mengkompilasi. Visual Program yang telah dikompilasi dapat dipakai pada komputer yang tidak ada sistem Foxpro. Membuat File EXE dari Project pegawai : A. Buatlah program utama dan beri nama file dengan Prgutama.prg . Pada tab Code , pilih , kemudian klik New . Kemudian ketikkan listing perintah Programs didalamnya seperti dibawah ini :
2. Jadikan Prgutama.prg menjadi Set Main , dengan mengklik kanan pada Prgutama dan pilih Set Main . 3. Di Project Manager , pilih Build... , muncul kotak Build Option .
Page 82 of 82
4. Pilih Win32 Executable/COM server (exe) di Build Action 5. Pilih Option > Recompile All Files , untuk mengkompilasi seluruh perintah yang pernah dikompilasi.
-| 67

Belajar Foxpro

Uploaded by

Copyright:

Available Formats

Belajar Foxpro

Uploaded by

Document Information

Original Title

Copyright

Available Formats

Share this document

Share or Embed Document

Sharing Options

Did you find this document useful?

Is this content inappropriate?

Copyright:

Available Formats

Belajar Foxpro

Uploaded by

Copyright:

Available Formats

Basic - Visual Basic Foxpro

Basic - Visual Basic Foxpro

Preliminary Microsoft Visual Foxpro is a software that is saplikasi business orientation,

Making the database: Table, View, Relation Table

Basic - Visual Basic Foxpro

Table, View, Relation Table

Provision of Access functional for the user: Form, Menu, Toolbar

Provision of Access Information for the user: Query, Report, Graph

Testing and debuging

Application Database Application Process Diagram Nova Ardiansyah, S.Kom | 1

Toolbar 1.3.2. Menu Bar

Basic - Visual Basic Foxpro

1.3.4 Project Manager Window

Nova Ardiansyah, S.Kom

In addition to the properties window, setting

Basic - Visual Basic Foxpro

Basic - Visual Basic Foxpro

Nova Ardiansyah, S.Kom

Basic - Visual Basic Foxpro

Basic - Visual Basic Foxpro

Nova Ardiansyah, S.Kom

Basic - Visual Basic Foxpro

Browsing (example: Picture property).

Textbox EditBox Commad Button Option CheckBox ComboBox Grid Image

Basic - Visual Basic Foxpro

taken from a separate file. Used to create a line. TASK Practicum I

Basic - Visual Basic Foxpro

3. Save the form circuitry name FORM1C.SCX

Nova Ardiansyah, S.Kom

Basic - Visual Basic Foxpro

Part of a program that is run when Events are met / true

Basic - Visual Basic Foxpro

Nova Ardiansyah, S.Kom

If nilai_akhir <55, Not Passed

Basic - Visual Basic Foxpro

Nova Ardiansyah, S.Kom

Basic - Visual Basic Foxpro

Nova Ardiansyah, S.Kom

Basic - Visual Basic Foxpro

Nova Ardiansyah, S.Kom

Basic - Visual Basic Foxpro

Object OptionGroup1: Option1 Caption Nova Ardiansyah, S.Kom

Basic - Visual Basic Foxpro

AutoSize Caption AutoSize

. T. - True NAME OF PURCHASER . T. - True

Basic - Visual Basic Foxpro

Set the object properti Timer1 and Timer2: Interval = 100

Basic - Visual Basic Foxpro

Nova Ardiansyah, S.Kom

Basic - Visual Basic Foxpro

Nova Ardiansyah, S.Kom

The logic of repetition / looping

Basic - Visual Basic Foxpro

Parts of the program will be repeated

Parts of the program will be repeated

Nova Ardiansyah, S.Kom

Basic - Visual Basic Foxpro

Parts of the program will be repeated

Nova Ardiansyah, S.Kom