Matlab Create Read Update Delete database

Source code saat program pertama kali dibuka:

function formdata_OpeningFcn(hObject, eventdata, handles, varargin)

[mydata,header,no ] = Lihat();

set(handles.myTabel,'data',mydata,'ColumnName',header,'RowName',no);

    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

AU=matlabKodeAuto('ADM');

set(handles.edKode,'string',AU);

set(handles.edItem,'string','');

set(handles.myTabel,'Userdata',mydata);

set(handles.popUsername,'Value',1);

set(handles.popCari,'Value',1);

set(handles.radAktif,'Value',0);

set(handles.radTidak,'Value',0);

  

handles.output = hObject;

guidata(hObject, handles);

Source code saat combo PilihUsername dipilih

function popUsername_Callback(hObject, eventdata, handles)

index_selected = get(hObject,'Value');

list = get(hObject,'String');

pilih= list{index_selected};

set(handles.popUsername,'Userdata',pilih);

Source code saat Pilihan cari ditekan

function popCari_Callback(hObject, eventdata, handles)

index_selected = get(hObject,'Value');

list = get(hObject,'String');

pilih= list{index_selected};

set(handles.popCari,'Userdata',pilih);

 Source code saat tombol cari ditekan

function btnCari_Callback(hObject, eventdata, handles)

lfield=get(handles.popCari,'Userdata');

litem=get(handles.edItem,'string');

   

[mydata,header,no ] = Cari(lfield,litem);

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

function btnSimpan_Callback(hObject, eventdata, handles)

lkode_admin=get(handles.edKode,'string');

lpassword=get(handles.edPass,'string');

lusername=get(handles.popUsername,'Userdata');

lstatus=get(handles.uipanel3,'Userdata');

if length(lkode_admin)<1

    msgbox('Silakan lengkapi Kode Admin...','Lengkapi Data');

elseif length(lpassword)<1

    msgbox('Silakan lengkapi Data Pass Admin...','Lengkapi Data');

else   

    con = Koneksi();

    tableName='tb_admin';

    colnames = {'kode_admin', 'username', 'password', 'status'};

    mydata = {lkode_admin, lusername, lpassword, lstatus};

        try

        fastinsert(con, tableName, colnames, mydata);

        hs='Sukses simpan';

        exec(con, 'rollback');

        exec(con, 'commit');

        set(handles.edPass,'string','');

        [psn]=['Proses Simpan ' hs ];

        msgbox(psn);

        catch

        hs='No connect to database/tabel..Cek Again';   

        set(handles.edPass,'string','');

        [psn]=['Proses Simpan ' hs ];

        msgbox(psn);

        end

    [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

    set(handles.edPass,'string','');

    con = Koneksi();

    setdbprefs('NullNumberWrite', 'NaN');

    AU=matlabKodeAuto('ADM');

    set(handles.edKode,'string',AU);

set(handles.radAktif,'Value',0);

set(handles.radTidak,'Value',0);

set(handles.popUsername,'Value',1);

set(handles.popCari,'Value',1);

set(handles.edItem,'String','');

end

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