1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56
| procedure TFNvllBDD.JvTransparentButton21Click(Sender: TObject);
begin
if JvEdit1.Text <> '' then
begin
if RadioBtn1.Checked then // Création BDD vierge
begin
with DMgle do
begin
IBDBgle.DatabaseName := GetCurrentDir+'\'+JvEdit1.Text+'.GDB';
IBDBgle.SQLDialect := 3;
IBDBgle.Params.Clear;
IBDBgle.Params.Add('USER "SYSDBA"');
IBDBgle.Params.Add('PASSWORD "masterkey"');
IBDBgle.Params.Add('PAGE_SIZE 4096');
IBDBgle.CreateDatabase;
IBDBgle.Connected := true;
IBTransGle.Active := true;
IBQgle.Close;
IBQgle.SQL.Clear;
IBQgle.SQL.Add('CREATE TABLE T_CLIENT(CODE_CLIENT CHAR(5) NOT NULL,'
+'TITRE CHAR(8),'
+'NOM_PRENOM CHAR(64) NOT NULL,'
+'TYPE_CLIENT CHAR(15) NOT NULL,'
+'ADRESSE VARCHAR(64) NOT NULL,'
+'COMMUNE VARCHAR(32) NOT NULL,'
+'WILAYA VARCHAR(32) NOT NULL,'
+'CODE_POSTAL CHAR(5) NOT NULL,'
+'TELEPHONE CHAR(20) NOT NULL,'
+'EMAIL VARCHAR(100) NOT NULL,'
+'ETAT CHAR(7) NOT NULL);') ;
IBQgle.ExecSQL;
IBTransGle.Commit;
IBDBgle.Connected:=false;
IBDBgle.Params.Add('user_name=SYSDBA');
IBDBgle.Params.Add('password=masterkey');
IBDBgle.LoginPrompt := false;
IBQgle.Close;
IBQgle.SQL.Clear;
IBQgle.SQL.Add('select * from T_CLIENT');
IBDBgle.Connected:=true;
IBTransGle.Active:=true;
IBQgle.Open;
end; // end DMgle do
end; // end RadioBtn1
if RadioBtn2.Checked then // Création d'une BDD à partir d'une BDD existante
begin
end; // end RadioBtn2
end //end JvEdit <> ''
else
begin
MessageDlg('Specifiez d''abord le Nom de la BDD !!!', mtError, [mbOk],0);
end; // end else
end; |
Partager