خاص بلغه الدلفى

[محمد فرج]

مجموعة من الا كواد مفيدة للدلفي منقولة للانتفاع بها

مجموعة من الا كواد مفيدة للدلفي منقولة للانتفاع بها "وضعها أصحابها للمنفعة العامة " قمت بجمعها حتى تسهل عملية الا ستفادة

-1--تغيير عرض الشاشة في الويندوز من دقة الى 800/600 تلقائيا عند بدأء تشغيل الفورم

كود
procedure TForm1.FormActivate(Sender: TObject);
var
  mode:TDeviceMode;
  i:integer;
begin
  mode.dmSize := sizeof (MODE);
  mode.dmPelsWidth := 800;
  mode.dmPelsHeight := 600;
  mode.dmBitsPerPel := 16;
  mode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT or DM_BITSPERPEL;
  i := ChangeDisplaySettings(mode, CDS_TEST);
  if i=DISP_CHANGE_SUCCESSFUL then ChangeDisplaySettings(mode, 1)

end;

***************************************************************************
- 2 - لعرض عدد التسجيلات في الطابل table basse donnes


كود
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(PersonneDonnee.Table1Nom.RecordCount));
end;


******************************************************************

كود
var
  NbreEnreg:integer;
begin
  Query1.SQL.Add('SELECT COUNT(*) AS NbreEnregistrement FROM MaTable');
  Query1.Open;
  NbreEnreg:=Query1.FieldByName('NbreEnregistrement').AsInteger;
end;

*****************************************************************

كود
Edit1.text:=IntToStr(table1nom.recordcount);

***************************************************************************
-3-لعمل إطار ميساج = من فضلك انتظار= مع TProgressBar

كود
var
    Diag:TForm;
    i:integer;
    pbFeedBack:TProgressBar;
    s:string;
begin
    Diag:=CreateMessageDialog( PChar('SVP Patience!'),mtCustom    ,[]);
    Diag.BorderIcons:=[];       //Eleve menu system
    Diag.Caption:='';           //Enleve le titre
    Diag.BorderStyle:=bsToolWindow; //No-Resize Possible
    SetWindowPos(Diag.Handle,HWND_TOPMOST,
                 0,0,0,0,SWP_NOSIZE+SWP_NOMOVE); //Make the Window TOPMOST
    pbFeedBack:=TProgressBar.Create(nil);
    pbFeedBack.Width:=(Diag.Width div 10)*8; //80% de la largeur de la fenetre
    pbFeedBack.Top:=(Diag.ClientHeight div 2)-(pbFeedBack.Height div 2);
    pbFeedBack.Left:=(Diag.ClientWidth div 2)-(pbFeedBack.Width div 2);
    Diag.InsertControl( pbFeedBack ); //Ajoute la progress bar dans la fenetre
    Application.ProcessMessages;
    Diag.Show();                //Montre la fenetre
    pbFeedBack.Max:=200;
    try
        //Traitements long
        for i:=0 to 200 do
        begin
            pbFeedBack.Position:=i;
            sleep(10);
            Application.ProcessMessages();
        end;
    finally
        pbFeedBack.Destroy();
        Diag.Hide();
        Diag.Release();
    end;
end;

***************************************************************************
-4-لعمل فورم شفاف

كود
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.AlphaBlend := true;
Form1.AlphaBlendValue := 0;
end;

***************************************************************************
-5- للاضافة سطر في الطابل اوتوماتيكيا insert

كود
procedure TForm1.S9Click(Sender: TObject);
var i:integer;
begin
Table1.Close;Table1.Open;
Table1.Filtered:=false;
table1.Last;
if table1.FieldValues['N']<>null then
i:=(table1.FieldValues['N'])
else i:=0;
i:=i+1;
Table1.Filtered:=true;
Table1.Insert;
table1.FieldValues['N']:=(i);
table1Date.value:=date;
EditPoste.SetFocus;


***********************************************

كود
procedure TForm2.SpeedButton2Click(Sender: TObject);
var i:integer;
begin
Form6.show;
Table1.Close;
Table1.Open;
Table1.Edit;
Table1.Last;

if Form6.table1.FieldValues['NR']<>null then
i:=(form6.table1.FieldValues['NR'])
else i:=0;
i:=i+1;
form6.Table1.Insert;
form6.table1.FieldValues['NR']:=(i);
Form6.DBEdit3.SetFocus;
end;

***************************************************************************
-6- للبحث في الطابل داتة Table
البحث المتطابق للكلمة وليس حرف من الكلمة

كود
If Table1.Locate('Pname',Edit1.Text , [locaseinsensitive,lopartialkey]) Then
Showmessage(' The record is found ') Else
Showmessage ( ' There is no match , Try Another Value ' );

***************************************************************
(02)
***************************************************************

كود
if table1.Locate('pname;Nationalty',vararrayof([ edit1.Text,Edit2.text]) ,
[locaseinsensitive , lopartialkey ] ) then
Showmessage('the record is found') else
Showmessage ( 'there is no match , Try Anther Value' );

وهي تصلح ايضا لكلمة السر حيث ام وجد الكلمة متاطابقة يمر الى مثلا وان كان حرف واحد ينقصها لايمر
***************************************************************************
-7-كيف يمكنك معرفة عمرك من خلال تاريخ الميلاد

كود
DecodeDate(Date(), YearA, MonthA, DayA);
  DecodeDate(StrToDate(Self.Edit1.Text), YearN, MonthN, DayN);

  if MonthA         age:=yearA-yearN-1
    else
    if MonthA>MonthN then
         age:=YearA-YearN
      else
    if DayA                age:=yearA-YearN-1
               else
          age:=yearA-yearN;

    Self.Edit2.Text:=IntToStr(age);Merci MiJack.

**********************************************************************

كود
Try
   Edit2.Text:=IntTostr(YearsBetween(Now,StrToDate(Edit1.Text)));
Except
Edit2.Text := 'Erreur, Date de naissance Incorrecte';
end;

***************************************************************************

ولمن اراد تحميل الاكواد فهي بالملفات المرفقة

تم تحرير المشاركة بواسطة HACKERS PAL: Feb 21 2008, 02:46 PM

الصورة المرفقة
 تم التقليل من الحجم 88%
 
800 x 600 (105.41كيلوا بايت)

 


الملفات المرفقة
  ____.doc ( 42.5كيلوا بايت ) عدد مرات التحميل: 23

[مصطفي سامي]

السلام عليكم ورحمة الله وبركاته

في البدايه احب ان ارحب بيك في بيتك الثاني المنتديات العلمية فاهلا بك

ثانيا موضوع رائع .... وشكرا علي نقل الموضوع  لكي يستفيد به الجميع

وننتظر جديدك ........