C.O.D Meeting By Deni Pratama

D2 TEKNIK KOMPUTER (BSI PROGRAMMER)

   C.O.D Meeting adalah program aplikasi yang dikhususkan untuk mempermudah pemilik atau client dalam melakukan proses meeting ketika user tidak atau belum sempat menghadiri proses meeting di kantor/perusahaan. Dengan berbasiskan web apps dan mobile phone, sehingga user dapat tetap bekerja meskipun masih dalam perjalanan. Berikut adalah Source Code C.O.D Meeting :

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses,
  uniGUIClasses, uniGUIForm, uniButton, uniLabel, uniGUIBaseClasses, uniEdit,
  uniToolBar, uniPageControl, uniDBNavigator, uniDBEdit, uniBasicGrid,
  uniDBGrid, DB, ADODB, uniBitBtn, uniPanel, ExtCtrls, uniTimer,
  uniDateTimePicker, uniDBDateTimePicker, uniMultiItem, uniComboBox,
  uniDBComboBox, uniTreeView, pngimage, uniImage,MMSystem, Menus, uniMainMenu,
  uniMemo, jpeg,ShellApi;

type
  TMainForm = class(TUniForm)
    UniEdit1: TUniEdit;
    UniLabel1: TUniLabel;
    UniEdit2: TUniEdit;
    UniButton1: TUniButton;
    UniLabel2: TUniLabel;
    UniPageControl1: TUniPageControl;
    UniToolBar1: TUniToolBar;
    UniTabSheet1: TUniTabSheet;
    UniTabSheet2: TUniTabSheet;
    UniTabSheet3: TUniTabSheet;
    UniBitBtn1: TUniBitBtn;
    UniBitBtn2: TUniBitBtn;
    UniBitBtn3: TUniBitBtn;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    UniDBGrid1: TUniDBGrid;
    UniDBEdit2: TUniDBEdit;
    UniDBEdit5: TUniDBEdit;
    UniDBEdit7: TUniDBEdit;
    UniDBNavigator1: TUniDBNavigator;
    UniLabel3: TUniLabel;
    UniLabel4: TUniLabel;
    UniLabel5: TUniLabel;
    UniLabel6: TUniLabel;
    UniLabel7: TUniLabel;
    UniLabel8: TUniLabel;
    UniLabel9: TUniLabel;
    UniDBEdit3: TUniDBEdit;
    UniDBEdit4: TUniDBEdit;
    UniPanel1: TUniPanel;
    UniLabel10: TUniLabel;
    UniLabel11: TUniLabel;
    UniTreeView1: TUniTreeView;
    UniLabel12: TUniLabel;
    UniDBComboBox1: TUniDBComboBox;
    UniDBComboBox2: TUniDBComboBox;
    UniDateTimePicker1: TUniDateTimePicker;
    UniButton2: TUniButton;
    UniImage1: TUniImage;
    UniLabel13: TUniLabel;
    UniImage2: TUniImage;
    UniMemo1: TUniMemo;
    UniMainMenu1: TUniMainMenu;
    File1: TUniMenuItem;
    Exit1: TUniMenuItem;
    Help1: TUniMenuItem;
    AboutMe1: TUniMenuItem;
    procedure UniButton1Click(Sender: TObject);
    procedure UniTreeView1Click(Sender: TObject);
    procedure UniFormActivate(Sender: TObject);
    procedure UniButton2Click(Sender: TObject);
    procedure UniBitBtn1Click(Sender: TObject);
    procedure UniBitBtn2Click(Sender: TObject);
    procedure UniBitBtn3Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure AboutMe1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function MainForm: TMainForm;

implementation

{$R *.dfm}

uses
  uniGUIVars, MainModule, uniGUIApplication;

function MainForm: TMainForm;
begin
  Result := TMainForm(UniMainModule.GetFormInstance(TMainForm));
end;

procedure TMainForm.AboutMe1Click(Sender: TObject);
begin
UnipageControl1.ActivePage:=UniTabSheet3;
end;

procedure TMainForm.Exit1Click(Sender: TObject);
begin
MainForm.Close;
end;

procedure TMainForm.UniBitBtn1Click(Sender: TObject);
begin
PlaySound(PChar(GetCurrentDir+'\Separuh_Aku.wav'),0,SND_SYNC);
end;

procedure TMainForm.UniBitBtn2Click(Sender: TObject);
begin
WinExec('Shutdown.exe -s -t 10',SW_NORMAL);
end;

procedure TMainForm.UniBitBtn3Click(Sender: TObject);
begin
WinExec('msg * Meeting COD Sudah Selesai',SW_NORMAL);
end;

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  if (UniEdit1.Text = 'deni') and (UniEdit2.Text = '13090163') then
    Begin
      UniPageControl1.Visible:=True;
      UniPageControl1.Enabled:=True;
    End;
  end;

procedure TMainForm.UniButton2Click(Sender: TObject);
Var Waktu:String;
begin
Waktu:=UniDateTimePicker1.Text;
UniDBComboBox2.Items.Insert(0,waktu) ;
end;

procedure TMainForm.UniFormActivate(Sender: TObject);
begin
UniTreeView1.FullExpand;
end;

procedure TMainForm.UniTreeView1Click(Sender: TObject);
begin
If UniTreeView1.Selected.SelectedIndex = 8 Then
   Begin
     MessageBox(Handle,'Deni Pratama 13090163, 13.6A.01','Info',SW_Normal);
   End;
end;

initialization

RegisterMainFormClass(TMainForm);

end.

Screen Shut C.O.D Meeting : 

Profile Deni

   ini adalah source tentang C.O.D Meeting untuk selebihnya bisa anda pelajari lagi lebih dalam. Sekian dan terima kasih.

   Untuk MenDownload Demo Project, Silahkan Masuk Ke Link ini ||Demo Project C.O.D Meeting By Deni||

   Untuk MenDownload Demo Database, Silahkan Masuk Ke Link ini ||Demo Database C.O.D||
Wassalam.....