السلام عليكم ...... مرحبا بجميع اخواني بالمنتدى ..... انا عندي خبرة بسيطة في اوراكل بشكل عام ............. لكن انا لا اعرف اي شيء عن لغة pl/sql ..... اتمنى مساعدتي بكود بسيط .......... كيف اعمل كود يفتح داتا بلوك او نموذج صممته لادخال البيانات ... وذلك عند الضغط على زر خاص اي ...... عمل ترايجر على زر لفتح داتا بلوك مصمم مسبقا عند الضغط على الزر ..... وشكرا جزيلا للجميع ....... طبعا هذه اول مشاركة لي بهذا المنتدى الكبير ...... وباذن الله تعالى ساستمر في المنتدى واقدم ما استطيع له حسب خبرتي البسيطة .....

PROCEDURE XLS IS
BEGIN
DECLARE
application OLE2.OBJ_TYPE;
workbooks OLE2.OBJ_TYPE;
workbook OLE2.OBJ_TYPE;
worksheets OLE2.OBJ_TYPE;
worksheet OLE2.OBJ_TYPE;
cell OLE2.OBJ_TYPE;
args OLE2.OBJ_TYPE;
ctr NUMBER(12);
cols NUMBER(2);
name_var1 VARCHAR2(2000);
name_var2 VARCHAR2(2000);
name_var3 VARCHAR2(2000);
name_var4 VARCHAR2(2000);
filename varchar2(100);
PROCEDURE OLEARG IS
args OLE2.OBJ_TYPE;
BEGIN
args := OLE2.CREATE_ARGLIST;
ole2.add_arg(args,ctr); -- row value
ole2.add_arg(args,cols); -- column value
cell := ole2.GET_OBJ_PROPERTY(worksheet,'Cells',args); -- initializing cell
ole2.destroy_arglist(args);
END;
BEGIN
CLEAR_BLOCK(NO_VALIDATE);
filename :='C:\EX1.XLS';--GET_FILE_NAME('c:\', File_Filter=>'Excel Files (*.xls)|*.xls|'); -- to pick the file
application := OLE2.CREATE_OBJ('Excel.Application');
ole2.set_property(application,'Visible','FALSE');
workbooks := OLE2.GET_OBJ_PROPERTY(application, 'Workbooks');
args := OLE2.CREATE_ARGLIST;
ole2.add_arg(args,filename); --'c:\13s002.xls'); -- file path and name
workbook := ole2.GET_OBJ_PROPERTY(workbooks,'Open',args);
ole2.destroy_arglist(args);
args := OLE2.CREATE_ARGLIST;
ole2.add_arg(args,'Sheet1');
worksheet := ole2.GET_OBJ_PROPERTY(workbook,'Worksheets',args);
ole2.destroy_arglist(args);
ctr := 2; --row number
cols := 1; -- column number
FIRST_RECORD;
LOOP
OLEARG;
--get_char_property FOR VARCHAR
--get_num_property FOR NUMBER
name_var1 := ole2.get_char_property(cell,'Value'); --cell value of the argument
cols := cols+1;
OLEARG;
name_var2 := ole2.get_char_property(cell,'Value'); --cell value of the argument
cols := cols+1;
OLEARG;
name_var3 := ole2.get_char_property(cell,'Value'); --cell value of the argument
cols := cols+1;
OLEARG;
name_var4 := ole2.get_char_property(cell,'Value'); --cell number value of the argument
EXIT WHEN name_var1 is null;--length(name_var1) = 0 or length(name_var1) is null;
F ctr > 1 then
INSERT INTO TEST VALUES (name_var1 , name_var2 , name_var3 , name_var4 ) ;
NEXT_RECORD ;
FORMS_DDL('COMMIT');
ELSE
NULL ;
END IF; NEXT_RECORD;
END IF;
SYNCHRONIZE;
ctr := ctr + 1;
cols := 1;
END LOOP;
DELETE_RECORD;
FIRST_RECORD;
OLE2.INVOKE(application,'Quit');
OLE2.RELEASE_OBJ(cell);
OLE2.RELEASE_OBJ(worksheet);
--OLE2.RELEASE_OBJ(worksheets);
OLE2.RELEASE_OBJ(workbook);
--OLE2.RELEASE_OBJ(workbooks);
OLE2.RELEASE_OBJ(application);
END;
END;

الكود من خلال الاخ قارس المناعى

شكرا جزيلا اخي الحبيب عالتفاعل ........... لكن لا اعرف اذا كان هو ما اطلبه انا ........... لا اعرف كيف استخدم هذا الكود ... طلبي هو فقط عندما اظغط على button يقوم بفتح نموذج مصمم مسبقا من قبلي مثلا عندي



عندما اظغط على زر بيانات الطالب انتقل مباشرة الى نموذج الادخال الخاص بجدول الطالب.................

open_form
call_form
new_form

دي البروسيديورز بتاعة فتح النموذج ابحث عنها في الديفلوبر هلب هتلاقي تفاصيل عنها

أنا أسف لم أفهم ما كنت تريد على العموم كلام الآخ طارق صح طبعا
new_form(c:\emp.fmx) s
على إعتبار أنك مثلا على نموذج الاقسام و عايز تفتح الموظفين بس طبعا لزم المسار يكون fmx

open_form
call_form
new_form

دي البروسيديورز بتاعة فتح النموذج ابحث عنها في الديفلوبر هلب هتلاقي تفاصيل عنها

مشكور جدا اخي الحبيب .......... وبارك الله فيك ...... هذا الي كنت اريد بالضبط ....... جزاك الله كل الخير.

تم تعديل 5 فبراير 201313 سنة بواسطة اسامة 1991

أنا أسف لم أفهم ما كنت تريد على العموم كلام الآخ طارق صح طبعا
new_form(c:\emp.fmx) s
على إعتبار أنك مثلا على نموذج الاقسام و عايز تفتح الموظفين بس طبعا لزم المسار يكون fmx

ولا يهمك اخي الغالي ........ وبارك الله فيك ...... وشكرا جزيلا على كل هذه المعلومات.

هل يوجد كود بحيث يتبع مسار البرنامج مثلاً اشتغل على جهاز وكان ملف البرنامج في القرص  d ثم قمت ونسخت البرنامج على جهاز آخر وعملته مثلاً في القرص f ماراح يعمل الكود السابق فيا ريت لو حد معاه كود بحيث يتبع مساار البرنامج تلقائيا