MATLAB學(xué)生成績(jī)管理系統(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, );if nargin & ischar(varargin1) gui_State.gui_Callback =

2、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ù)handles.data=; %生成data空數(shù)組handles.text=; %生成text空數(shù)組guidata(hObject, handl

3、es); %保存更新數(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) %可編輯信息表格導(dǎo)入文本框function daoru_CreateFcn(hObject, eventdata, handles)if ispc & i

4、sequal(get(hObject,BackgroundColor), get(0,defaultUicontrolBackgroundColor) set(hObject,BackgroundColor,white);endfunction sure_Callback(hObject, eventdata, handles) %導(dǎo)入數(shù)據(jù)確定按鈕FileName,PathName=uigetfile(*.xls,Choose a file); str=PathName,FileName; set(handles.daoru,string,str); %顯示入可編輯數(shù)據(jù)導(dǎo)入文本框 data,t

5、ext_data=xlsread(str); %讀取str并生成新的數(shù)組 mess1=data(:,1); %訪(fǎng)問(wèn)excel表格第一列 set(handles.showI,string,mess1) %把字符串顯示在顯示學(xué)號(hào)列表 mess3=data(:,3); %訪(fǎng)問(wèn)excel表格第三列 set(handles.showc,string,mess3) %把字符串顯示在顯示語(yǔ)文列表 mess4=data(:,4); %訪(fǎng)問(wèn)excel列表第四列 set(handles.showm,string,mess4) %把字符串顯示在顯示數(shù)學(xué)列表 mess5=data(:,5); %訪(fǎng)問(wèn)excel列表第五

6、列 set(handles.showe,string,mess5) %把字符串顯示在顯示英語(yǔ)列表 mess2=text_data(2:end,2); %訪(fǎng)問(wèn)excel列表第二列 set(handles.shown,string,mess2) %把字符串顯示在顯示名字列表 handles.mess2=mess2 handles.data=data; %保存數(shù)據(jù) handles.text=text_data; guidata(hObject, handles);%信息查詢(xún)顯示口function searchz_Callback(hObject, eventdata, handles) %可編輯總分

7、輸出文本框function searchz_CreateFcn(hObject, eventdata, handles)if ispc & isequal(get(hObject,BackgroundColor), get(0,defaultUicontrolBackgroundColor) set(hObject,BackgroundColor,white);endfunction searche_Callback(hObject, eventdata, handles) %可編輯英語(yǔ)輸出文本框function searche_CreateFcn(hObject, eventdata, ha

8、ndles)if ispc & isequal(get(hObject,BackgroundColor), 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,BackgroundColor),

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

10、kgroundColor,white);endfunction searchp_Callback(hObject, eventdata, handles) %可編輯名次輸出文本框function searchp_CreateFcn(hObject, eventdata, handles)if ispc & isequal(get(hObject,BackgroundColor), get(0,defaultUicontrolBackgroundColor) set(hObject,BackgroundColor,white);end%信息輸入口function ID_Callback(hObj

11、ect, eventdata, handles) %可編輯學(xué)號(hào)輸入信息文本框function ID_CreateFcn(hObject, eventdata, handles)if ispc & isequal(get(hObject,BackgroundColor), get(0,defaultUicontrolBackgroundColor) set(hObject,BackgroundColor,white);endfunction name_Callback(hObject, eventdata, handles) %可編輯名字輸入信息文本框function name_CreateFc

12、n(hObject, eventdata, handles)if ispc & isequal(get(hObject,BackgroundColor), get(0,defaultUicontrolBackgroundColor) set(hObject,BackgroundColor,white);endfunction searchso_Callback(hObject, eventdata, handles) %搜索確定按鈕str=get(handles.ID,string); %學(xué)號(hào)字符串信息輸入查找if length(str)=0 %空字符串str_temp=str2double(

13、str); %字符串轉(zhuǎn)換為數(shù)值l1=handles.data(:,1);l2=length(l1);l3=l2+201200;if (201200str_temp)&(str_temp=l3) %學(xué)號(hào)查詢(xún)范圍 set(,string,) %名字輸入框?yàn)榭?index=find(handles.data(:)=(str_temp); %查找全元素與學(xué)號(hào)數(shù)值相等的數(shù)據(jù) i,j=ind2sub(size(handles.data),index); %把單序號(hào)轉(zhuǎn)換成全下表編號(hào) str1=handles.data(i,:); %生成只訪(fǎng)問(wèn)i行的數(shù)組 str11=; %生成新的空數(shù)

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

15、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); %顯示無(wú)數(shù)據(jù) set(handles.searchm,string,Nothing); set(handles.searche,str

16、ing,Nothing); set(handles.searchz,string,Nothing); set(handles.searchp,string,Nothing);endelse name1=get(,string); %獲得信息入口名字 name2=char(handles.text(2:end,2); %名字字符串轉(zhuǎn)換 name11=name1(1) %只顯示姓 name12=name1(2) %只顯示名 name21=char(name2(:,1) %只顯示姓 name22=name2(:,2) %只顯示名 i,j=find(name21=name11)

17、 %姓位置查找 m,n=find(name22=name12) %名位置查找 if i=m %行標(biāo)確定 str1=handles.data(i,:); %查找全部數(shù)據(jù) set(handles.searchc,string,num2str(str1(3) %把字符串顯示在顯示語(yǔ)文列表 set(handles.searchm,string,num2str(str1(4) %把字符串顯示在顯示數(shù)學(xué)列表 set(handles.searche,string,num2str(str1(5) %把字符串顯示在顯示英語(yǔ)列表 set(handles.searchz,string,num2str(str1(6)

18、 %把字符串顯示在顯示總分列表 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); %顯示無(wú)數(shù)據(jù) set(handles.searchm,string,Nothing); set(handles.searche,string,Nothing); set(handles.searchz,stri

19、ng,Nothing); set(handles.searchp,string,Nothing); endendfunction showI_Callback(hObject, eventdata, handles) %學(xué)號(hào)顯示列表框function showI_CreateFcn(hObject, eventdata, handles)if ispc & isequal(get(hObject,BackgroundColor), get(0,defaultUicontrolBackgroundColor) set(hObject,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)