uaddresslist.~pas

自己写的一个用于管理通讯录、记事、计划管理等的小程序。

unit uAddressList;

interface

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

type
  TFormAddressList = class(TForm)
    DBNavigator: TDBNavigator;
    Panel1: TPanel;
    BitBtnFirst: TBitBtn;
    BitBtnPre: TBitBtn;
    BitBtnNext: TBitBtn;
    BitBtnEnd: TBitBtn;
    BitBtnAdd: TBitBtn;
    BitBtnDel: TBitBtn;
    BitBtnEdit: TBitBtn;
    BitBtnPost: TBitBtn;
    BitBtnCancel: TBitBtn;
    GroupBoxList: TGroupBox;
    DBGrid1: TDBGrid;
    BitBtnReturn: TBitBtn;
    GroupBoxData: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    DBEditName: TDBEdit;
    DBEditMT: TDBEdit;
    DBEditHT: TDBEdit;
    DBEditOTT: TDBEdit;
    DBEditQQ: TDBEdit;
    DBEditHA: TDBEdit;
    DBEditDEP: TDBEdit;
    DBEditPas: TDBEdit;
    DBEditOT: TDBEdit;
    DBEditEMail: TDBEdit;
    DBEditMSN: TDBEdit;
    DBEdit1MA: TDBEdit;
    DBEditMemo: TDBEdit;
    GroupBox2: TGroupBox;
    Label15: TLabel;
    Label16: TLabel;
    EditSName: TEdit;
    BitBtnSearch: TBitBtn;
    ComboBoxSClasee: TComboBox;
    a: TButton;
    b: TButton;
    c: TButton;
    d: TButton;
    e: TButton;
    f: TButton;
    l: TButton;
    y: TButton;
    h: TButton;
    k: TButton;
    j: TButton;
    g: TButton;
    z: TButton;
    w: TButton;
    x: TButton;
    t: TButton;
    s: TButton;
    r: TButton;
    q: TButton;
    p: TButton;
    o: TButton;
    n: TButton;
    m: TButton;
    GroupBox3: TGroupBox;
    BitBtnRoutine: TBitBtn;
    BitBtnScheme: TBitBtn;
    BitBtnNote: TBitBtn;
    BitBtnSecurity: TBitBtn;
    DBComboBoxClass: TDBComboBox;
    procedure BitBtnFirstClick(Sender: TObject);
    procedure BitBtnPreClick(Sender: TObject);
    procedure BitBtnNextClick(Sender: TObject);
    procedure BitBtnEndClick(Sender: TObject);
    procedure BitBtnAddClick(Sender: TObject);
    procedure BitBtnEditClick(Sender: TObject);
    procedure BitBtnPostClick(Sender: TObject);
    procedure BitBtnCancelClick(Sender: TObject);
    procedure BitBtnDelClick(Sender: TObject);
    procedure BitBtnReturnClick(Sender: TObject);
    procedure BitBtnRoutineClick(Sender: TObject);
    procedure BitBtnSchemeClick(Sender: TObject);
    procedure BitBtnNoteClick(Sender: TObject);
    procedure BitBtnSecurityClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure EditSNameChange(Sender: TObject);
    procedure ComboBoxSClaseeChange(Sender: TObject);
    procedure BitBtnSearchClick(Sender: TObject);
    procedure aClick(Sender: TObject);
    procedure bClick(Sender: TObject);
    procedure cClick(Sender: TObject);
    procedure dClick(Sender: TObject);
    procedure eClick(Sender: TObject);
    procedure fClick(Sender: TObject);
    procedure gClick(Sender: TObject);
    procedure hClick(Sender: TObject);
    procedure jClick(Sender: TObject);
    procedure kClick(Sender: TObject);
    procedure lClick(Sender: TObject);
    procedure mClick(Sender: TObject);
    procedure nClick(Sender: TObject);
    procedure oClick(Sender: TObject);
    procedure pClick(Sender: TObject);
    procedure qClick(Sender: TObject);
    procedure rClick(Sender: TObject);
    procedure sClick(Sender: TObject);
    procedure tClick(Sender: TObject);
    procedure wClick(Sender: TObject);
    procedure xClick(Sender: TObject);
    procedure yClick(Sender: TObject);
    procedure zClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormAddressList: TFormAddressList;

implementation

uses dmAssistant,uLogin,uRoutine,uScheme,uNotepad,uSecurity;

{$R *.dfm}

procedure TFormAddressList.BitBtnFirstClick(Sender: TObject);
begin
  DBNavigator.BtnClick(nbFirst);
end;

procedure TFormAddressList.BitBtnPreClick(Sender: TObject);
begin
  DBNavigator.BtnClick(nbPrior);
end;

procedure TFormAddressList.BitBtnNextClick(Sender: TObject);
begin
  DBNavigator.BtnClick(nbNext);
end;

procedure TFormAddressList.BitBtnEndClick(Sender: TObject);
begin
  DBNavigator.BtnClick(nbLast);
end;

procedure TFormAddressList.BitBtnAddClick(Sender: TObject);
begin
  BitBtnPost.Enabled:=True;
  BitBtnCancel.Enabled:=True;
  GroupBoxData.Enabled:=True;
  DBNavigator.BtnClick(nbInsert);
end;

procedure TFormAddressList.BitBtnDelClick(Sender: TObject);
begin
  DBNavigator.BtnClick(nbDelete);
end;

procedure TFormAddressList.BitBtnEditClick(Sender: TObject);
begin
  BitBtnPost.Enabled:=True;
  BitBtnCancel.Enabled:=True;
  GroupBoxData.Enabled:=True;
  DBNavigator.BtnClick(nbEdit);
end;

procedure TFormAddressList.BitBtnPostClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Edit;
  DBNavigator.BtnClick(nbPost);
  BitBtnPost.Enabled:=False;
  BitBtnCancel.Enabled:=False;
  GroupBoxData.Enabled:=False;
end;

procedure TFormAddressList.BitBtnCancelClick(Sender: TObject);
begin
  DBNavigator.BtnClick(nbCancel);
  GroupBoxData.Enabled:=False;
end;

procedure TFormAddressList.BitBtnReturnClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TFormAddressList.BitBtnRoutineClick(Sender: TObject);
begin
  FormRoutine.Show;
  Close;
end;

procedure TFormAddressList.BitBtnSchemeClick(Sender: TObject);
begin
  FormScheme.Show;
  Close;
end;

procedure TFormAddressList.BitBtnNoteClick(Sender: TObject);
begin
  FormNotepad.Show;
  Close;
end;

procedure TFormAddressList.BitBtnSecurityClick(Sender: TObject);
begin
  FormSecurity.Show;
  Close;
end;

procedure TFormAddressList.FormCreate(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Active:=True;
  BitBtnPost.Enabled:=False;
  BitBtnCancel.Enabled:=False;
end;

procedure TFormAddressList.EditSNameChange(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;