Matlab Create Read Update Delete database 3

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