lub chciałby mi ktoś pomóc  albo wiecie gdzie sie naucze ogólnie na ten temat 

Mam problem z SQL w delphi 10.2 

Program który piszę nie widzi Query 

Kontrolki leżą na Data Module  

Reszta na załączonych JPG

Kolekcjonuje banknoty od ponad 5 lat. Od jakiegoś czasu szukam programu dla kolekcjonerów. Niestety jest ich niewiele i albo są płatne, albo ich funkcje są dopiero w powijakach.

Przyznam się że jestem początkujący jeśli chodzi o programowanie. Czasami działam na MS Access, więc nie ukrywam że trochę się na nim wzoruje. Chciałbym napisać/stworzyć program, prawdopodobnie bazodanowy (jeśli inny rodzaj proszę o wskazówkę).

Miałby posiadać:

- około 4 tabele

- już gotowy "formularz" do wpisywania nowych rekordów/pozycji w tabeli

- ewentualnie możliwość tworzenia raportu z tabeli

- sumowanie wartości liczbowych (np. przy zliczaniu wartości kolekcji)

- niektóre informacje w tabelach się potarzać, dlatego dobrze jakby te bazy uaktualniły się równocześnie

- możliwość edytowania niektórych parametrów programu (np. wartości domyślnych w komórkach)

- możliwość wybierania niektórych wartości w kolumnach z rozwijanej listy

- myślałem także aby każda z pozycji w tabeli, miała swój bardziej szczegółowy opis w nowym oknie

- w tym szczegółowym oknie miały by się znaleźć również obiekty graficzne (zdjęcia w JPG)

Chciałbym wiedzieć czy stworzenie takiego programu jest wogóle możliwe. Chciałbym z jednej strony prosić o pomoc jak napisać taki program, w czym to napisać, może jakieś wskazówki, a z drugiej zapytać czy ktoś nie podjąłby się wykonania takiego projektu.

Pozdrawiam serdecznie

Adrian

Dziś postanowiłem poćwiczyć SQL'a i postawiłem sobie proste zadanie, chodzi o przechowywanie godzin otwarcia sklepu danego dnia. Jak wiemy sklepy są otwarte 7 dni w tygodniu dajmy na to przykładowy dzień od 06:00 do 02:00, a drugiego dnia już od 05:25 do 23:30. Dlatego stworzyłem sobie taką oto tabelę

shop_id => klucz obcy nas nie interesuje

day => numer dnia w którym obowiązuje zakres np 0 -> poniedziałek, 6 -> niedziela

open => godzina otwarcia sklepu w czasie unixowym np ( 18000 )

close => godzina zamknięcia sklepu w czasie unixowym np ( 14400 )

Jak widać już teraz godzina zamknięcia sklepu jest mniejsza od godziny otwarcia mimo iż obowiązuje dla tego samego dnia !

Wszystko było by ładnie pięknie ślicznie i w ogóle, ale no właśnie zawsze jest jakieś ale nie pasuje mi zapytanie sql którym chciałbym wyciągnąć który ze sklepów jest w danej chwili otwarty może dam fotke uzupełnionej bazy o 3 sklepy

SELECT * FROM `shop_work`
WHERE
 86400 * `day` + `open` >= :time AND
 IF( `close` <= `open`, `close` + ( `day` + 1 ) * 86400, close + day * 86400) <= :time

Jak wiadomo sklepy mogą być otwarte w czasie magicznej bariery 00:00 dlatego nie mogę założyć warunku na dzień. Może ktoś zechciałby mi pomóc z opanowaniem stylu(?) w jakim się powinno pisać w SQL bo przyznam że jaki kod bym nie czytał to nie czytelny jest (nie że nie rozumiem )

Czy są jakieś specjalne instrukcje w tym języku? Bo chciałem sobie zrobić takie transakcje w PhpMyAdmin i ustwiając autocommit na 0 PHPadmin i tak wykonywał wszystkie polecenia nie czekając na polecenie commit. Jak to by było trzeba rozwiązać?

Mam nadzieję, że jedynym sposobem nie jest chyba zebranie wszystkich instrukcji jako jedno mysql_query.

Mam zatem pytanie czy opisywane na końcu poprzedniego akapitu jest jedynym?

dzięki z góry za info,

pozdr

Dodaje kod.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, VpPrtFmtDlg, VpContactEditDlg, VpEvntEditDlg, VpResEditDlg,

VpDlg, VpAlarmDlg, StdCtrls, VpWeekView, VpDayView, VpBaseDS, VpBase,

VpDBDS, VpFlxDS, VpCalendar, VpClock, VpLEDLabel, DB, ZAbstractRODataset,

ZAbstractDataset, ZDataset, ZConnection, VpContactGrid;

type

TForm2 = class(TForm)

DataSource1: TDataSource;

ZConnection1: TZConnection;

ZQuery1: TZQuery;

VpLEDLabel1: TVpLEDLabel;

VpClock1: TVpClock;

VpCalendar1: TVpCalendar;

VpFlexDataStore1: TVpFlexDataStore;

VpControlLink1: TVpControlLink;

VpDayView1: TVpDayView;

VpWeekView1: TVpWeekView;

Button1: TButton;

VpNotificationDialog1: TVpNotificationDialog;

VpResourceEditDialog1: TVpResourceEditDialog;

VpEventEditDialog1: TVpEventEditDialog;

VpContactEditDialog1: TVpContactEditDialog;

VpPrintFormatEditDialog1: TVpPrintFormatEditDialog;

Button2: TButton;

DataSource2: TDataSource;

DataSource3: TDataSource;

DataSource4: TDataSource;

ZQuery2: TZQuery;

ZQuery3: TZQuery;

ZQuery4: TZQuery;

ZQuery3RecordID: TLargeintField;

ZQuery3ResouceID: TIntegerField;

ZQuery3Complete: TStringField;

ZQuery3Description: TStringField;

ZQuery3Details: TStringField;

ZQuery3CreatedOn: TStringField;

ZQuery3Piority: TStringField;

ZQuery3Category: TStringField;

ZQuery3CompletedOn: TStringField;

ZQuery3DueDate: TDateTimeField;

ZQuery3UserField0: TStringField;

ZQuery3UserField1: TStringField;

ZQuery3UserField2: TStringField;

ZQuery3UserField3: TStringField;

ZQuery3UserField4: TStringField;

ZQuery3UserField5: TStringField;

ZQuery3UserFiled6: TStringField;

ZQuery3UserField7: TStringField;

ZQuery3UserField8: TStringField;

ZQuery3UserField9: TStringField;

VpResourceCombo1: TVpResourceCombo;

VpResourceCombo2: TVpResourceCombo;

ZQuery2ResourceID: TLargeintField;

ZQuery2Description: TStringField;

ZQuery2Notes: TStringField;

ZQuery2ImageIndex: TStringField;

ZQuery2ResourceActive: TStringField;

ZQuery2UserField0: TStringField;

ZQuery2UserField1: TStringField;

ZQuery2UserField2: TStringField;

ZQuery2UserField3: TStringField;

ZQuery2UserField4: TStringField;

ZQuery2UserField5: TStringField;

ZQuery2UserField6: TStringField;

ZQuery2UserField7: TStringField;

ZQuery2UserField8: TStringField;

ZQuery2UserField9: TStringField;

GranularityCombo: TComboBox;

ZQuery4id_zamwienia: TIntegerField;

ZQuery4data_zamwienia: TDateField;

ZQuery4godzina_zamwienia: TTimeField;

ZQuery4usuga_zamwienia: TMemoField;

ZQuery4cena_zamwienia: TFloatField;

ZQuery4imie_zamwienia: TStringField;

ZQuery4nazwisko_zamwienia: TStringField;

ZQuery4czas_wykonania_zamwienia: TMemoField;

ZQuery4cenazamowienia: TIntegerField;

ZQuery4events: TStringField;

ZQuery4contacts: TStringField;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

Close;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

VpResourceEditDialog1.AddNewResource;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

end;

end.

Mądrzy koledzy mi powiedzieli, że dane przy użyciu MySQL nie są bezpieczne i że jeśli nawet same dane się zaszyfruje to loginy i hasła można gdzieś "po drodze" podejrzeć.

A jak to się dzieje w przypadku MySQL SSL, czy ma ktoś doświadczenie w tym względzie ?

Istnieje potrzeba obsłużenia w MySQL-u kilku tabel jednocześnie na hostingu i :

1. zastanawiam się czy dobrze robię jeśli do obsługi każdej tabeli osobno wezmę komponent ZConnection, ZQuery, DataSource ... czy może jest inny sposób?

2. chyba nie bardzo jest opłacalne zamykanie jednej tabeli łączenie się z inną by potem znów zamknąć i wrócić do pierwszej?

Załóżmy mam tabele: osoby, grypy, przedmioty i czy te tabele obsługiwać na jednym zestawie komponentów ZConnection, ZQuery, DataSource czy każda tabela ma mieć swoje (ZConnection, ZQuery, DataSource ) pracujące jednocześnie.

Wtedy pobierając dane z panela mogę edytować te tabele bez potrzeby przełączania obsługi ale czy to mi nie wysypie programu.

Czyli właściwie 2 podstawowe pytania doszły

3. czy jak będzie 10 tabel to do każdej wrzucać komponenty ZConnection, ZQuery, DataSource?

4. Gdzieś czytałem że przy zapytaniach do kilku tabel MySQL nie działa jak należy, czyli pozostaje obsługiwać każda tabelę z osobna?

1. Było jak zainstalować w Delphi dobre komponenty do baz danych http://forum.unit1.pl/index.php?showtopic=3960

Ponieważ, niektórzy mają problemy z instalacja komponentów ponieważ mogą wyskakiwać mylące komunikaty o błędach .. zamieszczę tu swój opis, a właściwie wycinek rozmowy:

Zeos jest darmowy do każdego zastosowania

pytający

no to sprobuje pod nim, która paczka jest pod D2007? bo tu takowej nie widzę

programista

Delphi11

pytający

mam tylko delphi10 nie mam 11

programista

też tam paczka jest

pytający

Component \ insall packages \ Add?

programista

nie, w delphi otwórz paczke z katalogu package\Delphi10

ZeosDbo.groupproj

prawym na pierwszy projekt

a potem prawym i Install na ostatnim

potem tylko trzeba ścieżki do źródeł dorzucić w delphim

pytający

no found ZCore Res

ZCore.res*

programista

jak chcesz zrobić Build for all?

pytający

z folderu otwieram ZeosDbo.groupproj, w drzewku klikam Build all from here i wyskakuje mi taki bład

uzywam ZEOSDBO-6.6.0-beta

programista

ściągnij 6.6.6-stable idzie do strzału ja przed chwilką właśnie tą 6.6.6 ściągłem i ładnie poszło

pytający

file not found ZVariant.dcu ale go szukam

jest tylko w folderze build; Package D:\....\ZCore110.bpl cant installed because it is not a design time package

programista

no ok., wszystkim daj po kolei install, ostatnia pozycja się zainstaluje, CommeonetDesing czy coś takiego

pytający

ok mam zakładke Zeos Access

Jak za pomocą Delphi połączyć się z bazą MySQL?

Dla wszystkich tych, którzy chcą się połączyć z bazą danych a nie muszą używać konkretnych komponentów, polecam (zresztą nie tylko ja) polecam w miarę uniwersalne i poprawnie działające komponenty ZEOS.

2.W jakich kompilatorach można użyć ZeosLib do MySQLa?

Komponenty można zainstalować w:

- Delphi 5, Delphi 6, Delphi 7, Delphi 8, Delphi 9, Delphi 10, Delphi 11;

- Kylix 2 i 3;

- Lazarus;

3.Skąd ściągnąć komponenty do baz danych MySQL?

Download stabilnej wersji ZEOSDBO-6.6.6-stable znajduje się na: http://zeos.firmos.at/

Zalecana jest dokładnie ta wersja, gdyż jest sprawdzona i jak na razie jest bezbłędna.

Gdyby link przestał działać proszę o kontakt, mam kopię zapasową.

4.Jak w Delphi zainstalować komponenty ZeosLib do MySQLa?

Dokładny opis jak zainstalować komponenty znajduje się na stronie:

po polsku: http://project1.pl/index.php?option=com_co...w&id=5&Itemid=2

po angielsku z przykładami: http://zeos.firmos.at/kb.php?mode=article&k=7

Gdyby link przestał działać proszę o kontakt, mam kopię zapasową.

5.Biblioteka libmySQL.dll dlaczego jest ważna i gdzie ją trzeba zainstalować/ skopiować?

Plik mylibsql.dll jest ważny i wymagany do obsługiwania baz danych MySQL, zwłaszcza jeśli chcesz założyć bazę i z niej korzystać na własnym komputerze. Podczas łączenia się z bazą danych MySQL na serwerze zewnętrznym, np. przy stronie internetowej na hostingu lub z bazą na komputerze można mieć plik libmySQL.dll w folderze z programem albo w folderze systemowym. Dla Windows XP będzie to C:\WINDOWS\system32.

LibmySQL.dll pobrać można z:

http://www.dll-files.com/dllindex/dll-files.shtml?libmysql

http://www.dll-files.com/pop.php?dll=libmysql

Dużym ułatwieniem przy programowaniu dostępu do baz danych MySQL w Delhi jest komponent TSimpleMySQL - komponent coraz rzadziej stosowany. Jednak wystawcy uruchomić dostęp do bazy i znać podstawy składni MySQL – o nich w dalszej części.

SimpleMySQL jest klasa umożliwiająca łatwą komunikacje z baza danych MySQL korzysta z modułu mysql.pas i biblioteki libmySQL.dll. Celem tej SimpleMySQL jest stworzenie jak najprostszej metody łączenia i zaradzania bazą danych MySQL.

Klasa korzysta z MySQL Client API for Borland Delphi (dolaczone).