فى حالة استخدام حقل من نوع
Integer(AutoInc)
تظهر رسائل خطأ عند إضافة حقل جديد ولمنع هذه الرسائل نعطى الامر التالى فى
Form1 Load ده مكان الكتابه
SET AUTOINCERROR OFF
CURSORSETPROP("AutoIncError", .F. )
فى حالة عمل مشروع تنفيذى .EXE فان النظام يبدأ العمل ثم ينهى العمل فورا لذا يلزم استخدام الامر التالى فى الملف الافتتاحى بعد سطر تشغيل الشاشه الرئيسيه
Do Form <formname>
Read Events
وفى زر الخروج من الشاشه الرئيسيه يتم وضع الامر التالى فى المكان التالى
ده مكان الكتابه cmdExit Click
CLEAR EVENTS
Quit
للتعامل مع الصور فى الفورمة يتم انشاءزر جديد مثلا
Command1
ثم عمل متغير يحمل اسم ومكان الصورة المخصصه لهذا السجل ونفترض ان الصوره تحمل اسم كود الموظف
ده مكان الكتابه Form1 Activate
نضع
ThisForm.Command1.Picture="D:\photo\"+alltrim(code)+".jpg"
ثم نضع نفس الامر فى ازرار الحركه بين السجلات كالتالى
ده مكان الكتابه cmdPrev,cmdNext,cmdTop,cmdEnd Valid
لاستخدام الاسكانر فى الحصول على الصور اثناء اضافة مستخدم قيد جديد ننشى زر كوماند ونضع فيه الاوامر التاليه
ده مكان الكتابه Command1 Click
لضمان نجاح الامر يلزم وجود سكانر موصول بالحاسب
hwnd=0
cfile="D:\photo\"+ALLTRIM(File1_10.code)+".jpg"
DECLARE Integer TWAIN_SelectImageSource IN eztw32.dll Integer hWnd
DECLARE Integer TWAIN_AcquireNative IN eztw32.dll Integer hwnd, Integer wPixTypes
DECLARE Integer TWAIN_WriteNativeToFilename IN eztw32.dll Integer hdib, String FileName
DECLARE INTEGER TWAIN_FreeNative IN Eztw32.DLL INTEGER nDIB
* if you want the user to select a Twain device if more than one installed
*TWAIN_SelectImageSource (THISFORM.HWnd)
TWAIN_SelectImageSource (hwnd)
* do the scanning
*hdib = TWAIN_AcquireNative (THISFORM.HWnd,4)
hdib = TWAIN_AcquireNative (hwnd,4)
IF hDib=0
* User closed without photo
* Release the image handle
TWAIN_FreeNative(hdib)
RETURN .F.
ENDIF
*cfile =filename
* save file
TWAIN_WriteNativeToFilename(hdib,cFile)
TWAIN_FreeNative(hdib)
*ThisForm.Image1.PictureVal=" "
APPEND memo File1_10.photo OVERWRITE FROM &cfile
ThisForm.Image1.PictureVal=File1_10.photo
thisform.Refresh
*Scanning is now done.