MATLAB學(xué)生成績管理系統(tǒng)

1、function varargout = untitled1(varargin)gui_Singleton = 1;gui_State = struct('gui_Name', mfilename, . 'gui_Singleton', gui_Singleton, . 'gui_OpeningFcn', untitled1_OpeningFcn, . 'gui_OutputFcn', untitled1_OutputFcn, . 'gui_LayoutFcn', , . 'gui_Callback'

2、;, );if nargin && ischar(varargin1) gui_State.gui_Callback = str2func(varargin1);endif nargout varargout1:nargout = gui_mainfcn(gui_State, varargin:);else gui_mainfcn(gui_State, varargin:);endfunction untitled1_OpeningFcn(hObject, eventdata, handles, varargin)handles.output = hObject; %取數(shù)han

3、dles.data=; %生成data空數(shù)組handles.text=; %生成text空數(shù)組guidata(hObject, handles); %保存更新數(shù)據(jù)handles.output = hObject;guidata(hObject, handles);function varargout = untitled1_OutputFcn(hObject, eventdata, handles)varargout1 = handles.output;%excel表格入口function daoru_Callback(hObject, eventdata, handles) %可編輯信息表格

4、導(dǎo)入文本框function daoru_CreateFcn(hObject, eventdata, handles)if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor') set(hObject,'BackgroundColor','white');endfunction sure_Callback(hObject, eventdata, handles) %導(dǎo)入數(shù)據(jù)確定按鈕FileNam

5、e,PathName=uigetfile('*.xls','Choose a file'); str=PathName,FileName; set(handles.daoru,'string',str); %顯示入可編輯數(shù)據(jù)導(dǎo)入文本框 data,text_data=xlsread(str); %讀取str并生成新的數(shù)組 mess1=data(:,1); %訪問excel表格第一列 set(handles.showI,'string',mess1) %把字符串顯示在顯示學(xué)號列表 mess3=data(:,3); %訪問excel表格

6、第三列 set(handles.showc,'string',mess3) %把字符串顯示在顯示語文列表 mess4=data(:,4); %訪問excel列表第四列 set(handles.showm,'string',mess4) %把字符串顯示在顯示數(shù)學(xué)列表 mess5=data(:,5); %訪問excel列表第五列 set(handles.showe,'string',mess5) %把字符串顯示在顯示英語列表 mess2=text_data(2:end,2); %訪問excel列表第二列 set(handles.shown,'

7、string',mess2) %把字符串顯示在顯示名字列表 handles.mess2=mess2 handles.data=data; %保存數(shù)據(jù) handles.text=text_data; guidata(hObject, handles);%信息查詢顯示口function searchz_Callback(hObject, eventdata, handles) %可編輯總分輸出文本框function searchz_CreateFcn(hObject, eventdata, handles)if ispc && isequal(get(hObject,

8、9;BackgroundColor'), get(0,'defaultUicontrolBackgroundColor') set(hObject,'BackgroundColor','white');endfunction searche_Callback(hObject, eventdata, handles) %可編輯英語輸出文本框function searche_CreateFcn(hObject, eventdata, handles)if ispc && isequal(get(hObject,'Bac

9、kgroundColor'), get(0,'defaultUicontrolBackgroundColor') set(hObject,'BackgroundColor','white');endfunction searchm_Callback(hObject, eventdata, handles) %可編輯數(shù)學(xué)輸出文本框function searchm_CreateFcn(hObject, eventdata, handles)if ispc && isequal(get(hObject,'Backgrou

10、ndColor'), get(0,'defaultUicontrolBackgroundColor') set(hObject,'BackgroundColor','white');endfunction searchc_Callback(hObject, eventdata, handles) %可編輯語文輸出文本框function searchc_CreateFcn(hObject, eventdata, handles)if ispc && isequal(get(hObject,'BackgroundCol

11、or'), get(0,'defaultUicontrolBackgroundColor') set(hObject,'BackgroundColor','white');endfunction searchp_Callback(hObject, eventdata, handles) %可編輯名次輸出文本框function searchp_CreateFcn(hObject, eventdata, handles)if ispc && isequal(get(hObject,'BackgroundColor

12、9;), get(0,'defaultUicontrolBackgroundColor') set(hObject,'BackgroundColor','white');end%信息輸入口function ID_Callback(hObject, eventdata, handles) %可編輯學(xué)號輸入信息文本框function ID_CreateFcn(hObject, eventdata, handles)if ispc && isequal(get(hObject,'BackgroundColor'), ge

13、t(0,'defaultUicontrolBackgroundColor') set(hObject,'BackgroundColor','white');endfunction name_Callback(hObject, eventdata, handles) %可編輯名字輸入信息文本框function name_CreateFcn(hObject, eventdata, handles)if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'

14、defaultUicontrolBackgroundColor') set(hObject,'BackgroundColor','white');endfunction searchso_Callback(hObject, eventdata, handles) %搜索確定按鈕str=get(handles.ID,'string'); %學(xué)號字符串信息輸入查找if length(str)=0 %空字符串str_temp=str2double(str); %字符串轉(zhuǎn)換為數(shù)值l1=handles.data(:,1);l2=length(l1)

15、;l3=l2+201200;if (201200<str_temp)&&(str_temp<=l3) %學(xué)號查詢范圍 set(,'string','') %名字輸入框為空 index=find(handles.data(:)=(str_temp); %查找全元素與學(xué)號數(shù)值相等的數(shù)據(jù) i,j=ind2sub(size(handles.data),index); %把單序號轉(zhuǎn)換成全下表編號 str1=handles.data(i,:); %生成只訪問i行的數(shù)組 str11=; %生成新的空數(shù)組str11for i=

16、1:size(handles.data,2) %for語句，初始值為1，步長為1，最大值為size值end str11=strcat(str11,num2str(str1(i); %橫向連接字符串 set(handles.searchc,'string',num2str(str1(3); %把字符串顯示在顯示語文列表 set(handles.searchm,'string',num2str(str1(4); %把字符串顯示在顯示數(shù)學(xué)列表 set(handles.searche,'string',num2str(str1(5); %把字符串顯示在顯

17、示英語列表 set(handles.searchz,'string',num2str(str1(6); %把字符串顯示在顯示總分列表 i=handles.data(:,6); %總分升序 i=flipud(sort(i); %總分降序 val=find(i=str1(6); %總分名次 val=val(1); %總分名次顯示 set(handles.searchp,'string',num2str(val) %總分名次顯示else set(handles.searchc,'string','Nothing'); %顯示無數(shù)據(jù) se

18、t(handles.searchm,'string','Nothing'); set(handles.searche,'string','Nothing'); set(handles.searchz,'string','Nothing'); set(handles.searchp,'string','Nothing');endelse name1=get(,'string'); %獲得信息入口名字 name2=char(hand

19、les.text(2:end,2); %名字字符串轉(zhuǎn)換 name11=name1(1) %只顯示姓 name12=name1(2) %只顯示名 name21=char(name2(:,1) %只顯示姓 name22=name2(:,2) %只顯示名 i,j=find(name21=name11) %姓位置查找 m,n=find(name22=name12) %名位置查找 if i=m %行標(biāo)確定 str1=handles.data(i,:); %查找全部數(shù)據(jù) set(handles.searchc,'string',num2str(str1(3) %把字符串顯示在顯示語文列表

20、set(handles.searchm,'string',num2str(str1(4) %把字符串顯示在顯示數(shù)學(xué)列表 set(handles.searche,'string',num2str(str1(5) %把字符串顯示在顯示英語列表 set(handles.searchz,'string',num2str(str1(6) %把字符串顯示在顯示總分列表 i=handles.data(:,6); %總分升序 i=flipud(sort(i); %總分降序 val=find(i=str1(6); %總分名次 val=val(1); set(han

21、dles.searchp,'string',num2str(val) %總分名次顯示 else set(handles.searchc,'string','Nothing'); %顯示無數(shù)據(jù) set(handles.searchm,'string','Nothing'); set(handles.searche,'string','Nothing'); set(handles.searchz,'string','Nothing'); set(handl

22、es.searchp,'string','Nothing'); endendfunction showI_Callback(hObject, eventdata, handles) %學(xué)號顯示列表框function showI_CreateFcn(hObject, eventdata, handles)if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor') set(hObject,'

23、;BackgroundColor','white');endfunction shown_Callback(hObject, eventdata, handles) %名字顯示列表框function shown_CreateFcn(hObject, eventdata, handles)if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor') set(hObject,'BackgroundColor','white');endfunction showc_Callback(hObject, eventdata, handles) %語文顯示列表框function showc_CreateFcn