• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

سيف الدين 2

الخبراء المعتمدون
  • عدد المشاركات

    276
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن سيف الدين 2

  • الرتبة
    خبير دلفي
  • تاريخ الميلاد 02/22/1979

طرق الإتصال

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : Libya

أحدث الزائرين لملفلك الشخصي

3,828 زياره للملف الشخصي
  1. السلام عليكم ،،، لنقل كل البيانات من الجدول 1 الى الجدول 2 insert into t1 select * from t2 تريد فقط بعضها على حسب البيانات التي تريدها فاستخدم where مع select ولزم يكون الحقول متساوي مع بعض
  2. منع المسافة داخل Edit1

    السلام عليكم,,, جرب Trim انه تمنع المسافة فى أول ونهاية الكلام
  3. البحث بين تاريخين

    السلام عليكم اخي الكريم يمكن ايضاً استخدم BETWEEN مثلاً إذا كانت قاعدة البيانات أوراكل query1.sql.add('select * from table1 date1 BETWEEN to_date(''01/01/2006'',''dd/mm/yyyy'') and to_date(''01/03/2006'',''dd/mm/yyyy'')'); ;)
  4. سؤال عن الإدخال إلى الجدول

    السلام عليكم ورحمة الله و بركاته نعم يجب ذكر اسم نوع قواعد البيانات المستخدم with OCIQuery3 do begin Close; SQL.Clear; SQL.Add('select max(nb) from STOREOPP '); open; vnb := FieldByName('max(nb)').Value; end; with OCIQuery4 do begin Close; SQL.Clear; sql.Add('insert into STOREOPP'+ 'values ('+inttostr(vnb+1)+','+ DateToStr(date)+',1,'+ edtamont.text +',1) '); ExecSQL; end; :rolleyes:
  5. شباب ما هو كود حذف ملف معين

    السلام عليكم استخدم هذا الكود var Form1: TForm1; Df : array [0..255] of char; SFileOS : TSHFileOpStruct; implementation {$R *.dfm} Function DeleteFolder(P_Char : string): Boolean; begin try Fillchar(SFileOS,Sizeof(SHFileOpStruct),0); FillChar(Df, Sizeof(Df), 0 ); StrPCopy(Df, P_Char); with SFileOS do begin Wnd := 0; pFrom := @Df; wFunc := FO_DELETE; fFlags := FOF_ALLOWUNDO; fFlags := fFlags or FOF_NOCONFIRMATION; fFlags := fFlags or FOF_SILENT; end; Result := (SHFileOperation(SFileOS) = 0); except Result := False; end; end; procedure TForm1.Button1Click(Sender: TObject); begin if DeleteFolder('C:\New Folder') then ShowMessage('Êã ÇáÍÏÝ') else ShowMessage('ÛíÑ ãæÌæÏ'); end; واضف uses ShellAPI ;)
  6. ربط ال DateTimePicker بقواعد البيانات

    السلام عليكم يمكن ربط DateTimePicker بقواعد البيانات ايضاً عن طريق استعلام ويمكن كتابة هذا الكود with Query1 do begin Close; SQL.Clear; SQL.Add(' select * from EMP where EMPNO='+Edit1.Text+''); Open; DateTimePicker1.Date := fieldbyname('HIREDATE').AsDateTime; end; end; B) وإذ تريد التخزين with Query1 do begin Close; SQL.Clear; SQL.Add(' insert into EMP (HIREDATE) values(to_date(' + QuotedStr(DateToStr(DateTimePicker1.Date)) + ',''dd/mm/yyyy'') '); ExecSQL; End; ;)
  7. أسئلة هامة تحتاج لرد و مناقشة

    ولك هذ اخي الكيم عن طريق الدلفي B) procedure TForm1.Button1Click(Sender: TObject); Const FullPath = '.Dmp '; Var filename,path,Par,par1,str :String; begin path:='c:\'; Gauge1.Progress:=Gauge1.Progress+20; try With Query1 Do Begin Close; SQL . Clear; SQL . Add('Select SubStr(To_Char(SysDate,''Day''),1,2)||To_Char(Sysdate,''DD'')||To_Char(Sysdate,''MM'')||To_Char(Sysdate,''YY'') From Dual'); Open; filename:=Fields[0] . asstring; Gauge1.Progress:=Gauge1.Progress+20; If Not SetCurrentDir(Trim(path)+'BackUp') Then CreateDir(Trim(path)+'BackUp'); If Not SetCurrentDir('c:\BackUp') Then CreateDir('c:\BackUp'); Gauge1.Progress:=Gauge1.Progress+20; If FileExists(Trim(path)+'BackUp\'+ Fields[0] . asstring +'.Dmp') Then DeleteFile(Trim(path)+'BackUp\'+Fields[0].asstring+'.Dmp'); Par:=' scott/tiger File='+Trim(path)+'BackUp\'+Fields[0].AsString+FullPath; Gauge1.Progress:=Gauge1.Progress+20; par1:='Exp.exe '; str:=Par1+par; WinExec(pchar(str),SW_NORMAL); Close; Gauge1.Progress:=Gauge1.Progress+20; End; finally ShowMessage('ÊÜÜÜÜÜã ÇáäÓÜÜÜÜÜÜÜÜÜÜÜÜÜÎ'); end; end; end. عملية Export
  8. أسئلة هامة تحتاج لرد و مناقشة

    وعليكم السلام اخي الكريم هل بحث في المنتدى قبل طرح السؤال؟ يوجد كتير عن هذا الموضوع في Oracle قسم قواعد البيانات أوراكل ;) http://www.arabteam2000-forum.com/index.ph...5&hl=export http://www.arabteam2000-forum.com/index.ph...c=26422&hl=
  9. كيف أضع قيمة في حقل text بعد تحديد حقل في combbox

    if Edit1.Text<>''then begin with ADOQuery1 do begin Close; SQL.Clear; SQL.Add('SELECT * FROM tas WHERE tas_no='+Edit1.Text+''); Open; ComboBox1.Text:=FieldByName('m_tas').AsString; end; end; تفضال اخي الكريم ;)
  10. كيف أضع قيمة في حقل text بعد تحديد حقل في combbox

    procedure TForm1.ComboBox1Change(Sender: TObject); begin if ComboBox1.Text<>''then begin with ADOQuery1 do begin Close; SQL.Clear; SQL.Add('SELECT * FROM tas WHERE m_tas="'+ComboBox1.Text+'"'); Open; Edit1.Text:=FieldByName('tas_no').AsString; end; end; end; ارجو ان يكون الكود وضحاً ;)
  11. [مشروع]حساب مواقيت الصلاة بدقة متناهية.

    السلام عليكم نعم سيكون تنسيق جميل اذا تقسمن العمل على بعض ;)
  12. السلام عليكم اخي الكريم الغي formatfloat وسف تعمل إن شاء الله
  13. كيفية عمل قوائم ب ActionMainMenuBar

    السلام عليكم اخي الكريم انظر الملف المرفق اجو ان يكون فيها ماتريد عن ActionMainMenuBar ActionMainMenuBar.rar
  14. السلام عليكم اخي الكريم سوئلك غير وضح اذا كانت تريد مائل ComboBox من قاعدة البيانات جرب هذا الكود With Query1 Do Begin Close; sql.Clear; sql.Add('select * from TableName'); open; ComboBox1.Text := ''; ComboBox1.Items.Clear; While Not Query1.Eof Do Begin ComboBox1.Items.Add(FieldByName('ID_Name').AsString); Next; End; End;
  15. [مشروع]حساب مواقيت الصلاة بدقة متناهية.

    السلام عليكم ممتاز جدا اخي مراد على هذه الفكرة الرائعة :) وبارك الله فيك على هذا المشروع الرائع وإن شاء الله اكون في هذا المشروع بإذن الله انا معك في المشروع -waf