Foxpro last class

[blank]

ji bhie mene link li hy

[Haseeb Alamgir]

میں دس بجے تک آ جاؤنگا انشاء اللہ
آپ نے مینو والی فائل کاابھی تک جواب نہیں دیا
کہ ٹھیک ہو گئی ہے کہ نہیں

[Haseeb Alamgir]

آپ نے جو فائل شئیر کی ہے اس کا لنک درست نہیں ہے
اس کو چیک کر لیں
یا پھر کسی اور جگہ پر اپ لوڈ کر دیں
اطلاع

[mfranakar]

حسیب بھائی
السلام و علیکم
آپ کو کامیابی کے ساتھ ہم سب کو فوکس پرو سکھانے کیلئے
آپ کو خراج تحسین پیش کیا جاتا ہے




اللہ آپ کے علم میں اسی طرح مزید ترقی عطا کرے

اپکا چھوٹا بھائی
محمد فیصل

[Haseeb Alamgir]

آپ کا اظہارِ محبت بہت اچھا لگا
بہت بہت شکریہ

[Haseeb Alamgir]

یہ لیجیے ۔۔۔آپ کے لیے ایڈ ریکارڈ کی فائل ہے

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

[Haseeb Alamgir]

اس کو ایسی طرح سے کا پی کر کے پیسٹ کر دیں اور پروگرام چلائیں ۔۔
مینو والی فائل میں۔۔۔نام درست کر لیں اگر درست نہ ہوں تو

[Haseeb Alamgir]

یہ آپ کے لیے ری اندیکس کی فائل ہے دوبارہ تیار کی گئی ہے اس کو بھی کاپی پیسٹ کر لیں

*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

[Haseeb Alamgir]

سب سے پہلے تو میں آپ تمام دوستوں کا شکریہ گزار ہوں کہ آپ نے اس کلاسس کو نہ کی پسند فرمایا بلکہ بہت سے دوستوں نے بہت کچھ سیکھا۔۔یہ سب سے بڑی خوشی کی بات ہے

[Haseeb Alamgir]

اب اکثر دوستوں کو شوق ہورہا ہے کہ وہ بھی فوکس پرو پر کام شروع کریں تو اس کے لیے آپ سے گزارش یہ ہے کہ سب سے اہم کام جو ہے وہ ہے اپنی ڈیٹا بیس کی فیلڈز کو بنانا
آپ ایک سوفٹ وئیر کو تیار کرنے کے لیے ایک سے زیادہ ڈیٹا بیس بھی اپنے سوفٹ وئیر میں رکھ سکتے ہیں اور ایک بڑی ڈیٹا بیس بھی َ۔بڑی سے مراد ہے زیادہ فیلڈ والی۔ تو جب بھی کوئی سوفٹ وئیر ڈیزائن کرنے کا سوچیں تو سب سے پہلے کاغذ پر اپنی ڈیٹا بیس تیار کریں اور پھر فوکس پرو پر
تو آپ کو بہت آسانی ہوگی وضاحت کے لیے ایک تصویر منسلک کر رہا ہوں

[Haseeb Alamgir]

[jahanzaib32]

good