rapid-q hakkında sorular ve ders isteklerini bu başlığa yazınız

dökümanlar kısmına ekledigim bir ders var. eger yayınlanır ve ilgi görürse yazı dizisi şeklinde devam etmek istiyorum.

Necmi hocaya --> eger programlama bölümü altına rapidq adında bir başlık açarsan sevindirik olurum.

programlama ögrenmek isteyenlere --> emin olun bulup kullanabileceğiniz en kolay editör ve dillerden birisidir.

örnek program kodu şu şekilde.

dim form as qform
form.caption = "Merhaba dünya"
form.center
form.showmodal

bu kod ile bir program formu oluşturabilirsiniz.

bu arada programın gücünü anlamanız açısından bir not düşmek istiyorum

ben şu anda rapidq ile bir WEBSERVER yazıyorum ve şu anda yazdığım web server çalışıyor.
daha önce sql server a bağlanıp tüm data işlemlerini yapan bir program(veritabanı yöneticisi) yazmıştım ve tam 480 k boyutunda idi.

ilgilenen olursa sevinirim.

gorusmek üzere

Aklımdaki soruya dökümanda cevap buldum..(vb´ de olduğu gibi bir dll bağımlılığı varmı diye düşünmüştüm).

*Ben dökümanların devamını bekliyorum.[G5]

ne yani şimdi internet iletişimi ve veritabanı işlemleri için beraberinde bir dll gerektirmiyor mu ??? o zaman exe boyutu devasa olmaz mı !!!

dur şuna bende bakayım merak ettim.

saygin hocalarim bence gücü ile boyutlari karsilastirildiginda hicde buyuk sayilmaz. bakin size bir ornek yapistirayim hemen

asagidaki kod logo yazilim sistemlerinin gold pro sürüm muhasebe sistemi için kullandigi sql veri tabanina baglanir ve tüm tablo ve iceriklerini ekranda listeler, istenirse cok kucuk eklentiler ile tablo oluşturma veri sorgulama veya veri üzerinde degisiklik yapma bolumleri eklenebilir.

veeeee asil bomba dosya boyutu : 322 kb

örnek kod :

dolarESCAPECHARS on
dolarINCLUDE "Rapidq.inc"
dolarINCLUDE "qODBC.inc"


DIM i AS INTEGER
DIM j AS INTEGER

DECLARE SUB Oeffnen_OnClick
DECLARE SUB OutLine_OnClick
DECLARE SUB Info_OnClick
DECLARE SUB Ende_OnClick

CREATE Form AS QFORM
Caption = "DatabaseViewer"
Width = Screen.Width
Height = Screen.Height
Center
CREATE MainMenu AS QMAINMENU
CREATE FileItem AS QMENUITEM
Caption = "File"
CREATE OpenItem AS QMENUITEM
Caption = "Open"
OnClick = Oeffnen_OnClick
END CREATE
CREATE SaveItem AS QMENUITEM
Caption = "Save"
Enabled = FALSE
END CREATE
CREATE SeparatorItem1 AS QMENUITEM
Caption = "-"
END CREATE
CREATE ExitItem AS QMENUITEM
Caption = "Exit"
OnClick = Ende_OnClick
END CREATE
END CREATE
CREATE InfoItem AS QMENUITEM
Caption = "Info"
CREATE AboutItem AS QMENUITEM
Caption = "About"
OnClick = Info_OnClick
END CREATE
END CREATE
END CREATE
CREATE Label1 AS QLABEL
Caption = "Tables in File:"
Left = 8
Top = 8
Width = 80
Transparent = 1
END CREATE
CREATE Label2 AS QLABEL
Caption = "Content:"
Left = 152
Top = 8
Width = 48
Transparent = 1
END CREATE
CREATE Label12 AS QLABEL
Caption = "Table no: "
Left = 252
Top = 8
Width = 48
Transparent = 1
END CREATE
CREATE Outline AS QOUTLINE
OutLineStyle = 2
Top = 24
Left = 8
Height = Screen.Height - Screen.Height / 7.4
Width = 133
´Color = 15658734
ItemHeight = 15
´OnDblClick = OutLineClick
OnClick = Outline_OnClick
AddOptions = 0
Cursor = crHandPoint
END CREATE
CREATE StringGrid1 AS QSTRINGGRID
Left = 152
Top = 24
Height = OutLine.Height
Width = Screen.Width - Screen.Width / 6.1
Col = 0
DefaultColWidth = 78
FixedCols = 0
RowCount = 0
DefaultRowHeight = 17
AddOptions(goEditing)
END CREATE
END CREATE

DECLARE FUNCTION setwindowlong LIB "user32" ALIAS "SetWindowLongA"(hWnd AS LONG, nIndex AS LONG, dwNewLong AS LONG) AS LONG
SUB MinSet(fHand AS INTEGER, gwl_hand AS INTEGER, hwnd AS INTEGER, apphand AS INTEGER)
SetWindowLong(Fhand, Gwl_Hand, Hwnd)
SetWindowLong(apphand, GWL_Hand, fhand)
END SUB
Minset(Form.Handle, -8, 0, application.Handle)

Form.ShowModal

´nach Programmende Datenbank loesen
´release database
myDB.CloseDB
myDB.CloseODBC


´**** Oeffnen *****************************************************************************

SUB Oeffnen_OnClick

´Alte Daten in der Tabelle loeschen
´Delete old data into StringGrid
Outline.Clear

FOR i = 1 TO StringGrid1.ColCount - 1
StringGrid1.DeleteCol(i)
NEXT i

FOR i = 1 TO StringGrid1.RowCount - 1
StringGrid1.DeleteRow(i)
NEXT i


´Alte Datenbank schliessen
´Close old DataBase
myDB.CloseQuery
myDB.CloseDB

´neue Datenbank auswaehlen
´Connect to new database

sCondolar = "driver={SQL Server};server=CASPER;uid=mesut;pwd=123456;database=ALPA"


myDB.Connect(sCondolar)

FOR i = 1 TO myDB.TableCount
Outline.AddLines(MyDB.Table(i))
NEXT i



MyDB.CloseQuery

END SUB

´**** Tabelle waehlen / choose table *****************************************************************

SUB Outline_OnClick

Outline.Cursor = crHourGlass
StringGrid1.Cursor = crHourGlass
label12.caption = "Table no: "

´alte daten loeschen
´delete old data into StringGrid
FOR i = 1 TO StringGrid1.ColCount - 1
StringGrid1.DeleteCol(i)
NEXT i

FOR i = 1 TO StringGrid1.RowCount - 1
StringGrid1.DeleteRow(i)
NEXT i


´Columns laden
´load columns into StringGrid
qdolar="select * from " + MyDB.Table(OutLine.ItemIndex)
myDB.Query(qdolar)

FOR i = 1 TO myDB.FieldCount
StringGrid1.InsertCol(i)
StringGrid1.Cell((i - 1), 0) = myDB.Field.Name(i)
NEXT i

´Rows laden
´load rows, put data into StringGrid.Row(x)
j = 0
WHILE myDB.GetRecord = 1
j = j + 1
StringGrid1.InsertRow(j)
FOR i = 1 TO MyDB.FieldCount
StringGrid1.Cell(i-1, j) = myDB.Field.Data(i)
NEXT
WEND
label12.caption = label12.caption + strdolar(OutLine.ItemIndex)
OutLine.Cursor = crArrow
StringGrid1.Cursor = crArrow


myDB.CloseQuery




END SUB

´**** info ********************************************************************************
SUB Info_OnClick
SHOWMESSAGE "DatabaseViewer"
END SUB

´**** Ende ********************************************************************************
SUB Ende_OnClick
Form.Close
END SUB

DECLARE FUNCTION setwindowlong LIB "user32" ALIAS "SetWindowLongA"(hWnd AS LONG, nIndex AS LONG, dwNewLong AS LONG) AS LONG

işte bu satırı görünce tepem atıyor. C++ deki gibi birşey olması lazım. include <windows.h> diyorsun zaten herşey tanımlı. windowstaki bir fonksiyonu yeniden satır satır tanımlamak bana çok saçma geliyor.

eee hocam simdi istersen soyle bi yol var

vb icin hazirlanmis olan windows fonksiyonlari dosyalarindan birini alir include edersin olur biter.

amma durum su ki windowsun her türlü fonksiyonuna 300 k exe ile erisebilmek gibi bi lüksün varsa bir kac satir fonksiyon tanimlayacaksin.

gülü seven dikenine katlanir olayi yani.