interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TMainForm = class(TForm)
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
MainForm: TMainForm;

implementation

uses login;

{$R *.dfm}

procedure TMainForm.Button1Click(Sender: TObject);
begin
if TLoginForm.Execute then
begin
Application.MessageBox(””””””””””””””””OK jste přihlašení””””””””””””””””, ””””””””””””””””Password Protected Delphi application””””””””””””””””);
end
else
begin
Application.MessageBox(””””””””””””””””You are not authorized to use the application. The password is “delphi”.””””””””””””””””, ””””””””””””””””Password Protected Delphi application””””””””””””””””);
Close;
end;
end;

end.

procedure TLoginForm.LogInButtonClick(Sender: TObject);
begin
if passwordEdit.Text = ””””””””””””””””delphi”””””””””””””””” then
ModalResult := mrOK
else
ModalResult := mrAbort;
end;

class function TLoginForm.Execute: boolean;
begin
with TLoginForm.Create(nil) do
try
Result := ShowModal = mrOk;
finally
Free;
end;
end;

procedure TLoginForm.FormCreate(Sender: TObject);
begin
passwordEdit.Text := ””””””””””””””””””””””””””””””””;
end;

procedure TForm1.Button1Click (Sender: TObject);
var i : integer;
begin
//zobrazeni prikazu
ShowMessage (CmdLine);

//zobrazeni poctu vstupnich parametru
ShowMessage (”Program byl spusten s ” + IntToStr (ParamCount) + ” parametry.”);

//zobrazeni jednotlivych parametru
for i := 1 to ParamCount do begin
ShowMessageFmt(”%d. parametr : %s”, [i, ParamStr(i)]);
end;
end;
Smyčka pro zobrazení jednotlivých parametrů je nyní od 1, nultý parametr je plná cesta a jméno souboru aplikace. Tato informace se může hodit, dá se také zjistit pomocí Application.ExeName.

1. Připojení se k MySQL
přístup pro uživatele se jménem: uživatelské_jméno
v příkazovém řádku napsat: [www@spin www]$  mysql -u uživatelské_jméno -p
následuje požadavek na zadání hesla  Enter password:

2. Nastavení databáze jako databáze aktivní
mysql> USE Název_databáze;

3. Vložení dat do tabulky pomocí příkazu INSERT
tabulka do které se vkládá:
+———-+———-+———-+
| Položka1 | Položka2 | Položka3 |
+———-+———-+———-+

vyplnění jen některých polí tabulky:
mysql> INSERT INTO Název_tabulky (Položka1, Položka3) VALUES ( “Hodnota1A”, “Hodnota3A”;
předchozí příklad se dá zapsat i takto:
mysql> INSERT INTO Název_tabulky VALUES (“Hodnota1A”, “NULL”, “Hodnota3A”);
vyplnění všech polí tabulky:
mysql> INSERT INTO Název_tabulky VALUES (“Hodnota1B”, “Hodnota2B”, “Hodnota3B”);
výpis uvedených příkladů:
+———-+———-+———-+
| Položka1 | Položka2 | Položka3 |
+———-+———-+———-+
|Hodnota1A |   NULL   |Hodnota3A |
+———-+———-+———-+
|Hodnota1B |Hodnota2B |Hodnota3B |
+———-+———-+———-+

4. Nahrazení dat v tabulce pomocí příkazu UPDATE
obecný zápis:
mysql> UPDATE Název_tabulky SET sloupec_tabulky=nová_hodnota WHERE kritéria;
konkrétní úloha – změna Hodnota1B na HodnotaBB:
mysql> UPDATE Název_tabulky SET Položka1=”HodnotaBB” WHERE Položka2=”Hodnota2B”;
změna se projeví takto:
+———-+———-+———-+
| Položka1 | Položka2 | Položka3 |
+———-+———-+———-+
|Hodnota1A |   NULL   |Hodnota3A |
+———-+———-+———-+
|HodnotaBB |Hodnota2B |Hodnota3B |
+———-+———-+———-+

změna všech hodnot v jednom sloupci:
mysql> UPDATE Název_tabulky SET Položka1=”HodnotaBB”;
pokud se nepoužije kritérium WHERE změní se všechny hodnoty ve sloupci:
+———-+———-+———-+
| Položka1 | Položka2 | Položka3 |
+———-+———-+———-+
|HodnotaBB |   NULL   |Hodnota3A |
+———-+———-+———-+
|HodnotaBB |Hodnota2B |Hodnota3B |
+———-+———-+———-+

5. Výpis dat z tabulky pomocí příkazu SELECT
obecný zápis:
mysql> SELECT Sloupce_tabulek FROM tabulky WHERE kritéria
vypsání celého obsahu tabulky:
mysql> SELECT * FROM Název_tabulky;
výběrové příkazy:
mysql> SELECT * FROM Název_tabulky WHERE Položka2=”Hodnota2B”;
+———-+———-+———-+
| Položka1 | Položka2 | Položka3 |
+———-+———-+———-+
|HodnotaBB |Hodnota2B |Hodnota3B |
+———-+———-+———-+

mysql> SELECT Položka3 FROM Název_tabulky WHERE Položka2=”Hodnota2B”;
+———-+
| Položka3 |
+———-+
|Hodnota3B |
+———-+

6. Odstranění dat z tabulky pomocí příkazu DELETE
smazání celého obsahu tabulky:
mysql> DELETE FROM Název_tabulky;
výběrové mazací dotazy (smažou vždy celý řádek!):
mysql> DELETE FROM Název_tabulky WHERE Položka2=”Hodnota2B”;

Stránky dle Vašich představ

My přijedeme k Vám a Vašeho miláška opravíme na místě.

table := TClientDataset.Create(Application);
table.FieldDefs.Add(””id””, ftInteger, 0, False);
table.FieldDefs.Add(””Přidat””, ftBoolean, 0, False);
table.FieldDefs.Add(””typ””, ftString, 0, False);
table.FieldDefs.Add(”’’skupina””, ftString, 0, False);
table.FieldDefs.Add(””vlastnost””, ftstring, 0, False);

table.CreateDataSet;
table.Open;

for I := 0 to Adoquery1.RecordCount – 1 do
begin
showmessage(ADOQuery1.FieldByName(””id””).asString);
table.Append;
table.FieldByName(””id””).AsInteger := ADOQuery1.FieldByName(””id””).asInteger;
table.FieldByName(””Přidat””).asBoolean := false;
table.FieldByName(””typ””).asString := ADOQuery1.FieldByName(””typ””).asString;
table.FieldByName(”’’skupina””).asString := ADOQuery1.FieldByName(”’’skupina””).asString;
table.FieldByName(””vlastnost””).asString := ADOQuery1.FieldByName(””vlastnost””).asString;
table.Post;
end;