Perkongsian segala kisah.... -> jual dan taja produk AMWAY -> jual produk laser kayu Doctor Kayu -> koding pengaturcaraan Delphi
Monday, 27 December 2021
Delphi 10.3 Problem to Load SSL Certificate
Tuesday, 2 November 2021
Elak Karat Mesin Basuh SA8 Amway
SA8 Premium Concentrated Laundry Detergent (1kg) |
- Jimat air . Makin banyak buih, makin banyak guna air- Baju susah bergerak dalam mesin basuh bila buih banyak- Tiada bendasing. Letakkan 1 sudu sabun basuh pada 1 gelas air. Adakah semua larut ke bawah atau terapung di permukaan air? Benda yang terapung itu bukan sabun. Ia bendasing yg dicampur dalam sabun kita.
Monday, 1 November 2021
Cucian Jimat dan Serba Guna LOC Multi Purpose AMWAY
Amat jimat sehingga 8 bulan. Guna 1/2 penutup = 1/2 baldi air. Malah, takperlu bilas
Kelebihan:
✔Cuci permaidani yang kotor
✔Cuci kotoran atau kesan conteng di sofa kulit
✔sabun mop lantai selamat dari untuk bayi merangkak.
✔sabun lap meja hindar dari semut datang
✔sabun lap cermin lebih berkilat dari biasa dan
✔ menanggalkan kesan minyak di dapur
✔cuci kereta lebih kilat dari biasa
✔air sabun boleh menjadi baja pokok bunga
✔Kilatkan kembali emas lama.
✔Selamat dan lembut untuk kegunaan harian - PH neutral
Klik di sini untuk daftar ahli. Promosi serendah RM10 sehingga 31 Disember 2021
Nak beli produk? Hubungi Juraida Johari, whatapps 0166611104 atau email aidajuraida@gmail.com
Peluang Tambah Pendapatan di AMWAY
Untuk penggemar barangan organik dan berkualiti tinggi, produk AMWAY adalah produk yang menjadi pilihan. Produknya merangkumi suplemen, set jagaan diri, set kecantikan, penjagaan rumah, dan barangan elektrik juga.
Untuk dapatkan harga yang murah, pengguna perlulah daftar menjadi ahli. Bagaimana cara nak daftar ahli?
Pengguna boleh memilih sama ada
1. Amway Business Owner (ABO) atau
- Sambil guna produk , sambil menjual
- Pembelian harga istimewa
- Tambah pendapatan tanpa had. Pencen pun boleh dapat
- Pembelian barang tanpa had
- Boleh menaja ABO / APC
- Klik di sini untuk daftar https://www.amway.my/registration/businessowner
dan masukkan no ABO Sponsor : 7007565802
2. Amway Privilege Customer (APC)
- sekadar mengguna produk sahaja
- Pembelian harga istimewa
- AMPoint terkumpul : tebus voucher pembelian seterusnya
- Klik di sini untuk daftar https://www.amway.my/registration/member
dan masukkan no ABO Sponsor : 7007565802
Hubungi Juraida Johari, whatapps 0166611104 atau email aidajuraida@gmail.com
Wednesday, 25 August 2021
Unigui Global Variable
Here the sample how to use global variables for other forms.
DataModule : dmDataModule
public
{ Public declarations }
fMyGlobalVar_Userid : string;
published
property MyGlobalVar_Userid: string read fMyGlobalVar_Userid write fMyGlobalVar_Userid;
end;
Form1 :
var
UserId : string;
begin
dmDataModule.MyGlobalVar_Userid := UserId;
end;
Form2 :
unimLabel1.Text := dmAppModule.MyGlobalVar_Userid;
Friday, 20 August 2021
Unigui How to Setting Enter As Tab
You must configure your form and enable Enter using these steps:
In Property of UniForm,
NavigateKeys --> Enabled = True
--> Next --> Key = 13
--> HandleBrower = True
Sunday, 20 June 2021
Resepi Pai Coklat Tanpa Bakar
Oreo ni aku beli nak buat biskut oreo tapi biskut oreo yang aku buat tak sedap. Masih banyak berbaki. Akhirnya, oreo ini dapat digunakan juga untuk buat pai coklat. Loyang tat pula sudah lama beli tapi tak pernah digunakan. Yeahhhh... segala-galanya dapat dimanfaatkan.
Untuk Base –
- 350 gram digestive biscuits (aku guna pakai oreo)
- 140 gram butter - cairkan
- 180 gram dairy whipping cream
- 300 gram dark chocolate compound.
- 120 gram dairy whipping cream
- 120 gram dark chocolate compound
- 1 sudu kecil butter
1. Base; Hancurkan biskut dan gaulkan bersama butter. Kemudian mampatkan dalam loyang. Ratakan sampai ke tepi loyang. Mampatkan betul-betul. Setkan dalam peti selama 30 minit.
2. Chocolate filling; Double boil sampai semua bahan sebati. Kemudian suamkan dalam 10 minit. Tuangkan ke atas base yang disejukkan tadi. Setkan lagi selama 30 minit dalam peti sejuk
3. Topping; Double boil kesemua bahan, kacau sampai sebati dan tiada ketul-ketul. Bila dah siap kasi dia suam dulu dalam 10 minit then baru tuang ke atas lapisan tadi. Setkan semalaman dan dah boleh makan. Makan petang-petang sambil hirup secawan coffee.
Petua Cegah Covic-19 dan Pengambilan Makanan
"Mencegah itu Lebih Baik Daripada Mengubati"
Pastikan badan kita imunisasi tinggi untuk melawan penyakit covic-19. Pelbagai kaedah yang boleh kita lakukan mengikut kemampuan kita. SOP mesti kita patuhi dari segi memakai mask dan penjarakkan sosial.
Aku juga turut mula memakai niqab . Berdasarkan pengalaman ketika menunaikan umrah di Mekah, selepas kami (mak, adik dan aku) memakai niqab tidak lagi alami sakit tekak atau batuk. Pada masa itu terfikir kenapa wanita Arab tutup muka. Habuk halus tak nampak pun berterbangan. Habuk itu seolah-olah sekecil zarah tak nampak pada mata kasar.
Beberapa langkah dan pengambilan makanan untuk mengatasi:
- Ambil vitamin C. Pastikan 1000mg sehari. Jika dah kena, ambil lebih 1000mg sepanjang tempoh positif
- Ambil makanan yang panas seperti halia atau habbatussauda. Halia boleh buat air. Makan Habbatussauda cukup 3-7 biji sahaja. Lebih nanti panas hingga ke kepala.
- Kerap Minum air yang dimasak, pastikan mendidih pada suhu 100°C.
- Minum air sejuk di dalam ketul ais letak secubit garam atau habbatul sauda.
- Wapkan muka dengan air panas yang meruap. Boleh juga masukkan beberapa biji cengkih. Garam bukit pun boleh masukkan juga
- Sapu alkohol di luar facemask pakai buang
- Sapu pati gaharu kemboja tepi lubang hidung,
Hadis berkaitan Habbatussauda atau jintan hitam’ yang diriwayatkan oleh ‘Aishah R.A,
إِنَّ هَذِهِ الحَبَّةَ السَّوْدَاءَ شِفَاءٌ مِنْ كُلِّ دَاءٍ، إِلَّا مِنَ السَّامِ، قُلْتُ: وَمَا السَّامُ؟ قَالَ: المَوْتُ
Maksudnya: Sesungguhnya Habbatussauda’ adalah penawar bagi segala penyakit, melainkan al-Saam. Aku bertanya: Apakah al-Saam itu? Baginda SAW menjawab: “Kematian”. [Riwayat al-Bukhari (5687)]
Saturday, 19 June 2021
Covic-19 Varian Delta, Echo
VARIAN DELTA, ECHO
Manusia jahat melalui ilmu akalnya menggunakan jari-jemarinya boleh mencipta virus covic dari varian biasa-biasa ke virus yang lebih canggih dan merbahaya.
Resepi Cream Puff Inti Kastad Whipping Cream
Leceh nak buat ini. Banyak sangat proses. Dah siap cream kulit, kena buat inti pula dan lepas itu nak paip lagi. Aku ini jenis yang nak cepat asalkan sedap.
- 300gm air
- 100 gm majerin / butter
- 150 gm tepung gandum (aku guna tepung bluekey kotak oren. Ada gambar creampuff)
- 5 biji telur C
- Didihkan air dan majerin. Dah gelegak, perlahankan api.. masuk tepung kacau hingga jadi bentuk bebola dan tak melekat pada periuk/kuali.
- Tutup api biarkan sejuk dalam setengah jam. Masuk telur dan putar guna mixer sampai berkilat. Adunan tak terlalu cair dan tak terlalu kental.
- Paipkan atas dulang yg telah digriskan. Bakar suhu 200-230c atau oven masing-masing selama 25 minit atau buih-buih pada creampuff tak lagi kelihatan. ( TEKNIK NI PENTING SUPAYA CREAMPUFF TAK KEMPIS SETELAH DIKELUARKAN DARI OVEN)
- 400 gm susu full krim
- 100 gm gula
- 50 gm tepung kastad
- 2 biji telur C
- 300 gm non dairy whipping krim – putar hingga sederhana kental/medium peak
- Didihkan SUSU atas api sederhana kuat. Dalam bekas lain, satukan TEPUNG dan GULA. Gaul rata guna whisk. Masukkan TELUR. Gaul sebati.
- Ambil 5 senduk susu yang sedang didihkan atas api, masukkan ke dalam adunan telur dan tepung. Gaul rata.
- Setelah susu mendidih kecil dan keluarkan wap, masukkan adunan telur,tepung dan susu tadi. Sentiasa kacau hingga jadi kental dan berkilat. PART NI PALING TRICKY. MESTI kacau sentiasa utk elak kastad jadi hangus dan berketul2. Dah siap tutup api.
- Terus ambil plastik wrap dan letakkkan atas permukaan kastad. Biarkan sejuk pada suhu bilik kemudian masuk peti sejuk biasa. BUKAN SEJUK BEKU. Sejukkan semalaman
- Pagi esoknya dah boleh keluarkan dari peti. Pukul guna mixer utk haluskan kastad. Kemudian campurkan bersama whipping krim yg telah dipukul SEDERHANA KENTAL.
- Mix kan kastad dan non dairy whipping krim hingga BETUL2 KENTAL (STIFF PEAK) dan masukkan ke dalam piping bag. Simpan dalam peti 2,3 jam dan siap utk digunakan. Isikan kedalam kulit creampuff dan taburkan ising sugar.
Friday, 11 June 2021
DevExpress TcxGrid Properties Setting
TcxGrid dalam komponen DevExpress adalah komponen grid yang aku suka gunakan dari segi sorting data atau filter data. Dengan hanya klik header column, data jadi auto sort ascending descending.
Untuk filter juga mudah. Drag sahaja header mana-mana column grid ke atas header.
Namun begitu banyak setting yang perlu dilakukan untuk dapatkan fungsi-fungsi yang menarik.
Gambar 1 : TcxGrid |
Ini antara asas setting properties yang mana perlu klik butang cxGrid1DBTableView1 seperti di bawah:
Gambar 2: customize tcxgrid |
3. Navigator, pilih Visible = True
4. Footer, pilih Visible = True.
Footer ini perlu set TRUE sekiranya kita nak buat summary jumlah di bahagian bawah grid. Pastikan grid dimasukkan datasource dahulu. Kalau tak masukkan, tak boleh nak pilih field.
- Double klik gambar 2 di atas. Keluarlah gambar di bawah ni.
- Klik tab summary.
- Klik button Add untuk dapatkan item. Nak banyak item, tekan sahaja butang Add beberapa kali
- Nak setting item tersebut, pilih item dan isi maklumat di dalam properties
Di dalam Kind ada bermacam pilihan: skSum, skAverange, skMax, skMin, skNone. Kerap digunakan adalah skSum untuk mudah tengok jumlah data.
5. GroupByBox, pilih Visible = True
6. Indicatorr, pilih Visible = True
UniGUI TUniDBGrid Color Cell Column or Row
Contoh nak kasi warna data dalam grid UniGUI. Sedap mata memandang.
Bila angka pula bermacam-macam, sakit mata dibuatnya.
Boleh pilih nak warnakan untuk row atau column. Ikut keperluan.
procedure TfraView.UniDBGrid1DrawColumnCell(Sender: TObject; ACol,
ARow: Integer; Column: TUniDBGridColumn; Attribs: TUniCellAttribs);
begin
// Attribs.Color:=clGreen; //background color
// Attribs.Font.Style:=[fsbold];
// Attribs.Style.Padding := '5px';
// color for column only
if Column.FieldName = 'E_GROUP' then
begin
if Column.Field.AsString = '03' then
Attribs.Font.Color := clGreen
else if Column.Field.AsString = '02' then
Attribs.Font.Color := clBlue
else if Column.Field.AsString = '07' then
Attribs.Font.Color := clPurple
else
Attribs.Font.Color := clMaroon;
end;
// color for row
if (qryTermVA_ID.AsString = 'MB') then
Attribs.Font.Color:=clBlue
else if (qryTermVA_ID.AsString = 'PB') then
Attribs.Font.Color:=clPurple
else if (qryTermVA_ID.AsString = 'AM') then
Attribs.Font.Color:=clGreen
else
Attribs.Font.Color:=clMaroon;
end;
DevExpress TcxGrid Color Cell
Contoh coding warnakan cell row untuk grid DevExpress.
procedure TfrmMain.GridMainDBTableView1CustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if AViewInfo.GridRecord.Selected then
begin
ACanvas.Brush.Color:= clScrollBar;
ACanvas.Font.Color:= clBlack;
end;
if (AViewInfo.GridRecord.Values[GridMainDBTableView1ES_AMT.Index] <= 0) then
ACanvas.Font.Color:= clBlue;
if (AViewInfo.GridRecord.Values[GridMainDBTableView1ES_AMT_LIMIT.Index] <
AViewInfo.GridRecord.Values[GridMainDBTableView1ES_AMT_DISC.Index]) then
ACanvas.Font.Color:= clRed;
end;
end;
Thursday, 10 June 2021
Capture Android Device IMEI Delphi
Using Delphi 10.3 to develop Android application for capturing device IMEI and option setting
var
MainForm: TMainForm;
implementation
uses System.Permissions, AndroidAPI.JNI.Telephony, AndroidAPI.Helpers, AndroidAPI.JNI.OS;
{$R *.fmx}
procedure TMainForm.btnCaptureIMEIClick(Sender: TObject);
var
jTM : JTelephonyManager;
begin
jTM:= TJTelephonyManager.Create;
Text1.Text := JStringtoString(jTM.getImei);
end;
procedure TMainForm.FormCreate(Sender: TObject);
var
lPermissionTelState : string;
begin
lPermissionTelState := JStringtoString(TJManifest_permission.Javaclass.READ_PHONE_STATE);
PermissionsService.RequestPermissions([lPermissionTelState], nil, nil);
end;
Monday, 7 June 2021
Sihatkan Usus vs Aloe Vera
2 cawan Air
1/2 biji Lemon
2 atau 3 sudu Madu
1. Potong dan asing isi aloe vera. Masa potong, biarkan getah kuning aloe vera keluar. Biar kering getah tu baharu potong kecil-kecil.
2. Masukkan dalam periuk isi aloe vera. Masukkan air .
3. Masukkan air perahan lemon. Kalau lemon kecil boleh pakai sebiji.
4. Masak dalam air perlahan sampai mendidih. Lepas mendidih matikan api.
5. Lepas sejuk, masukkan madu dan hidangkan. Isi aloe vera tu boleh dimakan sekali.
Saturday, 5 June 2021
Batuk vs Daun Bangun-bangun
Thursday, 3 June 2021
Covic-19 vs Ketum
Setiap penyakit ada penawar. Allah telah menurunkan pelbagai tumbuhan yang menyerupai anggota tubuh badan kita dan hidupan lain. Kita perlu memanfaatkan anugerah yang telah diturunkan dan hanya Allah yang lebih mengetahui setiap kejadian tersebut.
Ramai yang menggambarkan virus-19 seperti bunga ketum. Ya, aku tengok pun nampak sama. Nak minum ketum boleh tetapi pastikan cara minum betul dengan tidak mencampurkan dengan bahan-bahan yang merosakkan diri dan boleh menyebabkan khayal.
Minuman ketum ini sebenarnya untuk tingkatkan imunisasi atau minuman tenaga. Atuk-atuk dulu kerja di ladang minum ketum selepas penat bekerja. Mereka jadikan teh. Keringkan daun dan buang urat daun. Simpan dan ambil sedikit untuk minum sekadar secawan.
Bunga Ketum vs Corona Virus-19 |
Cendawan vs Telinga |
Avocado vs Rahim Wanita |
Halia vs Perut |
Lobak Merah vs Mata |
Limau Bali vs Payudara |
Brokoli vs Penyakit Kanser |
Tomato vs Jantung |
Keledek vs Pankreas |
Anggor Merah vs Paru-paru |
Saledri vs Bentuk Batang Tulang |
Keju vs Tekstur Tulang |
Walnut vs Otak |
Kerang vs Zakar |