دخول

nabilkeb · 09-09-2009, 09:41 PM

10- مسح مجموعة من EDt بكبسة زر ____ مرفق

11- تلوين DBGrid
A/

كود :
procedure Tform1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var dataset:Tdataset;
begin
dataset:= (Sender as TDBGrid).DataSource.DataSet;
    with AlternGrid(Sender) do
    begin
         if (DataSet.RecNo mod 2 = 1 ) then
Canvas.Brush.Color := $00E6D9C4
         else
Canvas.Brush.Color := $00EAF7FF;
      if  DataLink.ActiveRecord = Row -1 then
                               begin
Canvas.Font.Color:=clwhite ;
Canvas.Brush.Color:=clblack;
    end;                       end ;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column, State);

B/

كود :
procedure TForm1.FormCreate(Sender: TObject);
var I: Integer;
begin
I:=0;
while I<DBGrid1.Columns.Count-1 do
    begin
    DBGrid1.Columns[I].Color:=$00E6D9C4;
  //  DBGrid1.Columns[I].Title.Color:=$00EAF7FF;
    I:=I+1;
    DBGrid1.Columns[I].Color:=$00EAF7FF;
  //  DBGrid1.Columns[I].Title.Color:=$00E6D9C4;
    I:=I+1;
    end;
end;

12- الشاشة الترحيبية+حساب و استعراض ملفات البرنامج أثناء الإقلاع ____ مرفق
رابـــط

13- انشاء قاعدة بيانات بارادوكس برمجيا _____ مرفق

14- تحويل قاعدة بيانات بارادوكس إلى الاكسل و العكس ___ مرفق

15- استعمال الدالة DecodeDate

كود :
procedure TForm1.Button1Click(Sender: TObject);
var M,J,A:Word;
begin
 try
  DecodeDate(StrToDate(MaskEdit1.Text),A,M,J);
  if (A < 1900) or (M > 12) or(J > 31) then
    begin

    ShowMessage('date:anneé moin que 1900');
    MaskEdit1.Text:= '';
    end else  ShowMessage('date correcte');
 except
     ShowMessage('date incorrecte');
     MaskEdit1.Text:= '';
 end; 
end;

16- ملئ الشاشة:

كود :
procedure TForm1.Button1Click(Sender: TObject);
 var
  HTaskbar: HWND;
  OldVal: LongInt;
begin
try
    // Find handle of TASKBAR
    HTaskBar := FindWindow('Shell_TrayWnd', nil);
    SystemParametersInfo(97, Word(True), @OldVal, 0);
    // Disable the taskbar
    EnableWindow(HTaskBar, False);
    // Hide the taskbar
    ShowWindow(HTaskbar, SW_HIDE);
  finally
    with Form1 do
    begin
      BorderStyle := bsNone;
     // FormStyle   := fsStayOnTop;
      Left        := 0;
      Top         := 0;
      Height      := Screen.Height;
      Width       := Screen.Width;

end;
end;
end;

العكس:

كود :
procedure TForm1.Button2Click(Sender: TObject);
 var
  HTaskbar: HWND;
  OldVal: LongInt;
begin
  HTaskBar := FindWindow('Shell_TrayWnd', nil);
  SystemParametersInfo(97, Word(False), @OldVal, 0);
  EnableWindow(HTaskBar, true);
  ShowWindow(HTaskbar, SW_SHOW) ;
//    finally
    with Form1 do
     begin
      BorderStyle := bsSizeable ;          //    bsNone  ;
      FormStyle   :=fsNormal     ;        //   fsStayOnTop;
   // Height      := 540         ;        //   Screen.Height;
   // Width       := 770         ;        // Screen.Width;
      Left        := 20         ;         // 0;
      Top         := 5         ;         // 0;
      Position    :=podesktopCenter
      end;
end;

17- الفلترة بين تاريخين بقاعدة بيانات ___ مرفق

.../.... يتبع .../....

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة