Listing Program Aplikasi DPK

Assalamualaikum

Langsung aja yah pada postingan kali ini saya akan menshare source code tentang Aplikasi DPK yang telah saya posting sebelumnya, dalam source code ini terdapat berbagai jenis tampilan diantaranya :

• Splash Screen
• Login
• Tambah DPM
• Edit DPM
• Edit DPK
• Ctak, dll

Untuk lebih jelasnya saya akan menampilkan source code – source codenya sebagian dan untuk melihat source codenya secara penuh, anda dapat mendownloadnya,

Splash Screen + Login

    

unit U_Splash;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, StdCtrls, Buttons, ComCtrls, jpeg, XPMan;

type

  TF_Splash = class(TForm)

    Image1: TImage;

    ProgressBar1: TProgressBar;

    Panel1: TPanel;

    Label3: TLabel;

    GroupBox1: TGroupBox;

    Label4: TLabel;

    Label5: TLabel;

    Ed_Pass: TEdit;

    Ed_Name: TEdit;

    Btn_Login: TBitBtn;          

    Btn_close: TBitBtn;

    Timer1: TTimer;

    XPManifest1: TXPManifest;

    procedure Timer1Timer(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Ed_PassKeyPress(Sender: TObject; var Key: Char);

    procedure Btn_LoginClick(Sender: TObject);

    procedure Btn_closeClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  F_Splash: TF_Splash;

implementation

uses U_Menu, U_DM;

{$R *.dfm}

procedure TF_Splash.Timer1Timer(Sender: TObject);

begin

  ProgressBar1.Position:=ProgressBar1.Position+20;

  if ProgressBar1.Position>=100 then

    begin

      F_Splash.Show;

      ProgressBar1.Hide;

      Panel1.Visible:=True;

      Timer1.Enabled:=False;

    end;

end;

procedure TF_Splash.FormCreate(Sender: TObject);

begin

Ed_Name.Clear;

Ed_Pass.Clear;

Panel1.Visible:=False;

end;

procedure TF_Splash.Ed_PassKeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

Btn_Login.Click;

end;

procedure TF_Splash.Btn_LoginClick(Sender: TObject);

begin

if(Ed_Name.Text='admin') And (Ed_Pass.Text='admin') then

begin

  F_Splash.Hide;

  F_Menu.Show;

  {DM.Conn.Connected:=False;

  DM.Conn.connectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+GetCurrentDir+'\DB_Cater.mdb';

  DM.Conn.LoginPrompt:=False;

  DM.Conn.connected:=True;}

  end

  else

  begin

  Application.MessageBox('Maaf Login Anda Gagal..!!!','WARNING',MB_ICONWARNING);

  Ed_Pass.SetFocus;

  end;

end;

procedure TF_Splash.Btn_closeClick(Sender: TObject);

begin

Close;

end;

end.

..

Link Download Source Code Aplikasi DPK semuanya bisa diklik dibawah ini :

Download Source Code Aplikasi DPK 




By. Admin Fhatrya Free Download