DataBase , sqlserver , mysql

[zombi]

Öncelikle merhaba ve sizleri rahatsız ettiğim için özür dilerim.

Ben 5 aylık delphi kullanıcısıyım aldığım kitaptan ve indirdiğim e-book lardan okuyarak ve basit amaçlı programlar yaparak kendimi geliştirmeye çalışıyorum.

Sadece bahsettiğim kitapları okuyarak kendimi geliştirebilceğimi sanmıyorum ve bu yüzden devamlı programlar yazarak Delphi nin mantığını iyice anlamaya çalışıyorum.

Lafı fazla uzatmadan ve sizi sıkmadan sizden bi isteğim olacak.

Ben şu anda stok ve cari takip programı yazmak istiyorum ancak kulanılabilirliği şöyle olmalı mesela program 5 değişik yerde kullanılıyor ancak tek database kullanılıyor tabii bu olduktan sonra tek bi yerde olan makinalarda tek server dan çalışacak sanırım mysql,sqlserver dedikleri bu olsa gerek.

Programın çalışma mantığı gelen fatura işlenecek kayıt ettiğim zaman alınan firmanın alacağına o fatura tutarı işlenecek ve fatura içindeki malzemelerde stoklara yazılacak aynı şekilde satış faturasıda işlenince mantık aynı olacak..

ancak bunu yapabilmek için önce bunun mantığını öğrenem gerek vede delphide hangi componen bileşenlerini kullanma gerekecek_? Önce database ve bağlantı hangi componentlerle yapılır mantığını öğrenirsem sonrada küçük bi örneğe ihtiyacım var çünkü bu benim boyumu aşan bi proje. ancak delphide kendimi böyle bi program yazarak geliştirebilceğimi düşünüyorum.

Ben ide olarak Codegear Rad Studio 2007 kullanıyorum.

[cemaliozan]

Sana başka bir yerden aldığım ve ücretsiz dağıtılan iki tam kaynak kod vereyim. Bunları hiç derlemedim ve kullanmadım. İncele işine yarayan kısımların mantığını kavra.

[Caylaq]

Merhaba,

Sevgili Zombi,

Öncelikle Projenizde başarılar diliyorum. Hemen belirtmeliyim ki , programlama aşamasına geçmeden önce database konusunu çok iyi kavramak gerekiyor.

Şimdi hazırlayacagınız kobiler için bir proje ileride gelişip devasa firmalara hitap edecek şekle gelebilir. Programlama konusunda bir sıkıntınızın olacagını sanmıyorum. Çünkü Kod yazma konusunda ufak bir tecrübeniz ve birazda hevesiniz varsa tıkır tıkır bu işi yapacaksınızdır.

Ancak Database konusunda aynı şeyi söyleyemeyeceğim. Database baştan bir kere oluşturursunuz ve sisteminizi ona göre yapılandırırsınız

Sistemin eksikliği her zaman giderilir ama database ileride değiştirmeniz çok zor olabilir. Database konusunda satın alabileceğiniz harika kitaplar mevcuttur.

Kişisel görüşüm ki bunuda şiddetle tavsiye ederim. SQL Server'ı kullanmanız.



Kolaylıklar dilerim






.

[zombi]

sayın @cemaliozan verdiğiniz örnekler için teşekkür ederim.

sayın @Caylaq açılan bu tür konulara siz ve sizler gibi insanların yaptığı bu tür yorumlar sayesinde inanın ben Delphi ve programcılık hevesim dahada artıyor. İlk mesajımda bahsettiğim gibi Database konusu çok farklı ve mantığınıda açıkçası bilmiyorum benim ve projemin sağlam bir temeli olması için önce database mantığını kavramam gerektiğini düşünüyorum.. bir arkadaşım da bana MySQL il çok iyi ve çok hızlı olduğundan bahsetmişti. Ancak sizin tavsiyeniz SQL Server sa benim tercihimde SQL Server olacak. SQL Server konusunda bilgi alabileceğim yada mantoğı kavrayabileceğim türkçe e-book varmı elinizde_?

Gösterdiğiniz ilgi ve verdiğiniz cevaplardan ötürü ikinizede çok çok teşekkür ederim.

Sizler sayesinde Delphi yi ve bu forumu daha çok seveceğim...

[zombi]

yeniden merhaba verdiğiniz ekteki kodları inceledim bu kodlar benim için şu an mantığı anlayabilmem için çok profosyonel seviyede olduğu için açıkçası karışık geldi. Ancak verdiğim linkte karate isimli bir kaynak kod verilmiş http://forum.ceviz.net/acsess-veri-t...si-t57877.html ancak veritabanı olarak sanırım access kullanılmış access veri tabanları zamanla girilen bilgiden dolayı şişme yapıp programın ağır çalışacağını duydum yanlış biliyorsam düzeltin lütfen.. Bana bu karate örneği gibi basit ama database olarak SQL Server kullanacağım basit bi çalışma örneği verebilirmisiniz lütfen beni yanlış anlamayın hazır kod aramıyorum sadece SQL Server ve database mantığını doğru anlamak istiyorum. Başkalarının kodları ile Delphi de vede programcılıkda bi yere varamıyacağımı biliyorum. forumda bi çok örnek çalışma verilmiş ancak ben yanlış yola sapıp zaman kaybetmek istemiyorum. Saygılarımla

[zombi]

ben bazı kodlar buldum kendime topic açıldığından beri ne istediğim anlaşılmıştır bazı kodlar buldum benim sql database oluşturmam için mantık bumudur_?

procedure Tform1.CreateDatabase(WindowsSecurity: Boolean; KullaniciAdi, Sifre, VeriTabani : String);
var
  ConnectionString: String;
  CommandText: String;
begin
  if WindowsSecurity then
    ConnectionString := ’Provider=SQLOLEDB.1;’ +
                        ’Integrated Security=SSPI;’ +
                        ’Persist Security Info=False;’ +
                        ’Initial Catalog=master’
  else
    ConnectionString := ’Provider=SQLOLEDB.1;’ +
                        ’Password=’ + Sifre + ’;’ +
                        ’Persist Security Info=True;’ +
                        ’User ID=’ + KullaniciAdi + ’;’ +
                        ’Initial Catalog=master’;
  try
    try
      ADOConnection1.ConnectionString := ConnectionString;
      ADOConnection1.LoginPrompt := False;
      ADOConnection1.Connected := True;

      CommandText := ’CREATE DATABASE ’+VeriTabani+’ ON ’ +
                     ’( NAME = ’+VeriTabani+’_dat,    ’ +
                     ’FILENAME = ’’c:\\program files\\microsoft sql server\\mssql\\data\\’+VeriTabani+’.mdf’’, ’ +
                     ’SIZE = 4, ’ +
                     ’MAXSIZE = 10, ’ +
                     ’FILEGROWTH = 1 )’;
      ADOCommand1.CommandText := CommandText;
      ADOCommand1.Connection := ADOConnection1;
      ADOCommand1.Execute;
      MessageDlg(’Veritabanı başarıyla oluşturuldu.’, mtInformation, [mbOK], 0);
    except
      on E: Exception do MessageDlg(E.Message, mtWarning, [mbOK], 0);
    end;
  finally
    ADOConnection1.Connected := False;
    ADOCommand1.Connection := nil;
  end;
end; 

başka bir kod:

unit createdb;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, DB, ActiveX, ComObj, ADODB;
type
Tfrmcreatedb = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
ADOConnection1: TADOConnection;
ADOCommand1: TADOCommand;
ADOQuery1: TADOQuery;
GroupBox1: TGroupBox;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
SpeedButton1: TSpeedButton;
Label6: TLabel;
Edit2: TEdit;
procedure FormShow(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
server,database,user,password,database_dir,str_data_file,str_log_file:string;
function CreateSqlDatabase(server,database,user,password,database_dir,str_data_file,str_log_file:string):Boolean;
procedure tablo_olustur;
public
{ Public declarations }
end;
var
frmcreatedb: Tfrmcreatedb;

implementation
uses path;
{$R *.dfm}
//SQL Server bağlantısını kontrol et
function ConnectSqlDatabase(UserName,Password,Server:string):Boolean;
var
ADOConnection: OleVariant; //uses ComObj;
begin
ADOConnection := CreateOleObject('ADODB.Connection');
ADOConnection.CursorLocation := 3; // User client
ADOConnection.ConnectionString :='Provider=SQLOLEDB.1;Persist Security Info=False;Data Source='+Server+';User ID='+UserName+';Password='+Password;
try
ADOConnection.Open;
result:= true;
except
result:= false;
end;
end;
//veritabanı oluşturmak.
function Tfrmcreatedb.CreateSqlDatabase(server,database,user,password,database_dir,str_data_file,str_log_file:string):Boolean;
begin
result:=false;
//master veritabanına bağlan
ADOConnection1.Connected :=false;
ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=false;User ID='+user+';Initial Catalog=master;Password ='+password+';Data Source=' +server;
ADOConnection1.Connected := true;
if ADOConnection1.Connected then begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from master..sysdatabases WHERE name='''+database+'''');
ADOQuery1.Open;
if ADOQuery1.RecordCount >0 then begin //veritabanını önceden oluşturulmuş
ShowMessage('Veritabanı Önceden Oluşturulmuş...');
exit;
end
else begin //veritabanı yok, seçili dizi altında oluştur
ADOCommand1.Cancel();
ADOCommand1.CommandText:='CREATE DATABASE ['+database+'] ON (NAME = '+database+'_data, FILENAME = '''+str_data_file+''') LOG ON (NAME = '+database+'_log, FILENAME = '''+ str_log_file+''') COLLATE Turkish_CI_AS ';
ADOCommand1.Execute;
//veritabanına bağlan
ADOConnection1.Connected :=false;
ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=false;User ID='+user+';Initial Catalog='+database+';Password ='+password+';Data Source=' +server;
ADOConnection1.Connected := true;
if ADOConnection1.Connected then begin
//tabloları oluştur
tablo_olustur;
result:=true;
end;
end;
end;
end;
//TABLOLARI OLUŞTURMAK.
procedure Tfrmcreatedb.tablo_olustur;
var
SQL:string;
begin
//---------------------------------------------------------------------
SQL:='';
SQL:=SQL+' IF NOT EXISTS (select * from dbo.sysobjects where id = object_id(N''[dbo].[stok_table]'') and OBJECTPROPERTY(id, N''IsUserTable'') = 1)';
SQL:=SQL+' CREATE TABLE [stok_table] ( ';
SQL:=SQL+' Kod VARCHAR ( 10) ,';
SQL:=SQL+' Adi VARCHAR ( 30) ,';
SQL:=SQL+' Unvani VARCHAR ( 50) ,';
SQL:=SQL+' Birim VARCHAR ( 10) ,';
SQL:=SQL+' BirimCarpan FLOAT ,';
SQL:=SQL+' DepoKodu VARCHAR ( 10) ,';
SQL:=SQL+' GrupKodu VARCHAR ( 10) ,';
SQL:=SQL+' GirenMiktar FLOAT ,';
SQL:=SQL+' CikanMiktar FLOAT ,';
SQL:=SQL+' KalanMiktar FLOAT ,';
SQL:=SQL+' BirimFiyati MONEY ,';
SQL:=SQL+' Tarih DATETIME ,';
SQL:=SQL+' PRIMARY KEY (Kod) )';
ADOCommand1.Cancel();
ADOCommand1.CommandText:=SQL;
ADOCommand1.Execute;
//---------------------------------------------------------------------
SQL:='';
SQL:=SQL+' IF NOT EXISTS (select * from dbo.sysobjects where id = object_id(N''[dbo].[sthr_table]'') and OBJECTPROPERTY(id, N''IsUserTable'') = 1)';
SQL:=SQL+' CREATE TABLE [sthr_table] ( ';
SQL:=SQL+' Sira BIGINT IDENTITY(1,1) NOT NULL ,'; //autoincrement alan
SQL:=SQL+' EvrakTarihi DATETIME ,';
SQL:=SQL+' EvrakNo VARCHAR ( 20) ,';
SQL:=SQL+' StokKodu VARCHAR ( 10) ,';
SQL:=SQL+' StokAdi VARCHAR ( 30) ,';
SQL:=SQL+' Aciklama VARCHAR ( 60) ,';
SQL:=SQL+' Birim VARCHAR ( 10) ,';
SQL:=SQL+' BirimFiyati MONEY ,';
SQL:=SQL+' KdvOrani INT ,';
SQL:=SQL+' FaturaNo VARCHAR ( 10) ,';
SQL:=SQL+' KayitTarihi DATETIME,';
SQL:=SQL+' PRIMARY KEY (Sira,EvrakTarihi,EvrakNo,StokKodu) )';
ADOCommand1.Cancel();
ADOCommand1.CommandText:=SQL;
ADOCommand1.Execute;
//---------------------------------------------------------------------
SQL:='';
SQL:=SQL+' IF NOT EXISTS (select * from dbo.sysobjects where id = object_id(N''[dbo].[fatura_table]'') and OBJECTPROPERTY(id, N''IsUserTable'') = 1)';
SQL:=SQL+' CREATE TABLE [fatura_table] ( ';
SQL:=SQL+' FaturaNo VARCHAR ( 10) ,';
SQL:=SQL+' MusteriKodu VARCHAR ( 10) ,';
SQL:=SQL+' StokKodu VARCHAR ( 10) ,';
SQL:=SQL+' Aciklama VARCHAR ( 60) ,';
SQL:=SQL+' Birim VARCHAR ( 10) ,';
SQL:=SQL+' BirimFiyati MONEY ,';
SQL:=SQL+' StokMiktari FLOAT ,';
SQL:=SQL+' VadeTarihi DATETIME ,';
SQL:=SQL+' TahsilTarihi DATETIME ,';
SQL:=SQL+' KayitTarihi DATETIME ,';
SQL:=SQL+' PRIMARY KEY (FaturaNo) )';
ADOCommand1.Cancel();
ADOCommand1.CommandText:=SQL;
ADOCommand1.Execute;
//--------------------------------------------------------------------------

end;
//program açıldığında bilgisayar adını "Server" kutusuna atsın:
function GetComputerName: string;
var
buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
Size: Cardinal;
begin
Size := MAX_COMPUTERNAME_LENGTH + 1;
Windows.GetComputerName(@buffer, Size);
Result := StrPas(buffer);
end;
procedure Tfrmcreatedb.FormShow(Sender: TObject);
begin
Edit5.Text:= GetComputerName ;
end;
 
//veritabanını silip tekrar oluşturmak için sil işlemi-klavyeden F11 tuşuna basılırsa- FormKeyDown'da:
procedure Tfrmcreatedb.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_F11: begin
if Application.MessageBox('Veritabanı Silinsin mi...?','UYARI',MB_YESNO)=ID_NO then exit;
user:=trim(Edit3.Text);
password:=trim(Edit4.Text);
server:= trim(Edit5.Text);
database:= trim(Edit1.Text);
Screen.Cursor:=crHourGlass;
try
ADOConnection1.Connected :=false;
ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=false;User ID='+user+';Initial Catalog=master;Password ='+password+';Data Source=' +server;
ADOConnection1.Connected := true;
if (ADOConnection1.Connected) then begin
try
ADOCommand1.Cancel;
ADOCommand1.CommandText:= 'USE master IF EXISTS(SELECT * FROM master..sysdatabases where name='''+database+''') DROP DATABASE '+database;
ADOCommand1.Execute;
showmessage('Veritabanı Silindi');
except
showmessage('Hata...Veritabanı Silinemedi....');
end;
end;
finally
Screen.Cursor:=crDefault;
end;
end;
end;
end;
//Tamam butonu
procedure Tfrmcreatedb.BitBtn3Click(Sender: TObject);
begin
if Edit1.Text='' then begin
showmessage('Veritabanı Adını Giriniz....');
Edit1.SetFocus;
exit;
end;
if Edit2.Text='' then begin
showmessage('Veritabanı Yolunu Giriniz....');
Edit2.SetFocus;
exit;
end;
user:=trim(Edit3.Text);
password:=trim(Edit4.Text);
server:= trim(Edit5.Text);
database:= trim(Edit1.Text);
database_dir:=trim(Edit2.Text)+'\';
str_data_file:= database_dir+database+'_data.mdf' ;
str_log_file:= database_dir+database+'_log.mdf' ;
//sql server bağlantısını kontrol et
if ConnectSqlDatabase(user,password,server)=false then begin
Application.MessageBox('Sql server çalışmıyor...Servisini çalıştırdıktan sonra programı açınız...','sql server bağlantı hatası',MB_OK);
exit;
end;
//sql servere veritabanı oluştur
if CreateSqlDatabase(server,database,user,password,database_dir,str_data_file,str_log_file) then
showmessage('Veritabanı ve Tabloları Oluşturuldu....')
else
showmessage('Hata....Veritabanı Oluşturulamadı........');
end;
procedure Tfrmcreatedb.BitBtn4Click(Sender: TObject);
begin
Close;
end;
procedure Tfrmcreatedb.SpeedButton1Click(Sender: TObject);
begin
frmPath.ShowModal;
end;
end.
 

Bu kodlar bana sql server da database oluşturma mantığını öğretirmi_?

[zombi]

sevgili @caylag inanın kafam allak bullak oldu sabahtan beri ben hala aynı yerimdeyim lütfen yardımcı olunuz şu işin mantığını anlıyayım..

Öncelikle Bu linkteki 33.mesajdaki yazınızı örnek alarak bana yardımcı olurmusuz_? Burda giriş isimli bi çalışması var arkadaşımızın o mesajda toparlayıp çalışır halde göndermişsiniz ancak database olarak access veritabanı kullanılmış bunun SQL Server da çalışacak veritabanı örneğini verebilirmisiniz_?

bir diğer anlamadığım konuda burdaki kullanıcılar daha önce sanırım veritabanında tanımlanmışki comboxta isimler çıkıyor ve edit e şifreyi yazınca giriş yapıyor . Kullanıcının giriş yapabilmesi için kullanıcı adı ve şifresi nerde tanımlacakki giriş yapılsın lütfen yardımcı olun hazıra konmaya çalışmıyorum sadece SQL Server a bağlanma ve database oluşturma mantığını öğrenmek istiyorum daha sonra projeye başlayacağım.

Burda Linkini verdiğim karate isimli çalışmada güzel ancak bunun veritabanıda access neden herkes hep acces kullanmış ben SQL Server örneği aradığım içinmi

[zombi]

Arkadaşlar kafayı yemek üzereyim lütfen bana SQL Server da database oluşturmayı basit bir örnek ile gösterin. Ben hiç ilerleme kaydedemedim. SQL Server da database oluşturmak ve sadece kullacı adı ve şifresi yapılarak giriş yapılan bi örnek rica ediyorum lütfen?

[hasanramazan]

elinde mevcut varmi bilmiyorum sql serverle çalışmakla ilgili sana world belgesi içine
resimli bir şeyler atmaya çalıştım,sql servere yeni başladıysan baştan sona kadar
oluşumları takip et kod işi kolay önemli olan sql server yaratmak
linki;
http://uploaded.to/?id=e4c6ox

[zombi]

çok teşekkür ederim artık nerdeyse kafayı yemek üzereydim hemen indirip okumaya başlıyorum.