uroutine.pas

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

unit uRoutine;

interface

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

type
  TFormRoutine = class(TForm)
    GroupBox3: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBoxData: TGroupBox;
    Panel1: TPanel;
    MonthCalendar1: TMonthCalendar;
    Panel2: TPanel;
    BitBtnAdd: TBitBtn;
    BitBtnDel: TBitBtn;
    BitBtnEdit: TBitBtn;
    BitBtnPost: TBitBtn;
    BitBtnCancel: TBitBtn;
    BitBtnReturn: TBitBtn;
    Panel3: TPanel;
    GroupBox5: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    DBNavigator: TDBNavigator;
    Panel4: TPanel;
    DBGrid: TDBGrid;
    DBEditST: TDBEdit;
    DBMemoData: TDBMemo;
    DBRadioGStateroup: TDBRadioGroup;
    DBEditET: TDBEdit;
    DBEditSA: TDBEdit;
    DBEditEA: TDBEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtnReturnClick(Sender: TObject);
    procedure BitBtnAddClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtnDelClick(Sender: TObject);
    procedure BitBtnEditClick(Sender: TObject);
    procedure BitBtnPostClick(Sender: TObject);
    procedure BitBtnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormRoutine: TFormRoutine;

implementation

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

{$R *.dfm}

procedure TFormRoutine.BitBtn1Click(Sender: TObject);
begin
  FormAddressList.Show;
  Close;
end;

procedure TFormRoutine.BitBtn3Click(Sender: TObject);
begin
  FormScheme.Show;
  Close;
end;

procedure TFormRoutine.BitBtn4Click(Sender: TObject);
begin
  FormNotepad.Show;
  Close;
end;

procedure TFormRoutine.BitBtn5Click(Sender: TObject);
begin
  FormSecurity.Show;
  Close;
end;

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

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

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

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

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

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

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

end.