frmdatain.pas

一个简单的同学录软件

unit FrmDataIn;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, Buttons, ExtCtrls, rcdStud, xutils, TFlatEditUnit,
  TFlatButtonUnit, TFlatListBoxUnit, Mask, TFlatMaskEditUnit,
  TFlatComboBoxUnit;

type
  TFmDataIn = class(TForm)
    Pall: TPageControl;
    P1: TTabSheet;
    P2: TTabSheet;
    P3: TTabSheet;
    P4: TTabSheet;
    P5: TTabSheet;
    Image1: TImage;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Image2: TImage;
    Bevel2: TBevel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    BitBtn5: TBitBtn;
    Label12: TLabel;
    Image3: TImage;
    Label13: TLabel;
    Bevel3: TBevel;
    Image4: TImage;
    Label14: TLabel;
    Bevel4: TBevel;
    Image5: TImage;
    Label15: TLabel;
    Bevel5: TBevel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label24: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    lb_sjbh2: TLabel;
    lb_sjbh: TLabel;
    Label40: TLabel;
    b_name: TFlatEdit;
    b_email: TFlatEdit;
    FlatButton1: TFlatButton;
    BitBtn1: TFlatButton;
    BitBtn2: TFlatButton;
    Button2: TFlatButton;
    BitBtn4: TFlatButton;
    b_emailqt: TFlatListBox;
    p_birth: TFlatMaskEdit;
    p_sex: TFlatComboBox;
    p_mobilphone: TFlatEdit;
    p_nickname: TFlatEdit;
    p_bph: TFlatEdit;
    p_qqh: TFlatEdit;
    p_icqh: TFlatEdit;
    p_sx: TFlatComboBox;
    p_xz: TFlatComboBox;
    p_howtocontact: TFlatComboBox;
    p_http: TFlatEdit;
    h_phoneno1: TFlatEdit;
    h_phoneno2: TFlatEdit;
    h_sf: TFlatComboBox;
    h_city: TFlatEdit;
    h_addr: TFlatEdit;
    h_yb: TFlatEdit;
    h_cz: TFlatEdit;
    c_name: TFlatEdit;
    c_country: TFlatEdit;
    c_sf: TFlatComboBox;
    c_city: TFlatEdit;
    c_yb: TFlatEdit;
    c_zw: TFlatEdit;
    c_department: TFlatEdit;
    c_phoneno1: TFlatEdit;
    c_phoneno2: TFlatEdit;
    c_cz: TFlatEdit;
    c_addr: TFlatEdit;
    c_http: TFlatEdit;
    FlatEdit1: TFlatEdit;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FillBlankItem(i: integer);
    procedure SaveEdit;
    procedure ClearItem;
    procedure FormPaint(Sender: TObject);
    procedure FormHide(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FmDataIn: TFmDataIn;

implementation

uses frmMain;
var i: integer;

{$R *.DFM}

procedure TFmDataIn.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  fmdatain.Close;
  fmmain.enabled := true;
end;

procedure TFmDataIn.BitBtn1Click(Sender: TObject);
var
  i: integer;
begin
  i := strtoint(lb_sjbh.caption);
  if b_name.Text <> '' then
  begin
    saveedit;

  end
  else
  begin
    fmmain.ArrstudDelete(i);

  end;
 //self.Close ;
  fmdatain.Visible := false;
  fmmain.Enabled := true;
end;

//保存当前编辑内容到数据文件

procedure TFmDataIn.SaveEdit;
var
  i: integer;
begin
  i := strtoint(lb_sjbh.caption);
  with fmmain do
  begin
//写入标识信息
    arrstud[i].s_v := false;
    arrstud[i].b_name := trim(b_name.text);
    arrstud[i].b_email := trim(b_email.Text);

//处理列表框的email内容
    case fmdatain.b_emailqt.Items.Count of
      0:
        begin
          arrstud[i].b_email1 := '';
          arrstud[i].b_email2 := '';
        end;
      1:
        begin
          arrstud[i].b_email1 := fmdatain.b_emailqt.Items.Strings[0];
          arrstud[i].b_email2 := '';
        end;
      2:
        begin
          arrstud[i].b_email1 := fmdatain.b_emailqt.Items.Strings[0];
          arrstud[i].b_email2 := fmdatain.b_emailqt.Items.Strings[1];
        end;
    end;

    arrstud[i].p_mobilphone := trim(fmdatain.p_mobilphone.Text);
    arrstud[i].p_sex := trim(fmdatain.p_sex.text);
    arrstud[i].p_nickname := trim(fmdatain.p_nickname.Text);
    arrstud[i].p_bph := trim(fmdatain.p_bph.text);
    arrstud[i].p_sx := trim(fmdatain.p_sx.text);
    arrstud[i].p_qqh := trim(fmdatain.p_qqh.Text);
    arrstud[i].p_xz := trim(fmdatain.p_xz.text);
    arrstud[i].p_icqh := trim(fmdatain.p_icqh.text);
    arrstud[i].p_howtocontact := trim(fmdatain.p_howtocontact.Text);
    arrstud[i].p_http := trim(fmdatain.p_http.Text);
    arrstud[i].p_birth := fmdatain.p_birth.text;
//更新家庭相关信息
    arrstud[i].h_phoneno1 := trim(fmdatain.h_phoneno1.text);
    arrstud[i].h_phoneno2 := trim(fmdatain.h_phoneno2.text);
    arrstud[i].h_city := trim(fmdatain.h_city.text);
    arrstud[i].h_yb := trim(fmdatain.h_yb.text);
    arrstud[i].h_addr := trim(fmdatain.h_addr.Text);
    arrstud[i].h_cz := trim(fmdatain.h_cz.text);
    arrstud[i].h_sf := trim(fmdatain.h_sf.text);
//更新单位相关信息
    arrstud[i].c_country := trim(fmdatain.c_country.text);
    arrstud[i].c_name := trim(fmdatain.c_name.text);
    arrstud[i].c_zw := trim(fmdatain.c_zw.text);
    arrstud[i].c_sf := trim(fmdatain.c_sf.text);
    arrstud[i].c_department := trim(fmdatain.c_department.text);
    arrstud[i].c_city := trim(fmdatain.c_city.text);
    arrstud[i].c_phoneno1 := trim(fmdatain.c_phoneno1.text);
    arrstud[i].c_phoneno2 := trim(fmdatain.c_phoneno2.text);
    arrstud[i].c_yb := trim(fmdatain.c_yb.text);
    arrstud[i].c_cz := trim(fmdatain.c_cz.text);
    arrstud[i].c_addr := trim(fmdatain.c_addr.text);
    arrstud[i].c_http := trim(fmdatain.c_http.text);


//完成信息更新
    fmmain.FillList('');
    fmmain.Update;
//内容存盘
    fmmain.StudFileSave('data.par');
  end;

end;




procedure TFmDataIn.BitBtn2Click(Sender: TObject);
begin
  fmdatain.visible := false;
  fmmain.Enabled := true;
end;

procedure TFmDataIn.Button2Click(Sender: TObject);
var
  emailaddr: string;
begin
{增加此人的email地址
先要判断此人的email地址是不是已经写满了，如果写满了则提示可
 先删除一个然后增加}

  with fmmain.arrstud[i] do
  begin
    if b_email <> '' then
    begin
      if b_emailqt.Items.count = 2 then
      begin
        msgbox('对不起一个最多写入三条地址信息，太多了别人不好记！' + #13#10 + '你可以删除一条后再写入!');
      end
      else
      begin
        emailaddr := inputbox('增加地址信息', '请填写地址信息：', '');
        if emailaddr <> '' then
        begin
          msgbox(emailaddr);
          b_emailqt.Items.Append(emailaddr);
        end;
      end;

    end
    else
    begin
      msgbox('默认的信箱地址为空，所以填写的地址将作为默认地址信息！');
      emailaddr := inputbox('默认信箱地址', '请写入最常用的信箱地址', '');
      if emailaddr <> '' then
      begin
        msgbox(emailaddr);
        fmdatain.b_email.text := emailaddr;
      end;
    end;

  end;

end;

procedure TFmDataIn.BitBtn4Click(Sender: TObject);

begin
  begin
    case b_emailqt.ItemIndex of
      0:
        fmmain.arrstud[i].b_email1 := '';
      1:
        fmmain.arrstud[i].b_email2 := '';
    end;
    try
      begin
        fmdatain.b_emailqt.Items.Delete(b_emailqt.ItemIndex);
      end;
    except
    end;
  end;
end;

 //将信息内容添写到datain的各项信息框内

procedure TFmDataIn.FillBlankItem(i: integer);
begin
                       //取得数据编号
  with fmmain do
  begin
//基本信息
    b_name.text := arrstud[i].b_name;
    b_email.Text := arrstud[i].b_email;
    b_emailqt.items.Clear;
    if arrstud[i].b_email1 <> '' then b_emailqt.Items.add(arrstud[i].b_email1);
    if arrstud[i].b_email2 <> '' then b_emailqt.Items.add(arrstud[i].b_email2);
//个人相关信息
    fmdatain.p_mobilphone.Text := arrstud[i].p_mobilphone;
    fmdatain.p_sex.text := arrstud[i].p_sex;
    fmdatain.p_nickname.Text := arrstud[i].p_nickname;
    fmdatain.p_bph.text := arrstud[i].p_bph;
    fmdatain.p_sx.text := arrstud[i].p_sx;
    fmdatain.p_qqh.Text := arrstud[i].p_qqh;
    fmdatain.p_xz.text := arrstud[i].p_xz;
    fmdatain.p_icqh.text := arrstud[i].p_icqh;
    fmdatain.p_howtocontact.Text := arrstud[i].p_howtocontact;
    fmdatain.p_http.Text := arrstud[i].p_http;
    fmdatain.p_birth.Text := arrstud[i].p_birth;
//添写家庭相关信息
    fmdatain.h_phoneno1.text := arrstud[i].h_phoneno1;
    fmdatain.h_phoneno2.text := arrstud[i].h_phoneno2;
    fmdatain.h_city.text := arrstud[i].h_city;
    fmdatain.h_yb.text := arrstud[i].h_yb;
    fmdatain.h_addr.Text := arrstud[i].h_addr;
    fmdatain.h_cz.text := arrstud[i].h_cz;
    fmdatain.h_sf.text := arrstud[i].h_sf;
//添写单位相关信息
    fmdatain.c_country.text := arrstud[i].c_country;
    fmdatain.c_name.text := arrstud[i].c_name;
    fmdatain.c_zw.text := arrstud[i].c_zw;
    fmdatain.c_sf.text := arrstud[i].c_sf;
    fmdatain.c_department.text := arrstud[i].c_department;
    fmdatain.c_city.text := arrstud[i].c_city;
    fmdatain.c_phoneno1.text := arrstud[i].c_phoneno1;
    fmdatain.c_phoneno2.text := arrstud[i].c_phoneno2;
    fmdatain.c_yb.text := arrstud[i].c_yb;
    fmdatain.c_cz.text := arrstud[i].c_cz;
    fmdatain.c_addr.text := arrstud[i].c_addr;
    fmdatain.c_http.text := arrstud[i].c_http;
//添写附注信息内容


  end;
end;

procedure TFmDataIn.ClearItem;
begin
                       //取得数据编号
  with fmmain do
  begin
//基本信息
    b_name.text := '';
    b_email.Text := '';
    b_emailqt.items.Clear;
//个人相关信息
    fmdatain.p_mobilphone.Text := '';
    fmdatain.p_sex.text := '';
    fmdatain.p_nickname.Text := '';
    fmdatain.p_bph.text := '';
    fmdatain.p_sx.text := '';
    fmdatain.p_qqh.Text := '';
    fmdatain.p_xz.text := '';
    fmdatain.p_icqh.text := '';
    fmdatain.p_howtocontact.Text := '';
    fmdatain.p_http.Text := '';
//添写家庭相关信息
    fmdatain.h_phoneno1.text := '';
    fmdatain.h_phoneno2.text := '';
    fmdatain.h_city.text := '';
    fmdatain.h_yb.text := '';
    fmdatain.h_addr.Text := '';
    fmdatain.h_cz.text := '';
    fmdatain.h_sf.text := '';
//添写单位相关信息
    fmdatain.c_country.text := '';
    fmdatain.c_name.text := '';
    fmdatain.c_zw.text := '';
    fmdatain.c_sf.text := '';
    fmdatain.c_department.text := '';
    fmdatain.c_city.text := '';
    fmdatain.c_phoneno1.text := '';
    fmdatain.c_phoneno2.text := '';
    fmdatain.c_yb.text := '';
    fmdatain.c_cz.text := '';
    fmdatain.c_addr.text := '';
    fmdatain.c_http.text := '';
//添写附注信息内容


  end;
end;

procedure TFmDataIn.FormPaint(Sender: TObject);
var
  i: integer;
begin
  i := strtoint(lb_sjbh.caption);
  if not fmmain.arrstud[i].s_v then
  begin
    fmdatain.FillBlankItem(i);
  end;

end;

procedure TFmDataIn.FormHide(Sender: TObject);
begin
  clearitem;
end;
end.