سيف الدين 2

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

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

السلام عليكم اخي الكريم يمكن ايضاً استخدم 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'')'); ;)

السلام عليكم ورحمة الله و بركاته نعم يجب ذكر اسم نوع قواعد البيانات المستخدم 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('…

السلام عليكم استخدم هذا الكود 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…

السلام عليكم يمكن ربط DateTimePicker بقواعد البيانات ايضاً عن طريق استعلام ويمكن كتابة هذا الكود with Query1 do begin Close; SQL.Clear; SQL.Add(' select * from EMP where EMPNO='+Edit1.Text+''); Open; DateTimePicker1.Date := fieldbyname('HIREDATE').AsDateTime; …

ولك هذ اخي الكيم عن طريق الدلفي 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(…

وعليكم السلام اخي الكريم هل بحث في المنتدى قبل طرح السؤال؟ يوجد كتير عن هذا الموضوع في Oracle قسم قواعد البيانات أوراكل ;) /index.ph...5&hl=export /index.ph...c=26422&hl=

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; تفضال اخي الكريم ;)

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; ا…

السلام عليكم نعم سيكون تنسيق جميل اذا تقسمن العمل على بعض ;)

السلام عليكم اخي الكريم الغي formatfloat وسف تعمل إن شاء الله

السلام عليكم اخي الكريم انظر الملف المرفق اجو ان يكون فيها ماتريد عن ActionMainMenuBar ActionMainMenuBar.rar

السلام عليكم اخي الكريم سوئلك غير وضح اذا كانت تريد مائل 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 ComboB…

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

السلام عليكم,, var N_Item: TMenuItem; begin N_Item := TMenuItem.Create(self); N_Item.Caption := 'File'; MainMenu1.Items.Add(N_Item); N_Item.Add(TMenuItem.Create(Self)); N_Item := N_Item.Items[0]; N_Item.Caption := 'Open'; N_Item.Add(TMenuItem.Create(Self)); N_…

السلام عليكم أخي الكريم جرب هذا الكود حيت انه يقوم بالاستعلام عن بيانات محصورة بين تاريخين with ADOQuery1 do begin Close; SQL.Clear; SQL.Add(' SELECT * FROM TabelName WHERE DATE Between to_date('+QuotedStr(Edit1.Text)+',''dd/mm/yyyy'') '); SQL.Add(' AND to_dat…

السلام عليكم أخي الكريم جرب هذا الكود with ADOQuery1 do begin Close; SQL.Clear; SQL.Add(' SELECT * FROM TabelName WHERE DATE Between to_date('+QuotedStr(Edit1.Text)+',''dd/mm/yyyy'') '); SQL.Add(' AND to_date('+QuotedStr(Edit2.Text)+',''dd/mm/yyyy'')'); Open; …

select Decode(ID_NO,0,'+QuotedStr('السبت')+',1,'+QuotedStr('الاحد')+',2,'+QuotedStr('الاثنين')+') from TabelName استخدم DeCode http://www.akadia.com/services/ora_decode.html http://www.adp-gmbh.ch/blog/2005/december/28.html

DBGrid1.Options := DBGrid1.Options + [dgRowSelect];