addmore.pas

个人朋友信息的管理

unit Addmore;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, Mask, DB, ADODB, ExtCtrls;

type
  TFormAddMore = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DBEditName: TDBEdit;
    Label11: TLabel;
    DBEditCorp: TDBEdit;
    DBEditPosition: TDBEdit;
    DBEditOfficephone: TDBEdit;
    DBEditMobilephone: TDBEdit;
    DBEditEMail: TDBEdit;
    DBEditWebsite: TDBEdit;
    DBEditHomephone: TDBEdit;
    DBEditQicq: TDBEdit;
    DBEditIcq: TDBEdit;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    DBEditDistrict: TDBEdit;
    DBEditGraduateshcool: TDBEdit;
    DBEditDegree: TDBEdit;
    DBEditFirstName: TDBEdit;
    DBEditSecondName: TDBEdit;
    DBMemoDetail: TDBMemo;
    BTNFirst: TButton;
    BTNNext: TButton;
    BTNPrev: TButton;
    BTNLast: TButton;
    BTNAdd: TButton;
    BTNDel: TButton;
    BTNClose: TButton;
    DBComboBoxSex: TDBComboBox;
    DBComboBoxCountry: TDBComboBox;
    BTNModify: TButton;
    procedure BTNFirstClick(Sender: TObject);
    procedure BTNNextClick(Sender: TObject);
    procedure BTNPrevClick(Sender: TObject);
    procedure BTNLastClick(Sender: TObject);
    procedure BTNAddClick(Sender: TObject);
    procedure BTNDelClick(Sender: TObject);
    procedure BTNModifyClick(Sender: TObject);
    procedure BTNCloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBEditNameChange(Sender: TObject);
    procedure DBComboBoxSexChange(Sender: TObject);
    procedure DBEditCorpChange(Sender: TObject);
    procedure DBEditPositionChange(Sender: TObject);
    procedure DBEditOfficephoneChange(Sender: TObject);
    procedure DBEditMobilephoneChange(Sender: TObject);
    procedure DBEditEMailChange(Sender: TObject);
    procedure DBEditWebsiteChange(Sender: TObject);
    procedure DBEditHomephoneChange(Sender: TObject);
    procedure DBEditQicqChange(Sender: TObject);
    procedure DBEditIcqChange(Sender: TObject);
    procedure DBComboBoxCountryChange(Sender: TObject);
    procedure DBEditDistrictChange(Sender: TObject);
    procedure DBEditGraduateshcoolChange(Sender: TObject);
    procedure DBEditDegreeChange(Sender: TObject);
    procedure DBEditFirstNameChange(Sender: TObject);
    procedure DBEditSecondNameChange(Sender: TObject);
    procedure DBMemoDetailChange(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormAddMore: TFormAddMore;

implementation

uses DataModule, AddData, Cover;

{$R *.dfm}

procedure TFormAddMore.FormCreate(Sender: TObject);
begin
  BTNModify.Enabled := False;
  BTNPrev.Enabled := False;
  BTNFirst.Enabled := False;
  DataModule.Notify_DataChange := False;
end;


procedure TFormAddMore.BTNFirstClick(Sender: TObject);
begin
  DataModule1.ADODataSet1.First; //移动到第一个记录
  BTNPrev.Enabled := False; //设置按钮属性
  BTNFirst.Enabled := False;
  BTNLast.Enabled := True;
  BTNNext.Enabled := True;
  BTNModify.Enabled := False;
  DataModule.Notify_DataChange := False; //设置数据暂时未更新标志
end;

procedure TFormAddMore.BTNNextClick(Sender: TObject);
begin
  DataModule1.ADODataSet1.Next; //移动到下一个记录
  BTNPrev.Enabled := True; //设置按钮属性
  BTNFirst.Enabled := True;
  BTNModify.Enabled := False;
  DataModule.Notify_DataChange := False; //设置数据暂时未更新标志
  if DataModule1.ADODataSet1.RecNo =
    DataModule1.ADODataSet1.RecordCount then
  {//到达末尾记录的处理} begin
    BTNNext.Enabled := False;
    BTNLast.Enabled := False;
  end;
end;

procedure TFormAddMore.BTNPrevClick(Sender: TObject);
begin
  DataModule1.ADODataSet1.Prior;
  BTNNext.Enabled := True;
  BTNLast.Enabled := True;
  BTNModify.Enabled := False;
  DataModule.Notify_DataChange := False;
  if DataModule1.ADODataSet1.RecNo = 0 then begin
    BTNPrev.Enabled := False;
    BTNFirst.Enabled := False;
  end;
end;


procedure TFormAddMore.BTNLastClick(Sender: TObject);
begin
  DataModule1.ADODataSet1.Last;
  BTNNext.Enabled := False;
  BTNFirst.Enabled := True;
  BTNLast.Enabled := False;
  BTNPrev.Enabled := True;
  BTNModify.Enabled := False;
  DataModule.Notify_DataChange := False;
end;

procedure TFormAddMore.BTNCloseClick(Sender: TObject);
begin
  //保存更改
  try
    DataModule1.ADODataSet1.Refresh;
  finally
    DataModule.Notify_DataChange := False;
    close;
  end;
end;
procedure TFormAddMore.BTNAddClick(Sender: TObject);
begin
  if DataModule.Notify_DataChange then {//数据有改动} begin
    DataModule1.ADODataSet1.UpdateRecord; //首先更新数据记录
    DataModule.Notify_DataChange := False;
  end
  else begin
  end;
  DataModule1.ADODataSet1.Append; //执行添加记录操作
  BTNNext.Enabled := False; //设置按钮属性
  BTNFirst.Enabled := True;
  BTNLast.Enabled := False;
  BTNPrev.Enabled := True;
  BTNAdd.Enabled := False;
  BTNModify.Enabled := False;
  DataModule.Notify_DataChange := False; //设置数据暂时未更新标志

end;

//删除记录按钮代码
procedure TFormAddMore.BTNDelClick(Sender: TObject);
begin
  DataModule1.ADODataSet1.Delete;
  DataModule.Notify_DataChange := False;
end;


procedure TFormAddMore.BTNModifyClick(Sender: TObject);
begin
  if DataModule.Notify_DataChange then begin
    DataModule1.ADODataSet1.UpdateRecord;
    BTNModify.Enabled := False;
  end;
  DataModule.Notify_DataChange := False;
  BTNAdd.Enabled := True;
end;

procedure TFormAddMore.DBEditNameChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

procedure TFormAddMore.DBComboBoxSexChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;


procedure TFormAddMore.DBEditCorpChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

procedure TFormAddMore.DBEditPositionChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

procedure TFormAddMore.DBEditOfficephoneChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
  BTNModify.Enabled := True;
end;

procedure TFormAddMore.DBEditMobilephoneChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

procedure TFormAddMore.DBEditEMailChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

procedure TFormAddMore.DBEditWebsiteChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

procedure TFormAddMore.DBEditHomephoneChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

procedure TFormAddMore.DBEditQicqChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

procedure TFormAddMore.DBComboBoxCountryChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

procedure TFormAddMore.DBEditIcqChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

procedure TFormAddMore.DBEditDistrictChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

procedure TFormAddMore.DBEditGraduateshcoolChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

procedure TFormAddMore.DBEditDegreeChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

procedure TFormAddMore.DBEditFirstNameChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

procedure TFormAddMore.DBEditSecondNameChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

procedure TFormAddMore.DBMemoDetailChange(Sender: TObject);
begin
  DataModule.Notify_DataChange := True;
  BTNModify.Enabled := True;
end;

end.