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'

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; %取数han

3、dles.data=; %生成data空数组handles.text=; %生成text空数组guidata(hObject, handles); %保存更新数据handles.output = hObject;guidata(hObject, handles);function varargout = untitled1_OutputFcn(hObject, eventdata, handles)varargout1 = handles.output;%excel表格入口function daoru_Callback(hObject, eventdata, handles) %可编辑信息表格

4、导入文本框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) %导入数据确定按钮FileNam

5、e,PathName=uigetfile('*.xls','Choose a file'); str=PathName,FileName; set(handles.daoru,'string',str); %显示入可编辑数据导入文本框 data,text_data=xlsread(str); %读取str并生成新的数组 mess1=data(:,1); %访问excel表格第一列 set(handles.showI,'string',mess1) %把字符串显示在显示学号列表 mess3=data(:,3); %访问excel表格

6、第三列 set(handles.showc,'string',mess3) %把字符串显示在显示语文列表 mess4=data(:,4); %访问excel列表第四列 set(handles.showm,'string',mess4) %把字符串显示在显示数学列表 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; %保存数据 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) %可编辑数学输出文本框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) %可编辑学号输入信息文本框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'); %学号字符串信息输入查找if length(str)=0 %空字符串str_temp=str2double(str); %字符串转换为数值l1=handles.data(:,1);l2=length(l1)

15、;l3=l2+201200;if (201200<str_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=; %生成新的空数组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); %把字符串显示在显示数学列表 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'); %显示无数据 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); %名字字符串转换 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 %行标确定 str1=handles.data(i,:); %查找全部数据 set(handles.searchc,'string',num2str(str1(3) %把字符串显示在显示语文列表

20、set(handles.searchm,'string',num2str(str1(4) %把字符串显示在显示数学列表 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'); %显示无数据 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) %学号显示列表框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