unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
Table1: TTable;
DataSource2: TDataSource;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
ComboBox1: TComboBox;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
if form1.Caption='INPUT DATA'then
begin
if(edit1.text='')or(edit2.text='')or(edit3.text='')or(edit4.text='')or(edit5.text='')or(combobox1.text='')or(combobox2.text='')or(combobox3.text='')then
begin
application.MessageBox('Data Anda Tidak Lengkap','Data Mahasiswa',MB_ok+MB_ICONERROR);
edit1.SetFocus;
end
else
begin
if table1.Locate('NIP',edit1.Text,[])then
begin
application.MessageBox('Ditemukan Data yang sama','Data Mahasiswa',MB_ok+MB_ICONERROR);
edit1.SetFocus;
end
else
begin
table1.Append;
table1.FieldByName('NIP').AsString:=edit1.Text;
table1.FieldByName('NAMA PEGAWAI').AsString:=edit2.Text;
table1.FieldByName('ALAMAT').AsString:=edit3.Text;
table1.FieldByName('TEMPAT LAHIR').AsString:=edit4.Text;
table1.FieldByName('AGAMA').AsString:=edit5.Text;
table1.FieldByName('GOLONGAN').AsString:=combobox1.Text;
table1.FieldByName('JENIS KELAMIN').AsString:=combobox2.Text;
table1.FieldByName('STATUS').AsString:=combobox3.Text;
table1.Post;
table1.Close;
table1.Open;
table1.Filtered:=false;
combobox1.ItemIndex:= -1;
combobox2.ItemIndex:= -1;
form1.Caption:='DATA MAHASISWA';
end;
end;
end;
if form1.Caption='UPDATE DATA'then
begin
if(edit1.text='')or(edit2.text='')or(edit3.text='')or(combobox1.text='')or(combobox2.text='')then
begin
application.MessageBox('Data Anda Tidak Lengkap','Data Mahasiswa',MB_ok+MB_ICONERROR);
edit1.SetFocus;
end
else
begin
table1.Locate('NIM',edit1.Text,[]);
table1.Edit;
table1.FieldByName('NIM').AsString:=edit1.Text;
table1.FieldByName('Nama').AsString:=edit2.Text;
table1.FieldByName('Tempat Lahir').AsString:=edit3.Text;
table1.FieldByName('Agama').AsString:=combobox1.Text;
table1.FieldByName('Jenis Kelamin').AsString:=combobox2.Text;
table1.Post;
table1.Close;
table1.Open;
table1.Filtered:=false;
combobox1.ItemIndex:= -1;
combobox2.ItemIndex:= -1;
form1.Caption:='DATA MAHASISWA';
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Caption:='INPUT DATA';
edit1.Enabled:=true;
edit2.Enabled:=true;
edit3.Enabled:=true;
edit4.Enabled:=true;
edit5.Enabled:=true;
combobox1.Enabled:=true;
combobox2.Enabled:=true;
combobox3.Enabled:=true;
edit1.SetFocus;
combobox1.ItemIndex:= -1;
combobox2.ItemIndex:= -1;
combobox3.ItemIndex:= -1;
end;
end.
