//---------------------------------------------------------------------------#include #pragma hdrstop#include "Uji1.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"TForm1 *Form1;int n1, n2, n3, rt, ket;void __fastcall TForm1::DispellGB1(){ Edit1_1->Text = ""; Edit1_2->Text = ""; Edit1_3->Text = ""; Edit1_4->Text = ""; Edit1_5->Text = "";}//---------------------------------------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner){}//---------------------------------------------------------------------------void __fastcall TForm1::FormCreate(TObject *Sender){ //-------------Pengaturan GroupBox-----------// GB1->Show(); GB2->Hide(); //----------------ComboBox-------------------// CB1->Items->Add("--Pilihan--"); CB1->Items->Add("NIM"); CB1->Items->Add("Nama"); CB1->Items->Add("Nilai 1"); CB1->Items->Add("Nilai 2"); CB1->Items->Add("Nilai 3"); CB1->Items->Add("Rata-rata"); CB1->ItemIndex = 0; //------------------GB2----------------------// Button2_4->Enabled = false; RB1->Enabled = false; RB2->Enabled = false; RB3->Enabled = false;}//---------------------------------------------------------------------------//====================================GB1=====================================//void __fastcall TForm1::Button1_1Click(TObject *Sender){ { Table1->Append(); Table1NIM->Value = Edit1_1->Text; Table1NAMA->Value = Edit1_2->Text; Table1N1->Value = StrToInt(Edit1_3->Text); Table1N2->Value = StrToInt(Edit1_4->Text); Table1N3->Value = StrToInt(Edit1_5->Text); n1 = StrToInt(Edit1_3->Text); n2 = StrToInt(Edit1_4->Text); n3 = StrToInt(Edit1_5->Text); rt = (n1+n2+n3)/3; Table1RATA2->Value = rt; if(rt > 60){ Table1KET->Value = "LULUS"; } else if(rt Value = "GAGAL"; } Table1->Post(); DispellGB1(); }}//---------------------------------------------------------------------------void __fastcall TForm1::Button1_2Click(TObject *Sender){ GB2->Show(); GB1->Hide();}//---------------------------------------------------------------------------void __fastcall TForm1::Button1_3Click(TObject *Sender){ Button1_1->Enabled = false; Button1_3->Enabled = false; Edit1_6->Enabled = false; Table1->IndexName = "NIM"; if(Table1->FindKey(ARRAYOFCONST((Edit1_6->Text)))){ Edit1_1->Text = Table1NIM->Value; Edit1_2->Text = Table1NAMA->Value; Edit1_3->Text = Table1N1->Value; Edit1_4->Text = Table1N2->Value; Edit1_5->Text = Table1N3->Value; }else{ ShowMessage("Data tidak ditemukan :("); }}//---------------------------------------------------------------------------void __fastcall TForm1::Button1_4Click(TObject *Sender){ DispellGB1(); Edit1_6->Text = ""; Button1_1->Enabled = true; Button1_3->Enabled = true; Edit1_6->Enabled = true;}//---------------------------------------------------------------------------//------------------------------------GB2-------------------------------------//void __fastcall TForm1::Button2_3Click(TObject *Sender){ Table1->Refresh(); }//---------------------------------------------------------------------------void __fastcall TForm1::Button2_2Click(TObject *Sender){ GB2->Hide(); GB1->Show();}//---------------------------------------------------------------------------void __fastcall TForm1::Button2_1Click(TObject *Sender){ Button2_4->Enabled = true; RB1->Enabled = true; RB2->Enabled = true; RB3->Enabled = true; Button2_1->Enabled = false; CB1->Enabled = false; if(CB1->ItemIndex == 0){ ShowMessage("Silakan pilih dasar sortir :)"); }}//---------------------------------------------------------------------------void __fastcall TForm1::RB1Click(TObject *Sender){ Table1->IndexName = "";}//---------------------------------------------------------------------------void __fastcall TForm1::RB2Click(TObject *Sender){ if(CB1->ItemIndex == 1){ Table1->IndexName = "NIM_ASC"; } if(CB1->ItemIndex == 2){ Table1->IndexName = "NAMA_ASC"; } if(CB1->ItemIndex == 3){ Table1->IndexName = "N1_ASC"; } if(CB1->ItemIndex == 4){ Table1->IndexName = "N2_ASC"; } if(CB1->ItemIndex == 5){ Table1->IndexName = "N3_ASC"; } if(CB1->ItemIndex == 6){ Table1->IndexName = "RATA2_ASC"; }}//---------------------------------------------------------------------------void __fastcall TForm1::RB3Click(TObject *Sender){ if(CB1->ItemIndex == 1){ Table1->IndexName = "NIM_DES"; } if(CB1->ItemIndex == 2){ Table1->IndexName = "NAMA_DES"; } if(CB1->ItemIndex == 3){ Table1->IndexName = "N1_DES"; } if(CB1->ItemIndex == 4){ Table1->IndexName = "N2_DES"; } if(CB1->ItemIndex == 5){ Table1->IndexName = "N3_DES"; } if(CB1->ItemIndex == 6){ Table1->IndexName = "RATA2_DES"; }}//---------------------------------------------------------------------------void __fastcall TForm1::Button2_4Click(TObject *Sender){ CB1->ItemIndex = 0; Button2_4->Enabled = false; Table1->IndexName = ""; RB1->Enabled = false; RB2->Enabled = false; RB3->Enabled = false; RB1->Checked = false; RB2->Checked = false; RB3->Checked = false; CB1->Enabled = true; Button2_1->Enabled = true;}//---------------------------------------------------------------------------void __fastcall TForm1::Button1_5Click(TObject *Sender){ Close(); }//---------------------------------------------------------------------------