This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| var | |
| i,j : integer; | |
| slike:string; | |
| begin | |
| q1.close | |
| q1.sql.text := 'select * from custtable'; | |
| q1.open; | |
| for i:= 1 to q1.recordcount do | |
| begin | |
| slike:=q1.fieldbyname('agr_school').asstring; |
rehmoe
/ code.snippet.disable-ctrl-alt-del.pas
Created
June 16, 2011 06:31
Kode presedur disable CTRL+ALT+DEL
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| procedure DisableCtrAltDel(Val: Boolean); | |
| var | |
| MyReg: TRegistry; | |
| begin | |
| Try | |
| MyReg := TRegistry.Create; | |
| with MyReg do | |
| begin | |
| RootKey := HKEY_CURRENT_USER; | |
| OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System', True); |
rehmoe
/ code.snippet.disablewindowsui.pas
Created
June 16, 2011 06:24
Contoh pemanggilan prosedur disabledwindowsUI
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| //disable | |
| procedure TForm1.btn1Click(Sender: TObject); | |
| begin | |
| DisableWindowsUI | |
| end; | |
| //enable | |
| procedure TForm1.btn2Click(Sender: TObject); | |
| begin | |
| EnableWindowsUI |
rehmoe
/ DisableWinKeys.pas
Created
June 16, 2011 06:22
Kode untuk disable system keys (ctrl+alt+del) ..dsb..dsb
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (************************************************************ | |
| this unit migrated from dll project(by Kambiz@delphiarea.com) | |
| downloaded at: | |
| http://forum.delphiarea.com/viewtopic.php?f=5&t=1744#p6504 | |
| Originally created by: | |
| Andrea Belli@delphiarea.com | |
| March 5th, 2010, 12:51 am | |
| enhanced: CTRL+ESC,ALT+TAB,ALT+ESC |
rehmoe
/ code.snippet.textprint.pas
Created
June 16, 2011 06:12
Kode prosedur direct printing (textbased)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| procedure TextPrint(lst:TStringList); | |
| var | |
| F: TextFile; | |
| begin | |
| AssignFile(F,'LPT1'); | |
| Rewrite(F); | |
| Write(F,lst.Gettext); | |
| CloseFile(F); | |
| end; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| //procedure disable/enable | |
| procedure SystemKeys(Disable: Boolean); | |
| var | |
| OldVal : LongInt; | |
| begin | |
| SystemParametersInfo(SPI_SCREENSAVERRUNNING,Word(Disable), @OldVal, 0); | |
| end; | |
| //contoh pamanggilan (disable) | |
| procedure TForm1.btn1Click(Sender: TObject); |
rehmoe
/ code.snippet.ribuan.pas
Created
June 16, 2011 05:55
Kode untuk format numerik --> rupiah/ribuan (dan sebaliknya)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| //Kode ini untuk format angka ke rupiah atau sebaliknya | |
| procedure Tf_main.Edit1KeyUp(Sender: TObject; var Key: Word; | |
| Shift: TShiftState); | |
| var | |
| sRupiah: string; | |
| iRupiah: Currency; | |
| begin | |
| //ribuan --> currency ( menyesuaikan setting windows ) | |
| sRupiah := Edit1.Text; | |
| sRupiah := StringReplace(sRupiah,',','',[rfReplaceAll,rfIgnoreCase]); // hilangkan char koma , pemisah //ribuan selain IDR |
rehmoe
/ code.snippet.validasi.numerik.pas
Created
June 16, 2011 05:53
Kode untuk validasi input numerik only
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| //Kode ini untuk validasi input... (yg diinput hanya angka saja) | |
| procedure Tf_main.Edit1KeyPress(Sender: TObject; var Key: Char); | |
| begin | |
| //selain angka (0..9)& backspace( #8 ), input dimatikan | |
| if not(key in['0'..'9',#8]) then | |
| key:=#0 | |
| end; |
rehmoe
/ sql.snippet.group_concat.sql
Created
June 16, 2011 05:44
Tips untuk retrieve info field yang nantinya bisa digunakan untuk kebutuhan Query
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| SELECT GROUP_CONCAT(column_name) AS info_field | |
| FROM information_schema.COLUMNS | |
| WHERE table_schema='joomla1510' AND table_name='mm_content'; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| CREATE TABLE `listmenu` ( | |
| `menu` VARCHAR(30) NOT NULL DEFAULT '', | |
| `modul` VARCHAR(30) NULL DEFAULT NULL, PRIMARY KEY (`menu`) | |
| ); |
NewerOlder