عرض المشاركات

منتدى علوم الحاسب / خاص بلغه الدلفى

« في: أبريل 23, 2008, 08:42:50 مساءاً »

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

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

-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

الرسائل - محمد فرج

منتدى علوم الحاسب / خاص بلغه الدلفى

مركز الأخبار العلمية / الحشرات العملاقة.. حقيقة لا مجرد خيال علمي