ما هو الخطأ في هذه الملفات - نسخة قابلة للطباعة

كود :

unit untDataModule;

interface

uses
 SysUtils, Classes, DB, DBTables, Dialogs,Controls;

type
 TDataModule1 = class(TDataModule)
 private
 public
 end;

 procedure db100(cd,nm,pnm: string);  stdcall;
 procedure dbOut100(sear: string; var cd,nm,pnm: string);  stdcall;
 function dbPassword(sear: string): boolean;  stdcall;
 procedure Add_dbPassword(Mot_de: string);  stdcall;
 procedure dbDEL100(sear: string);  stdcall;
                    
type
 arryee= array of string; //ansistring  widestring

procedure dbTable100(var cont: integer; var arrya, arrya1,arrya2: arryee);
stdcall;

var
 DataModule1: TDataModule1;
// arry: array of arryee;

implementation

{$R *.dfm}

procedure db100(cd,nm,pnm: string); stdcall;
var
ffm: tTable;
begin
  ffm := tTable.Create(nil);
  try
   ffm.Close;
   ffm.TableName := 'person1.db';
   ffm.Open;
   ffm.Last;
   ffm.Append;
   ffm.FieldByName('Code').AsString := cd;
   ffm.FieldByName('Nom').AsString := nm;
   ffm.FieldByName('Porenom').AsString := pnm;
   ffm.Post;
  finally
   ffm.Free;
  end;

end;

procedure dbTable100(var cont: integer; var arrya, arrya1,arrya2: arryee);
stdcall;
var
  tab10: TTable;
  i: integer;

begin
  i := 0;
  tab10 := TTable.Create(nil);
  try
   tab10.Close;
   tab10.TableName := 'person1.db';
   tab10.Open;
   cont := tab10.RecordCount;
   SetLength(arrya,cont);
   SetLength(arrya1,cont);
   SetLength(arrya2,cont);
   tab10.DisableControls;
   try
   tab10.First;
   while not tab10.Eof do
   begin
     arrya[i] := tab10.FieldByName('Code').AsString;
     arrya1[i] := tab10.FieldByName('Nom').AsString;
     arrya2[i] := tab10.FieldByName('Porenom').AsString;
     tab10.Next;
     i := i + 1;
   end;
   finally
     tab10.EnableControls;
   end;
  finally
     tab10.Free;
  end;

end;

function dbPassword(sear: string): boolean;  stdcall;
var
tblPass: tTable;
begin
  tblPass := tTable.Create(nil);
  try
   tblPass.Close;
   tblPass.TableName := 'motdepass.db';
   tblPass.Open;
   if tblPass.Locate('Mot',sear,[]) then Result := true
     else Result := false;
  finally
   tblPass.Free;
  end;
end;

procedure Add_dbPassword(Mot_de: string);  stdcall;
var
tblPass: tTable;
begin
  tblPass := tTable.Create(nil);
  try
   tblPass.Close;
   tblPass.TableName := 'motdepass.db';
   tblPass.Open;
   tblPass.First;
   if tblPass.RecordCount>0 then tblPass.Append
     else tblPass.Edit;
   tblPass.FieldByName('Mot').AsString := Mot_de;
   tblPass.Post;
  finally
   tblPass.Free;
  end;
end;

procedure dbOut100(sear: string; var cd,nm,pnm: string);  stdcall;
var
tblOut: tTable;
begin
  tblOut := tTable.Create(nil);
  try
   tblOut.Close;
   tblOut.TableName := 'person1.db';
   tblOut.Open;
   tblOut.Locate('Nom',sear,[]);
   cd := tblOut.FieldByName('Code').AsString;
   nm := tblOut.FieldByName('Nom').AsString;
   pnm := tblOut.FieldByName('Porenom').AsString;
  finally
   tblOut.Free;
  end;
end;

procedure dbDEL100(sear: string);  stdcall;
var
tblDEL: tTable;
s1: string;  
begin
  tblDEL := tTable.Create(nil);
  try
   tblDEL.Close;
   tblDEL.TableName := 'person1.db';
   tblDEL.Open;
   tblDEL.Locate('Nom',sear,[]);
   s1 := tblDEL.FieldByName('Nom').AsString;
   if MessageDlg('هل تريد حذف هذا الاسم '+
   s1+' ?',mtWarning,[mbYes, mbNo],0)
    = mrYes then tblDEL.Delete; 
  finally
   tblDEL.Free;
  end;
end;

exports db100 name 'dbin', dbOut100 name 'dbout',
     dbTable100 name 'dbTab', dbPassword name 'Passwords',
       Add_dbPassword name 'Add_dbPasswords', dbDEL100 name 'DEL100';

end

كود :

unit Unit3;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.StdCtrls;

type
 TForm3 = class(TForm)
   Memo1: TMemo;
   Button5: TButton;
   GroupBox1: TGroupBox;
   Label1: TLabel;
   Label2: TLabel;
   Label3: TLabel;
   Button2: TButton;
   Edit3: TEdit;
   Edit2: TEdit;
   Edit1: TEdit;
   GroupBox2: TGroupBox;
   Edit4: TEdit;
   Button3: TButton;
   Button1: TButton;
   GroupBox3: TGroupBox;
   Edit5: TEdit;
   Button4: TButton;
   StringGrid1: TStringGrid;
   GroupBox4: TGroupBox;
   Edit6: TEdit;
   Button6: TButton;
   procedure Button5Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
   procedure Button3Click(Sender: TObject);
   procedure Button4Click(Sender: TObject);
   procedure Button6Click(Sender: TObject);
   procedure Button1Click(Sender: TObject);
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
 private
 public
 end;


 procedure db100(cd,nm,pnm: string);  stdcall;
 external 'ProjectDLL.dll' name 'dbin';
 procedure dbOut100(sear: string; var cd,nm,pnm: widestring);  stdcall;
 external 'ProjectDLL.dll' name 'dbout';
 procedure Add_dbPassword(Mot_de: string);  stdcall;
 external 'ProjectDLL.dll' name 'Add_dbPasswords';
 procedure dbDEL100(sear: string);  stdcall;
 external 'ProjectDLL.dll' name 'DEL100'; //; var s1,s2,s3: widestring

type
 arryee1= array of widestring; //ansistring
procedure dbTable100(var cont: integer; var arrya, arrya1,arrya2: arryee1);  stdcall;
 external 'ProjectDLL.dll' name 'dbTab';

var
 Form3: TForm3;

implementation


{$R *.dfm}

procedure TForm3.Button2Click(Sender: TObject);
begin
 db100(Edit1.Text,Edit2.Text,Edit3.Text);
 Edit1.Text:='';
 Edit2.Text:='';
 Edit3.Text:='';
 Edit1.SetFocus;
end;

procedure TForm3.Button3Click(Sender: TObject);
var
 a,b,c: widestring ;  //            ansistring
begin
 dbOut100(Edit4.Text,a,b,c);
 Edit1.Text:=a;
 Edit2.Text:=b;
 Edit3.Text:=c;
end;

procedure TForm3.Button4Click(Sender: TObject);
begin
Add_dbPassword(Edit5.Text);
end;

procedure TForm3.Button5Click(Sender: TObject);
var
 arrya00, arrya11,arrya22: arryee1;
 cont12: integer;
 i1: integer;
begin
StringGrid1.Cells[1,0] := 'الرقم';
StringGrid1.Cells[2,0] := 'الاسم';
StringGrid1.Cells[3,0] := 'اللفب';
Memo1.Lines.Clear;
// if iii = 0 then
dbTable100(cont12,arrya00, arrya11,arrya22);

for i1 := 0 to 10 do
begin
 if i1 < cont12 then
 begin
  Memo1.Lines.Add(arrya00[i1]+'   '+arrya11[i1]+'  '+arrya22[i1]);
  StringGrid1.RowCount := cont12+1;
  StringGrid1.Cells[1,i1+1] := arrya00[i1];
  StringGrid1.Cells[2,i1+1] := arrya11[i1];
  StringGrid1.Cells[3,i1+1] := arrya22[i1];
 end;
end;
end;

procedure TForm3.Button6Click(Sender: TObject);
begin
 dbDEL100(Edit6.Text);
end;


end.