Delphi - BDE - vytvorenie novej databázi
Viem, že odpoveď nebude jednoduchá, ale vedel by mi niekto vysvetliť, ako vytvoriť prázdnu databázu s určitými položkami do TTable? Ak to náhodou niekto pochopí tak, že nepoznám nástroj Database Desktop, tak ešte poznámka k otázke: chcem to urobiť čiste programovo.
V BDE je databází adresář. Ten vytvoř třeba přes CreateDir. Tabulky dovnitř vyrobíš velice jednoduše. Do TTable umístěné na formu nebo na TDataModule vytvoř všechny pole a tabukla včetně všech indexů (které taky nacpi do TTable) vytvoříš pak Jméno-tabulky.CreateTable.
//Edit: Před jméno-tabulky.CreateTable je vhodné dát jméno-tabulky.TableLevel := 7; aby byla opravdu ve tvaru Paradox 7 (tím obejdeš, že tohle má být nastaveno v BDE Adminu).
//Edit2: Jestli chceš, a jestli chtějí ostatní, mohu někam vystavit zdroják mého objektu, který obsahuje spousty užitečných rutin pro práci s BDE (např. kopírování tabulek, struktur, vytvoření pracovní tabulky v adresáři TEMP atd). Na začátku obsahuje otestování, jestli je BDE nainstalováno, jestli je správné verze, jestli to jiný program nezablokoval. Dál vytvoří objekt TDatabase, ktetý když najde databázi založenou BDE Adminem tak se k ní připojí jinak si vytvoří dočasnou, kterou po sobě na konci uklidí (data pochopitelně nesmaže), nastaví Sessions a nastaví Paradox na práci s češtinou. Je to sice součástí dalšího systému podprogramů, nepůjde to rovnou přeložit (budou chybět pomocné rutiny) ale pro inspiraci (nebo když si to někdo upraví) a použití různých rutin (ty by měly fungovat jak jsou) to poslouží skvěle. Ale vystavit to můžu až v noci, až to pořádně okomentuju.
Toto som nepochopil. Mám chápať, že databáza je BDEčkom chápaná ako adresár? To sa mi nejako vymyká z normálu.
Podivej se na componentu TDatabase ta to ma nastarosti.
No tak toho je na mňa žiaľ moc. Asi sa s tým budem musieť hrať.
V Objektu TTable můžeš v klidu do vlastnosti DatabaseName narvat cestu (adresář). Když pak klikenš u této tabulky na rozvírací combo ve vlastnosti TableName, uvidíš všechny soubory *.db v uvedeném adresáři. Také můžeš tabulku napojit na objekt TDatabase a před otevřením databáse narvat do vlastností TDatabase.Directory cestu. Počkej chvíli, už komentuju ten zdroják, zachvíli v tomto vláknu bude odkaz.
//Edit: Tak je to tady: Rce_BDE.pas (120Kb). Berte jako inspiraci, přeložit to nepůjde, ale rutiny jsou funkční. Při vytváření objektu Rce_BDE je v konstruktoru TRce_BDE.Create nastavení systému BDE, kontrola jestli jede a připojení k databázi z BDE Admina nebo se vytvoří přechodná databáze podle zadaného adresáře. V destruktoru se po sobě zase uklidí. Nasměruje to i Pdoxusrs.net do datového adresáře (všichni klienti sítě, používající stejnou databází musí používat stejný soubor Pdoxusrs.net).
S tou sieťou to poznám. Riešili sme to s účtovníctvom MRP v bývalom zamestnaní. Niekedy to dalo riadne zabrať.
Edit: Ďakujem. Mal som nočnú, takže až teraz som sa sem dostal.
Ešte otázka. Znamená to teda, že ak použijem v programe BDE a na začiatku v OnCreate ošetrím, či je BDE nainštalované atď., tak nedojde k výnimke? Pýtam sa preto, lebo ak sa použije knižnica na priehľadné okná v C++ a program sa spustí vo Win98, tak sa zrúti okamžite, lebo nenájde vstupný bod funkcie v knižnici DLL. Takisto sa zrúti program, bez možnosti kontroly, napísaný v Turbo Pascale s necracknutou verziou knižnice CRT na počítači od 200 MHz vyššie. Len škoda, že vlastne ani takýto crack nie je legálny.
Cau Milos sory ale odbocim od temy, kde si ked sa ta neda zastihnut,chcem sa ta len opytat ci ti prisla faktura za net za mesiace jul august a september?Dik programový manik...Lubos
Ja platím mesačne.
Ked platis mesacne tak teraz ti uz prislo platit,nevies poradit ked mi nepride platit ze by na mna zabudol alebo co?Ma mi prist platit do konca tohto mesiaca.Dik
Veď zaplať to tak, ako predchádzajúcu faktúru a nechaj si pre prípad doklad.
Jestli na hlavním formu máš nějaké komponenty BDE (TTable,...), je v OnCreate pozdě - už se inicializovaly ty komponenty a na nich to zhavaruje. Je to třeba otestovat v konstruktoru - máž pak dokonce vynikající možnost ustřelit aplikaci: Když dáš do konstruktoru ABORT, form se nevytvoří a je-li to main form, aplikace se ihned ukončí.