MATLAB GUI界面通讯录软件V1.0

使用MATLAB GUIDE编写的通讯录软件，界面友好，使用简单，为显示进度条使用，每次写入一个记录即写入excel，速度会慢，如果想要增加速度，可以将写入excel改为最后写入。

function varargout = contacts（varargin）
% 通讯录软件V1.0
% $Author: LiPeng    $Date: 20091026

% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct（‘gui_Name‘       mfilename ...
    ‘gui_Singleton‘  gui_Singleton ...
    ‘gui_OpeningFcn‘ @contacts_OpeningFcn ...
    ‘gui_OutputFcn‘  @contacts_OutputFcn ...
    ‘gui_LayoutFcn‘  []  ...
    ‘gui_Callback‘   []）;
if nargin && ischar（varargin{1}）
    gui_State.gui_Callback = str2func（varargin{1}）;
end

if nargout
    [varargout{1:nargout}] = gui_mainfcn（gui_State varargin{:}）;
else
    gui_mainfcn（gui_State varargin{:}）;
end
% End initialization code - DO NOT EDIT


% --- Executes just before contacts is made visible.
function contacts_OpeningFcn（hobject eventdata handles varargin）
handles.output = hobject;
handles.Database = ‘‘;
handles.TotalNum = [];
% Update handles structure
guidata（hobject handles）;
global loadmark newdata
loadmark =  0;
newdata = 0;
warning（‘off‘‘MATLAB:HandleGraphics:ObsoletedProperty:Javaframe‘）;
javaframe = get（hobject‘Javaframe‘）;
javaframe.setFigureIcon（javax.swing.ImageIcon（‘c_about.jpg‘））;


% --- Outputs from this function are returned to the command line.
function varargout = contacts_OutputFcn（hobject eventdata handles）
varargout{1} = handles.output;

% 控件：显示list
function allgroup_Callback（hobject eventdata handles）
global loadmark delmark
if loadmark
    n = get（hobject‘Value‘）;
    str = get（hobject‘String‘）;
    if isequal（get（gcf‘SelectionType‘）‘open‘）
        Detinfodlg（hobjecteventdatahandlesstr{n}n）;
    elseif isequal（get（gcf‘SelectionType‘）‘normal‘）
        delmark = 1;
        Database = handles.Database;
        Names = Database{1};
        Id = Database{2};
        Se = Database{3};
        Maj = Database{4};
        Dep = Database{5};
        Pho = Database{6};
        Cellp = Database{7};
        Other = Database{8};
        set（handles.Name‘String‘Names（n:））;
        set（handles.Number‘String‘num2str（cell2mat（Id（n:））））;
        
        Sstr = get（handles.MorF‘String‘）;
        for k = 1:length（Sstr）
            if strcmp（Sstr{k}Se（n:））
                set（handles.MorF‘Value‘k）;
                break
            end
            set（handles.MorF‘Value‘1）;
        end
        
        Mstr = get（handles.Major‘String‘）;
        for k = 1:length（Mstr）
            if strcmp（Mstr{k}Maj（n:））
                set（handles.Major‘Value‘k）;
                break
            end
            set（handles.Major‘Value‘1）;
        end
        
        Dstr = get（handles.Dep‘String‘）;
        for k = 1:length（Dstr）
            if strcmp（Dstr{k}Dep（n:））
                set（handles.Dep‘Value‘k）;
                break
            end
            set（handles.Dep‘Value‘1）;
        end
        
        set（handles.Phone‘String‘num2str（cell2mat（Pho（n:））））;
        set（handles.CellP‘String‘num2str（cell2mat（Cellp（n:））））;
        set（handles.Other‘String‘Other（n:））;
    end
end

% 静态文本控件创建函数区

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2010-01-23 12:07  contacts\
     文件        9209  2010-01-04 13:08  contacts\contacts.fig
     文件       19263  2009-11-04 16:50  contacts\contacts.m
     文件        2168  2009-10-15 09:19  contacts\c_about.JPG