diff --git a/TA PD JOKO ARDIYANTO.exe b/TA PD JOKO ARDIYANTO.exe
new file mode 100644
index 0000000..18d3977
Binary files /dev/null and b/TA PD JOKO ARDIYANTO.exe differ
diff --git a/TA PD JOKO ARDIYANTO.zip b/TA PD JOKO ARDIYANTO.zip
new file mode 100644
index 0000000..401ab34
Binary files /dev/null and b/TA PD JOKO ARDIYANTO.zip differ
diff --git a/backup/form.lpi b/backup/form.lpi
new file mode 100644
index 0000000..ffb4622
--- /dev/null
+++ b/backup/form.lpi
@@ -0,0 +1,79 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/backup/form.lps b/backup/form.lps
new file mode 100644
index 0000000..88ad94c
--- /dev/null
+++ b/backup/form.lps
@@ -0,0 +1,166 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/backup/ta.lfm b/backup/ta.lfm
new file mode 100644
index 0000000..0fcfd1b
--- /dev/null
+++ b/backup/ta.lfm
@@ -0,0 +1,270 @@
+object Form1: TForm1
+ Left = 326
+ Height = 543
+ Top = 15
+ Width = 755
+ Caption = 'TA PD JOKO ARDIYANTO'
+ ClientHeight = 543
+ ClientWidth = 755
+ OnCreate = FormCreate
+ LCLVersion = '2.0.12.0'
+ object Panel1: TPanel
+ Left = -8
+ Height = 344
+ Top = 0
+ Width = 763
+ ClientHeight = 344
+ ClientWidth = 763
+ TabOrder = 0
+ OnClick = Panel1Click
+ object Label1: TLabel
+ Left = 18
+ Height = 15
+ Top = 25
+ Width = 23
+ Caption = 'NIM'
+ ParentColor = False
+ end
+ object Edit1: TEdit
+ Left = 160
+ Height = 23
+ Top = 17
+ Width = 168
+ TabOrder = 0
+ end
+ object Label2: TLabel
+ Left = 18
+ Height = 15
+ Top = 73
+ Width = 32
+ Caption = 'Nama'
+ ParentColor = False
+ OnClick = Label2Click
+ end
+ object Edit2: TEdit
+ Left = 160
+ Height = 23
+ Top = 64
+ Width = 168
+ TabOrder = 1
+ end
+ object Label3: TLabel
+ Left = 18
+ Height = 15
+ Top = 128
+ Width = 35
+ Caption = 'No Hp'
+ ParentColor = False
+ end
+ object Edit3: TEdit
+ Left = 160
+ Height = 23
+ Top = 120
+ Width = 168
+ TabOrder = 2
+ end
+ object Label4: TLabel
+ Left = 16
+ Height = 15
+ Top = 183
+ Width = 76
+ Caption = 'Program Studi'
+ ParentColor = False
+ end
+ object Edit4: TEdit
+ Left = 160
+ Height = 23
+ Top = 176
+ Width = 168
+ TabOrder = 3
+ end
+ object Label5: TLabel
+ Left = 22
+ Height = 30
+ Top = 225
+ Width = 122
+ Caption = 'Judul Proposal Skripsi /'#13#10'Judul Topik KKP'
+ ParentColor = False
+ end
+ object Label6: TLabel
+ Left = 360
+ Height = 60
+ Top = 17
+ Width = 126
+ Caption = 'Foto Berwarna'#13#10'(Menggunakan '#13#10'Almamater Background'#13#10'Merah)'
+ ParentColor = False
+ OnClick = Label6Click
+ end
+ object Image1: TImage
+ Left = 544
+ Height = 129
+ Top = 17
+ Width = 136
+ end
+ object Label7: TLabel
+ Left = 360
+ Height = 45
+ Top = 216
+ Width = 61
+ Caption = 'Alasan'#13#10'Mengulang'#13#10'Skripsi/KKP'
+ ParentColor = False
+ end
+ object Memo1: TMemo
+ Left = 160
+ Height = 90
+ Top = 216
+ Width = 150
+ Lines.Strings = (
+ 'Memo1'
+ )
+ OnChange = Memo1Change
+ TabOrder = 4
+ end
+ object Memo2: TMemo
+ Left = 504
+ Height = 90
+ Top = 216
+ Width = 150
+ Enabled = False
+ Lines.Strings = (
+ 'Memo2'
+ )
+ TabOrder = 5
+ end
+ object GroupBox1: TGroupBox
+ Left = 9
+ Height = 130
+ Top = 318
+ Width = 745
+ Caption = 'GroupBox1'
+ TabOrder = 6
+ end
+ end
+ object Panel2: TPanel
+ Left = 64
+ Height = 122
+ Top = 336
+ Width = 594
+ ClientHeight = 122
+ ClientWidth = 594
+ Color = clLime
+ ParentColor = False
+ TabOrder = 1
+ object Label8: TLabel
+ Left = 248
+ Height = 19
+ Top = 16
+ Width = 141
+ Caption = 'Pilih Jenis Pengajuan'
+ Font.CharSet = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = 'Times New Roman'
+ Font.Pitch = fpVariable
+ Font.Quality = fqDraft
+ Font.Style = [fsBold]
+ ParentColor = False
+ ParentFont = False
+ end
+ object ComboBox1: TComboBox
+ Left = 416
+ Height = 23
+ Top = 16
+ Width = 164
+ ItemHeight = 15
+ OnChange = ComboBox1Change
+ TabOrder = 0
+ end
+ object Label9: TLabel
+ Left = 16
+ Height = 25
+ Top = 64
+ Width = 351
+ Caption = 'TOTAL BIAYA PENGAJUAN BIMBINGAN'
+ Font.CharSet = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -19
+ Font.Name = 'Segoe UI'
+ Font.Pitch = fpVariable
+ Font.Quality = fqDraft
+ Font.Style = [fsBold]
+ ParentColor = False
+ ParentFont = False
+ end
+ object Panel3: TPanel
+ Left = 420
+ Height = 35
+ Top = 56
+ Width = 156
+ Caption = '0'
+ Color = clMaroon
+ Font.CharSet = ANSI_CHARSET
+ Font.Color = clWhite
+ Font.Height = -15
+ Font.Name = 'Times New Roman'
+ Font.Pitch = fpVariable
+ Font.Quality = fqDraft
+ Font.Style = [fsBold]
+ ParentColor = False
+ ParentFont = False
+ TabOrder = 1
+ OnClick = Panel3Click
+ end
+ object Label10: TLabel
+ Left = 352
+ Height = 20
+ Top = 96
+ Width = 60
+ Caption = 'Terbilang'
+ Font.CharSet = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -15
+ Font.Name = 'Segoe UI'
+ Font.Pitch = fpVariable
+ Font.Quality = fqDraft
+ Font.Style = [fsItalic]
+ ParentColor = False
+ ParentFont = False
+ end
+ end
+ object Button1: TButton
+ Left = 64
+ Height = 25
+ Top = 488
+ Width = 75
+ Caption = 'Upload'
+ OnClick = Button1Click
+ TabOrder = 2
+ end
+ object Button2: TButton
+ Left = 216
+ Height = 25
+ Top = 488
+ Width = 75
+ Caption = 'Simpan'
+ OnClick = Button2Click
+ TabOrder = 3
+ end
+ object Button3: TButton
+ Left = 392
+ Height = 25
+ Top = 488
+ Width = 75
+ Caption = 'Bersihkan'
+ OnClick = Button3Click
+ TabOrder = 4
+ end
+ object Button4: TButton
+ Left = 560
+ Height = 25
+ Top = 488
+ Width = 75
+ Caption = 'Keluar'
+ OnClick = Button4Click
+ TabOrder = 5
+ end
+ object OpenPictureDialog1: TOpenPictureDialog
+ Left = 592
+ Top = 64
+ end
+end
diff --git a/backup/ta.pas b/backup/ta.pas
new file mode 100644
index 0000000..ef33e33
--- /dev/null
+++ b/backup/ta.pas
@@ -0,0 +1,218 @@
+unit TA;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+ Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
+ ExtDlgs;
+
+type
+
+ { TForm1 }
+
+ TForm1 = class(TForm)
+ Button1: TButton;
+ Button2: TButton;
+ Button3: TButton;
+ Button4: TButton;
+ ComboBox1: TComboBox;
+ Edit1: TEdit;
+ Edit2: TEdit;
+ Edit3: TEdit;
+ Edit4: TEdit;
+ GroupBox1: TGroupBox;
+ Image1: TImage;
+ Label1: TLabel;
+ Label10: TLabel;
+ Label2: TLabel;
+ Label3: TLabel;
+ Label4: TLabel;
+ Label5: TLabel;
+ Label6: TLabel;
+ Label7: TLabel;
+ Label8: TLabel;
+ Label9: TLabel;
+ Memo1: TMemo;
+ Memo2: TMemo;
+ OpenPictureDialog1: TOpenPictureDialog;
+ Panel1: TPanel;
+ Panel2: TPanel;
+ Panel3: TPanel;
+ procedure Button1Click(Sender: TObject);
+ procedure Button2Click(Sender: TObject);
+ procedure Button3Click(Sender: TObject);
+ procedure Button4Click(Sender: TObject);
+ procedure ComboBox1Change(Sender: TObject);
+ procedure FormCreate(Sender: TObject);
+ procedure Label2Click(Sender: TObject);
+ procedure Label6Click(Sender: TObject);
+ procedure ListBox1Click(Sender: TObject);
+ procedure ListBox2Click(Sender: TObject);
+ procedure Memo1Change(Sender: TObject);
+ procedure Memo3Change(Sender: TObject);
+ procedure Panel1Click(Sender: TObject);
+ procedure Panel3Click(Sender: TObject);
+ private
+
+ public
+
+ end;
+
+var
+ Form1: TForm1;
+
+implementation
+
+{$R *.lfm}
+
+{ TForm1 }
+
+procedure TForm1.Panel1Click(Sender: TObject);
+begin
+
+end;
+
+procedure TForm1.Panel3Click(Sender: TObject);
+begin
+
+end;
+
+procedure TForm1.Label2Click(Sender: TObject);
+begin
+
+end;
+
+procedure TForm1.ComboBox1Change(Sender: TObject);
+begin
+ if combobox1.Text='Pengajuan Baru KKP' then
+ begin
+ Panel3.Caption:='400000';
+ Label9.Caption:='TOTAL BIAYA PENGAJUAN' + Slinebreak + 'BIMBINGAN KKP KAMU';
+ Label10.Caption:='Terbilang Empat Ratus Ribu Rupiah';
+ end
+ else
+ if combobox1.Text='Pengajuan Perpanjangan KKP' then
+ begin
+ Panel3.Caption:='200000';
+ Label9.Caption:='TOTAL BIAYA PENGAJUAN' + Slinebreak + 'BIMBINGAN KKP KAMU';
+ Label10.Caption:='Terbilang Dua Ratus Ribu Rupiah';
+ end
+ else
+ if combobox1.Text='Pengajuan Baru Skripsi' then
+ begin
+ Panel3.Caption:='800000';
+ Label9.Caption:='TOTAL BIAYA PENGAJUAN' + Slinebreak + 'BIMBINGAN SKRIPSI KAMU';
+ Label10.Caption:='Terbilang Delapan Ratus Ribu Rupiah';
+ end
+ else
+ if combobox1.Text='Pengajuan Perpanjangan Skripsi' then
+ begin
+ Panel3.Caption:='400000';
+ Label9.Caption:='TOTAL BIAYA PENGAJUAN' + Slinebreak + 'BIMBINGAN SKRIPSI KAMU';
+ Label10.Caption:='Terbilang Empat Ratus Ribu Rupiah';
+
+ end;
+end;
+
+procedure TForm1.Button1Click(Sender: TObject);
+begin
+ if OpenPictureDialog1.Execute then
+ begin
+ Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
+ end
+end;
+
+procedure TForm1.Button2Click(Sender: TObject);
+var nim : String[11];
+begin
+ if Edit1.Text=''then
+ begin
+ ShowMessage('NIM Masih Kosong');
+ Edit1.SetFocus;
+ end
+ else if Edit2.Text=''then
+ begin
+ ShowMessage('Nama Masih Kosong');
+ Edit1.SetFocus;
+ end
+ else if Edit3.Text=''then
+ begin
+ ShowMessage('No Hp Masih Kosong');
+ Edit1.SetFocus;
+ end
+ else if Edit4.Text=''then
+ begin
+ ShowMessage('prodi Masih Kosong');
+ Edit1.SetFocus;
+ end
+ else if Memo1.Text=''then
+ begin
+ ShowMessage('judul proposal Masih Kosong');
+ Edit1.SetFocus;
+ end
+ else
+ begin
+ nim := Edit1.Text;
+ MessageDlg('Information','Selamat Data' + nim + 'Berhasil Disimpan',
+ mtInformation, [mbOK], 0);
+ end
+end;
+
+procedure TForm1.Button3Click(Sender: TObject);
+begin
+ Edit1.Text:='';
+ Edit2.Text:='' ;
+ Edit3.Text:='' ;
+ Edit4.Text:='' ;
+ Memo1.Text:='' ;
+ Memo2.Text:='' ;
+ Image1.Picture.Clear;
+ ComboBox1.Text:='';
+ Panel3.Caption:='';
+end;
+
+procedure TForm1.Button4Click(Sender: TObject);
+begin
+ if MessageDlg('Perhatian','Ingin keluar?',mtConfirmation,[mbYes, mbNo],0)=mrYes then
+ close;
+end;
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+ ComboBox1.Items.Add('Pengajuan Baru KKP');
+ ComboBox1.Items.Add('Pengajuan Perpanjangan KKP');
+ ComboBox1.Items.Add('Pengajuan Baru Skripsi');
+ ComboBox1.Items.Add('Pengajuan Perpanjangan Skripsi');
+ memo1.Clear;
+ memo2.Clear;
+end;
+
+procedure TForm1.Label6Click(Sender: TObject);
+begin
+
+end;
+
+procedure TForm1.ListBox1Click(Sender: TObject);
+begin
+
+end;
+
+procedure TForm1.ListBox2Click(Sender: TObject);
+begin
+
+end;
+
+procedure TForm1.Memo1Change(Sender: TObject);
+begin
+
+end;
+
+procedure TForm1.Memo3Change(Sender: TObject);
+begin
+
+end;
+
+end.
+
diff --git a/form.ico b/form.ico
new file mode 100644
index 0000000..0341321
Binary files /dev/null and b/form.ico differ
diff --git a/form.lpi b/form.lpi
new file mode 100644
index 0000000..1de8eed
--- /dev/null
+++ b/form.lpi
@@ -0,0 +1,80 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/form.lpr b/form.lpr
new file mode 100644
index 0000000..74f69b3
--- /dev/null
+++ b/form.lpr
@@ -0,0 +1,22 @@
+program form;
+
+{$mode objfpc}{$H+}
+
+uses
+ {$IFDEF UNIX}{$IFDEF UseCThreads}
+ cthreads,
+ {$ENDIF}{$ENDIF}
+ Interfaces, // this includes the LCL widgetset
+ Forms, TA
+ { you can add units after this };
+
+{$R *.res}
+
+begin
+ RequireDerivedFormResource:=True;
+ Application.Scaled:=True;
+ Application.Initialize;
+ Application.CreateForm(TForm1, Form1);
+ Application.Run;
+end.
+
diff --git a/form.lps b/form.lps
new file mode 100644
index 0000000..2f92a42
--- /dev/null
+++ b/form.lps
@@ -0,0 +1,167 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/form.res b/form.res
new file mode 100644
index 0000000..1adb040
Binary files /dev/null and b/form.res differ
diff --git a/lib/i386-win32/form.compiled b/lib/i386-win32/form.compiled
new file mode 100644
index 0000000..e4533ee
--- /dev/null
+++ b/lib/i386-win32/form.compiled
@@ -0,0 +1,5 @@
+
+
+
+
+
diff --git a/lib/i386-win32/form.o b/lib/i386-win32/form.o
new file mode 100644
index 0000000..0c54be4
Binary files /dev/null and b/lib/i386-win32/form.o differ
diff --git a/lib/i386-win32/form.or b/lib/i386-win32/form.or
new file mode 100644
index 0000000..8e8ef49
Binary files /dev/null and b/lib/i386-win32/form.or differ
diff --git a/lib/i386-win32/form.res b/lib/i386-win32/form.res
new file mode 100644
index 0000000..1adb040
Binary files /dev/null and b/lib/i386-win32/form.res differ
diff --git a/lib/i386-win32/ta.lfm b/lib/i386-win32/ta.lfm
new file mode 100644
index 0000000..0fcfd1b
--- /dev/null
+++ b/lib/i386-win32/ta.lfm
@@ -0,0 +1,270 @@
+object Form1: TForm1
+ Left = 326
+ Height = 543
+ Top = 15
+ Width = 755
+ Caption = 'TA PD JOKO ARDIYANTO'
+ ClientHeight = 543
+ ClientWidth = 755
+ OnCreate = FormCreate
+ LCLVersion = '2.0.12.0'
+ object Panel1: TPanel
+ Left = -8
+ Height = 344
+ Top = 0
+ Width = 763
+ ClientHeight = 344
+ ClientWidth = 763
+ TabOrder = 0
+ OnClick = Panel1Click
+ object Label1: TLabel
+ Left = 18
+ Height = 15
+ Top = 25
+ Width = 23
+ Caption = 'NIM'
+ ParentColor = False
+ end
+ object Edit1: TEdit
+ Left = 160
+ Height = 23
+ Top = 17
+ Width = 168
+ TabOrder = 0
+ end
+ object Label2: TLabel
+ Left = 18
+ Height = 15
+ Top = 73
+ Width = 32
+ Caption = 'Nama'
+ ParentColor = False
+ OnClick = Label2Click
+ end
+ object Edit2: TEdit
+ Left = 160
+ Height = 23
+ Top = 64
+ Width = 168
+ TabOrder = 1
+ end
+ object Label3: TLabel
+ Left = 18
+ Height = 15
+ Top = 128
+ Width = 35
+ Caption = 'No Hp'
+ ParentColor = False
+ end
+ object Edit3: TEdit
+ Left = 160
+ Height = 23
+ Top = 120
+ Width = 168
+ TabOrder = 2
+ end
+ object Label4: TLabel
+ Left = 16
+ Height = 15
+ Top = 183
+ Width = 76
+ Caption = 'Program Studi'
+ ParentColor = False
+ end
+ object Edit4: TEdit
+ Left = 160
+ Height = 23
+ Top = 176
+ Width = 168
+ TabOrder = 3
+ end
+ object Label5: TLabel
+ Left = 22
+ Height = 30
+ Top = 225
+ Width = 122
+ Caption = 'Judul Proposal Skripsi /'#13#10'Judul Topik KKP'
+ ParentColor = False
+ end
+ object Label6: TLabel
+ Left = 360
+ Height = 60
+ Top = 17
+ Width = 126
+ Caption = 'Foto Berwarna'#13#10'(Menggunakan '#13#10'Almamater Background'#13#10'Merah)'
+ ParentColor = False
+ OnClick = Label6Click
+ end
+ object Image1: TImage
+ Left = 544
+ Height = 129
+ Top = 17
+ Width = 136
+ end
+ object Label7: TLabel
+ Left = 360
+ Height = 45
+ Top = 216
+ Width = 61
+ Caption = 'Alasan'#13#10'Mengulang'#13#10'Skripsi/KKP'
+ ParentColor = False
+ end
+ object Memo1: TMemo
+ Left = 160
+ Height = 90
+ Top = 216
+ Width = 150
+ Lines.Strings = (
+ 'Memo1'
+ )
+ OnChange = Memo1Change
+ TabOrder = 4
+ end
+ object Memo2: TMemo
+ Left = 504
+ Height = 90
+ Top = 216
+ Width = 150
+ Enabled = False
+ Lines.Strings = (
+ 'Memo2'
+ )
+ TabOrder = 5
+ end
+ object GroupBox1: TGroupBox
+ Left = 9
+ Height = 130
+ Top = 318
+ Width = 745
+ Caption = 'GroupBox1'
+ TabOrder = 6
+ end
+ end
+ object Panel2: TPanel
+ Left = 64
+ Height = 122
+ Top = 336
+ Width = 594
+ ClientHeight = 122
+ ClientWidth = 594
+ Color = clLime
+ ParentColor = False
+ TabOrder = 1
+ object Label8: TLabel
+ Left = 248
+ Height = 19
+ Top = 16
+ Width = 141
+ Caption = 'Pilih Jenis Pengajuan'
+ Font.CharSet = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = 'Times New Roman'
+ Font.Pitch = fpVariable
+ Font.Quality = fqDraft
+ Font.Style = [fsBold]
+ ParentColor = False
+ ParentFont = False
+ end
+ object ComboBox1: TComboBox
+ Left = 416
+ Height = 23
+ Top = 16
+ Width = 164
+ ItemHeight = 15
+ OnChange = ComboBox1Change
+ TabOrder = 0
+ end
+ object Label9: TLabel
+ Left = 16
+ Height = 25
+ Top = 64
+ Width = 351
+ Caption = 'TOTAL BIAYA PENGAJUAN BIMBINGAN'
+ Font.CharSet = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -19
+ Font.Name = 'Segoe UI'
+ Font.Pitch = fpVariable
+ Font.Quality = fqDraft
+ Font.Style = [fsBold]
+ ParentColor = False
+ ParentFont = False
+ end
+ object Panel3: TPanel
+ Left = 420
+ Height = 35
+ Top = 56
+ Width = 156
+ Caption = '0'
+ Color = clMaroon
+ Font.CharSet = ANSI_CHARSET
+ Font.Color = clWhite
+ Font.Height = -15
+ Font.Name = 'Times New Roman'
+ Font.Pitch = fpVariable
+ Font.Quality = fqDraft
+ Font.Style = [fsBold]
+ ParentColor = False
+ ParentFont = False
+ TabOrder = 1
+ OnClick = Panel3Click
+ end
+ object Label10: TLabel
+ Left = 352
+ Height = 20
+ Top = 96
+ Width = 60
+ Caption = 'Terbilang'
+ Font.CharSet = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -15
+ Font.Name = 'Segoe UI'
+ Font.Pitch = fpVariable
+ Font.Quality = fqDraft
+ Font.Style = [fsItalic]
+ ParentColor = False
+ ParentFont = False
+ end
+ end
+ object Button1: TButton
+ Left = 64
+ Height = 25
+ Top = 488
+ Width = 75
+ Caption = 'Upload'
+ OnClick = Button1Click
+ TabOrder = 2
+ end
+ object Button2: TButton
+ Left = 216
+ Height = 25
+ Top = 488
+ Width = 75
+ Caption = 'Simpan'
+ OnClick = Button2Click
+ TabOrder = 3
+ end
+ object Button3: TButton
+ Left = 392
+ Height = 25
+ Top = 488
+ Width = 75
+ Caption = 'Bersihkan'
+ OnClick = Button3Click
+ TabOrder = 4
+ end
+ object Button4: TButton
+ Left = 560
+ Height = 25
+ Top = 488
+ Width = 75
+ Caption = 'Keluar'
+ OnClick = Button4Click
+ TabOrder = 5
+ end
+ object OpenPictureDialog1: TOpenPictureDialog
+ Left = 592
+ Top = 64
+ end
+end
diff --git a/lib/i386-win32/ta.o b/lib/i386-win32/ta.o
new file mode 100644
index 0000000..706a0ad
Binary files /dev/null and b/lib/i386-win32/ta.o differ
diff --git a/lib/i386-win32/ta.ppu b/lib/i386-win32/ta.ppu
new file mode 100644
index 0000000..829dc71
Binary files /dev/null and b/lib/i386-win32/ta.ppu differ
diff --git a/ta.lfm b/ta.lfm
new file mode 100644
index 0000000..5b41bf6
--- /dev/null
+++ b/ta.lfm
@@ -0,0 +1,269 @@
+object Form1: TForm1
+ Left = 326
+ Height = 543
+ Top = 15
+ Width = 755
+ Caption = 'TA PD JOKO ARDIYANTO'
+ ClientHeight = 543
+ ClientWidth = 755
+ OnCreate = FormCreate
+ LCLVersion = '2.0.12.0'
+ object Panel1: TPanel
+ Left = -8
+ Height = 344
+ Top = 0
+ Width = 763
+ ClientHeight = 344
+ ClientWidth = 763
+ TabOrder = 0
+ OnClick = Panel1Click
+ object Label1: TLabel
+ Left = 18
+ Height = 15
+ Top = 25
+ Width = 23
+ Caption = 'NIM'
+ ParentColor = False
+ end
+ object Edit1: TEdit
+ Left = 160
+ Height = 23
+ Top = 17
+ Width = 168
+ TabOrder = 0
+ end
+ object Label2: TLabel
+ Left = 18
+ Height = 15
+ Top = 73
+ Width = 32
+ Caption = 'Nama'
+ ParentColor = False
+ OnClick = Label2Click
+ end
+ object Edit2: TEdit
+ Left = 160
+ Height = 23
+ Top = 64
+ Width = 168
+ TabOrder = 1
+ end
+ object Label3: TLabel
+ Left = 18
+ Height = 15
+ Top = 128
+ Width = 35
+ Caption = 'No Hp'
+ ParentColor = False
+ end
+ object Edit3: TEdit
+ Left = 160
+ Height = 23
+ Top = 120
+ Width = 168
+ TabOrder = 2
+ end
+ object Label4: TLabel
+ Left = 16
+ Height = 15
+ Top = 183
+ Width = 76
+ Caption = 'Program Studi'
+ ParentColor = False
+ end
+ object Edit4: TEdit
+ Left = 160
+ Height = 23
+ Top = 176
+ Width = 168
+ TabOrder = 3
+ end
+ object Label5: TLabel
+ Left = 22
+ Height = 30
+ Top = 225
+ Width = 122
+ Caption = 'Judul Proposal Skripsi /'#13#10'Judul Topik KKP'
+ ParentColor = False
+ end
+ object Label6: TLabel
+ Left = 360
+ Height = 60
+ Top = 17
+ Width = 126
+ Caption = 'Foto Berwarna'#13#10'(Menggunakan '#13#10'Almamater Background'#13#10'Merah)'
+ ParentColor = False
+ OnClick = Label6Click
+ end
+ object Image1: TImage
+ Left = 544
+ Height = 129
+ Top = 17
+ Width = 136
+ end
+ object Label7: TLabel
+ Left = 360
+ Height = 45
+ Top = 216
+ Width = 61
+ Caption = 'Alasan'#13#10'Mengulang'#13#10'Skripsi/KKP'
+ ParentColor = False
+ end
+ object Memo1: TMemo
+ Left = 160
+ Height = 90
+ Top = 216
+ Width = 150
+ Lines.Strings = (
+ 'Memo1'
+ )
+ OnChange = Memo1Change
+ TabOrder = 4
+ end
+ object Memo2: TMemo
+ Left = 504
+ Height = 90
+ Top = 216
+ Width = 150
+ Enabled = False
+ Lines.Strings = (
+ 'Memo2'
+ )
+ TabOrder = 5
+ end
+ object GroupBox1: TGroupBox
+ Left = 9
+ Height = 130
+ Top = 318
+ Width = 745
+ TabOrder = 6
+ end
+ end
+ object Panel2: TPanel
+ Left = 64
+ Height = 122
+ Top = 336
+ Width = 594
+ ClientHeight = 122
+ ClientWidth = 594
+ Color = clLime
+ ParentColor = False
+ TabOrder = 1
+ object Label8: TLabel
+ Left = 248
+ Height = 19
+ Top = 16
+ Width = 141
+ Caption = 'Pilih Jenis Pengajuan'
+ Font.CharSet = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = 'Times New Roman'
+ Font.Pitch = fpVariable
+ Font.Quality = fqDraft
+ Font.Style = [fsBold]
+ ParentColor = False
+ ParentFont = False
+ end
+ object ComboBox1: TComboBox
+ Left = 416
+ Height = 23
+ Top = 16
+ Width = 164
+ ItemHeight = 15
+ OnChange = ComboBox1Change
+ TabOrder = 0
+ end
+ object Label9: TLabel
+ Left = 16
+ Height = 25
+ Top = 64
+ Width = 351
+ Caption = 'TOTAL BIAYA PENGAJUAN BIMBINGAN'
+ Font.CharSet = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -19
+ Font.Name = 'Segoe UI'
+ Font.Pitch = fpVariable
+ Font.Quality = fqDraft
+ Font.Style = [fsBold]
+ ParentColor = False
+ ParentFont = False
+ end
+ object Panel3: TPanel
+ Left = 420
+ Height = 35
+ Top = 56
+ Width = 156
+ Caption = '0'
+ Color = clMaroon
+ Font.CharSet = ANSI_CHARSET
+ Font.Color = clWhite
+ Font.Height = -15
+ Font.Name = 'Times New Roman'
+ Font.Pitch = fpVariable
+ Font.Quality = fqDraft
+ Font.Style = [fsBold]
+ ParentColor = False
+ ParentFont = False
+ TabOrder = 1
+ OnClick = Panel3Click
+ end
+ object Label10: TLabel
+ Left = 352
+ Height = 20
+ Top = 96
+ Width = 60
+ Caption = 'Terbilang'
+ Font.CharSet = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -15
+ Font.Name = 'Segoe UI'
+ Font.Pitch = fpVariable
+ Font.Quality = fqDraft
+ Font.Style = [fsItalic]
+ ParentColor = False
+ ParentFont = False
+ end
+ end
+ object Button1: TButton
+ Left = 64
+ Height = 25
+ Top = 488
+ Width = 75
+ Caption = 'Upload'
+ OnClick = Button1Click
+ TabOrder = 2
+ end
+ object Button2: TButton
+ Left = 216
+ Height = 25
+ Top = 488
+ Width = 75
+ Caption = 'Simpan'
+ OnClick = Button2Click
+ TabOrder = 3
+ end
+ object Button3: TButton
+ Left = 392
+ Height = 25
+ Top = 488
+ Width = 75
+ Caption = 'Bersihkan'
+ OnClick = Button3Click
+ TabOrder = 4
+ end
+ object Button4: TButton
+ Left = 560
+ Height = 25
+ Top = 488
+ Width = 75
+ Caption = 'Keluar'
+ OnClick = Button4Click
+ TabOrder = 5
+ end
+ object OpenPictureDialog1: TOpenPictureDialog
+ Left = 592
+ Top = 64
+ end
+end
diff --git a/ta.lrs b/ta.lrs
new file mode 100644
index 0000000..9380ef3
--- /dev/null
+++ b/ta.lrs
@@ -0,0 +1,69 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TForm1','FORMDATA',[
+ 'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'F'#1#6'Height'#3#31#2#3'Top'#2#15#5'Width'
+ +#3#243#2#7'Caption'#6#20'TA PD JOKO ARDIYANTO'#12'ClientHeight'#3#31#2#11'Cl'
+ +'ientWidth'#3#243#2#8'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#8'2.0.12.0'
+ +#0#6'TPanel'#6'Panel1'#4'Left'#2#248#6'Height'#3'@'#1#3'Top'#2#16#5'Width'#3
+ +#251#2#12'ClientHeight'#3'@'#1#11'ClientWidth'#3#251#2#8'TabOrder'#2#0#7'OnC'
+ +'lick'#7#11'Panel1Click'#0#6'TLabel'#6'Label1'#4'Left'#2#18#6'Height'#2#15#3
+ +'Top'#2#25#5'Width'#2#23#7'Caption'#6#3'NIM'#11'ParentColor'#8#0#0#5'TEdit'#5
+ +'Edit1'#4'Left'#3#160#0#6'Height'#2#23#3'Top'#2#17#5'Width'#3#168#0#8'TabOrd'
+ +'er'#2#0#0#0#6'TLabel'#6'Label2'#4'Left'#2#18#6'Height'#2#15#3'Top'#2'I'#5'W'
+ +'idth'#2' '#7'Caption'#6#4'Nama'#11'ParentColor'#8#7'OnClick'#7#11'Label2Cli'
+ +'ck'#0#0#5'TEdit'#5'Edit2'#4'Left'#3#160#0#6'Height'#2#23#3'Top'#2'@'#5'Widt'
+ +'h'#3#168#0#8'TabOrder'#2#1#0#0#6'TLabel'#6'Label3'#4'Left'#2#18#6'Height'#2
+ +#15#3'Top'#3#128#0#5'Width'#2'#'#7'Caption'#6#5'No Hp'#11'ParentColor'#8#0#0
+ +#5'TEdit'#5'Edit3'#4'Left'#3#160#0#6'Height'#2#23#3'Top'#2'x'#5'Width'#3#168
+ +#0#8'TabOrder'#2#2#0#0#6'TLabel'#6'Label4'#4'Left'#2#16#6'Height'#2#15#3'Top'
+ +#3#183#0#5'Width'#2'L'#7'Caption'#6#13'Program Studi'#11'ParentColor'#8#0#0#5
+ +'TEdit'#5'Edit4'#4'Left'#3#160#0#6'Height'#2#23#3'Top'#3#176#0#5'Width'#3#168
+ +#0#8'TabOrder'#2#3#0#0#6'TLabel'#6'Label5'#4'Left'#2#22#6'Height'#2#30#3'Top'
+ +#3#225#0#5'Width'#2'z'#7'Caption'#6')Judul Proposal Skripsi /'#13#10'Judul T'
+ +'opik KKP'#11'ParentColor'#8#0#0#6'TLabel'#6'Label6'#4'Left'#3'h'#1#6'Height'
+ +#2'<'#3'Top'#2#17#5'Width'#2'~'#7'Caption'#6':Foto Berwarna'#13#10'(Mengguna'
+ +'kan '#13#10'Almamater Background'#13#10'Merah)'#11'ParentColor'#8#7'OnClick'
+ +#7#11'Label6Click'#0#0#6'TImage'#6'Image1'#4'Left'#3' '#2#6'Height'#3#129#0#3
+ +'Top'#2#17#5'Width'#3#136#0#0#0#6'TLabel'#6'Label7'#4'Left'#3'h'#1#6'Height'
+ +#2'-'#3'Top'#3#216#0#5'Width'#2'='#7'Caption'#6#30'Alasan'#13#10'Mengulang'
+ +#13#10'Skripsi/KKP'#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#4'Left'#3#160#0#6
+ +'Height'#2'Z'#3'Top'#3#216#0#5'Width'#3#150#0#13'Lines.Strings'#1#6#5'Memo1'
+ +#0#8'OnChange'#7#11'Memo1Change'#8'TabOrder'#2#4#0#0#5'TMemo'#5'Memo2'#4'Lef'
+ +'t'#3#248#1#6'Height'#2'Z'#3'Top'#3#216#0#5'Width'#3#150#0#7'Enabled'#8#13'L'
+ +'ines.Strings'#1#6#5'Memo2'#0#8'TabOrder'#2#5#0#0#9'TGroupBox'#9'GroupBox1'#4
+ +'Left'#2#9#6'Height'#3#130#0#3'Top'#3'>'#1#5'Width'#3#233#2#7'Caption'#6#9'G'
+ +'roupBox1'#8'TabOrder'#2#6#0#0#0#6'TPanel'#6'Panel2'#4'Left'#2'@'#6'Height'#2
+ +'z'#3'Top'#3'P'#1#5'Width'#3'R'#2#12'ClientHeight'#2'z'#11'ClientWidth'#3'R'
+ +#2#5'Color'#7#6'clLime'#11'ParentColor'#8#8'TabOrder'#2#1#0#6'TLabel'#6'Labe'
+ +'l8'#4'Left'#3#248#0#6'Height'#2#19#3'Top'#2#16#5'Width'#3#141#0#7'Caption'#6
+ +#21'Pilih Jenis Pengajuan'#12'Font.CharSet'#7#12'ANSI_CHARSET'#10'Font.Color'
+ +#7#7'clBlack'#11'Font.Height'#2#240#9'Font.Name'#6#15'Times New Roman'#10'Fo'
+ +'nt.Pitch'#7#10'fpVariable'#12'Font.Quality'#7#7'fqDraft'#10'Font.Style'#11#6
+ +'fsBold'#0#11'ParentColor'#8#10'ParentFont'#8#0#0#9'TComboBox'#9'ComboBox1'#4
+ +'Left'#3#160#1#6'Height'#2#23#3'Top'#2#16#5'Width'#3#164#0#10'ItemHeight'#2
+ +#15#8'OnChange'#7#15'ComboBox1Change'#8'TabOrder'#2#0#0#0#6'TLabel'#6'Label9'
+ +#4'Left'#2#16#6'Height'#2#25#3'Top'#2'@'#5'Width'#3'_'#1#7'Caption'#6#31'TOT'
+ +'AL BIAYA PENGAJUAN BIMBINGAN'#12'Font.CharSet'#7#12'ANSI_CHARSET'#10'Font.C'
+ +'olor'#7#5'clRed'#11'Font.Height'#2#237#9'Font.Name'#6#8'Segoe UI'#10'Font.P'
+ +'itch'#7#10'fpVariable'#12'Font.Quality'#7#7'fqDraft'#10'Font.Style'#11#6'fs'
+ +'Bold'#0#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TPanel'#6'Panel3'#4'Left'#3
+ +#164#1#6'Height'#2'#'#3'Top'#2'8'#5'Width'#3#156#0#7'Caption'#6#1'0'#5'Color'
+ +#7#8'clMaroon'#12'Font.CharSet'#7#12'ANSI_CHARSET'#10'Font.Color'#7#7'clWhit'
+ +'e'#11'Font.Height'#2#241#9'Font.Name'#6#15'Times New Roman'#10'Font.Pitch'#7
+ +#10'fpVariable'#12'Font.Quality'#7#7'fqDraft'#10'Font.Style'#11#6'fsBold'#0
+ +#11'ParentColor'#8#10'ParentFont'#8#8'TabOrder'#2#1#7'OnClick'#7#11'Panel3Cl'
+ +'ick'#0#0#6'TLabel'#7'Label10'#4'Left'#3'`'#1#6'Height'#2#20#3'Top'#2'`'#5'W'
+ +'idth'#2'<'#7'Caption'#6#9'Terbilang'#12'Font.CharSet'#7#12'ANSI_CHARSET'#10
+ +'Font.Color'#7#7'clBlack'#11'Font.Height'#2#241#9'Font.Name'#6#8'Segoe UI'#10
+ +'Font.Pitch'#7#10'fpVariable'#12'Font.Quality'#7#7'fqDraft'#10'Font.Style'#11
+ +#8'fsItalic'#0#11'ParentColor'#8#10'ParentFont'#8#0#0#0#7'TButton'#7'Button1'
+ +#4'Left'#2'@'#6'Height'#2#25#3'Top'#3#232#1#5'Width'#2'K'#7'Caption'#6#6'Upl'
+ +'oad'#7'OnClick'#7#12'Button1Click'#8'TabOrder'#2#2#0#0#7'TButton'#7'Button2'
+ +#4'Left'#3#216#0#6'Height'#2#25#3'Top'#3#232#1#5'Width'#2'K'#7'Caption'#6#6
+ +'Simpan'#7'OnClick'#7#12'Button2Click'#8'TabOrder'#2#3#0#0#7'TButton'#7'Butt'
+ +'on3'#4'Left'#3#136#1#6'Height'#2#25#3'Top'#3#232#1#5'Width'#2'K'#7'Caption'
+ +#6#9'Bersihkan'#7'OnClick'#7#12'Button3Click'#8'TabOrder'#2#4#0#0#7'TButton'
+ +#7'Button4'#4'Left'#3'0'#2#6'Height'#2#25#3'Top'#3#232#1#5'Width'#2'K'#7'Cap'
+ +'tion'#6#6'Keluar'#7'OnClick'#7#12'Button4Click'#8'TabOrder'#2#5#0#0#18'TOpe'
+ ,'nPictureDialog'#18'OpenPictureDialog1'#4'Left'#3'P'#2#3'Top'#2'@'#0#0#0
+]);
diff --git a/ta.pas b/ta.pas
new file mode 100644
index 0000000..ef33e33
--- /dev/null
+++ b/ta.pas
@@ -0,0 +1,218 @@
+unit TA;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+ Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
+ ExtDlgs;
+
+type
+
+ { TForm1 }
+
+ TForm1 = class(TForm)
+ Button1: TButton;
+ Button2: TButton;
+ Button3: TButton;
+ Button4: TButton;
+ ComboBox1: TComboBox;
+ Edit1: TEdit;
+ Edit2: TEdit;
+ Edit3: TEdit;
+ Edit4: TEdit;
+ GroupBox1: TGroupBox;
+ Image1: TImage;
+ Label1: TLabel;
+ Label10: TLabel;
+ Label2: TLabel;
+ Label3: TLabel;
+ Label4: TLabel;
+ Label5: TLabel;
+ Label6: TLabel;
+ Label7: TLabel;
+ Label8: TLabel;
+ Label9: TLabel;
+ Memo1: TMemo;
+ Memo2: TMemo;
+ OpenPictureDialog1: TOpenPictureDialog;
+ Panel1: TPanel;
+ Panel2: TPanel;
+ Panel3: TPanel;
+ procedure Button1Click(Sender: TObject);
+ procedure Button2Click(Sender: TObject);
+ procedure Button3Click(Sender: TObject);
+ procedure Button4Click(Sender: TObject);
+ procedure ComboBox1Change(Sender: TObject);
+ procedure FormCreate(Sender: TObject);
+ procedure Label2Click(Sender: TObject);
+ procedure Label6Click(Sender: TObject);
+ procedure ListBox1Click(Sender: TObject);
+ procedure ListBox2Click(Sender: TObject);
+ procedure Memo1Change(Sender: TObject);
+ procedure Memo3Change(Sender: TObject);
+ procedure Panel1Click(Sender: TObject);
+ procedure Panel3Click(Sender: TObject);
+ private
+
+ public
+
+ end;
+
+var
+ Form1: TForm1;
+
+implementation
+
+{$R *.lfm}
+
+{ TForm1 }
+
+procedure TForm1.Panel1Click(Sender: TObject);
+begin
+
+end;
+
+procedure TForm1.Panel3Click(Sender: TObject);
+begin
+
+end;
+
+procedure TForm1.Label2Click(Sender: TObject);
+begin
+
+end;
+
+procedure TForm1.ComboBox1Change(Sender: TObject);
+begin
+ if combobox1.Text='Pengajuan Baru KKP' then
+ begin
+ Panel3.Caption:='400000';
+ Label9.Caption:='TOTAL BIAYA PENGAJUAN' + Slinebreak + 'BIMBINGAN KKP KAMU';
+ Label10.Caption:='Terbilang Empat Ratus Ribu Rupiah';
+ end
+ else
+ if combobox1.Text='Pengajuan Perpanjangan KKP' then
+ begin
+ Panel3.Caption:='200000';
+ Label9.Caption:='TOTAL BIAYA PENGAJUAN' + Slinebreak + 'BIMBINGAN KKP KAMU';
+ Label10.Caption:='Terbilang Dua Ratus Ribu Rupiah';
+ end
+ else
+ if combobox1.Text='Pengajuan Baru Skripsi' then
+ begin
+ Panel3.Caption:='800000';
+ Label9.Caption:='TOTAL BIAYA PENGAJUAN' + Slinebreak + 'BIMBINGAN SKRIPSI KAMU';
+ Label10.Caption:='Terbilang Delapan Ratus Ribu Rupiah';
+ end
+ else
+ if combobox1.Text='Pengajuan Perpanjangan Skripsi' then
+ begin
+ Panel3.Caption:='400000';
+ Label9.Caption:='TOTAL BIAYA PENGAJUAN' + Slinebreak + 'BIMBINGAN SKRIPSI KAMU';
+ Label10.Caption:='Terbilang Empat Ratus Ribu Rupiah';
+
+ end;
+end;
+
+procedure TForm1.Button1Click(Sender: TObject);
+begin
+ if OpenPictureDialog1.Execute then
+ begin
+ Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
+ end
+end;
+
+procedure TForm1.Button2Click(Sender: TObject);
+var nim : String[11];
+begin
+ if Edit1.Text=''then
+ begin
+ ShowMessage('NIM Masih Kosong');
+ Edit1.SetFocus;
+ end
+ else if Edit2.Text=''then
+ begin
+ ShowMessage('Nama Masih Kosong');
+ Edit1.SetFocus;
+ end
+ else if Edit3.Text=''then
+ begin
+ ShowMessage('No Hp Masih Kosong');
+ Edit1.SetFocus;
+ end
+ else if Edit4.Text=''then
+ begin
+ ShowMessage('prodi Masih Kosong');
+ Edit1.SetFocus;
+ end
+ else if Memo1.Text=''then
+ begin
+ ShowMessage('judul proposal Masih Kosong');
+ Edit1.SetFocus;
+ end
+ else
+ begin
+ nim := Edit1.Text;
+ MessageDlg('Information','Selamat Data' + nim + 'Berhasil Disimpan',
+ mtInformation, [mbOK], 0);
+ end
+end;
+
+procedure TForm1.Button3Click(Sender: TObject);
+begin
+ Edit1.Text:='';
+ Edit2.Text:='' ;
+ Edit3.Text:='' ;
+ Edit4.Text:='' ;
+ Memo1.Text:='' ;
+ Memo2.Text:='' ;
+ Image1.Picture.Clear;
+ ComboBox1.Text:='';
+ Panel3.Caption:='';
+end;
+
+procedure TForm1.Button4Click(Sender: TObject);
+begin
+ if MessageDlg('Perhatian','Ingin keluar?',mtConfirmation,[mbYes, mbNo],0)=mrYes then
+ close;
+end;
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+ ComboBox1.Items.Add('Pengajuan Baru KKP');
+ ComboBox1.Items.Add('Pengajuan Perpanjangan KKP');
+ ComboBox1.Items.Add('Pengajuan Baru Skripsi');
+ ComboBox1.Items.Add('Pengajuan Perpanjangan Skripsi');
+ memo1.Clear;
+ memo2.Clear;
+end;
+
+procedure TForm1.Label6Click(Sender: TObject);
+begin
+
+end;
+
+procedure TForm1.ListBox1Click(Sender: TObject);
+begin
+
+end;
+
+procedure TForm1.ListBox2Click(Sender: TObject);
+begin
+
+end;
+
+procedure TForm1.Memo1Change(Sender: TObject);
+begin
+
+end;
+
+procedure TForm1.Memo3Change(Sender: TObject);
+begin
+
+end;
+
+end.
+