KOOLPA
kütüphane stok
Programlama Katagorisinde ve Delphi Forumunda Bulunan kütüphane stok Konusunu Görüntülemektesiniz.=>Kütüphane Stok Delphide veritabanı programlarında kod yazımı neredeyse 0'a indirgenmiştir . . . unit Unit2; interface uses Windows, Messages, SysUtils, ...
|
|||||||
| Üye ol | Bloglar | Yardım | Üye Listesi | Ajanda | Forumları Okundu Kabul Et |
26-07-2007, 02:53
|
#1 (permalink) |
|
KooooLpa
 
Üyelik tarihi: Dec 2006
Mesajlar: 2,639
Tecrübe Puanı: 8
 |
kütüphane stok
Kütüphane Stok Delphide veritabanı programlarında kod yazımı neredeyse 0'a indirgenmiştir . . .unit Unit2; 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.
__________________
 |
|
       
|
| Sponsor Linkler | |
|
|
|
 |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) |
|
| Seçenekler | |
| Stil | |
Normal
|
|
|
||||
| Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
| Okul Kütüphane ve Kütüphanecilik Kolu Programı | efe | Eğitim Programları | 0 | 10-12-2006 15:35 |
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 13:05 .
