uscheme.pas

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

unit uScheme;

interface

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

type
  TFormScheme = class(TForm)
    GroupBox3: TGroupBox;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    GroupBox2: TGroupBox;
    Panel3: TPanel;
    ScrollBox1: TScrollBox;
    GroupBoxData: TGroupBox;
    ScrollBox2: TScrollBox;
    GroupBox5: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    CheckBox1: TCheckBox;
    MaskEdit3: TMaskEdit;
    CheckBox2: TCheckBox;
    MaskEdit4: TMaskEdit;
    Panel2: TPanel;
    BitBtnAdd: TBitBtn;
    BitBtnDel: TBitBtn;
    BitBtnEdit: TBitBtn;
    BitBtnPost: TBitBtn;
    BitBtnCancel: TBitBtn;
    BitBtnReturn: TBitBtn;
    DateTimePickerST: TDateTimePicker;
    DateTimePickerET: TDateTimePicker;
    GroupBox6: TGroupBox;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    DateTimePickerS: TDateTimePicker;
    DateTimePickerE: TDateTimePicker;
    BitBtn1: TBitBtn;
    DBNavigator: TDBNavigator;
    DBRadioGStateroup: TDBRadioGroup;
    DBEdit1: TDBEdit;
    DBMemo1: TDBMemo;
    DBGrid1: TDBGrid;
    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 BitBtnDelClick(Sender: TObject);
    procedure BitBtnEditClick(Sender: TObject);
    procedure BitBtnPostClick(Sender: TObject);
    procedure BitBtnCancelClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormCreate(Sender: TObject);
    procedure DateTimePickerSChange(Sender: TObject);
    procedure DateTimePickerEChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormScheme: TFormScheme;

implementation

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

{$R *.dfm}

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

procedure TFormScheme.BitBtn3Click(Sender: TObject);
begin
  FormRoutine.Show;
  Close;
end;

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

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

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

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

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

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

procedure TFormScheme.BitBtnPostClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryScheme.Edit;
  DataModuleAssistant.ADOQueryScheme.FieldByName('startdate').AsDateTime:=DateTimePickerST.Date;
  DataModuleAssistant.ADOQueryScheme.FieldByName('enddate').AsDateTime:=DateTimePickerET.Date;
  DBNavigator.BtnClick(nbPost);
  BitBtnPost.Enabled:=False;
  BitBtnCancel.Enabled:=False;
  GroupBoxData.Enabled:=False;
end;

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

procedure TFormScheme.DBGrid1CellClick(Column: TColumn);
begin
  DateTimePickerST.Date:=DataModuleAssistant.ADOQueryScheme.FieldValues['startdate'];
  DateTimePickerET.Date:=DataModuleAssistant.ADOQueryScheme.FieldValues['enddate'];
end;

procedure TFormScheme.FormCreate(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryScheme.Active:=True;
  DateTimePickerST.Date:=DataModuleAssistant.ADOQueryScheme.FieldValues['startdate'];
  DateTimePickerET.Date:=DataModuleAssistant.ADOQueryScheme.FieldValues['enddate'];
  BitBtnPost.Enabled:=False;
  BitBtnCancel.Enabled:=False;
end;

procedure TFormScheme.DateTimePickerSChange(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryScheme.Close;
  DataModuleAssistant.ADOQueryScheme.SQL.Clear;
  DataModuleAssistant.ADOQueryScheme.SQL.Add('select * from scheme');
  DataModuleAssistant.ADOQueryScheme.SQL.Add('where startdate >='+DatetoStr(DateTimePickerS.Date));
  DataModuleAssistant.ADOQueryScheme.SQL.Add('and enddate <='+DatetoStr(DateTimePickerE.Date));
  DataModuleAssistant.ADOQueryScheme.Open;
end;

procedure TFormScheme.DateTimePickerEChange(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryScheme.Close;
  DataModuleAssistant.ADOQueryScheme.SQL.Clear;
  DataModuleAssistant.ADOQueryScheme.SQL.Add('select * from scheme');
  DataModuleAssistant.ADOQueryScheme.SQL.Add('where startdate >='+DatetoStr(DateTimePickerS.Date));
  DataModuleAssistant.ADOQueryScheme.SQL.Add('and enddate <='+DatetoStr(DateTimePickerE.Date));
  DataModuleAssistant.ADOQueryScheme.Open;
end;

end.