Source code saat tombol Bersih ditekan
function
btnBersih_Callback(hObject, eventdata, handles)
set(handles.edPass,'string','');
con = Koneksi();
setdbprefs('NullNumberWrite', 'NaN');
AU=matlabKodeAuto('ADM');
set(handles.edKode,'string',AU);
set(handles.edItem,'string','');
set(handles.popUsername,'Value',1);
set(handles.popCari,'Value',1);
set(handles.radAktif,'Value',0);
set(handles.radTidak,'Value',0);
[mydata,header,no ] = Lihat();
set(handles.myTabel,'data',mydata,'ColumnName',header,'RowName',no);
set(handles.myTabel,'Userdata',mydata);
adadata=cell2mat(mydata(1,1));
jum=size(mydata,1);
if strcmp(adadata,'No Data')
set(handles.txtJum,'String','0');
else
set(handles.txtJum,'String',num2str(jum));
end
Source code saat tombol EXIT ditekan
function
btnExit_Callback(hObject, eventdata, handles)
mau=questdlg(['Exit'
get(handles.figAdmin,'Name')''],['Exit' get(handles.figAdmin,'Name')''], 'Ya','Tidak','Ya');
if strcmp(mau, 'Tidak')
return;
else
end
close(handles.figAdmin); %delete
function
uipanel3_SelectionChangeFcn(hObject, eventdata, handles)
status='Aktif';
switch
get(eventdata.NewValue,'Tag') % Get Tag of selected object.
case 'radAktif'
status= 'Aktif';
case 'radTidak'
status= 'Tidak Aktif';
otherwise
status='Tidak Aktif';
end
set(handles.uipanel3,'Userdata',status)
Source code saat tombol CLOSE ditekan
function
btnClose_Callback(hObject, eventdata, handles)
[body]=['Keluar dari
Aplikasi ' get(handles.figAdmin,'Name')''];
[title]=['Keluar ?' ' ...'];
mau=questdlg(body,title,'Ya','Tidak','Ya');
if strcmp(mau,'Tidak')
return;
else
% exit(1);
h = figure('HandleVisibility','off');
close;
% figure does not close
close all; % figure does not close
close(h);
% figure closes
end
Source code saat ISi Tabel dipilih
function
myTabel_CellSelectionCallback(hObject, eventdata, handles)
lkode_admin='-';
try
al= eventdata.Indices;
mydata=get(handles.myTabel,'Userdata');
getdata=mydata(al);
lkode_admin=getdata{1};%kode_admin
catch
lkode_admin='-';
end
[kode_admin, username, password,
status] = LihatWhere(lkode_admin);
set(handles.edKode,'string',kode_admin);
set(handles.edPass,'string',password);
set(handles.popUsername,'Userdata',username);
set(handles.uipanel3,'Userdata',status);
if strcmp(username,'Administrator')
set(handles.popUsername,'Value',2);
elseif strcmp(username,'Marketing')
set(handles.popUsername,'Value',3);
elseif strcmp(username,'Humas')
set(handles.popUsername,'Value',4);
elseif strcmp(username,'Litbang')
set(handles.popUsername,'Value',5);
elseif strcmp(username,'Logistik')
set(handles.popUsername,'Value',6);
end
if strcmp(status,'Aktif')
set(handles.radAktif,'Value',1);
elseif strcmp(status,'Tidak Aktif')
set(handles.radTidak,'Value',1);
end
rumus koneksi database matlab
function [con] =
Koneksi()
dbpath = 'mydb.mdb';
conurl = ['jdbc:odbc:Driver={Microsoft
Access Driver (*.mdb)}; DBQ=' dbpath];
con
= database('','','','sun.jdbc.odbc.JdbcOdbcDriver', conurl);
Kursus / Konsultasi / Bimbingan
Belajar / Skripsi Mahasiswa
http://www.lp2maray.com
021-92771708 / 085279959498
URL VIDEO :
https://www.youtube.com/watch?v=0UaDnmPkH6U&feature=youtu.be
