دخول

sabre

بسم الله الرحمن الرحيم
الصلاة السلام على رسول الله أخي hamoudi075teq أحببت أن أقوم ببعض على المثال السابقعسى أن أنال من أجرك الذي تقوم بهالى هولاء المرضى الذين تحصيهم وأتمنى لك توفيق

PHP كود :
Projet Nom = malades
Alias nom = malad
C:\malade 

هذا المثال تصورته حسب موضوعك الاول

----------------------------
اسم الوحدة الاولى
----------------------------

PHP كود :
Nom de fichier = Unit1.pas 

كود :
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 Form2.Show;
end;

end.

---------------------------------
اسم الوحدة الثانية
---------------------------------

Nom de fichier = Unit2.pas

كود :
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, DB, DBTables, StdCtrls,
  Buttons, ComCtrls;

type
  TForm2 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    Table1N: TFloatField;
    Table1Nom_prenom: TStringField;
    Table1Age: TStringField;
    Table1Commune: TStringField;
    Table1Date_accident: TDateField;
    Table1Sexe: TStringField;
    Edit1: TEdit;
    BitBtn2: TBitBtn;
    Edit2: TEdit;
    BitBtn3: TBitBtn;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    BitBtn6: TBitBtn;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DateTimePicker1: TDateTimePicker;
    ComboBox1: TComboBox;
    Label8: TLabel;
    Label9: TLabel;
    ComboBox2: TComboBox;
    BatchMove1: TBatchMove;
    Table2: TTable;
    SaveDialog1: TSaveDialog;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Button2: TButton;
    Table4: TTable;
    DBNavigator2: TDBNavigator;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
  public
  end;

  procedure TForm2FormActivates(path: string);
  
var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
 Table1.First;
 Table1.Filter := 'Commune='+chr(39)+Edit1.Text+chr(39);
 Table1.Filtered := true;

end;

procedure TForm2.Edit1Change(Sender: TObject);
begin
 BitBtn1.Enabled:=true
end;

procedure TForm2.Edit3Change(Sender: TObject);
begin
 BitBtn3.Enabled:=true
end;

procedure TForm2.Edit2Change(Sender: TObject);
begin
 BitBtn2.Enabled:=true
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
 Table1.First;
 Table1.Filter := 'Age='+chr(39)+Edit2.Text+chr(39);
 Table1.Filtered := true;
end;

procedure TForm2.BitBtn3Click(Sender: TObject);
var
 s: string;
begin
 if ComboBox2.Text = 'ذكر' then s := '1'
  else s := '0';
 Table1.First;
 Table1.Filter := 'Sexe='+chr(39)+s+chr(39);
 Table1.Filtered := true;
end;

procedure enregistrements;
begin
   Form2.Table2.TableName := 'C:\malade\hamoudi075teq.db';
   Form2.BatchMove1.Source :=Form2.Table1;
   Form2.BatchMove1.Destination := Form2.Table2;
   Form2.BatchMove1.Mode :=batCopy;
   Form2.BatchMove1.Execute; { }
end;

procedure TForm2.FormCreate(Sender: TObject);
function LoadFile(NomFichier: string): string;
var MeList:TStringList;
begin
 MeList:=TStringList.Create;
 try
  MeList.Clear;
  MeList.LoadFromFile(NomFichier);
  Result:=MeList.Strings[0];
 finally
   MeList.Free;
  end;
end;
begin

  if not DirectoryExists('C:\malade') then
   CreateDir('C:\malade');

 Table1.Close;
 if FileExists('ttf')then
 begin
  Table1.DatabaseName:=LoadFile('ttf');
  Table1.TableType := ttParadox;
  Table1.TableName := 'hamoudi075teq.db';
  Table1.Open;
 end
 else begin
 try
  Table1.DatabaseName:='malad';
  Table1.TableType := ttParadox;
  Table1.TableName := 'hamoudi075teq.db';
  Table1.Open;
 except
  on EDatabaseError do begin
   Table1.DatabaseName:=ExtractFilepath(application.ExeName);
   Table1.TableType := ttParadox;
   Table1.TableName := 'hamoudi075teq.db';
   Table1.Open;
 end; end; end;
 if (DirectoryExists('C:\malade'))and
    (not FileExists('C:\malade\hamoudi075teq.db')) then
   enregistrements;
end;

procedure TForm2.BitBtn4Click(Sender: TObject);
begin
  Table1.Filtered := false;
end;

procedure TForm2.BitBtn6Click(Sender: TObject);
begin
  if Table1.Filtered then Table1.Filtered := false;
  Table1.Last;
  Table1.Append;
  Table1.FieldByName('N').AsString := Edit4.Text;
  Table1.FieldByName('Nom_prenom').AsString := Edit5.Text;
  Table1.FieldByName('Age').AsString := Edit6.Text;
  Table1.FieldByName('Commune').AsString := Edit7.Text;
  Table1.FieldByName('Date_accident').AsDateTime := DateTimePicker1.Date;
  if ComboBox1.Text = 'ذكر' then
    Table1.FieldByName('Sexe').AsString := '1'
  else if ComboBox1.Text = 'أنثى' then
  Table1.FieldByName('Sexe').AsString := '0'
  else ;
  Table1.Post;
  BitBtn6.Enabled := false;
end;

procedure TForm2.Edit4Change(Sender: TObject);
begin
 BitBtn6.Enabled := true;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
 F:TextFile;
 s: string;
begin
 if OpenDialog1.Execute then
 begin
 AssignFile(F,ExtractFilepath(application.ExeName)+'ttf.txt');
 Rewrite(F);
 s := ExtractFileDir(OpenDialog1.FileName);
 write(F,s);
 CloseFile(F);
 TForm2FormActivates(s);
 end;
end;

procedure TForm2.Button2Click(Sender: TObject);
var
 F:TextFile;
 s: string;
begin
 SaveDialog1.FileName := Table1.TableName;
 if SaveDialog1.Execute then
 begin
  
  Table2.TableName := SaveDialog1.FileName;
  BatchMove1.Source := Table1;
  BatchMove1.Destination := Table2;
  BatchMove1.Mode := batCopy;
  BatchMove1.Execute;

  AssignFile(F,ExtractFilepath(application.ExeName)+'ttf.txt');
  Rewrite(F);
  s := ExtractFileDir(SaveDialog1.FileName);
  write(F,s);
  CloseFile(F);
  TForm2FormActivates(s);
 end;

end;

procedure TForm2FormActivates(path: string);
const DbiP='malad';
var
  AParam: TStringList;

begin
  AParam := TStringList.Create;
  try
    AParam.Clear;
    AParam.Add('PATH='+path); //+GetCurrentDir
    if Session.IsAlias(DbiP) then    
     Session.ModifyAlias(DbiP, AParam)
    else
     Session.AddStandardAlias(Dbip,GetCurrentDir,'Paradox');
    Session.SaveConfigFile;
  Finally
    AParam.Free;
  end;
end;



procedure TForm2.FormActivate(Sender: TObject);
begin
 TForm2FormActivates('C:\malade');
end;

end.

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