ايجاد و نصب users,tables,database در sql از طريق دلفي

سلام. من 1 db دارم ميخوام مثلا" اين برنامه رو بفرستم شيراز خودشون نصب كنن.
اولا كدهاي كاربردي براي اين كار رو ميخوام(ايجاد و نصب users,tables,database در sql از طريق دلفي)
ثانيا من تو يه تاپيك خوندم اگه بانك sql هست رو كلاينتا بايد حتما sql نصب باشه در حاليكه ما يه برنامه خريديم كه اينطور نيست و كلاينتا لزوما" sql ندارن. البته در مورد برنامه هاي خودم اين قضيه صدق ميكنه .

نقل قول:

---

نوشته شده توسط sadia [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام. من 1 db دارم ميخوام مثلا" اين برنامه رو بفرستم شيراز خودشون نصب كنن.
اولا كدهاي كاربردي براي اين كار رو ميخوام(ايجاد و نصب users,tables,database در sql از طريق دلفي)
ثانيا من تو يه تاپيك خوندم اگه بانك sql هست رو كلاينتا بايد حتما sql نصب باشه در حاليكه ما يه برنامه خريديم كه اينطور نيست و كلاينتا لزوما" sql ندارن. البته در مورد برنامه هاي خودم اين قضيه صدق ميكنه .

---

سلام
بايد يه ستاب بسازيد يا توي برنامه چك كنيد كه بانك روي سرور وجود داره يا نه اگر نبود بسازيدش :

روش اول :

کد:

---

uses AdoDB;

var
  q: TAdoQuery;
  db: TAdoConnection;
begin

      q := TADOQuery.Create(nil);
    q.Connection := db;
    q.Close;
    q.SQL.Clear;
    q.SQL.Add('Create Table MYTABLENAME (ID COUNTER PRIMARY KEY, MYTEXT1 String, MYTEXT2 String);');
    q.Prepared := True;
    try
      q.ExecSQL;
    except
end;
    q.Free;
end;

---

روش دوم :

کد:

---

procedure TLocal.CreateTables(WindowsSecurity: Boolean; Username, Password: String);
var
  ConnectionString: String;
begin
  if WindowsSecurity then
    ConnectionString := 'Provider=SQLOLEDB.1;' +
                        'Integrated Security=SSPI;' +
                        'Persist Security Info=False;' +
                        'Initial Catalog=test'
  else
    ConnectionString := 'Provider=SQLOLEDB.1;' +
                        'Password=' + Password + ';' +
                        'Persist Security Info=True;' +
                        'User ID=' + Username + ';' +
                        'Initial Catalog=test';
  try

    try
      ADOConnection.ConnectionString := ConnectionString;
      ADOConnection.LoginPrompt := False;
      ADOConnection.Connected := True;

      ADOQuery.Connection := ADOConnection;

      ADOQuery.SQL.Clear;
      with ADOQuery.SQL do
      begin
        Add('create table Klijent(');
        Add('JMBG    char(13) not null,');
        Add('Ime      char(30) not null,');
        Add('Adresa  char(30) not null,');
        Add('Telefon  char(15) not null,');
        Add('Primanja numeric(6,2) not null,');
        Add('primary key (JMBG))');
      end;
      ADOQuery.ExecSQL;

      ADOQuery.SQL.Clear;
      with ADOQuery.SQL do
      begin
        Add('create table Kredit(');
        Add('Sifra    numeric not null,');
        Add('Tip      char(15) unique not null,');
        Add('Kamata  numeric not null,');
        Add('primary key (Sifra))');
      end;
      ADOQuery.ExecSQL;

      ADOQuery.SQL.Clear;
      with ADOQuery.SQL do
      begin
        Add('create table Operator(');
        Add('JMBG    char(13) unique not null,');
        Add('Ime      char(30) not null,');
        Add('Sifra    char(30) not null,');
        Add('Adresa  char(30) not null,');
        Add('Telefon  char(15) not null,');
        Add('Prioritet smallint not null check (Prioritet>0),');
        Add('primary key (JMBG))');
      end;
      ADOQuery.ExecSQL;

      ADOQuery.SQL.Clear;
      with ADOQuery.SQL do
      begin
        Add('create table Kreditiranja (');
        Add('Sifra          numeric not null,');
        Add('Sifra_kredita  numeric not null,');
        Add('Datum          datetime,');
        Add('Iznos_kredita  numeric(10,2) check (Iznos_kredita>0),');
        Add('Broj_rata      numeric,');
        Add('JMBG_klijenta  char(13),');
        Add('JMBG_operatora char(13),');
        Add('primary key(Sifra),');
        Add('foreign key(Sifra_kredita) references Kredit(Sifra) on delete cascade on update cascade,');
        Add('foreign key(JMBG_klijenta) references Klijent(JMBG) on delete cascade on update cascade,');
        Add('foreign key(JMBG_operatora) references Operator(JMBG) on delete cascade on update cascade)');
      end;
      ADOQuery.ExecSQL;

      ADOQuery.SQL.Clear;
      with ADOQuery.SQL do
      begin
        Add('create table Rata (');
        Add('Broj_rate    numeric not null,');
        Add('Broj_sifre  numeric not null,');
        Add('Datum        datetime,');
        Add('Iznos_rate  numeric(10,2) check (Iznos_rate>0),');
        Add('primary key (Broj_rate),');
        Add('foreign key (Broj_sifre) references Kreditiranja(Sifra) on delete cascade on update cascade)');
      end;
      ADOQuery.ExecSQL;

      MessageDlg('Tabele su uspjesno kreirane.', mtInformation, [mbOK], 0);
    except
      on E: Exception do MessageDlg(E.Message, mtWarning, [mbOK], 0);
    end;

  finally
    ADOConnection.Connected := False;
  end;
end;

---

نقل قول:

---

سلام. من 1 db دارم ميخوام مثلا" اين برنامه رو بفرستم شيراز خودشون نصب كنن.
اولا كدهاي كاربردي براي اين كار رو ميخوام(ايجاد و نصب users,tables,database در sql از طريق دلفي)
ثانيا من تو يه تاپيك خوندم اگه بانك sql هست رو كلاينتا بايد حتما sql نصب باشه در حاليكه ما يه برنامه خريديم كه اينطور نيست و كلاينتا لزوما" sql ندارن. البته در مورد برنامه هاي خودم اين قضيه صدق ميكنه .

---

نیازی نیست که در کلاینتها sql نصب بشه و کافی ادرس سروری که بانک در او نصبه بدی
و ساخت جداول و بانک از طریق دلفی میتونی از help خود sql کمک بگیری و بعد بیاریش تو دلفی پیاده کنی

ممنون از توضيحات كامل شما. امتحان ميكنم .