addmore.pas

关于DEPHI7.0的朋友信息管理系统源代码

unit AddMore;

interface

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

type
  TFormAddMore = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    Label5: TLabel;
    DBEdit6: TDBEdit;
    Label6: TLabel;
    DBEdit7: TDBEdit;
    Label7: TLabel;
    BTNAdd: TButton;
    BTNClose: TButton;
    Label8: TLabel;
    DBComboBox1: TDBComboBox;
    Label9: TLabel;
    DBEdit8: TDBEdit;
    Label10: TLabel;
    DBEdit9: TDBEdit;
    Label11: TLabel;
    DBEdit10: TDBEdit;
    Bevel1: TBevel;
    Label12: TLabel;
    DBComboBox2: TDBComboBox;
    DBEdit11: TDBEdit;
    Label13: TLabel;
    DBEdit12: TDBEdit;
    Label14: TLabel;
    DBEdit13: TDBEdit;
    Label15: TLabel;
    DBEdit14: TDBEdit;
    Label16: TLabel;
    Label17: TLabel;
    DBEdit15: TDBEdit;
    Label18: TLabel;
    DBMemo1: TDBMemo;
    Bevel2: TBevel;
    BTNPrev: TButton;
    BTNNext: TButton;
    BTNDel: TButton;
    BTNModify: TButton;
    BTNFirst: TButton;
    BTNLast: TButton;
    procedure BTNFirstClick(Sender: TObject);
    procedure BTNNextClick(Sender: TObject);
    procedure BTNPrevClick(Sender: TObject);
    procedure BTNLastClick(Sender: TObject);
    procedure BTNCloseClick(Sender: TObject);
    procedure BTNAddClick(Sender: TObject);
    procedure BTNDelClick(Sender: TObject);
    procedure BTNModifyClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBEdit1Change(Sender: TObject);
    procedure DBComboBox1Change(Sender: TObject);
    procedure DBEdit2Change(Sender: TObject);
    procedure DBEdit3Change(Sender: TObject);
    procedure DBEdit4Change(Sender: TObject);
    procedure DBEdit5Change(Sender: TObject);
    procedure DBEdit6Change(Sender: TObject);
    procedure DBEdit7Change(Sender: TObject);
    procedure DBEdit8Change(Sender: TObject);
    procedure DBEdit9Change(Sender: TObject);
    procedure DBEdit10Change(Sender: TObject);
    procedure DBComboBox2Change(Sender: TObject);
    procedure DBEdit11Change(Sender: TObject);
    procedure DBEdit12Change(Sender: TObject);
    procedure DBEdit13Change(Sender: TObject);
    procedure DBEdit14Change(Sender: TObject);
    procedure DBEdit15Change(Sender: TObject);
    procedure DBMemo1Change(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.DBEdit1Change(Sender: TObject);
begin
DataModule.Notify_DataChange := True;
BTNModify.Enabled := True;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

end.