Kütüphane Stok

[ALpMontana]

Delphide veritabanı programlarında kod yazımı neredeyse 0'a indirgenmiştir . .


interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables, ComCtrls, ExtCtrls;

type
TForm2 = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Table1: TTable;
DataSource1: TDataSource;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
Timer1: TTimer;
Button6: TButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}
uses unit1;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.Visible:=true;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
table1.Insert;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
table1.Post;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
table1.Prior;
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
table1.Next;
end;

procedure TForm2.Button5Click(Sender: TObject);
begin
close;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
mesaj:=copy(mesaj,2,length(mesaj)-1) + mesaj[1];
statusbar1.Panels[0].Text:=mesaj;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
mesaj:='Kütüphane Stok Programı Versiyon 1.0';
mesaj:=' ' + mesaj;
statusbar1.Panels[1].Text:=' ' + datetostr(now);
end;

end.

 

[Dj_GeCe]

saqol kanky

 

[AyInAtEşİ]

Eline sağlık Alp... =)

 

[Kaçan Aşık]

Ne oldugunu Bılmıom ama saol

 

[ALpMontana]

Ne oldugunu Bılmıom ama saol

bu kutuphanelerde kullanılan bır programdır
kendı emegımızle yazıldı:biggrin
we kıtapı kım alımı nezamn almıs o tarz bılgılerı tutuor:goz:

 

[ReddeviL10]

saol arkadaşım ama delphici değilim.

 

[clipper11]

delphiden anlamasak yutacaz walla
2 satır kodla delphici olunsaydı piyasada programcılar aç kalırdı. ben 7 yıldır delphi ile kod yazıyorum hala programcı olamadım. lütfen dalga geçer gibi 2-3 komut gönderip program yaptım demeyelim. programcılara saygısızlık oluyor.
gönderin delphi ile aspX kod örnekleri herkes faydalansın.