MATLAB学生成绩管理系统

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; %取数handles.data=; %生成data空数组handles.text=; %生成text空数组guidata(hObject, handl

3、es); %保存更新数据handles.output = hObject;guidata(hObject, handles);function varargout = untitled1_OutputFcn(hObject, eventdata, handles)varargout1 = handles.output;%excel表格入口function daoru_Callback(hObject, eventdata, handles) %可编辑信息表格导入文本框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) %导入数据确定按钮FileName,PathName=uigetfile(*.xls,Choose a file); str=PathName,FileName; set(handles.daoru,string,str); %显示入可编辑数据导入文本框 data,t

5、ext_data=xlsread(str); %读取str并生成新的数组 mess1=data(:,1); %访问excel表格第一列 set(handles.showI,string,mess1) %把字符串显示在显示学号列表 mess3=data(:,3); %访问excel表格第三列 set(handles.showc,string,mess3) %把字符串显示在显示语文列表 mess4=data(:,4); %访问excel列表第四列 set(handles.showm,string,mess4) %把字符串显示在显示数学列表 mess5=data(:,5); %访问excel列表第五

6、列 set(handles.showe,string,mess5) %把字符串显示在显示英语列表 mess2=text_data(2:end,2); %访问excel列表第二列 set(handles.shown,string,mess2) %把字符串显示在显示名字列表 handles.mess2=mess2 handles.data=data; %保存数据 handles.text=text_data; guidata(hObject, handles);%信息查询显示口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) %可编辑英语输出文本框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) %可编辑数学输出文本框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) %可编辑语文输出文本框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) %可编辑学号输入信息文本框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); %学号字符串信息输入查找if length(str)=0 %空字符串str_temp=str2double(

13、str); %字符串转换为数值l1=handles.data(:,1);l2=length(l1);l3=l2+201200;if (201200str_temp)&(str_temp=l3) %学号查询范围 set(,string,) %名字输入框为空 index=find(handles.data(:)=(str_temp); %查找全元素与学号数值相等的数据 i,j=ind2sub(size(handles.data),index); %把单序号转换成全下表编号 str1=handles.data(i,:); %生成只访问i行的数组 str11=; %生成新的空数

14、组str11for i=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); %把字符串显示在显示数学列表 set(handles.searche,string,num2str(str1(5); %把字符串显示在显示英语列表 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); %显示无数据 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); %名字字符串转换 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 %行标确定 str1=handles.data(i,:); %查找全部数据 set(handles.searchc,string,num2str(str1(3) %把字符串显示在显示语文列表 set(handles.searchm,string,num2str(str1(4) %把字符串显示在显示数学列表 set(handles.searche,string,num2str(str1(5) %把字符串显示在显示英语列表 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); %显示无数据 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) %学号显示列表框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)