rcdstud.pas

一个简单的同学录软件

unit rcdStud;
interface

//SMTP设置格式
type
  SmtpSetup = record
    strSmtp: string[20]; //smtp服务器名或IP
    strPort: string[3]; //smtp服务器的端口号
    strUserId: string[30]; //发信人姓名
    strEmail: string[40]; //发信人的email地址
  end;
//OSOON用户登陆信息设置

type
  OsoonUser = record
    username: string[20]; //osoon登陆用户名
    password: string[16]; //osoon用户密码
    webdelay: integer; //网络延迟时间
    classid: string[7]; //osoon网登陆后的班集代码
  end;

//登陆用户名及密码
type
  PLoginUser = record
    name: string[16]; //用户名
    password: string[16]; //密码
    power: string[2]; //权限
  end;
//定义基本数据类型
type
  NewStud = record
            //标识类信息
    s_id: integer; //记录编号
    s_v: boolean; //记录是否可用
    s_py: string[4]; //贮存姓名拼音

            //基本信息类

    b_name: string[10]; //姓名
    b_email: string[30]; //电子邮件
    b_email1: string[30]; //电子邮件
    b_email2: string[30]; //电子邮件2

             //个人信息类
    p_mobilphone: string[12]; //手机
    p_sex: string[2]; //性别
    p_nickname: string[20]; //小名
    p_birth: string[14]; //出身日期
    p_bph: string[16]; //传呼机号
    p_sx: string[2]; //属相
    p_qqh: string[9]; //qq号
    p_icqh: string[14]; //icq号
    p_xz: string[6]; //星座
    p_howtocontact: string[60]; //联系方式
    p_http: string[40]; //个人网址
           //家庭相关信息
    h_phoneno1: string[13]; //家里电话
    h_phoneno2: string[13]; //家里电话
    h_city: string[30]; //所在城市
    h_sf: string[30]; //所在省份
    h_yb: string[7]; //家庭邮编
    h_addr: string[40]; //家庭所在街道地址
    h_cz: string[20]; //家庭传真号

          //单位相关信息
    c_country: string[20]; //公司所属国家
    c_name: string[40]; //公司名称
    c_zw: string[20]; //在公司所处职位
    c_sf: string[30]; //公司所在省份
    c_city: string[30]; //公司所在城市
    c_department: string[20]; //所处公司部分
    c_yb: string[7]; //公司邮编
    c_phoneno1: string[15]; //公司电话1
    c_phoneno2: string[15]; //公司电话2
    c_cz: string[20]; //公司传真号
    c_addr: string[40]; //公司街道地址
    c_http: string[30]; //公司主页

          //其它相关信息
    whattosay: string[30]; //说点什么保存一个网站超级链接

  end;
type
  baseStud = record
            //标识类信息
s_id: integer; //记录编号
s_v: boolean; //记录是否可用
s_py: string[4]; //贮存姓名拼音
            //基本信息类
b_name: string[10]; //姓名
    b_email: string[40]; //电子邮件
    b_email1: string[40]; //电子邮件
    b_email2: string[40]; //电子邮件2

             //个人信息类
    p_mobilphone: string[16]; //手机
    p_sex: string[2]; //性别
    p_nickname: string[20]; //小名
    p_birth: string[14]; //出身日期
    p_bph: string[30]; //传呼机号
    p_sx: string[2]; //属相
    p_qqh: string[10]; //qq号
    p_icqh: string[20]; //icq号
    p_xz: string[6]; //星座
    p_howtocontact: string[60]; //联系方式
    p_http: string[40]; //个人网址
           //家庭相关信息
    h_phoneno1: string[40]; //家里电话
    h_phoneno2: string[40]; //家里电话
    h_city: string[30]; //所在城市
    h_sf: string[30]; //所在省份
    h_yb: string[7]; //家庭邮编
    h_addr: string[60]; //家庭所在街道地址
    h_cz: string[40]; //家庭传真号

          //单位相关信息
    c_country: string[30]; //公司所属国家
    c_name: string[40]; //公司名称
    c_zw: string[20]; //在公司所处职位
    c_sf: string[30]; //公司所在省份
    c_city: string[30]; //公司所在城市
    c_department: string[20]; //所处公司部分
    c_yb: string[7]; //公司邮编
    c_phoneno1: string[30]; //公司电话1
    c_phoneno2: string[30]; //公司电话2
    c_cz: string[30]; //公司传真号
    c_addr: string[60]; //公司街道地址
    c_http: string[60]; //公司主页

          //其它相关信息
    whattosay: string[30]; //说点什么保存一个网站超级链接

  end;
function SearchArr(studarr: array of basestud; studname: string): integer;
implementation
//在一个basestud类型的数组中搜索姓名为studname的数据编号，返回它的

function SearchArr(studarr: array of basestud; studname: string): integer;
var
  i: integer;
begin
  for i := 1 to 100 do
  begin
    if studarr[i].b_name = studname then
    begin
      searcharr := i;
      break;
    end;
  end;
  searcharr := 0;
end;

end.