unotepad.~pas

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

unit uNotepad;

interface

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

type
  TFormNotepad = class(TForm)
    GroupBox3: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    GroupBoxList: TGroupBox;
    Panel3: TPanel;
    ScrollBox1: TScrollBox;
    GroupBoxData: TGroupBox;
    ScrollBox2: TScrollBox;
    GroupBox6: TGroupBox;
    Panel2: TPanel;
    BitBtnAdd: TBitBtn;
    BitBtnDel: TBitBtn;
    BitBtnEdit: TBitBtn;
    BitBtnPost: TBitBtn;
    BitBtnCancel: TBitBtn;
    BitBtnReturn: TBitBtn;
    DBEditTitle: TDBEdit;
    DBNavigator: TDBNavigator;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    CheckBoxS: TCheckBox;
    DBMemoData: TMemo;
    GroupBox4: TGroupBox;
    EditPassword: TEdit;
    BitBtn2: TBitBtn;
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtnReturnClick(Sender: TObject);
    procedure BitBtnAddClick(Sender: TObject);
    procedure BitBtnDelClick(Sender: TObject);
    procedure BitBtnEditClick(Sender: TObject);
    procedure BitBtnPostClick(Sender: TObject);
    procedure BitBtnCancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormNotepad: TFormNotepad;
  gSeed:string;

implementation

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

{$R *.dfm}

procedure TFormNotepad.BitBtn4Click(Sender: TObject);
begin
  FormAddressList.Show;
  Close;
end;

procedure TFormNotepad.BitBtn1Click(Sender: TObject);
begin
  FormRoutine.Show;
  Close;
end;

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

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

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

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

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

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

procedure TFormNotepad.BitBtnPostClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryNotepad.Edit;
  DataModuleAssistant.ADOQueryNotepad.FieldByName('issecurity').AsBoolean:=CheckBoxS.Checked;
  DataModuleAssistant.ADOQueryNotepad.FieldByName('content').AsString:=security(DBMemoData.Text,gSeed);
  DBNavigator.BtnClick(nbPost);
  BitBtnPost.Enabled:=False;
  BitBtnCancel.Enabled:=False;
  GroupBoxData.Enabled:=False;
end;

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

procedure TFormNotepad.FormCreate(Sender: TObject);
begin
  GroupBoxList.Enabled:=False;
  DataModuleAssistant.ADOQuerySecurity.Active:=True;
  gSeed:=DataModuleAssistant.ADOQuerySecurity.FieldValues['seed'];
  DataModuleAssistant.ADOQueryNotepad.Active:=True;
  CheckBoxS.Checked:=DataModuleAssistant.ADOQueryNotepad.FieldByName('issecurity').AsBoolean;
  BitBtnPost.Enabled:=False;
  BitBtnCancel.Enabled:=False;
  if DataModuleAssistant.ADOQuerySecurity.FieldByName('notepassword').AsString='' then begin
    GroupBoxList.Enabled:=True;
    DBMemoData.Text:=security(DataModuleAssistant.ADOQueryNotepad.FieldByName('content').AsString,gSeed);
  end;  
end;

procedure TFormNotepad.DBGrid1CellClick(Column: TColumn);
begin
  CheckBoxS.Checked:=DataModuleAssistant.ADOQueryNotepad.FieldByName('issecurity').AsBoolean;
  DBMemoData.Text:=security(DataModuleAssistant.ADOQueryNotepad.FieldByName('content').AsString,gSeed);
end;

procedure TFormNotepad.BitBtn2Click(Sender: TObject);
begin
  gCount:=0;
  DataModuleAssistant.ADOQuerySecurity.Close;
  DataModuleAssistant.ADOQuerySecurity.Open;
  if DataModuleAssistant.ADOQuerySecurity.FieldByName('notepassword').AsString<>'' then
    if DataModuleAssistant.ADOQuerySecurity.FieldByName('notepassword').AsString=
      security(EditPassword.Text,DataModuleAssistant.ADOQuerySecurity.FieldByName('seed').AsString) then
    begin
      GroupBoxList.Enabled:=True;
      DBMemoData.Text:=security(DataModuleAssistant.ADOQueryNotepad.FieldByName('content').AsString,gSeed);
    end else
    if gCount<3 then
      if MessageDlg('密码不正确，请重新输入吗？',mtConfirmation,[mbYes, mbNo],0)
        =mrYes then begin
        EditPassword.SetFocus;
        Inc(gCount);
      end else Application.Terminate
    else Application.Terminate
  else begin
    GroupBoxList.Enabled:=True;
    DBMemoData.Text:=security(DataModuleAssistant.ADOQueryNotepad.FieldByName('content').AsString,gSeed);
  end;
end;

end.