مباحث متفرقه

**rahro** · دوشنبه 15 اسفند 1384, 21:02 عصر

سلام جناب تاوک
منظورم از محکم, قابل اطمینان برای پروژهای بزرگ , بود اخه بیشتر پروژ هایی که دوستان در سایت گذاشته بودند از این روش استفاده نکردند.
سوالی دیگر هم داشتم و ان اینکه چطور میتوانم یک آرایه دو بعدی رو به یک گرید متصل کنم . منظورم اینه بجای استفاده از table از آرایه استفاده کنم
متشکرم

**kia1349** · سه شنبه 16 اسفند 1384, 06:17 صبح

خود شرکت دنیای پردازش این برنامه رو تحت داس و با زبان فاکس دارد
زنگ بزنید شرکت و با آقای حکیمی صحبت کنید

**rezaTavak** · سه شنبه 16 اسفند 1384, 07:57 صبح

سلام

جناب رهرو:
برنامه نویسی شی گرا یک موضوع به اثبات رسیده است. گرچه سرعت در این نوع برنامه ها بسیار کندتر است اما درک برنامه از لحاظ کلی بیشتر است. محدود کردن برنامه در یک چیز کوچک.

مثل زمانی که برنامه نویسی ساختیافته و غیر ساختیافته مطرح بود. استفاده از دستور Goto آن زمان توصیه نمی شد. امروز هم همین است. شی گرایی محض توصیه می شود. که جاوا سردمدار آن است.

اما در مورد آرایه در گرید هم قبلا بحث شده است. بایستی آن به طور موقت داخل یک جدولی یا ویو کپی شود.

**naderigh** · چهارشنبه 17 اسفند 1384, 09:00 صبح

اقای توکل برنامه کپی لطفا ....

**rezaTavak** · چهارشنبه 17 اسفند 1384, 19:54 عصر

سلام

دارم مینویسم

خیلی سرم شلوغه . چشم

**rezaTavak** · چهارشنبه 17 اسفند 1384, 23:28 عصر

سلام

ببخشید آخر سال همه گرفتارند:





**************************************************  ************************************************

*            Procedure Make backup on midnight

*            Last Update : 03/08/2006

*            By : M.R.TAVAKOL

*            Parameters:

*                TableName : table name that you chack it

*                Path : path for filename destention

*        Attention*************Attention*************Attent  ion

*        ***** Warning: if you use timer in other part of program

*                it can be slow or siop your codes!

*              *********************** 

**************************************************  ************************************************

LPARAMETERS tcTableName, tcPath





#DEFINE MESSAGEUSERBYANOTHER "&#200;&#199;&#228;˜ &#209;&#199; ˜&#211;&#237; &#207;&#237;&#209; &#200;&#199;&#210; ˜&#209;&#207;&#229; &#199;&#211;&#202;"

#DEFINE MESSAGEFILENOTFOUND  "&#221;&#199;&#237;&#225;&#237; &#200;&#229; &#199;&#237;&#228; &#199;&#211;&#227; &#230;&#204;&#230;&#207; &#228;&#207;&#199;&#209;&#207;"



_SCREEN.AddObject("tmrBackup","tmrMyTimer")

_SCREEN.tmrBackup.cPathBackup = tcPath

_SCREEN.tmrBackup.cTableName = tcTableName





DEFINE CLASS tmrMyTimer as Timer 

    Interval    = 1000  && On a minute.

    cTableName  = ''     && Table Name that you want to create backup

    cToday = ''

    cBackUpname = ''

    cPathBackup = ''

    PROCEDURE INIT &&Initial Properties

        LOCAL o

        o = THIS

        o.cToday = o.ToDay()

        o.cBackupName = o.cToDay+".DBF"

    ENDPROC

**************************************************  ************************************************

*            Procedure Make backup on midnight

*            Last Update : 03/08/2006

*            By : M.R.TAVAKOL

*            Parameters:

*                None

*            Return: Today

*

*               

**************************************************  ************************************************



    FUNCTION ToDay

        LOCAL lcPreDateSet, lcPreCenturySet, lcToDay

        lcPreDateSet = SET("Date")

        lcPreCenturySet = SET("Century")

        SET CENTURY ON 

        SET DATE YMD

        lcToDay      = STRTRAN(DTOC(DATE()),"/","")

        SET CENTURY &lcPreCenturySet

        SET DATE &lcPreDateSet

        RETURN lcToday

    ENDFUNC 



**************************************************  ************************************************

*            THIS Procedure check for midnight and if occure create backup

*            Last Update : 03/08/2006

*            By : M.R.TAVAKOL

*            Parameters:

*                none

*                

*            Return Values:

*               none

*               

**************************************************  ************************************************



    PROCEDURE timer 

        WITH THIS

            LOCAL lcToday

            lcToDay      = THIS.Today()

            IF lcToday > THIS.cToday

                .Makebackup(.cTableName, .cPathBackup+"\"+.cBackUpname )

                .cToday = lcToday

                .cBackUpname = .cToday +".dbf"

            ENDIF

        ENDWITH

    ENDPROC



**************************************************  ************************************************

*            THIS Function Make backup

*            Last Update : 03/08/2006

*            By : M.R.TAVAKOL

*            Parameters:

*                TableName : table name that you chack it

*                FileName : path and filename destention

*            Return Values:

*               -1: Table Open By Another

*               -2: Table Dose not exist?!

*               0: Successful!

*               

**************************************************  ************************************************

    FUNCTION MakeBackup

        LPARAMETERS tcTablename, tcDestFile

        LOCAL lnUseByAnother, lnPreSelect, lnSelectUse

        lnUseByAnother = UseByAnother(tcTablename)

        lnPreSelect = SELECT(0)

        DO CASE 

            CASE INLIST(lnUseByAnother,1,3)

                MESSAGEBOX(MESSAGEUSERBYANOTHER,16)

                RETURN -1

            CASE lnUseByAnother=2

                lnSelectUse = USEDBF(tcTablename)

                COPY TO (tcDestFile)

                IF lnSelectUse = 2

                    USE

                ELSE 

                    SELECT (lnPreSelect)

                ENDIF

                RETURN 0

                MESSAGEBOX("Ok")

            CASE lnUseByAnother=4

                MESSAGEBOX(MESSAGEFILENOTFOUND,16)

                RETURN -2

        ENDCASE 

    ENDFUNC

        

        

ENDDEFINE











**************************************************  ************************************************

*            THIS Function determin Table use by another

*            Last Update : 02/16/2004

*            By : M.R.TAVAKOL

*            Parameters:

*                TableName : table name that you chack it

*            Return Values:

*               1: File Open By Another share

*               2: File Not Open By Another

*               3: File Open Exclusive

*               4: File Dose not exist!

**************************************************  ************************************************

FUNCTION UseByAnother

    LPARAMETERS lcTableName &&TableName And Path and Extention Must Be Entered

    LOCAL lnFileHandle1

    lnFileHandle1=FOPEN(lcTableName,0)

    IF lnFileHandle1>0 THEN

        =FCLOSE(lnFileHandle1)

        lnFileHandle1=FOPEN(lcTableName,2)

        IF lnFileHandle1<0

            RETURN 1        && File Open By Another Share

        ELSE 

            =FCLOSE(lnFileHandle1)

            RETURN 2         && File not Open By Another

        ENDIF

    ELSE

        IF FILE(lcTableName)

            RETURN 3      && File Open Exclusive

        ELSE

            RETURN 4       && File Dose not exist!

        ENDIF

    ENDIF

ENDFUNC











**************************************************  ************************************************

*            THIS Function use or select table

*            Last Update : 02/16/2004

*            By : M.R.TAVAKOL

*            Patameters:

*                table name that select or use

*            Return Values:

*                 1: select only

*                 2: select new area and use

* 

*             Remeber: it work on this datasession

* 

**************************************************  ************************************************

FUNCTION USEDBF

LPARAMETERS tcTableName

IF USED(tcTableName)

    SELECT (tcTableName)

    RETURN 1

ELSE

    SELECT 0

    USE (tcTableName)

    RETURN 2

ENDIF

ENDFUNC

البته چیزی که هست اینه که با سرعت نوشتم و مشکل حتما داره خودتون روش تست کنید.

روش صدا زدن:







CreateBackup("table.dbf","c:\")

**naderigh** · پنج شنبه 18 اسفند 1384, 07:09 صبح

اقا بسیار بسیار سپاسگزارم

**rahro** · پنج شنبه 18 اسفند 1384, 12:08 عصر

نوشته شده توسط rezaTavak

سلام

جناب رهرو:
برنامه نویسی شی گرا یک موضوع به اثبات رسیده است. گرچه سرعت در این نوع برنامه ها بسیار کندتر است اما درک برنامه از لحاظ کلی بیشتر است. محدود کردن برنامه در یک چیز کوچک.

مثل زمانی که برنامه نویسی ساختیافته و غیر ساختیافته مطرح بود. استفاده از دستور Goto آن زمان توصیه نمی شد. امروز هم همین است. شی گرایی محض توصیه می شود. که جاوا سردمدار آن است.

اما در مورد آرایه در گرید هم قبلا بحث شده است. بایستی آن به طور موقت داخل یک جدولی یا ویو کپی شود.

اقا رضا سلام
من بانکهای اطلاعاتی خود را در محیط DataEnvironment باز نموده ام و با توجه به گفته شما در خصوص گرید , یک table که نام آنرا از توابع ایجاد یک نام به صورت تصادفی بدست آوردم بصورت زیر ساختم
file_new=SYS(2015)
SELECT 0
create table &file_new (mol n(10),mbpr n(10), datpr c(10), mbgh n(10), datsr c(10), rd n(3))
و این table رو به گرید اتصال دادم ولی در انتها کارم که میخواهم این table رو حذف کنم خطای
file is use رو دریافت میکنم چطور میتوانم این فایل رو ببندم و حذف کنم
با فرمان use به تنهایی امتحان کردم مثمر ثمر نبود !؟

**rezaTavak** · پنج شنبه 18 اسفند 1384, 12:38 عصر

سلام

شاید DataSession درست نباشد.

اول با تابع used باز بودن جدول را تست کنید.

**rahro** · جمعه 19 اسفند 1384, 10:27 صبح

نوشته شده توسط rezaTavak

سلام

شاید DataSession درست نباشد.

اول با تابع used باز بودن جدول را تست کنید.

سلام
منظورتون رو در خصوص خط اول متوجه نشدم
اینکار رو کردم فرمان used نشان میده که فایل بازه ولی فرمان use نمی تواند فایل رو ببندد!؟
خواهش میکنم یک دفعه دیگه پست قبلی مرا مطالعه کنید و ببنید ایرادی ندارد!؟
منتظرم
رهرو

**rezaTavak** · جمعه 19 اسفند 1384, 10:33 صبح

سلام

من که فکر به جایی نمیرسه. فعلا این هفته هم گزینش دارم اگر تا شنبه صبح برام فایلتو بفرستی یه کاریش میکنم. اما هفته بعد نیستم.

**rezaTavak** · شنبه 20 اسفند 1384, 18:46 عصر

سلام

معلومه که درست کار نمی کنه باید همون خطی که شما از use استفاده میکنید اینطوری باشه:







         IF USED(&f_n)

            SELECT (&f_n)

            use 

            MESSAGEBOX('&#200;&#199;&#210;&#199;&#211;&#202; &#227;&#212;˜&#225; &#199;&#237;&#228;&#204;&#199;&#211;&#202; &#200;&#211;&#202;&#229; &#228;&#227;&#237;&#212;&#229; ')

         ENDIF

در صمن فایلی ضمیمه ای که گذاشتید را پاک کنید تا کسی از برنامه شما استفاده نکند.

چون عجله دارم بقیه توضیحات سه شنبه (تا سه شنبه کار دارم)

مثلا یکیش اون حلقه برای تست باز بودن دیگه چیه؟

**rahro** · شنبه 20 اسفند 1384, 19:52 عصر

سلام از لطفی که کردید متشکرم
اون حلقه رو عمدا" گذاشتم تا خیلی سریع از رویش رد نشوید و مشخص کند خطا کجاست .
منتظر بقیه راهنمایهای شما هستم

**sassan** · دوشنبه 22 اسفند 1384, 16:57 عصر

از دوستان ... کسی می داند که در یک گرید چگونه یک combo box را بعنوان یک ستون معرفی کرد ؟

**binyaz2003** · دوشنبه 22 اسفند 1384, 21:04 عصر

شما باید به جای تکست باکس اونو پاک کنی و یک کامبو بزاری و خاصیت spared ستون رو هم .f. کنی

**sassan** · سه شنبه 23 اسفند 1384, 10:48 صبح

ممنون آقای بینیاز ولی مشکل اینه که من چگونه اینکار رو بکنم ... با دستور AddObject اینکار رو کردم ولی خطاهای مختلفی می دهد .

**rezaTavak** · سه شنبه 23 اسفند 1384, 10:57 صبح

سلام

ددر حال طراحی فرم که هستید اینکار را بکنید.

**sassan** · سه شنبه 23 اسفند 1384, 12:02 عصر

آقای توکل در زمان طراحی فرم شما نمی توانید حالت TEXT را به combo تغییر دهید . یعنی که من نتوانستم ... برای همین هم راهنمایی خواستم .

**binyaz2003** · سه شنبه 23 اسفند 1384, 12:39 عصر

گرید رو انتخاب کنید و از پنجره مشخصات ستون مورد نظر رو و بعد تکستباکس مورد نظر رو انتخاب کنید بعد روی گرید یک کلیک کنید بعد کلید delete رو بزنید پاک میشه در همون حالت یک کامبو انتخاب کنید و رو ستون مربوطه کلیک کنید

**sassan** · چهارشنبه 24 اسفند 1384, 09:30 صبح

جناب آقای بینیاز ... از راهنمایتان سپاسگذارم ... انجام شد.

**naderigh** · چهارشنبه 24 اسفند 1384, 09:46 صبح

با سلام خدمت تمامی دوستان
من یک مشکل دارم برای ساختن گزارشات به شکل pdf اگر در محیط ویندوز 98 این گزارشات ساخته شود هیچ مشکلی نیست منظورم جستجو در داخل فایل ساخته شده یا به عبارتی جستجوی یک کلمه در فایل pdf ولی اگر با xp فایل مربوطه را بسازم جستجو عبارت کار نمیکند
لطفا راهنمائی فرمائید

**kia1349** · شنبه 27 اسفند 1384, 18:29 عصر

مربوط به سوال آقای نیکنام

**rahro** · جمعه 18 فروردین 1385, 14:22 عصر

سلام
به تازگی پرو‍ژام به هنگام باز شدن خطای عجیبی میدهد که تا کنون نتوانستم این خطا را رفع کنم ! این خطا به هنگامی پیش می آید که میخواهم دیتابیس را باز کنم
البته با فرمان ذیل :
sal_path=SYS(5)+SYS(2003)
detabase=sal_path+"\dbf\filesd shared "
OPEN DATABASE &detabase
عکس خطای مربوطه و دیتابیس مورد ذکر را به ضمیمه میگذارم امید است اساتید در رفع آن کمک کنند
رهرو

**rahro** · شنبه 19 فروردین 1385, 05:12 صبح

نوشته شده توسط rahro

سلام
به تازگی پرو‍ژام به هنگام باز شدن خطای عجیبی میدهد که تا کنون نتوانستم این خطا را رفع کنم ! این خطا به هنگامی پیش می آید که میخواهم دیتابیس را باز کنم
البته با فرمان ذیل :
sal_path=SYS(5)+SYS(2003)
detabase=sal_path+"\dbf\filesd shared "
OPEN DATABASE &detabase
عکس خطای مربوطه و دیتابیس مورد ذکر را به ضمیمه میگذارم امید است اساتید در رفع آن کمک کنند
رهرو

سلام
سه خط فوق را به صورت ذیل تغییر دادم و مشکل حل شد!!!
sal_path=SYS(5)+SYS(2003)+'\dbf\'
SET PATH TO (sal_path)
OPEN DATABASE filesd SHARED
البته هنوز علت را نیافتم !

**binyaz2003** · شنبه 19 فروردین 1385, 21:30 عصر

یهترین گزینه :

cpath=addbs(sys(5)+sys(2003))

**ali_kolahdoozan** · چهارشنبه 23 فروردین 1385, 08:18 صبح

با سلام به همه

این سوال رو اینجا مطرح می کنم چون به نظرم بچه های فاکس پرو کار تجربشون از بقیه بیشتره

چند وقت پیش دیدم یک عدع مدعی بودند قفلهای سخت افزاری رو حتی به صورت سخت افزاری کپی می کنند و خوب این کار شدنی است . اما این قفلها رمز گزاری میشه و دیگه دسترسی به اون رمز ممکن نیست . آیا این کار شدنی است . و اصلا این قفلها با وجود هزینش امنیت داره .
مثلا شگرد چطوره ؟

**mreza_adeli58** · چهارشنبه 23 فروردین 1385, 21:54 عصر

با سلام خدمت اساتید محترم .
بنده یه فرمی رو ساختم و بعد از اینکه اونو exe کردم و اجرا میکند یه window بزرگ که مربوط به صفحه اصلی فاکس پرو هست هم با فرم من ظاهر میشه . به چه طریق عمل کنم که ظاهر نشه ؟
اگر راهنماییم کنید ممنون میشم .

**rezaTavak** · پنج شنبه 24 فروردین 1385, 06:45 صبح

فرم اصلی فاکس پرو متغیر سیستمی _screen است آن را می توانید مانند یک فرم مخفی کنید. visible = .f.

یا داخل config.fpw
screen = off

اما چون فرم شما داخل این پنجره به طور پیش فرض است باید پنجره شما مستقل بوده باشد. یعنی شما مشخصه ShowWindow فرمتان را باید عدد یک قرار دهید.

**mreza_adeli58** · پنج شنبه 24 فروردین 1385, 10:24 صبح

ممنون از راهنماییتون . مشکلم حل شد .

**mreza_adeli58** · پنج شنبه 24 فروردین 1385, 11:25 صبح

با سلام .
اگر دو کامپیوتر یکی در دفتر و یکی در منزل داشته باشیم چطوری میشه با مودم (در فاکس پرو ) با هم تبادل اطلاعات داشته باشن . و از چه کنترلی باید استفاده کرد . اگه با مثال باشه ممنون میشم .

**kia1349** · چهارشنبه 30 فروردین 1385, 11:36 صبح

از kdtele استفاده کن
یه مثال کوچولو در همین فروم و به زبان فاکس هست
البته باید کامپوننت اونو بخری
بانسخه دموی اون کار کن اگر جوابگوی نیازهان بود برای کامپوننت اون یه کاری میشه کرد(البته قول نمیدم)

**rahro** · پنج شنبه 31 فروردین 1385, 03:31 صبح

سلام
1- در بالای گزارشات از من خواسته شده که آرم شرکت بالای ریپورت های مربوطه منعکس شود , تا اینجا مشکلی نیست و آرم را بالای ریپورت قرار دادم ! ولی نکته ای که آزارم میده اینه که آرم همراه پروژه exe میشه و اگر بخواهم جایی دیگر از این برنامه استفاده کنم باید حتما ارم انجا رو بگیرم و دومرتبه پروژه رو exe کنم !! آیا راهی برای حل این معضل هست.؟؟
2- چطور میتونم پهنای باند گزارش خود را افزایش دهم مثلا به اندازه طول کاغذ a4 ( به عبارتی از کاغذ a4 به پهلو از ان استفاده کنم )و چطور میتوانم کنترل طول آنرا به عهده بگیریم به نحوی که هر موقع ک خواستم پرینت از ابتدای صفحه بعد شروع شود؟
متشکرم
رهرو

**rahro** · پنج شنبه 31 فروردین 1385, 03:40 صبح

بازهم ببخشید
در ریفاکس xi وقتی که یک پرو‍ژه را بصورت کلی سورس میکنم در فرمها اول اینکه تمام کد ها بصورت نصفه و ناقص ریفاکس میشه و دوم اینکه خط را بطور کامل کد نمکینه و بعد از حدود 40 کارکتر به سطری بعد رفته و ادامه را در سطر بعد اورده چطوره این دو مورد رو حل کنم ؟!
رهرو

**rezaTavak** · پنج شنبه 31 فروردین 1385, 06:43 صبح

در مورد سوال اول باید به جای include از exclude در پروژه استفاده کنید. یعنی اینکه روی آیکن در پروژه کلیک راست و exclude کنید.
باید کاغذ landscape در print setup انتخاب شود.

ریفاکس هم ندارم!

**binyaz2003** · پنج شنبه 31 فروردین 1385, 23:05 عصر

در مورد ریفاکس باید کدها رو همه رو از ریفاکس به داخل فرمها کپی و پیست کنی

**ali_kolahdoozan** · یک شنبه 03 اردیبهشت 1385, 04:42 صبح

اگه این کتاب رو ندارید بگید

**rezaei** · دوشنبه 04 اردیبهشت 1385, 11:45 صبح

pdf این کتاب را دارم mail خودت را بده برایت ارسال می کنم اگر سرعت اینترنت اجازه بدهد

**ali_kolahdoozan** · دوشنبه 04 اردیبهشت 1385, 13:36 عصر

خودم که دارمش گفتم اگه کسی نداره بگه

**arash2005** · سه شنبه 05 اردیبهشت 1385, 12:32 عصر

سلام
من این کتاب رو ندارم.
اگه میشه برام میل کنید .
ممنون
Email : golchinray@gmail.com

**arash2005** · سه شنبه 05 اردیبهشت 1385, 12:42 عصر

سلام بر مدیران بخش
من یه سوال دارم
من یه برنامه فروش رستوران برای آزمایش نوشتم
مشکل من اینه که میخوام در ریپورت غذاها اول فاکتور چاپ شه و پیش غذاها در آخر فاکتور که برش بزنن . البته بانک غذا و پیش غذا یکی هستش .
برای اینکار باید چه کدی بنویسم .
ممنون از زحمات شما

نام تاپیک: مباحث متفرقه

ابزار های تاپیک

نمایش

تست فلاپی درایو تحت فاکس داس

درخواست رفع مشکل

آدرس

اندر حل یک مشکل

ادامه

ebook

قوانین ایجاد تاپیک در تالار