ji bhie mene link li hy
ji bhie mene link li hy
میں دس بجے تک آ جاؤنگا انشاء اللہ
آپ نے مینو والی فائل کاابھی تک جواب نہیں دیا
کہ ٹھیک ہو گئی ہے کہ نہیں
آپ نے جو فائل شئیر کی ہے اس کا لنک درست نہیں ہے
اس کو چیک کر لیں
یا پھر کسی اور جگہ پر اپ لوڈ کر دیں
اطلاع
آپ کا اظہارِ محبت بہت اچھا لگا
بہت بہت شکریہ
یہ لیجیے ۔۔۔آپ کے لیے ایڈ ریکارڈ کی فائل ہے
CLEAR
DO SET_FUN
DEACTIVATE WINDOW ALL
*
DO WHILE .t.
USE SHOP INDEX NOS
SET COLOR TO G+
@ 00,00 to 35,100 double
SET COLOR TO
*
SET COLOR TO GR+
ts1="W E L C O M E M Y N E W P R O G R A M"
ts2="FRIENDS GROUP OF COMPANIES"
@ 1,(100-LEN(ts1))/2 say ts1
@ 2,(100-LEN(ts2))/2 say ts2
@ 33,40 say " Press Enter for EXIT"
SET COLOR TO
*
SET COLOR TO W+/B*
@ 4,01 say "INPUT MODE"
SET COLOR To
*
*Mdate=CTOD(" / / ") && NOTE...IF YOU WANT TO ADD DATE THEN FORMAT WILL AS
STORE SPACE (06) TO MRNO
STORE SPACE (25) TO MNAME
STORE SPACE (25) TO MREMARKS
*
SET COLOR TO GR+
@ 05,10 say "ROLL NO"
SET COLOR to
*
@ 05,40 get mrno pict '999999'
READ
@ 33,40 say SPACE(35)
*
IF mrno=SPACE(06)
clEAR
CLOSE DATA
RETURN
ENDIF
*
LOCATE FOR MRNO=RNO
IF FOUND ()
SET COLOR TO 3+
@ 12,15 SAY 'DUPLICATE NOT ALLOWED'
SET COLOR TO
WAIT WINDOW
CLEAR
@ 12,15 SAY SPACE (35)
LOOP
SET COLOR TO
ENDIF
*SCREEN
@ 21,30 SAY SPACE(20)
SET COLOR TO GR+
@ 07,10 SAY "STUDENT'S NAME"
@ 09,10 SAY "REMARKS"
SET COLOR TO
*
SET COLOR TO BG
*@ 07,40 GET MDATE PICT (" / / ")
@ 07,40 GET MNAME PICT '@!'
@ 09,40 GET MREMARKS PICT '@!'
READ
SET COLOR TO
*
YN=SPACE(1)
*SET COLOR TO
SET COLOR TO G+
@ 30,35 SAY "DO YOU WANT TO SAVE Y/N" GET YN PICT "!" VALID yn$'YN'
SET COLOR TO
READ
@ 30,35 SAY SPACE(30)
IF YN="Y"
APPEND BLANK
REPLACE RNO WITH MRNO
REPLACE NAME WITH MNAME
REPLACE REMARKS WITH MREMARKS
CLEAR
ENDIF
*
IF YN="N"
CLEAR
LOOP
ENDIF
ENDDO
RETURN
اس کو ایسی طرح سے کا پی کر کے پیسٹ کر دیں اور پروگرام چلائیں ۔۔
مینو والی فائل میں۔۔۔نام درست کر لیں اگر درست نہ ہوں تو
یہ آپ کے لیے ری اندیکس کی فائل ہے دوبارہ تیار کی گئی ہے اس کو بھی کاپی پیسٹ کر لیں
*WINREINDEX
CLEAR
DO SET_FUN
SET CLOCK OFF
SET COLOR TO 3+
@ 01,01 to 15,78
SET COLOR TO
SET COLOR TO 6+
@ 07,21 to 10,52
SET COLOR TO
@ 08,23 say "Please wait .....Re-Indexing "
DO SET_FUN
use SHOP.dbf
DELETE FILE NOS.IDX
DELETE FILE NAMES.IDX
index on rno to nos
index on name to names
*
CLOSE DATABASES
DEFINE WINDOW msg FROM 11,10 TO 15,50 doubLE shadow COLOR SCHEME 7
ACTIVATE WINDOW msg
@ 1,10 say "Re-Indexing completed...."
WAIT WINDOW "Press any key to continue...."
DEACTIVATE WINDOW msg
CLEAR
RETURN
سب سے پہلے تو میں آپ تمام دوستوں کا شکریہ گزار ہوں کہ آپ نے اس کلاسس کو نہ کی پسند فرمایا بلکہ بہت سے دوستوں نے بہت کچھ سیکھا۔۔یہ سب سے بڑی خوشی کی بات ہے
اب اکثر دوستوں کو شوق ہورہا ہے کہ وہ بھی فوکس پرو پر کام شروع کریں تو اس کے لیے آپ سے گزارش یہ ہے کہ سب سے اہم کام جو ہے وہ ہے اپنی ڈیٹا بیس کی فیلڈز کو بنانا
آپ ایک سوفٹ وئیر کو تیار کرنے کے لیے ایک سے زیادہ ڈیٹا بیس بھی اپنے سوفٹ وئیر میں رکھ سکتے ہیں اور ایک بڑی ڈیٹا بیس بھی َ۔بڑی سے مراد ہے زیادہ فیلڈ والی۔ تو جب بھی کوئی سوفٹ وئیر ڈیزائن کرنے کا سوچیں تو سب سے پہلے کاغذ پر اپنی ڈیٹا بیس تیار کریں اور پھر فوکس پرو پر
تو آپ کو بہت آسانی ہوگی وضاحت کے لیے ایک تصویر منسلک کر رہا ہوں
good
Bookmarks