frmmain.pas

一个简单的同学录软件

        b_item := fmjbxx1.ListView1.Items.Add;
        p_item := fmgrxx1.listview1.items.add;
        h_item := fmjtxx1.ListView1.items.add;
        c_item := fmdwxx1.ListView1.items.add;

        b_item.Caption := arrstud[i].b_name;
        p_item.Caption := arrstud[i].b_name;
        h_item.Caption := arrstud[i].b_name;
        c_item.Caption := arrstud[i].b_name;



        if arrstud[i].p_sex = '男' then //男性粗野
        begin
          b_item.ImageIndex := 0;
          p_item.ImageIndex := 0;
          h_item.ImageIndex := 0;
          c_item.ImageIndex := 0;
        end;
        if arrstud[i].p_sex = '女' then //烈炎红唇
        begin
          b_item.ImageIndex := 1;
          p_item.ImageIndex := 1;
          h_item.ImageIndex := 1;
          c_item.ImageIndex := 1;
        end;
//添加基本信息内容

        b_item.SubItems.Add(arrstud[i].b_email); //写入姓名
        b_item.SubItems.Add(arrstud[i].p_qqh); //写入email
        b_item.subitems.add(arrstud[i].p_mobilphone);
        b_item.subitems.add(arrstud[i].c_name);
        b_item.subitems.add(inttostr(i)); //数据编号
        /////////////////////////////////////////////
// 个人信息内容

        p_item.SubItems.add(arrstud[i].p_nickname); //小名
        p_item.SubItems.add(arrstud[i].p_howtocontact); //最方便的联系方式
        p_item.SubItems.add(arrstud[i].p_qqh); //QQ
        p_item.SubItems.add(arrstud[i].p_birth); //出生日期
        p_item.SubItems.add(arrstud[i].p_http); //个人主页地址
        p_item.SubItems.add(arrstud[i].p_sx); //属相
        p_item.SubItems.add(arrstud[i].p_xz); //星座
        p_item.SubItems.add(arrstud[i].p_icqh); //ICQ
        p_item.SubItems.add(arrstud[i].p_bph); //BP机
        p_item.subitems.add(inttostr(arrstud[i].s_id));
        //单位信息内容
        c_item.subitems.add(arrstud[i].c_name); //单位名称
        c_item.subitems.add(arrstud[i].c_phoneno1); //电话1
        c_item.subitems.add(arrstud[i].c_phoneno2); //电话2
        c_item.subitems.add(arrstud[i].c_addr); //地址
        c_item.subitems.add(arrstud[i].c_cz); //传真号
        c_item.subitems.add(arrstud[i].c_http); //主页
        c_item.subitems.add(arrstud[i].c_department); //部门
        c_item.subitems.add(arrstud[i].c_zw); //职位
        c_item.subitems.add(arrstud[i].c_city); //城市
        c_item.subitems.add(arrstud[i].c_sf); //省份
        c_item.subitems.add(arrstud[i].c_country); //国家
        c_item.subitems.add(arrstud[i].c_yb); //邮政编码
        c_item.subitems.add(inttostr(arrstud[i].s_id));
//家庭相关信息
        h_item.subitems.add(arrstud[i].h_phoneno1); //家庭电话1
        h_item.subitems.add(arrstud[i].h_phoneno2); //家庭电话2
        h_item.subitems.add(arrstud[i].h_yb); //邮政编码
        h_item.subitems.add(arrstud[i].h_sf); //所在省份
        h_item.subitems.add(arrstud[i].h_city); //所在城市
        h_item.subitems.add(arrstud[i].h_addr); //街道地址
        h_item.subitems.add(arrstud[i].h_cz);
        h_item.subitems.add(inttostr(arrstud[i].s_id));
      end;
    end;
  end;
end;
//功能
//将数组下标i送给datain
//以供其调用数据

procedure TfmMain.cardview(i: string; apn: integer);
begin
  if inttostr(apn) <> '' then fmdatain.Pall.ActivePageIndex := apn;
  fmdatain.Visible := true;
  fmdatain.lb_sjbh.caption := i;
  fmmain.Enabled := false;

end;
//清空数据内容，将此单元内容设为可用

procedure TfmMain.ArrstudDelete(i: integer);
begin
  fmmain.arrstud[i].s_v := true;
  fmmain.arrstud[i].b_name := '';
  fmmain.arrstud[i].b_email := '';
  fmmain.arrstud[i].b_email1 := '';
  fmmain.arrstud[i].b_email2 := '';
  fmmain.arrstud[i].p_mobilphone := '';
  fmmain.arrstud[i].p_sex := '';
  fmmain.arrstud[i].p_nickname := '';
  fmmain.arrstud[i].p_bph := '';
  fmmain.arrstud[i].p_sx := '';
  fmmain.arrstud[i].p_qqh := '';
  fmmain.arrstud[i].p_xz := '';
  fmmain.arrstud[i].p_icqh := '';
  fmmain.arrstud[i].p_howtocontact := '';
  fmmain.arrstud[i].p_http := '';
//更新家庭相关信息
  fmmain.arrstud[i].h_phoneno1 := '';
  fmmain.arrstud[i].h_phoneno2 := '';
  fmmain.arrstud[i].h_city := '';
  fmmain.arrstud[i].h_yb := '';
  fmmain.arrstud[i].h_addr := '';
  fmmain.arrstud[i].h_cz := '';
  fmmain.arrstud[i].h_sf := '';
//更新单位相关信息
  fmmain.arrstud[i].c_country := '';
  fmmain.arrstud[i].c_name := '';
  fmmain.arrstud[i].c_zw := '';
  fmmain.arrstud[i].c_sf := '';
  fmmain.arrstud[i].c_department := '';
  fmmain.arrstud[i].c_city := '';
  fmmain.arrstud[i].c_phoneno1 := '';
  fmmain.arrstud[i].c_phoneno2 := '';
  fmmain.arrstud[i].c_yb := '';
  fmmain.arrstud[i].c_cz := '';
  fmmain.arrstud[i].c_addr := '';
  fmmain.arrstud[i].c_http := '';

end;
//功能　
//查找出一个可用的数据单位返回其地址编号

function TfmMain.ArrGetFreeNO: integer;
var
  i: integer;
begin
  for i := 1 to 100 do
  begin
    if fmmain.arrstud[i].s_v = true then
    begin
      arrgetfreeno := i;
      break;
    end;

  end;
end;

procedure TfmMain.FormPaint(Sender: TObject);
begin
  fmmain.tvStud.FullExpand;

end;




procedure TfmMain.gohttpTimer(Sender: TObject);
var
temstr:string;
  osoonfile: file of osoonuser;
  newosoonuser: osoonuser;
begin
//msgbox(inttostr(gohttp.Interval));

  temstr:='osoonini.dat';
  if fileexists(temstr) then
  begin
    assignfile(osoonfile, temstr);
    reset(osoonfile);
    read(osoonfile, newosoonuser);
    closefile(osoonfile);
    gohttp.Enabled := false;
//msgbox(newosoonuser.classid);

    fmhttp1.webbrowser.Navigate('http://www.osoon.com/alumni/class/sober/board/index.php?class_id='+newosoonuser.classid+'');
    fmhttp1.Panel2.caption := '同学录留言内容';
  end;


end;



procedure TfmMain.SendMail1Click(Sender: TObject);
begin
  SendqqMail;
end;

procedure TfmMain.CutDel1Click(Sender: TObject);
begin
  if yesnobox('真的要DEL吗？好无情的:<') then
  begin
    if fmjbxx1.Visible then fmmain.ArrstudDelete(strtoint(fmjbxx1.listview1.Selected.SubItems.Strings[4]));
    if fmgrxx1.Visible then fmmain.ArrstudDelete(strtoint(fmgrxx1.listview1.Selected.SubItems.Strings[9]));
    if fmjtxx1.Visible then fmmain.ArrstudDelete(strtoint(fmjtxx1.listview1.Selected.SubItems.Strings[7]));
    if fmdwxx1.Visible then fmmain.ArrstudDelete(strtoint(fmdwxx1.listview1.Selected.SubItems.Strings[12]));
    fmmain.FillList('');
    fmmain.update;
    msgbox('啊一声长叹，一个冥魂去向天边，我还会回来的。。。的。。的。。。');
  end
  else
  begin
    msgbox('还好我们是朋友，DEL谁也不能DEL我呀！我知道！');
  end;

end;

procedure TfmMain.Show1Click(Sender: TObject);
begin
  seedetail;
end;

procedure TfmMain.ToolButton1Click(Sender: TObject);
begin
  dlgOpen.Filter := '天涯海角同学数据文件|*.par';
  if dlgopen.Execute then
  begin
    if dlgopen.FileName <> '' then
    begin
      studfileopen(dlgopen.filename);
      datafilename := dlgopen.filename;
      filllist('');

    end;
  end;
end;

procedure TfmMain.N6Click(Sender: TObject);
begin
  dlgOpen.Filter := '天涯海角同学数据文件|*.par';
  if dlgopen.Execute then
  begin
    if dlgopen.FileName <> '' then
    begin
      studfileopen(dlgopen.filename);
      datafilename := dlgopen.filename;
      filllist('');
    end;
  end;
end;

procedure TfmMain.ToolButton5Click(Sender: TObject);
begin
  studfilesave(datafilename);
end;

procedure TfmMain.N7Click(Sender: TObject);
begin
  studfilesave(datafilename);


end;

procedure TfmMain.N8Click(Sender: TObject);
begin
  dlgsave.Filter := '天涯海角同学录文件|*.par';
  if dlgsave.Execute then
  begin
    if dlgsave.FileName <> '' then
    begin
      datafilename:=dlgsave.FileName ;
      studfilesave(datafilename);
    end;
  end;
end;

procedure Tfmmain.SeeDetail;
begin

  if fmjbxx1.Visible then
  begin
    if fmjbxx1.listview1.SelCount <> 0 then
    begin
      fmmain.cardview(fmjbxx1.listview1.Selected.SubItems.Strings[4], 0);
    end;
  end;

  if fmgrxx1.Visible then
  begin
    if fmgrxx1.listview1.SelCount <> 0 then
    begin
      fmmain.cardview(fmgrxx1.listview1.Selected.SubItems.Strings[9], 1);
    end;
  end;

  if fmjtxx1.Visible then
  begin
    if fmjtxx1.listview1.SelCount <> 0 then
    begin
      fmmain.cardview(fmjtxx1.listview1.Selected.SubItems.Strings[7], 2);
    end;
  end;

  if fmdwxx1.Visible then
  begin
    if fmdwxx1.listview1.SelCount <> 0 then
    begin
      fmmain.cardview(fmdwxx1.listview1.Selected.SubItems.Strings[12], 3);
    end;
  end;
end;

procedure TfmMain.ToolButton3Click(Sender: TObject);
begin
  Seedetail;
end;

procedure Tfmmain.SendqqMail;
begin

  if fmjbxx1.Visible then
  begin
    if fmjbxx1.listview1.SelCount <> 0 then
    begin
      fmssendmail.stb.Panels[0].Text := fmjbxx1.listview1.Selected.SubItems.Strings[4];
      fmssendmail.stb.Panels[1].Text := '发信给亲爱的同学' + fmjbxx1.listview1.Selected.Caption;
      fmssendmail.visible := true;
      fmmain.Enabled := false;


    end;
  end;

  if fmgrxx1.Visible then
  begin
    if fmgrxx1.listview1.SelCount <> 0 then
    begin
      fmssendmail.stb.Panels[0].Text := fmgrxx1.listview1.Selected.SubItems.Strings[9];
      fmssendmail.stb.Panels[1].Text := '发信给亲爱的同学' + fmgrxx1.listview1.Selected.caption;
      fmssendmail.visible := true;
      fmmain.Enabled := false;

    end;
  end;

  if fmjtxx1.Visible then
  begin
    if fmjtxx1.listview1.SelCount <> 0 then
    begin
      fmssendmail.stb.Panels[0].Text := fmjtxx1.listview1.Selected.SubItems.Strings[7];
      fmssendmail.stb.Panels[1].Text := '发信给亲爱的同学' + fmjtxx1.listview1.Selected.caption;
      fmssendmail.visible := true;
      fmmain.Enabled := false;

    end;
  end;

  if fmdwxx1.Visible then
  begin
    if fmdwxx1.listview1.SelCount <> 0 then
    begin
      fmssendmail.stb.Panels[0].Text := fmdwxx1.listview1.Selected.SubItems.Strings[12];
      fmssendmail.stb.Panels[1].Text := '发信给亲爱的同学' + fmdwxx1.listview1.Selected.caption;
      fmssendmail.visible := true;
      fmmain.Enabled := false;

    end;
  end;

end;

procedure TfmMain.ToolButton4Click(Sender: TObject);
begin
  sendqqmail;
end;

procedure TfmMain.ToolButton6Click(Sender: TObject);
begin
  fmmain.Enabled := false;
  fmabout.visible := true;
//  msgbox('只是个测试版本，有群发功能和输出到EXCEL等功能没有实现！' + #13#10 + '*_*');
end;

procedure TfmMain.A1Click(Sender: TObject);
begin
  fmmain.Enabled := false;
  fmabout.visible := true;
end;

procedure TfmMain.S2Click(Sender: TObject);
begin

  myshellexecute('open', 'help.html', '');
end;

function Tfmmain.MyShellExecute(const sAction, sFileName, sPara: string): Boolean;
begin
  Result := ShellExecute(Application.Handle, PChar(sAction), PChar(sFileName), PChar(sPara), PChar(''), SW_SHOW) > 32;
  if not Result then RaiseLastError('ShellExecute');
end;

end.