BitCell

by **ori** » 10 Jun 2011, 23:22

Salutare.
Incepator in ale programarii (Delphi 7) m-am lovit la serviciu de urmatoarea problema: trebuiesc introduse cateva zeci de mii de pacienti cu date personale ( nume, prenume, ..... CNP, adresa, etc.), inclusiv sexul, data nasterii, locul nasterii, varsta (la data curenta). M-am gandit ca aceste date sa le stochez intr-un tabel dbf (utilizand Delphi 7 cu BDE), sa introduc nume, prenume, adresa, CNP.
Si ca sa nu mai caut prin ditamai dosarul la data nasterii, locul nasterii etc. aceste date sa fie extrase din CNP automat si apoi sa le salvez in tabel.
Asta facand inainte verificare si validarea CNP-ului sa contina 13 cifre si nu litere, si eventual verificarea cifrei de control.
Marturisesc ca am studiat rezultatele Google in special cele publicate de DarkByte (super treaba), dar cum am spus nu ma pricep prea bine mai ales la Free Pascal (cum am vazut pe un alt forum).
Ma puteti ajuta pt. rezolvarea acestei probleme? ^:)^

Multumesc anticipat.

by **DarkByte** » 10 Jun 2011, 23:50

Salut, ori, si multumesc.

Nu am inteles exact ce ai nevoie ... am inteles ca vrei sa folosesti o baza de date (I have never worked with databases in Delphi

) in care sa introduci, direct din parsarea CNP-ului, sexul - data nasterii - locul nasterii. However, daca stii lucra cu baze de date si codul meu de parsare al CNP-urilor spui ca l-ai gasit ... ce anume ai nevoie ?

Daca e nevoie si poate usura treaba, pune si cod.

Bafta

P.S. Cand ai timp si chef, prezinta-te

by **ori** » 11 Jun 2011, 00:27

Multam de raspuns. Iata ce am reusit sa fac conform instructiunilor tale. Dar nu este complet. Lipseste data nasterii, varsta, locul nasterii, sexul. ~X(

Line number On/Off | Expand/Contract | Select all

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Label3: TLabel;
    ComboBox2: TComboBox;
    Label4: TLabel;
    ComboBox3: TComboBox;
    Label5: TLabel;
    ComboBox4: TComboBox;
    Label6: TLabel;
    ComboBox5: TComboBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function OnlyDigits(s:string):boolean;
var i:byte;
    d:boolean;
begin
  d:=true;
  for i:=1 to length(s) do
    if not (s[i] in ['0'..'9']) then d:=false;
  result:=d;
end;
 
function IsMonthOk(s:String):Boolean;
var luna:byte;
begin
  luna := StrToInt (Copy(s, 4, 2));
  IsMonthOk := (luna <= 12) and (luna <> 0);
end;
 
function IsDayOk(s:String):Boolean;
var ziua:byte;
begin
  ziua := StrToInt (Copy(s, 6, 2));
  IsDayOk := (ziua <= 31) and (ziua <> 0);
end;
 
function IsControlDigitOk(s:string):Boolean;
const c : string = '279146358279';
var suma, rest : integer;
    i : byte;
begin
  suma := 0;
  For i:=1 to 12 do suma := suma + StrToInt(s[i])*StrToInt(c[i]);
  rest := suma mod 11;
  if rest = 10 then rest := 1;
  IsControlDigitOk := (IntToStr(rest) = s[13]);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  s1, s2, s3, s4: string;
begin
  ComboBox1.Items.Clear;
  s1:=Edit1.Text;
  if (Length(s1)=13) and OnlyDigits(s1)
    Then Begin
      ComboBox1.Items.Add('CNP Valid');
      Edit1.Color:=clWhite;
         End
    Else Begin
      If not OnlyDigits(s1) then ComboBox1.Items.Add('CNP trebuie sa contina doar cifre');
      if not (Length(s1)=13) then ComboBox1.Items.Add('CNP trebuie sa contina 13 cifre');
      Edit1.Color:=clRed;
         End;
  ComboBox1.ItemIndex:=0;
begin
ComboBox2.Items.Clear;
  s2:=Edit1.Text;
  if IsMonthOK(s2)
    Then Begin
      ComboBox2.Items.Add('Luna este corecta.');
      Edit1.Color:=clWhite;
         End
    Else Begin
      If not IsMonthOK(s2) then ComboBox2.Items.Add('Luna nu este corecta.');
      Edit1.Color:=clRed;
         End;
  ComboBox2.ItemIndex:=0;
begin
ComboBox3.Items.Clear;
  s3:=Edit1.Text;
  if IsDayOK(s3)
    Then Begin
      ComboBox3.Items.Add('Ziua este corecta.');
      Edit1.Color:=clWhite;
         End
    Else Begin
      If not IsDayOK(s3) then ComboBox3.Items.Add('Ziua nu este corecta.');
      Edit1.Color:=clRed;
         End;
  ComboBox3.ItemIndex:=0;
begin
ComboBox4.Items.Clear;
  s4:=Edit1.Text;
  if IsControlDigitOK(s4)
    Then Begin
      ComboBox4.Items.Add('Cifra de control este corecta.');
      Edit1.Color:=clWhite;
         End
    Else Begin
      If not IsControlDigitOK(s4) then ComboBox4.Items.Add('Cifra de control nu este corecta.');
      Edit1.Color:=clRed;
         End;
  ComboBox4.ItemIndex:=0;
end;
end;
end;
end;
 
end.

by **DarkByte** » 11 Jun 2011, 00:46

Bun - n-ai prea specificat ce vrei, dar Google mi-a zis ca nu poti compila programul in Delphi 2006 (

) - presupun ca e vorba de programul complet

O sa-l rescriu maine in Delphi - complet - si o sa-l postez aici.

Bafta si noapte buna

by **ori** » 11 Jun 2011, 11:23

Da deci in formul meu vreau sa intoduc cnp intr-un TEdit.
apoi daca se apasa tasta Enter (pt. a merge la urmatorul control), la acest eveniment sa se faca verificarea:
- daca este format din 13 cifre (ca in codul de mai sus), daca nu sa se atentioneze asupra acestui lucru corectandu-se eroarea;
- sa afisez intr-un Label sexul (de exemplu M sau F) valoare care sa o salvez in tabel;
- in alt Label sa afisez data nasterii ( de forma zz.ll.aaaa) calculand apoi varsta in ani raportat la data curenta, data nasterii fiind si ea salvata in tabel;
- locul nasterii afisat intr-un alt label, conform codului de judet (exemplu 36 = Tulcea) care iarasi il salvez in tabel.
Bineinteles ca label-urile pot fi inlocuite de ComboBox sau TEdit etc.

Exemplu:
2750815360023 (fictiv)
Sexul = F
Data nasterii= 15.08.1975
Locul nasterii= Tulcea

CNP-ul fiind fictiv, cifra de control este la intamplare.

In felul asta este mai greu de gresit CNP-ul, adica sa nu introduc mai mult de 13 cifre sau vreo litera, sexul sa fie conform standardizarii, luna nu mai mare de 12, ziua nu mai mare de 31, anul in conformitate cu sexul (acestea 3 formand data nasterii), iar codul de judet conform codificarii standard.
Daca erau 100 - 200 de pacienti de inregistrat era ok dar sunt zeci de mii, iar chestia asta ar cam scurta timpul de lucru la jumatate. ~X(

La Delphi 2006 eroarea este pe readkey, clrscr. Oricum ma depaseste. :((

by **DarkByte** » 11 Jun 2011, 19:43

ReadKey si ClrScr nu au niciun folos intr-o aplicatie Windows

M-am apucat de program, o sa-l postez curand.

Bafta !

L.E. Am rescris tot codul de validare a CNP-urilor si l-am transformat intr-o clasa pentru a usura validarile de CNP in Delphi

by **sharky92** » 11 Jun 2011, 20:12

Vin si eu cu un mic ajutor, pe langa cel adus de DarkByte. Programul este facut in Free Pascal, verifica CNP si ne da cateva date despre persoana respectiva. Sper sa iti fie de folos. (va rog sa treceti cu vederea stilul babesc in care este scris

, e un pic mai vechi, l-am facut anul trecut)

Line number On/Off | Expand/Contract | Select all

 
{Made by Sharky92}
 
Program interactiv;
uses crt;
Type CN=record
     ziua:string;
     luna:string;
     an:string;
     Judet:string;
     nrord:integer;
     sex:byte;
         end;
 
var CNP:String;
    poz:byte;
    C:char;
    i:integer;
    info:CN;
    A:array[1..60] of string;
 
 
       Procedure Desen;
 
        begin
        for i:=25 to 55 do begin
        gotoxy(i,2);
        write(char(205));
        end;
 
        gotoxy(24,2);
        write(char(201));
        gotoxy(56,2);
        write(char(187));
 
        for i:=3 to 4 do begin
        gotoxy(24,i);
        write(char(186));
        end;
 
        gotoxy(24,5);
        write(char(200));
 
        for i:=25 to 55 do begin
        gotoxy(i,5);
        write(char(205));
        end;
 
        gotoxy(56,5);
        write(char(188));
 
        for i:=4 downto 3 do  begin
        gotoxy(56,i);
        write(char(186));
        end;
 
        gotoxy(30,4);
        write('C N P : ');
        read(CNP);
 
                Gotoxy(24,20);
                for i:=24 to 56 do begin
                gotoxy(i,20);
                write(char(196))
                end;
                for i:=24 to 56 do begin
                gotoxy(i,24);
                write(char(196));
                end;
                gotoxy(24,19);
                write('MESAJE:');
                Gotoxy(19,1);
                write('***Pentru a iesi din program ');
 
                write('apasati ESC***');
 
 
    end;
 
        Procedure verificare(CNP:string);
        var v:boolean;
                    eroare,Zv,Lv:byte;
                    i,aux,Jv:byte;
                    n3,n4:longint;
                    nrv:integer;
                    nrs,n1,n2,Zs,Ls,Js:String;
 
        begin
        v:=true;
        if length(CNP)<>13 then
            begin
            v:=false;
            Gotoxy(28,22);
            write('Ati introdus un CNP gresit'); Delay(4000); Halt;
            end;
 
                n1:=Copy(CNP,1,7);
                n2:=Copy(CNP,8,6);
                Val(n1,n3,eroare);
                if eroare<>0 then begin gotoxy(28,22); write('Ati introdus un CNP gresit'); Delay(4000); Halt;end;
                val(n2,n4,eroare);
                if eroare<>0 then v:=false;
 
 
 
                if V=false then begin gotoxy(28,22); write('Ati introdus un CNP gresit'); Delay(4000); Halt; end;
                if V=true then
                Case poz of
 
                      2:
                      Begin
                      Val(CNP[1],aux,eroare);
                      if aux=1 then
                                Begin
                                gotoxy(28,22);
                                write('Sex : MASCULIN                ');
                                end;
                      if aux=2 then
                                Begin
                                gotoxy(28,22);
                                write('Sex : FEMININ                 ');
                                end;
                      if (aux<>1) and (aux<>2) then
                                begin
                                gotoxy(28,22);
                                write('Ati introdus un CNP gresit'); Delay(4000); Halt;
                                end;
 
                      end;
 
 
                      1:
                      begin
                      Zs:=CNP[6]+CNP[7];
                      Ls:=CNP[4]+CNP[5];
                      Val(Zs,Zv,eroare);
                      Val(Ls,Lv,eroare);
                      if (Zv>32) or (Lv>12) or(v=false) then begin gotoxy(28,22); write('Ati introdus un CNP gresi'); Delay(4000); Halt; end;
                      Gotoxy(28,22);
                      Write('Data nasterii : ',Zv,'.',Lv,'.','19',CNP[2]+CNP[3]);
                      end;
 
                      3:
                      begin
                      Js:=CNP[8]+CNP[9];
                      Val(Js,Jv,eroare);
                      if Jv>52 then begin gotoxy(28,22); write('Ati introdus un CNP gresit'); Delay(4000); Halt; End;
                      Gotoxy(28,22);
                      write('Judetul :',A[Jv],'          ');
                      end;
 
                      4:
                      Begin
                      nrs:=CNP[10]+CNP[11]+CNP[12] ;
                      Val(nrs,nrv,eroare);
                      Gotoxy(28,22);
                      write('Numarul de ordine :',nrv,'       ');
                      end;
                      end;
 
 
 
 
        end;
 
    BEGIN {De aici incepe corpul programului}
 
    A[1]:='Alba Iulia';
    A[2]:='Arad';
    A[3]:='Arges';
    A[4]:='Bacau';
    A[5]:='Bihor';
    A[6]:='Bistrita';
    A[7]:='Botosani';
    A[8]:='Brasov';
    A[9]:='Braila';
    A[10]:='Buzau';
    A[11]:='Caras-Severin';
    A[12]:='Cluj';
    A[13]:='Constanta';
    A[14]:='Casanova';
    A[15]:='Dambovita';
    A[16]:='Dolj';
    A[17]:='Galati';
    A[18]:='Gorj';
    A[19]:='Harghita';
    A[20]:='Hunedoara';
    A[21]:='Ialmonita';
    A[22]:='Iasi';
    A[23]:='Ilfov';
    A[24]:='Maramures';
    A[25]:='Mehedinta';
    A[26]:='Mures';
    A[27]:='Neamt';
    A[28]:='Olt';
    A[29]:='Prahova';
    A[30]:='Satu Mare';
    A[31]:='Salaj';
    A[32]:='Sibiu';
    A[33]:='Suceava';
    A[34]:='Teleorman';
    A[35]:='Timis';
    A[36]:='Tulcea';
    A[37]:='Vaslui';
    A[38]:='Valcea';
    A[39]:='Vrancea';
    A[40]:='Bucuresti';
    A[41]:='Bucuresti Sectorul 1';
    A[42]:='Bucuresti Sectorul 2';
    A[43]:='Bucuresti Sectorul 3';
    A[44]:='Bucuresti Sectorul 4';
    A[45]:='Bucuresti Sectorul 5';
    A[46]:='Bucuresti Sectorul 6';
    A[51]:='Calarasi';
    A[52]:='Giurgiu';
 
 
 
 
 
        textbackground(7);
        clrscr;
        textcolor(0);
        desen;
                {afisam meniul initial}
        gotoxy(20,6);
 
        for i:=25 to 56 do begin
        gotoxy(i,7);
        write(char(196));
        end;
 
        for i:=25 to 56 do begin
        gotoxy(i,15);
        write(char(196));
        end;
 
        gotoxy(24,7);
        write(char(218));
        gotoxy(24,15);
        write(char(192));
 
        for i:=8 to 14 do begin
        gotoxy(24,i);
        write(char(179));
        end;
 
        gotoxy(56,7);
        write(char(191));
        gotoxy(56,15);
        write(char(217));
 
        for i:=8 to 14 do begin
        gotoxy(56,i);
        write(char(179));
        end;
 
        gotoxy(31,8);
        textbackground(11);
        write('   -Data nasterii-   ');
        textbackground(7);
        gotoxy(35,10);
        write('   -S E X-   ');
        gotoxy(29,12);
        write('   -Judetul nasterii-   ');
        gotoxy(30,14);
        write('   -Numar de ordine-   ');
 
        poz:=1;
        c:=#0;
 
        Repeat
        C:=readkey;
        case c of
                #72:  {sageata sus}
                begin
                if poz > 1 then dec(poz);
                end;
 
                #80:  {sageata jos}
                begin
                if poz < 4 then inc(poz);
                end;
 
                #13:
                begin
                verificare(CNP);
                end; end;
 
 
        gotoxy(31,8);
        write('   -Data nasterii-   ');
        gotoxy(35,10);
        write('   -S E X-   ');
        gotoxy(29,12);
        write('   -Judetul nasterii-   ');
        gotoxy(30,14);
        write('   -Numar de ordine-   ');
 
        if poz=1 then begin
        gotoxy(31,8);
        textbackground(11);
        write('   -Data nasterii-   ');
        end;
 
        textbackground(7);
 
        if poz=2 then begin
        gotoxy(35,10);
        textbackground(11);
        write('   -S E X-   ');
        end;
 
        textbackground(7);
 
        if poz=3 then begin
        gotoxy(29,12);
        textbackground(11);
        write('   -Judetul nasterii-   ');
        end;
 
        if poz=4 then begin
        gotoxy(30,14);
        textbackground(11);
        write('   -Numar de ordine-   ');
        end;
        textbackground(7);
 
 
    Until (c=#27);
    
end.
 

by **v0id** » 13 Jun 2011, 22:06

Precizez de la inceput ca nu am urmarit cu foarte mare atentie toate post-urile din acest topic, dar sunt cateva chestii care mi-au atras atentia.

@ori - as fi doar curios de ce ai ales sa salvezi doar CNP-ul, urmand ca pe baza lui sa extragi informatiile necesare? Ridic aceasta problema din ratiuni de performanta. Datele care acum trebuie introduse in baza de date vor trebui si citite candva (altfel de ce s-ar tine intr-o baza de date?

).
De exemplu, poate ti se va cere sa listezi toate persoanele nascute intr-o anumita perioada, sa zicem intre 1990 si 2000. Ce faci cand trebuie sa scrii un astfel de SELECT? Parsarea CNP-ului convertit in string, extragerea anului din fiecare CNP si verificarea daca se inscrie in plaja de valori 1990-2000? Clar nu este optim. Nici daca tratezi CNP-ul ca numar intreg si extragi cifrele ce compun anul nasterii nu cred ca va fi mult mai rapid. Daca ai zeci sau sute de mii de record-uri cam suna a belea...

Chiar daca datele vor fi greu de introdus si va exista o oarecare redundanta, poate e mai bine sa le salvezi in campuri separate. Sau varianta B - la introducerea datelor lasi user-ul sa introduca CNP-ul in interfata, dar tu in baza de date il "spargi" in campuri separate. Extragi din CNP acele date pe care le vei folosi in SELECT-uri si acelea le pui in campuri separate. Creezi indecsi pe acele campuri si ar trebui sa obtii niste SELECT-uri foarte rapide. De exemplu, daca salvezi intr-un camp data nasterii in format datetime, e mai rapid sa faci un (YearOf(DATA_NASTERII) in [1990..2000]) decat ce am descris mai sus cu parsarea pe CNP.

Eu as recomanda sa faci niste teste concrete, sa te lamuresti "pe pielea ta". Iti creezi si populezi tabelul in varianta care ai gandit-o tu. Apoi te apuci si faci niste SELECT-uri pe care le cronometrezi.
Urmatorul pas ar fi sa incerci o alta varianta de stocare a datelor, cum ar fi cea propusa de mine. Populezi din nou tabelul cu acelasi set de date ca in testul anterior si faci aceleasi SELECT-uri cronometrate, doar ca le adaptezi la noua structura a bazei de date. Ar trebui sa ai o diferenta de viteza semnificativa.

Pentru popularea tabelelor poti sa scrii un mic programel, dar important este sa ai aceleasi date in ambele tabele, pentru a nu vicia rezultatele testelor.

Inca o intrebare: nu am lucrat pana cum cu BDE, dar exista vreun motiv special pentru care l-ai ales? Cati useri vor folosi baza de date simultan (i.e. la cati clienti trebuie sa faca fata serverul)?

by **ori** » 14 Jun 2011, 22:03

Salutare din nou.

v0id, pe scurt: varianta B.
In tabel nu salvez doar CNP, ci nume, prenume, adresa, cnp, sex, data nasterii, locul nasterii.

Tocmai ca sunt de folos in diverse rapoarte aceste date (vezi bold) am nevoie de a extrage aceste date din cnp, fara ca utilizatorul sa le mai scrie. Se stie ca, cu cat utilizatorul introduce manual mai multe date, cu atat creste riscul de a fi introduse date eronate. Aplicatia este desktop.

by **v0id** » 15 Jun 2011, 11:01

ori wrote:M-am gandit ca aceste date sa le stochez intr-un tabel dbf (utilizand Delphi 7 cu BDE), sa introduc nume, prenume, adresa, CNP.
Si ca sa nu mai caut prin ditamai dosarul la data nasterii, locul nasterii etc. aceste date sa fie extrase din CNP automat si apoi sa le salvez in tabel.

Din afirmatiile tale citate de mine mai sus nu era foarte clar cum vrei sa faci - in prima zici doar de CNP, in a doua zici ca le extragi. Acum m-am linistit #:-S

BitCell

Verificare, validare si extragere date din CNP

Verificare, validare si extragere date din CNP

Re: Verificare, validare si extragere date din CNP

Re: Verificare, validare si extragere date din CNP

Re: Verificare, validare si extragere date din CNP

Re: Verificare, validare si extragere date din CNP

Re: Verificare, validare si extragere date din CNP

Re: Verificare, validare si extragere date din CNP

Re: Verificare, validare si extragere date din CNP

Re: Verificare, validare si extragere date din CNP

Re: Verificare, validare si extragere date din CNP

Who is online