سيف الدين 2

:rolleyes: :rolleyes: :rolleyes: انا اوفق الري تعلم اللغتين معاً لنهم سيخدمانك كثيراً وجه الختلف سيكون في الكود بتوفيق(الاحتراف)

StringGrid في DrawCell اكتب الكود procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if (((Acol=1) or (Acol=3) or (Acol=5) or (Acol=7)) and ((Arow=0) or (Arow=2) or (Arow=4) or (Arow=6))) then …

يمكن ذلك :D وذلك في حدث KeyDown في الفورم procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin Label1.Caption:=IntToStr(Key); end; end. :rolleyes: :rolleyes: :rolleyes:

var I,j:Integer; str,str2:String; begin j:=1; str:=Edit1.Text; str2:=Edit1.Text; for I:=1 to StrLen(Pchar(Edit1.Text)) do begin if str<>' ' then begin str2[j]:=str; j:=j+1; end; end; str2[j]:=str[StrLen(Pchar(str))+1]; Label1.Caption:=IntToStr(StrLen(PChar(str…

وهذا كود اخرى للحذف procedure EmptyRecycleBin; Type TSHEmptyRecycleBin = function (hWnd: HWND; LPCTSTR: PChar; DWORD: Word):integer; stdcall; const SHERB_NOCONFIRMATION = $00000001; SHERB_NOPROGRESSUI = $00000002; SHERB_NOSOUND = $00000004; Var LibHandle : THa…

تغيير محتويات ميساج بوكس اي النص من edit ShowMessage(Edit1.Text);

اولاً يجب تحديد اسم DataBase ومكان الموجود بها وبعد ذلك نقوم بتحديد مسار التخزين

CopyFile(PChar(ExtractFilePath(ParamStr(0)) + 'Employeesys.db'), 'a:\Employeesys.db', False); :rolleyes:

والــسلام عليكم ورحمة الله وبركاته هذا المثال عن اعطاء الصلاحيات للمستخدم ارجو ان يكون وضحاً لك اخي Sosm80 TS1.rar

جمع حقل واحد with Query1 do begin Close; SQL.Clear; SQL.Add('select sum(Salary) As S1 from employee'); Open; end; جمع حقلين with Query1 do begin Close; SQL.Clear; SQL.Add('select sum(Salary)+sum(Salary1) As S1 from employee'); Open; end;

في Combobox ComboBox1.Text:=''; While Not Table1.Eof Do Begin ComboBox1 . Items . Add(Table1.Fields[0] . AsString); Table1.Next; End; ----------------------- في listbox while not Table1.Eof do begin ListBox1.Items.Add(Table1LastName.Text); Table1.Next; end; اذ…

/index.php?showtopic=70880 :rolleyes:

بارك الله فيكم على هذه الثقة و الله يعينا و نكون بقدر المسؤولية :rolleyes: الف مبروك( محمد نسمان و02/11/2004 و amersy وأبو محمـد ) :lol: :lol: :lol:

في هذا المثال في التصحيح للكود... :rolleyes: SQl.rar

تأكد من أعداد Windows أي أعداد Regional and Language Options في Control Panel :rolleyes:

with ADOQuery1 do begin Close; SQL.Clear; SQL.Add('Select * from Employee where LastName='+ QuotedStr( Edit1.Text)); Open; If Eof Then begin ShowMessage('ÇáÇÓã ÛíÑ ãæÌæÏ'); Close; Edit1 . SetFocus; End; end; :rolleyes:

var Form1: TForm1; I:Integer; implementation {$R *.dfm}

أولاُ ادخال with ADOQuery1 do begin Close; SQL.Clear; SQL.Add('INSERT INTO employee'); SQL.Add('( IDNo,IDName,IDDate)'); SQL.Add(' Values (:T1,:T2,:T3)'); Prepared; Parameters.ParamByName('T1').Value := Edit1.Text; Parameters.ParamByName('T2').Value := Edit2.T…

with Query1 Do begin Close; SQL . Clear; SQL . Add('insert Into Stock temDesc,ItemQty,ItemCost,ItemLoc,Reorder,HighLevel,LowLevel) Values('+QuotedStr(Edit1 . Text)+','+QuotedStr(Edit2 . Text)); SQL . Add(',0,0,'+QuotedStr(Edit3 . Text)+','+Edit4 . Text +','+Ed…

جاء دور الخبراء وانا اختار ( محمد نسمان و 02/11/2004 و أبو محمـد ) يستحقون لقب الخبراء لانهم من المميزين ولهم كفاءا عالية :rolleyes: :rolleyes: :rolleyes: والسلام عليكم،،، اخوكم سيف الدين :lol: