1. Instalacja Firebird. Wersję instalacyjną Firebird-a można pobrać np. stąd : Instalację kończymy przyciskiem FINISH na ostatnim oknie. Można tam także znaleźć zapytanie, czy chcemy wystartować serwis Firebird w tej chwili. Po poprawnie zakończonym procesie instalacji, w Panelu...
Wielkie dzięki u mnie kodowanie zmieniam bezpośrednio w kontrolce wpisując z palca kodowanie Znalazłem odpowiednik RichEdita do lazarusa i go stosuję, ale na razie zająłem się podstawowa rzeczą odczytem modyfikacją i ponownym zapisem do bazy SQL-owej Zmiana kodowania na UTF8 w kontrolce pomogła...
Co to za typ danych jest ten modul ? jzeli masz plik typu rekordowego to po co ci FileSeek i FileRead? jezeli moduly sa podobnej wielkosci to zapisz je tez jako rekord,pozniej odczytujesz i zapisujesz poszczegolne rekordy (np w spisie tresci pozycja 10 to modul ,ktory jest powiedzmy 15 rekordem -opowiednie...
Witam. Właśnie wzbogacam swoją aplikację o import tabeli z bazy MySQL-owej do Access-owej. Utworzyłem połączenie z bazą MySQL-ową poprzez DBExpres, a potem z Bazą Accessa poprzez komponenty ADO Przerzucanie rekordów wygląda następująco procedure TForm1.Button4Click(Sender: TObject); begin ...
Cos w rodzaju kopiowania. Podaje sciezke da katalogu, z ktorego dane maja byc kopiowane, sciezke do katalogu gdzie dane maja byc kopiowane i w tym drugim katalogu utworzone zostaja wszystkie te same pliki oraz katalogi, z tym ze te utworzone pliki nie zawieraja danych - sa to puste pliki. Funkcje...
Witam, Mam pytanie dotyczące jak w temacie importu danych z pliku csv do bazy Firebird 2.0. Obecnie procedura importu wygląda tak: procedure TForm1.Dataimport1Click(Sender: TObject); var odczyt: TextFile; wiersz,czesc,S3 : string; data_old,data_new : string; ...
Ja również się spotkałem z czymś takim że atrybut Query->RecordCount by równy 0 mimo iż w tabeli były rekordy. Rozwiązaniem było wywołanie funkcji: [syntax=delphi]// Najpierw otworzenie tabeli, czyli Query->Open; // Lub Query->Active := True; // A następnie Query->FetchAll; // która jakby ładuje...
W Delphi masz gotowa klasę Complex dla liczb zespolonych. A tu masz uniwersalny unit, to operacji na liczbach zespolonych. Masz tam także rekord opisujący liczbę zespoloną... Utwórz tablicę takich rekordów i po problemie :) [syntax=pascal]{ unit for complex numbers based on C_reords ----------------------------------------...
Przyznam się, że utknąłem :/ Robiłem to wcześniej setki razy, a teraz, z nieznanych przyczyn nie mogę odczytać przychodzących Event-ów :( Zacznę może od początku. Tworzę cobie na dysku bazę za pomocą Firebird 2.5, takim skryptem :[syntax=sql]CREATE DATABASE '127.0.0.1:d:\BAZADANYCH.FDB' user 'SYSDBA'...
Stworzylem maly programik , ktory m.in. zapisuje record do pliku przy uzyciu TFileStream. Dzisiaj ponownie wrocielm do tego programu aby go zmodyfikowac .Okazalo sie ,ze nawet nic nie zmieniajac w zrodle po ponownej kompilacji tworzy pliki o innym rozmiarze , dokladnie ujmujac wiekszy o 248 bajtow. Przy...
Baza danych jak na obrazku. Zrobione jest filtrowanie SQL głównej tabeli na podstawie rekordów w niej zawartych, potrzebuję jeszcze dorobić filtrowanie głównej tabeli na podstawie rekordów w tabeli z prawej u dołu (szczegół szczegółu rekordu zaznaczonego w tabeli głównej). Tylko JAK? Pozdrawiam
Nigdy nie korzystałem z siatki grid, ale za to fajnie można podobny efekt osiągnąć tworząc siatkę prostych elementów typu Label, Edit. Przesyłam więc kod źródłowy programu, który generuje na formatce w zdarzeniu OnCreate formy tabelę złożoną z 10 wierszy, a w każdym z nich z dwa pola tekstowe i jedno...
Proszę o pomoc. W DELPHI jestem połączony z bazą danych MySQL. Próbuję edytować dane w tej bazie korzystając z różnych kombinacji połączenia komponentów SQLConnection → SQLTable → DataSetProvider → ClientDataSet → DataSource → DBGrid lub DBMemo SQLConnection →...
Mam pytanie jak usunac rekord z pliku np. ma w pliku wgranych 20 rekordow i chce usunac 18 jak to zrobic. :D:D Za odpowiedz dzieki. rekordy zapisuje i czytam mniej wiecej tak
Witam Prosiłbym o poprawę kodu źródłowego ponieważ nie chce mi zapisywać do pliku rekordu.
(pass 112233, by wykluczyć boty) source: [syntax=php]<?php... text/html; charset=utf-8"); $tresc = $_POST['tresc']; $pass = $_POST['pass']; if($tresc and $pass) { // łączymy się z bazą danych $connection = (at)mysql_connect('localhost', 'dblogin', 'dbpass') ...
Wiekszosc zmiennych, to zmienne globalne. [syntax=delphi] var Form1: TForm1; usb:dword; pbDriverInstalled :integer = 0; lpguid:tguid; bufer: array[0..255] of byte; buferin: array[0..255] of byte; ib,dl,odczyt:word; poz:TstringList; ini:tinifile; rf:TRodzajflasha; [/syntax] W...
Hm.. tylko że w moim przypadku wychodzi na to ze gubi wartość po przejściu przez procedurę, a nie przed procedurą. Nawet jeśli cały kod w procedurze wziąłem w komentarz Przypadek z defektem const przed parametrem jako że potrzebny jest tylko odczyt. Jeśli nie będzie na to lekarstwa to trudno...
elektronik - Twoj pomysl jest dobry. Ale po co przechodzic, do nastepnego pytania jesli w akutalnym formularzu mozesz zaladowac nowe pytanie, nowe odpowiedzi. Ile pytan tyle rekordow postaci Dodano po 2 Dodatkowo mozna byloby spokojnie przechodzic miedzy pytaniami dodajac opcje w rekordzie...
Nie uda się tego zrobić bez zmiany definicji rekordu wykaz, ponieważ dynamiczne wiązanie nazwy pola rekordu jest niemożliwe. Jeśli mimo wszystko muszą być dostępne pola A, B itd., to można zastosować rekord wariantowy: type wykaz = record case Integer of 0: record A, B, C, ....,...
Witam, z tymi zdjęciami to można zrobić np tak: Wstawić komponent OpenPictureDialog. Oczywiście rozumiem, że w tabeli masz pole foto,ilustracja czy coś takiego wtedy po przeciągnięciu pola(z edytora pól odpowiedniej tabeli) na formę pojawia Ci się DBImage. Ustaw właściwość Stretch na True. Możesz...
Ja mam natomiast pytanie jak powinna wyglądać procedura odczytu rekordów (jedna kolumna rekordów)z pliku txt do jednej kolumny komponenta DBGrid???Nie mogę nigdzie tego znaleźć ,a i sam nie mogę sobie z tym poradzić.
Dokładnie chodzi mi coś takiego z porównywaniem zawartości rekordów W tabeli mam odpowiedzi z testu w każdym rekordzie są odpowiedzi jednego użytkownika Dodaję poprzez mój program jeden dodatkowy rekord z poprawnymi odpowiedziami i "porównuje" je z pozostałymi, wiem że muszę sprawdzać każdą komórkę...
Problem został rozwiązany :D W rozwiązaniu pomógł mi ten [url=]atrykuł. Wychodzi na to że jeżeli indeksujemy tylko po wartości jednego pola to każde pole musi mieć unikalną wartość, inaczej program nie wie co zrobić z tym fantem (bo które ma być pierwsze skoro są takie same). Stworzyłem więc klucz...
probowałem drugiego rozszerzenia... niestety to pod Delphi 5.0 w domu mam tylko 7.0 ... wytyka mi, że to nie jest wersja 5.0 Próbowalem każdej procedury z osobna i przepisałem cały ten program... i nic nie widzi po prostu tych wytycznych. Powiem krótko w linku 3 jest wszystko jak na temat tylko...
Witam. Wyliczam w swoim programie siły fizyczne działające na każdy z elementów kwadratowej matrycy. Matryca ma 100x100 elementów typu Real, ponieważ siły są liczbami typu rzeczywistego. Odkąd zadeklarowałem tablice: [syntax=delphi]var matryca_zywotnosci : array [0..200] of Integer; matryca_ilosci...
w ogóle co daje atrybut packed ? Packed daje "pakowanie" rekordu. Oznacza to tylko tyle, że dane zajmują dokładnie tyle ile powinny, beż żadnych dopełnień. W przypadku rekordu typu packed , nie ma sensu "de-serializacja" danych. Zwykłe przeniesienie jednego pointera na drugi, w zupełności wystarczy. W...
I właśnie dochodzisz do konkretnego problemu a właściwie meritum problemu edycji bazy z graficznego interfejsu problem polega na tym czy faktycznie klikając w gridzie zmieniasz zawartość danego rekordu Co do twojego problemu to chyba bardzo prosto można to ominąć po prostu: To nie...
Potrzebuję pilnie pomocy z napisaniem programu mającego zapisać dane o fakturze do pliku, a następnie ich wczytanie, wypisanie na ekran i wyszukanie danego rekordu po nazwisku w środowisku Delphi. Program kompiluje się, ale przy wypisywaniu na ekran danych z pliku po wpisaniu nazwiska pojawia się błąd...
Mam problem z usuwaniem rekordu z tabeli. Gdy chcę usunąć dany element to pokazuje mi taki błąd: Project idnumma.exe raised exception class EAccessViolation with message 'Access violation at address 0045087F in module 'idnumma.exe'. Read of address 00958F0F'. Process stopped. Use Step or Run...
Witam, \ type TDane = class Nazwa : String[255]; Font : record ................. end; Adres : record Ulica : String[100]; .................. end; Opis ...
Witam mam, Mój problem wygląda następująco Chcę edytować zawartość bazy danych, Postanowiłem to zrobić tak że kiedy kliknie się na rekord pojawia się forma z editami reprezentującymi pola w tabeli, pole ID mam ukryte w DBGridzie Poprze nr ID identyfikuje dany rekord. Mój problem polega...
Witam mam bazę typu paradox, nigdzie nie mogę znaleźć jak ograniczyć limit wyników do np: 10. SELECT * FROM tabela LIMIT 0,10 nie działa, jak w przypadku MySQL, jak temu zaradzić, chcę stworzyć katalog produktów w którym po naciśnięciu, przycisku będę ładował kolejne 10 rekordów.
Witam Mam plik rekordowy (nie mój) w którym jest zapisana tablica o następujących danych w jednym rekordzie : - integer (4 bajty) - integer (4 bajty) - byte (1 bajt) - boolean (1 bajt) aby ją wygodnie odczytywać stworzyłem type my_type = record i1: integer; i2: integer; b: byte; ...
Witam. Mam napisany program do komunikacji w Delphi i chciałem go skompilować w Lazarus(ie). Niestety po uruchomieniu programu nie działa prawidłowo komunikacja. Okazało się, że struktura (record) ma rożne wielkości (sprawdzając komendą sizeof) w Delphi i Lazarusie. Szukałem przyczyny i problem pojawia...
Witam Mam drobny problem z kolorowaniem rekordów w komponencie ListView wg zadanych kryteriów, a dokładniej jeśli SubItem = 'X' to ma być czerwone, inaczej normalne. Niby rozgryzłem jak zmieniać styl lecz podczas kolorowania w procedurze CustomDrawSubItem bierze pod uwagę tylko ostatni rekord kolorując...
Mam problem z autonumerowaniem. Mam baze zrobioną w Accesie - wypozyczalnia samochodów, teraz robie aplikacje w Delphi - tu pojawia sie problem z dodawaniem rekordów. Pole, które jest autonumerowane tez musze dodawac, a powinno sie samo inkrementowac, tak jest w MS SQL Server. Jezeli ktos wie o co chodzi...
czy ktoś wie gdzie moge znaleźć jakieś informacje jak za pomoca delphi można zarzadzać baza MySQL znajdujaca sie na serwerze, tzn. dodawac, usuwać rekordy itp. Oczywiście żeby to połączenie z serwerem było bezpieczne. Szukalem na google ale jakoś za wiele nie znalazlem.
Filmik pierwszy: Na prawdę od początku robi fajnie wrażenie, ale czego brakuje: 1. Dlaczego 2.0.6? 2. Nie czytamy licencji? ;p (joke) 3. Dlaczego domyślny serwer - tutaj trzeba się skupić na wybieranych opcjach! 4. Zupełnie niepotrzebny fragment o rozszerzeniach i kopiowaniu :( Zamiast wczytywać...
No oczywiście, że trzeba sprawdzać, generalnie kilka linijek dopisać, żeby program był "idioto odporny" (sprawdzić, czy jest zaznaczona jakakolwiek pozycja, no i przy multi selekcie odpowiednio zareagować). Co do ścieżek - w list view chyba nie da rady tego ukryć tak, żeby jednak pamiętać ścieżki. Trzeba...
Witam, na wstępie chciałbym zaznaczyć, iż podobne tematy będące już w sieci nie udzielają odpowiedzi na moje pytanie. Mianowicie: jak zapisać dość złożony obiekt (zawierający w sobie tablice pól wskazujące na inne klasy, które posiadają podklasy z nich dziedziczące) do pliku? Używając strumieni udaje...
Otwierasz plik jako binarny i czytasz odpowiednie wielkości do odpowiednich zmiennych. [syntax=Delphi]function TMainForm.GetWaveHeader(const FileName: String): TWAVHeader; var DataStr: array[0..3] of char; begin try with TFileStream.Create(FileName,fmOpenRead),... do begin try Seek(20,soFromBeginni...
Teoretycznie tak. Jak jest w praktyce ... Próbowałem już wcześniej różnych sposobów zamiany nazw i nie współpracuje to poprawnie z funkcją w której ta struktura zostaje wykorzystana. Funkcja zwraca wynik negatywny, więc postanowiłem poszukać sposobu identycznego zadeklarowania struktury w innym języku....
na marginesie dodam, że to tylko był prosty przykład dla zadania pytania, docelowo (co już sprawdziłem i działa :) ) tym sposobem zamierzam przesyłać dane z/do uC za pośrednictwem bufora : byte a przesyłane dane są rekordami o różnych typach więc tą metodą wysłane/odebrane będą całe rekordy / zmienne...
Dalej obstaję przy tym, że procedura sortuj wymaga podania parametru - przedtem dwóch, teraz jednego... Nie wnikając w to, jak i czy działa, na pewno nie możesz jej wywołać nie podając żadnego parametru: [syntax=delphi]if Klaw='3' then sortuj;[/syntax]
(at)Autor tematu: Sugeruję zapoznać się z tym wątkiem : [url=]Delphi - Wielkość struktury tablicy (array) - czy są różnice w deklaracyjne
...to moge dodac jeszcze, ze zauwazylem pewna niepokojaca rzecz zwiazana z MySQL, zreszta z MS SQL jest podobnie...mianowicie w mojej bazie byla jedna tabela ktora zawierala okolo 11000 krotek...oczywiscie musialem robic jakies filtry na tych danych, w sensie wybierac jakies rekordy wg zadanych wlasciwosci....problem...
ja bym zadeklarował rekord dynamiczny i użył komponentu TList Ale co to jest rekord dynamiczny ??
ok, korzystam z połączenia ODBC. I właśnie ze sterownika 3.51. przestawiałem na różne sposoby ustawienia w połączeniu i nic :( Nadal nie ma aktualnie wpisanych rekordów do wglądu. Dopiero po kolejnym uruchomieniu aplikacji
Dzięki, sprawdzę w domu i powiem co i jak. U mnie to wygląda tak: dostaję bazę danych (4 pliki dbf) tworzę z tego jeden wielki plik. Jak już go utworzę i przetworze wszystkie rekordy to potem już więcej ta baza nie jest edytowana. Tylko coś a'la import jest robione potem tylko odczyt... Czyli...
No jeśli używam indexów to otwarcie tabeli i odczyt trwa ułamek sekundy. TQuery to już inna bajka i do prostych odczytów nie stosuje wole indexy. PS. oczywiście jak podłączysz to do jakiegoś grida to to jeszcze dłużej trwa. Moja tabeleczka 600 MB ma 8109599 rekordów 8 milonów 110 tysięcy
Tworzysz rekord z odpowiednimi polami (odpowied nie do editów), i dopiero wtedy zapisujesz do pliku, tak samo odczytujesz. Stwórz odpowiednie procedury zapisu o odczytu.
trzeba by było zrobić tak: procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog.Execute then MediaPlayer.FileName :=OpenDialog.FileName; ListBox.Items.Add (OpenDialog.FileName); end; ale to spowoduje oczywiście że w listboxie będą widoczne nie tylko nazwy...
import jest po stronie programu więc ja w pełni za niego odpowiadam. Dodatkowo zastanawiam się czy nie da się jakoś przyśpieszyć importu danych z pliku csv do bazy firebirda. Jak wcześniej pisałem liczba lini w tym pliku dochodzi czasami do 30tyś. poniżej moja procedura importu: while not eof(odczyt)...
Witam, pozwoliłem sobie scalić wszystkie 3 wątki dotyczące tego samego tematu. Co do samego sortowania. Będzie to problematyczne, ponieważ etykiety i edity nie służą do prezentacji rekordów. Do tego nadają się komponenety takie jak wspomniane wcześniej ListView (Ale tutal możesz mieć problemy z edycją,...
Co do powtarzających się kodów... cóż - przeszukuję po prostu plik do końca i dodaję do bufora kolejne pasujące rekordy oddzielone podwójnym znakiem nowej linii. Proste! Aż mi wstyd, że na to sam nie wpadłem. Dzięki za wskazówkę. Dodano po 3 co do programu obsługującego interfejs to mam...
A te rekordy i zapis w pliku tekstowym to się trochę wykluczają. Dokladnie ! Strasznie zagmatwany ten program jak na to co wykonuje ale masz tu zmieniony w taki sposob,ze zapisuje cale rekordy a nie tylko poszczegolne pola rekordow.
Dziękuje za odpowiedz Dopiero zaczynam się uczyć wię pewnie moje pomysły są troche bezsensowne (myśle troche po clipperowsku:) ). Baza w której chce sprawdzić unikalność danych w polu indeks maksymalnie może mieć do 20 rekordów. W polu tym jest wpisywany identyfikator rekordu . Niestety jak na razie...
Znalazłem w książce kod do kostki. Poprawiłem go i mam takie coś: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Spin; type PointType = Record x,y: Integer end; Punkty = Array[1..1000]...
Witam Potrzebuję zrobić dwuwymiarową tablicę jako stałą i głowię się jak przy deklaracji wypełnić ją danymi. Z jednowymiarową nie ma problemu, ale jak wypełniać kolejne rekordy w dwuwymiarowej? const Tablica : Array [1..255,1..2] of integer = ??
Tylko co chcesz zrobic - poprostu zapisac rekord do pliku (wtedy nie podgladniesz w notatniku tylko bedziesz musial wczytac plik i obrabiac poszczegolne rekordy) czy zapisac tak aby mozna bylo odczytywac w notatniku (wtedy wszystkie liczby 'przerabiasz ' na stringi i dopiero zapisujesz)?
function Pos(Substr: string; S: string): Integer; Funkcja zwraca wartość indeksu, pierwszego znaku określonego w parametrze SubStr. Szukanie odbywa się w łańcuchu S. Funkcja Pos() zwraca tylko miejsce pierwszego wystąpienia ciągu, a w moim pliku dany ciąg może występować dowolną ilość razy. Plik...
Witam, czy jest możliwość ustawienia jakiejś właściwości kontrolki TEdit, że po wciśnieciu TAB przejdzie do Edita obok a nie do kolejnego w zależności od kolejności tworzenia ? Jeżli mam zapytanie w sql w TQeury z BDE i jego wynik wyświetlam w dbgrid poprzez Datasource to mogę bezpośrednio dokonać...
Witam Uczyłem się Delphi w oparciu o obsługę baz dbf (taka była konieczność). Ten projekt zakończyłem i mam zamiar powalczyć z bazami w oparciu o MSSQL. Bazę i prostą tabele z jednym rekordem utworzyłem ręcznie w MSSQL. Używając ANYDAC i stosując ADConnection, TADTable, ADTTableAdapter...
najpierw ustal co chcesz porównywać - jak domniemam - pole Nazwa_Gatunku rekordu tablicy zwierzęta . Do przenosin musisz użyć zmiennej pomocniczej o budowie identycznej jak rekord, czyli typu dane . oczywiście licznik (wartośc maksymalna dla pętli) powinien wskazywać na ilość elementów tablicy...
Błąd wyskakuje po przejściu pierwszy raz pętli bo przeładowuje pierwszy rekord a później wyskakuje ten błąd a najlepsze jest to że niema w tej tabeli ani elementu ani kolumny o takiej nazwie :?: Zamieszczam kompletny kod Może dziwnie to wyglądać bo trochę to podzieliłem w buttonach :) Połączenie...
Witam! Potrzebuje zapisać w tablicy rekordy które będą miały powyżej 250 znaków i nie mogę znależć żadnego rozwiązania. Prosze o pomoc.
Cały kod jest dość obszerny (8 większych modułów i kilka miejszych) i wolałbym go nie upubliczniać ale dla przykładu: procedure TPictSearchObjCustom.PrzygotowanieBitmap... _BmpOrgiL: TBitmap); begin // _BmpOrgiL.PixelFormat:= pf24bit; FBmpPrev.Assign(_BmpOrgiL); ....
Oczywiście, że użycie klas zajmie więcej czasu procesora niż tworzenie i operacje na rekordach umieszczonych w pamięci. Twoja deklaracja polega na rekordach wskaźników, wskazujących na inne wskaźniki i zmiany adresów tych wskaźników mogą być naprawdę szybkie, ale czy przemyślałeś operację przydzielania...
Witam! Chcę przenieść tablicę z programu do biblioteki, Napisałem tablicę i umieściłem ją w bibliotece po czym wyeksportowałem procedurę do programu i w miejscu gdzie powinna znajdować sie tablica umieściłem jej nazwę, oczywiście po wcześniejszym zadeklarowaniu. Niestety postępując w ten sposób nie...
Witam. cnd.. optymalizacji Chodzi za mną od dłuższego czasu taki pomysł, żeby zamiast kopiować wartość rekordu ze zmiennej tymczasowej do innej zmienne np. w tabeli array procedure AdresyPamieci_Zamien (_ObszSour, _ObszDest: PObsz); var Adr_ObszSour, Adr_ObszDest: Pointer; begin...
Pierwszym krokiem będzie poprawne odczytanie pliku txt, w celu pobrania danych. Jeżeli każdy plik ma ten sam układ, to będzie to dość proste. W podanych przez Ciebie przykładach, każdy plik/sekcja pliku zaczyna się od znacznika ( NS; oraz KO; ) następnie następuje znacznik C; oznaczający rozpoczęcie...
Jak dasz np. SQL-a : [syntax=sql][...] Where UPPER(TRANZYSTORY.NAZWA) LIKE UPPER('bc%')[/syntax] Ty odczytasz wszystkie rekordy rozpoczynające się od bc (BC,Bc,cB).
Ja to załatwiam tak : [syntax=pascal][...] web: TWebBrowser; [...] var URLtext : widestring; [...] URLText:=''+ '?__EVENTTARGET='+ '&__EVENTARGUMENT='+...
Nie pamiętam na tyle składni Firebirda, ale generalnie: Robisz generator (żaden generator nie jest powiązany z tabelą!), a następnie, jeśli baza ma dbać o wartości, w wyzwalaczu (trigger) ONINSERT dodajesz ustawienie pola jako wybór wartości z generatora. Usuwanie rekordów nie ma niczego zmieniać!...
Utworzenie typu rekordowego o stałej wielkości i następnie czytanie i zapisywanie do pliku typu tego rekordu (file of TRekord)
Captiony, czy razem z SubItemsami. To jest pytanie czy stwierdzenie? Jeśli chodzi o same Captiony to po prostu utwórz obiekt typu TStringList, do niego dodaj czytane z pętli Captions z kolejnych Itemsów listy TListView, a na koniec użyj metody SaveToFile obiektu TStringList. Jeśli chcesz także zapisać...
Niczego to nie zmienia. Wciąż musisz osobno zapisywać pozycje rekordu, gdyż wciąż jest to tylko wskaźnik. To może już prościej dziedziczyć z klasy TComponent i używać Read/Write Component? Aczkolwiek radziłbym po prostu napisać funkcję, która zapisze rekord do pliku (strumienia). Pamiętaj, że przy odczycie...
Rekord to zmienna, w programie mam inaczej, zmieniłem aby uprość kod. to akurat działa, bo używam identycznie do edycji rekordów bazy, W tabeli mam kilka pól typu ALPHA, i pole 'Foto' typu Binary. Prędzej wysyłałem poprzez Table, i wszystko działało, ale muszę przejść na SQL. [syntax=delphi] ...
Ale takie powiązania realizuje się na bazie a nie programowo! Od tego ta baza jest! Po wykonaniu odpowiedniego klucza obcego (może być to tylko wirtualny klucz bez rzeczywistego powiązania) układa się zapytanie tak, jak podałem. Semantycznie tych samych rekordów raczej nie dzieli się na dwie tabele...
Definiujesz rekord typu TFormatSettings i przekazujesz...
Zrozumiałem zasadę "packed" - ale coś mnie z drugiej strony niepokoi. Tu: napisane jest, że "bez względu na rozmiar konkretnego pola, początkowy obszar pamięci zajmowanej przez kolejne pole znajduje się zawsze o wielokrotność ustalonej liczby bajtów dalej, co pozwala na szybszy dostęp do kolejnych...
Zaczynam już gubić wszystko po kolei. Ile liczy ilość rekordów w tablicy. Co jest tutaj źle? Pomimo, że się kompiluje(kolejno wypisuje rekordy) , ale coś mi się zdaje, że to nie o to do końca chodzi. [syntax=pascal] const N = 5; type tabwsk = ^TOsoba; TOsoba = record nazwisko :...
Nie programuje w Delphi więc raczej kodem Cię nie podrzucę, ale sprawa nie jest zbyt skomplikowana. Baza będzie składać się z 2 tabel (przynajmniej z tego co podałeś). W pierwszej mamy użytkowników (wszystko co potrzebujesz loginy,hasła itp). W drugiej będziemy mieli wpisy. Problem widzę masz z datą,...
Czy komponent IBTransaction kontroluje działanie trigera na serwerze? Serwer kontroluje działanie trigger-ów na serwerze. Możesz tylko zastosować odpowiedni trick, żeby ja czasami omijać, gdy nie są potrzebne. Wynika stąd że najlepiej wszystko wykonywać za pomocą procedur w bazie... Wtedy masz największą...
Na poziomie lekko teoretycznym dopowiem, że locking jest ważną rzeczą, i to co tutaj jest dyskutowane to jest tzw pesymistyczny . Jest jeszcze optymistyczny , optymizm polega na tym, że zakładamy statystycznie rzadkie aktualizacje. Rzeczywisty "fizyczny" lock jest zakładany tuż przed ostatecznym...
ok, nowe okoliczności - nowe założenia - operuję na tablicach dwuwymiarowych czyli rekordy o stałej długości (wektory xy) o różnych wielkościach - zamierzam taką tablicę (wskaźnik do niej) przekazać funkcji dll która po przetworzeniu danych zwraca mi nową tablicę (inny, nieznany mi rozmiar). Z tego co...
Witam mam następujące pytane które nie daje mi spokoju od dłuższego czasu Chcę porównywać zawartości komórek rekordów bazy MySQL-owej Problem tkwi w tym, że pobierając klasycznie dane z rekordu otrzymuję całą jego zawartość, a ja chciałbym pobierać dane z poszczególnych komórek tabeli i porównywać...
Witam, pozwolę sobie odświeżyć ten temat. arnoldziq gdybyś mógł mi poradzić jak odczytać wartość zapytania do labela lub edita? Gdy wpisuje coś takiego, dostaję w wyniku 0. IBQuery1.SQL.Clear; Label1.Caption... first 1 skip 3 kolumna_1 from tabela'); IBQuery1.Open; ...
Czy ktoś może wie (lub pamięta) jak z komponentów Delphi poskładać coś co pozwala na dodanie dużej ilości rekordów (z pliku, stringa, etc) do gotowej (stacjonarnej, na dysku) bazy danych? Baza danych ma gotową przewidywalną strukturę i prawidłowo wyświetla mi się w komponencie TDBGrid, ale nie chcę...
Dodano po 50 Poniższe linijki przypisują wartości do pola, ale po kolei opiszę co i jak: [syntax=delphi] nazwa.Text:=tabBu... //przypisanie wartości do pola nazwa z tablicy, po wybranym indeksie z pola wyboru naszeButy z tablicy rekordów ...
Witam. Mam takie tabelki: Magazyn m_id int m_t_id int m_lb varchar(20)... Towar t_id int t_gr_id int // grupa t_pg_id int // podgrupa t_pr_id int // producent t_nazwa varchar(255) t_napis... GrTowar gr_id int gr_nazwa varchar(100) gr_n...
Najczęściej zadawane pytania : Jaki język programowania wybrać? Wszystkich, których interesuje to pytanie, kieruję do wyszukiwarki forum, lub do dokładnego przejrzenia tego wątku : - Jaki język programowania wybrać ? Obsługa Portu LPT : - LPT FAQ - VisualBasic6 i INNE RS232...
Język to delphi 2006 procedura importu poniżej: procedure TForm1.Button2Click(Sender: TObject); var odczyt: TextFile; wiersz,czesc,S3 : string; data_old,data_new : string; time_old,time_new : string; i,x,y,dd,mm,rr,gg,min,sek : Integer; rekord:...
Marek dane zapisywane są w bazie Firebird za pomocą zdarzenia OnRxChar komponentu CPort i procedury: procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var Str : String; plik: TextFile; begin ComPort1.ReadStr(Str, Count); Memo1.Text :=...
Jak w temacie, Delphi 3, baza paradox, Pole lookup przedstawia w czymś podobnym do combobox liste szczegolow należących do danego rekordu (w tym przypadku jest to lista plików należących do danego rekordu), chcialbym wyszukać tylko te rekordy w których lista plików w polu lookup zawiera określony...
Sprawa nieaktualna. Już poradziłęm sobie. Progs w Delphi. Na początku trzeba podłączyć do programu bazę danych Accessa przez ADOTable i DataSource. Teraz na formę trzeba wywlec potrzebne pola z listy dostepnej po dwukliku na ADOTable, prawym i Add Fields. Następnie kod funkcji: function TForm1.getxy(x,y,m:integer)&...
Witam widzę że kolega fajnie zaczyna :) Polecił bym to koledze uprościć najlepiej wykonać tabelę z jednym polem ID gdzie to ID było by unikalnym identyfikatorem samochodu Proponuję zastosowanie jednej tabeli o polach które chcesz mieć pozbył byś się relacyjności co Ci na pewno wszystko uprości...
Ja zrobiłem to tak: Napisałem program w delphi który umożliwiał mi tworzenie i edytowanie menu o strukturze drzewka. Za pomocą tego programu tworzyłem całą strukturę menu, edytowałem napisy, dodawałem nietypowe zdarzenia typu OnDraw i OnEnter :) Następnie z programu eksportowałem całe to cudo do...
Napotkałem dziwny problem. Jeśli chcę dodać rekord do bazy i wykonuję prostą kwerendę INSERT to czas wykonywania tego z punktu widzenia aplikacji jest rzędu 2-3sekund. W kodzie delphi to wygląda mniej więcej tak: query:='INSERT INTO event_log (gdzie) VALUES (''aaaa'');'; adq.SQL.Clear; ...