Příklady JAVA - Historie editací

Grepl v 15. 2. 2015, 13:44

2015-02-15T13:44:48Z

Greplová Alena: /* Příklad 2 - spuštění sestavy z generátoru sestav */

2013-01-31T11:40:32Z

Příklad 2 - spuštění sestavy z generátoru sestav

Grepl: /* Příklad 7 - použití paměťové tabulky TKAPMemTable */

2013-01-29T12:09:56Z

Příklad 7 - použití paměťové tabulky TKAPMemTable

Grepl: Nadpisy příkladů

2013-01-29T12:09:29Z

Nadpisy příkladů

Greplová Alena: Nová stránka: ====Příklad 1==== s = IniReadString("ScriptTest", 1, True, _AktualniSklad_, "5"); ShowMessage(Settings.Values["INI.FirmaJmeno"]+"\n"+Settings.Values["USER.JmenoUziv"]+"\n"+_Konfi...

2013-01-28T13:04:46Z

Nová stránka: ====Příklad 1==== s = IniReadString("ScriptTest", 1, True, _AktualniSklad_, "5"); ShowMessage(Settings.Values["INI.FirmaJmeno"]+"\n"+Settings.Values["USER.JmenoUziv"]+"\n"+_Konfi...

Nová stránka

====Příklad 1====
s = IniReadString("ScriptTest", 1, True, _AktualniSklad_, "5");
ShowMessage(Settings.Values["INI.FirmaJmeno"]+"\n"+Settings.Values["USER.JmenoUziv"]+"\n"+_KonfigDir_);
LogWrite("Direktivy:"+_Direktivy_);
if (s != "") {
i = StrToInt(s)+1;}
else
{i = -10;}
if (!IniWriteInteger("ScriptTest", 1, True, _AktualniSklad_, i))
{ShowMessage("V IniWriteInteger se vyskytla chyba");}

----
===Příklad 2===
DecodeDate(Date, YY, MM, DD);
if (MM==1) // Zjisteni predchoziho mesice
{ MM = 12;
YY = YY - 1;}
else
{ MM = MM - 1;}
D1 = EncodeDate(YY, MM, 1);
D2 = EncodeDate(YY, MM, DaysInMonth(YY, MM));
//S = GSRunReport(6, 1, "KFG_Datum1="+StrDate(D1)+chr(13)+ "KFG_Datum="+StrDate(D2)+chr(13)+ "INI_Jmeno=Pokusný sklad");
S = GSRunReportV(6, 1, ["KFG_Datum1", "KFG_Datum", "INI_Jmeno"],[StrDate(D1), StrDate(D2), "Pokusný sklad"]);
ShowMessage(s);

----

===Příklad 3===
//From, SendTo, FileAttach, Subject, SMTPServer, SMTPSenderName, SMTPPassword, BodyString, ErrMessage
s = "";
if (SendMailBySMTP("odesilatel@posta.cz", "prijemce@posta.com",
"UZIV\\Sestava1.SES"+#9+"UZIV\\SESTAVA2.SES"+#13+"UZIV\\Doklad.pdf",
"Test scriptu", "smtp.posta.cz", "SMTPjmeno", "SMTPheslo", "Testovaci email.\nKonec", s))
{ ShowMessage("OK\n"+ s);}
else
{ ShowMessage("CHYBA\n"+ s);}

----

===Příklad 4===
MOSCommunicator = TMOSCommunicator.Create("MOS.bin", "", "", "", 0);
if (MOSCommunicator.ErrMessage == ""){
if (MOSCommunicator.SendFile("DIR\\DATA.xml", "DATA1.XML", "", "", "", True))
{ LogWrite("Prenos OK");}
else
{ LogWrite(MOSCommunicator.ErrMessage);}
}else
{ LogWrite(MOSCommunicator.ErrMessage);}
MOSCommunicator.Free;

----

===Příklad 5===
MOSCommunicator = TMOSCommunicator.Create("", "192.168.17.1", "MOSuser", "MOSpswd", 1);
try{
if (MOSCommunicator.Connect) { // pokud se poipojím, pak se vše realizuje
// v rámci jednoho poipojení
// ShowMessage('Pripojeno');
if (MOSCommunicator.Connected) { // test navic
if (MOSCommunicator.SendSMS("111222333","Pokus o poslani SMS"))
{ShowMessage("SMS odeslana.");}
else
{ShowMessage("Chyba pri odesilani SMS:" + #13+MOSCommunicator.ErrMessage);}
if (MOSCommunicator.SendFile("DIR\\DATA.xml", "DATA1.XML", "", "", "", False))
{
ShowMessage("Prenos OK");
if (MOSCommunicator.GetFileInfo("Sklad6DOC", "Stavy.xml", Info, Velikost, Cas)){
ShowMessage("GetFileInfo:"+#13 + Info+ #13 + FloatToStr(Velikost) + #13 + DateTimeToStr(Cas));
if (!MOSCommunicator.GetFile("DIR\\Stavy2.xml", "Stavy.xml", "Sklad6DOC")){
ShowMessage("GetFile:" + #13 + MOSCommunicator.ErrMessage);}
} else
{ ShowMessage("GetFileInfo:" + #13 + MOSCommunicator.ErrMessage);}
} else {
ShowMessage("SendFile"+#13+MOSCommunicator.ErrMessage);}
MOSCommunicator.Disconnect;
} else
{ShowMessage(MOSCommunicator.ErrMessage);}
} else
{ShowMessage(MOSCommunicator.ErrMessage);}
}finally{
MOSCommunicator.Free;
}

----
===Příklad 6===
t = TKAPBtrTable.Create;
try{ // try-finally cást není nutná, ale správne se takto reší problémové situace
t.TableName = "CISELNIK.btr"; // jméno tabulky bez cesty
t.IndexFieldNames = "TypCis;Klic1";
t.Open;
f = TForm.Create(Application);
try{
f.Caption = "Zobrazení " + t.TableName;
f.Position = poDefault;
DBGrid = TDBGrid.Create(f); // parametr urcuje vlastníka prvku DBGrid
DBGrid.Parent = f; // Parent urcuje, na kterém formulári se má DBGrid zobrazit
DBGrid.Align = alClient; // alClient znamená vyplnit celý formulár
ds = TDataSource.Create(f); // TDataSource propojuje tabulku s vizuálními prvky pro editaci (DBGrid)
DBGrid.DataSource = ds;
ds.DataSet = t;
f.ShowModal; // hlavní okno je treba vždy otevírat pomocí ShowModal
}finally{
F.Free; // objekty, kterým byl urcen vlastník (DBGrid) se ruší automaticky
} // pri rušení vlastníka (pri F.Free se ruší DBGrid i ds)
}finally{
t.Free; // vytvorené objekty je treba zrušit
}

----
===Příklad 7===
t = TKAPMemTable.Create;
try{
t.FieldDefs.Add("A",ftInteger,0, false);
t.FieldDefs.Add("B",ftString,30, false);
t.FieldDefs.Add("C",ftfloat,0, false);
t.FieldDefs.Add("D",ftDate,0, false);
t.FieldDefs.Add("E",ftTime,0, false);
t.CreateTable(nil);
// t.IndexFieldNames = "A;B";
t.AddIndex("i1", "A;B",[ixCaseInsensitive]); // nesmi byt prazdna mnozina
t.IndexName = "i1";
t.Open;
t.Append;
t.FieldByName("A").AsInteger = 5555;
t.FieldByName("B").AsString = "TEST";
t.FieldByName("C").AsFloat = 10.5;
t.Post;
t.Append;
t.FieldByName("A").AsInteger = 4444;
t.FieldByName("D").AsDateTime = Date+1;
t.Post;
t.Append;
t.FieldByName("A").AsInteger = 3333;
t.Post;
t.Append;
t.FieldByName("A").AsInteger = 8888;
t.Post;
t.First;
MinA = t.FieldByName("A").AsInteger;
while(!t.EOF){
if (t.FieldByName("A").AsInteger < MinA) { MinA = t.FieldByName("A").AsInteger;}
t.Next;
}
ShowMessage("Min: "+IntToStr(MinA));
f = TForm.Create(Application);
try{
f.Caption = "Zobrazení MemTable";
f.Width = 1024;
f.Height = 768;
DBGr= TDBGrid.Create(f);
DBGr.Parent = f;
DBGr.Align = alClient;
ds= TDataSource.Create(f);
DBGr.DataSource =ds;
ds.DataSet = t;
f.ShowModal;
}finally{
f.free;
}
}finally{
t.Free;
}

← Starší verze		Verze z 15. 2. 2015, 13:44
Řádek 1:		Řádek 1:
		+	Příklady programů ve [[Skriptovací programovací jazyk\|skriptovacím programovacím jazyku]] v jazyku Java.
		+
	====Příklad 1 - práce s proměnnými uloženými do databáze====		====Příklad 1 - práce s proměnnými uloženými do databáze====
	s = IniReadString("ScriptTest", 1, True, _AktualniSklad_, "5");		s = IniReadString("ScriptTest", 1, True, _AktualniSklad_, "5");

@@ Řádek 23: / Řádek 23: @@
   S = GSRunReportV(6, 1, ["KFG_Datum1", "KFG_Datum", "INI_Jmeno"],[StrDate(D1), StrDate(D2), "Pokusný sklad"]);
   ShowMessage(s);
 ----

@@ Řádek 120: / Řádek 120: @@
     t.FieldDefs.Add("E",ftTime,0, false);
     t.CreateTable(nil);
-//    t.IndexFieldNames = "A;B";
+ //    t.IndexFieldNames = "A;B";
     t.AddIndex("i1", "A;B",[ixCaseInsensitive]); // nesmi byt prazdna mnozina
     t.IndexName = "i1";

@@ Řádek 1: / Řádek 1: @@
-====Příklad 1====
+====Příklad 1 - práce s proměnnými uloženými do databáze====
   s = IniReadString("ScriptTest", 1, True, _AktualniSklad_, "5");
   ShowMessage(Settings.Values["INI.FirmaJmeno"]+"\n"+Settings.Values["USER.JmenoUziv"]+"\n"+_KonfigDir_);
@@ Řádek 11: / Řádek 11: @@
 ----
-===Příklad 2===
+====Příklad 2 - spuštění sestavy z generátoru sestav====
   DecodeDate(Date, YY, MM, DD);
   if (MM==1) // Zjisteni predchoziho mesice
@@ Řádek 27: / Řádek 27: @@
 ----
-===Příklad 3===
+====Příklad 3 - odeslání mailu s přílohou pomocí SMTP====
 //From, SendTo, FileAttach, Subject, SMTPServer, SMTPSenderName, SMTPPassword, BodyString, ErrMessage
    s = "";
@@ Řádek 40: / Řádek 40: @@
 ----
-===Příklad 4===
+====Příklad 4 - odeslání souboru pomocí MaximObjServeru====
   MOSCommunicator = TMOSCommunicator.Create("MOS.bin", "", "", "", 0);
   if (MOSCommunicator.ErrMessage == ""){
@@ Řádek 53: / Řádek 53: @@
 ----
-===Příklad 5===
+====Příklad 5 - použití funkcí objektu TMOSCommunicator pro komunikaci s MaximObjServerem====
   MOSCommunicator = TMOSCommunicator.Create("", "192.168.17.1", "MOSuser", "MOSpswd", 1);
   try{
@@ Řádek 86: / Řádek 86: @@
 ----
-===Příklad 6===
+====Příklad 6 - práce s TKAPBtrTable ve formuláři====
   t = TKAPBtrTable.Create;
   try{  // try-finally cást není nutná, ale správne se takto reší problémové situace
@@ Řádek 111: / Řádek 111: @@
 ----
-===Příklad 7===
+====Příklad 7 - použití paměťové tabulky TKAPMemTable====
   t = TKAPMemTable.Create;
   try{