SELAMAT DATANG DI PORTAL SMK KELING KUMANG

MOS

Masa Orientasi Siswa Tahun ajaran 2015/2016

INVICTUS

Pendidikan Bela Negara

Foto Bersama

Siswa-Siswi berfoto bersama sebagai ucapan perpisahan kepada Brigde dari Australia yang akan kembali kenegaranta

Peresmian SMK Keling Kumang

Proses Pembukaan Pelang SMK Keling Kumang Oleh Pejabat Pemda Kab.Sekadau yang diwakili Oleh Bapak Rupinus

Team Sepak Bola SMK Keling Kumang

Dengan Mememang Teguh semanggat INVICTUS ( Tak terkalahkan, Tak tertaklukan)

Rabu, 23 November 2016

Fungi Perkalian Pada Delphi

var
  Form1: TForm1;

a,b,c:real;

implementation

{$R *.dfm}

procedure TForm1.Edit2Change(Sender: TObject);

begin
a:=StrToIntDef(DBEdit1.Text,0);
b:=StrToIntDef(Edit2.Text,0);
c:=a*b;
Edit3.Text:=FloatToStr(c);
if Edit2.Text='' then
ShowMessage('data harus di isi');
Form1.Refresh;

Fungsi Filter Pada Delphi

Berikut  ini admin kembali memposting fungsi Filter data dengan Delphi

__________________________________________________
Begin
ADOQuery1.SQL.Clear;
if RadioGroup1.ItemIndex=0 then
      ADOQuery1.SQL.Text:='select * from siswa where nis LIKE"'+Edit1.Text +'%"'else
        ADOQuery1.SQL.Text:='select * from siswa where nama_siswa LIKE"'+Edit1.Text +'%"';
  ADOQuery1.Open;
End.
__________________________________________________

Form Login

Berikut ini Fungsi Login Form


+++++++++++++++++++++++++++++++++++++++++++++++++++++++



unit ULogin;

interface

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

type
  TFrmLogin = class(TForm)
    Label1: TLabel;
    edusername: TEdit;
    Label2: TLabel;
    edpassword: TEdit;
    Button1: TButton;
    ADOQuery1: TADOQuery;
    ADOConnection1: TADOConnection;
    Button2: TButton;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmLogin: TFrmLogin;

implementation
uses
// XPMan agar tampilan form seperti button mengikuti theme pada windows
// Tambahkan unit UHasilLogin ke ULogin dengan menekan Alt + F11, atau dengan mengetiknya saja

  XPMan, UHasilLogin, Unit1;

{$R *.dfm}

procedure TFrmLogin.FormCreate(Sender: TObject);
var
  s : Char;
  alamatdb : WideString;
begin
//Frm_utama.Hide;
  // Manipulasi cursors crSQLWait agar tidak tampil
  Screen.Cursors[crSQLWait] := Screen.Cursors[crDefault];
//edusername.SetFocus;
  // atur tampilan form
  s := '*';
  edusername.Text := '';
  edpassword.PasswordChar := s;
  edpassword.Text := '';

  // atur koneksi pada ADOConnection
  // script ini berguna untuk mengatur koneksi database pada aplikasi
  // agar aplikasi dapat memproses database yang dipilih di komputer
  // manapun tanpa harus mempunyai path/alamat database yang sama.

  alamatdb := ExtractFilePath(Application.ExeName) + 'data.mdb';
  with ADOConnection1 do begin
    Connected := False;
    LoginPrompt := False;
    Mode := cmShareDenyNone;
    ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
    alamatdb + ';Persist Security Info=False';
  end;

  ADOConnection1.Connected := True;
end;

procedure TFrmLogin.Button1Click(Sender: TObject);
begin
  with ADOQuery1 do begin
    Close;
    SQL.Clear; // bersihkan perintah sql jika ada
    SQL.Add('select * from login where username='+
    QuotedStr(edusername.Text));
    Open;
  end; // end with

  // jika tidak ditemukan data yang dicari maka
  // tampilkan pesan

  if ADOQuery1.RecordCount = 0 then
      Application.MessageBox('Maap, username tersebut tidak ada', 'Informasi',
      MB_OK or MB_ICONINFORMATION)
  else begin
    if ADOQuery1.FieldByName('password').AsString <> edpassword.Text
      then Application.MessageBox('Pastikan username atau password benar', 'Error',
      MB_OK or MB_ICONERROR)
  else begin
    Hide;
  Frm_utama.Show;
    end
  end;
end;

procedure TFrmLogin.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;

end.

+++++++++++++++++++++++++++++++++++++++++

Kamis, 10 November 2016

Kegiatan Ekstrakurikuler

SMK Keling Kumang menyelengarakan berbagai kegiatan Ekstra kurikuler. hal ini dilakukan untuk memberikan tempat bagi seluruh siswa-siswa dalam menyalurkan bakat dan minat mereka, adapun kegiatan ekstra yang di selenggarakan antara lain:
  1. Sepak Bola
  2. Bola Volley
  3. Tenis meja
  4. bulu tangkis
  5. catur
  6. Band
  7. Tari modern
  8. Tari daerah
  9. Beladiri Shorinji Kempo
  10. Melukis
  11. Mading
  12. Teater
  13. PMR
  14. Pramuka
  15. Paskib
  16. Pertanian
  17. Web
  18. Blog
  19.  Pemrograman
  20. Bahasa Inggris
  21. Matematika
  22. Kerajinan Tangan
  23. Paduan Suara
  24. Praktek Sore simulasi Kasir, Pelayanan pada Nasabah mengunakan Aplikasi
dan masih banyak lagi. semua kegiatan tersebut diselenggarakan mulai dari Senin Sore- Jumat malam.hal tersebut untuk menghidari para siswa-siswi dari kegiatan yang negatif di luar rumah. karena lebih baik mereka banyak kegiatan di sekolah yang positif dari pada keluyuran dan akan beresiko pada pergaulan bebas tandas Miki Hermanto, S.Kom selaku Waka bidang kesiswaaan SMK Keling Kumang Sekadau .

Rabu, 09 November 2016

Prestasi SMK Keling Kumang awal tahun




SMK keling kumang mengawali Tahun ajaran 2016/2017 dalam 4 bulan terakhir sudah meraih 16 piala dari berbagai cabang Olah raga dan kegiatan lainnya. dan berikut ini sebagian dokumentasi prestasi tersebut



 4 pala dari cabang Seni