alarmoption.pas

小闹钟程序

unit AlarmOption;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, DB, DBTables;

type
  TfrmAlarmOption = class(TForm)
    GroupBox1: TGroupBox;
    CtrlList: TListView;
    btn_Add: TButton;
    btn_Edit: TButton;
    btn_Delete: TButton;
    btn_OK: TButton;
    btn_Cancel: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btn_AddClick(Sender: TObject);
    procedure CtrlListClick(Sender: TObject);
    procedure btn_EditClick(Sender: TObject);
    procedure btn_DeleteClick(Sender: TObject);
    procedure btn_OKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAlarmOption: TfrmAlarmOption;

implementation
uses Calendar, Option,Control,Clock;
{$R *.dfm}

procedure TfrmAlarmOption.FormCreate(Sender: TObject);
var
    i:Integer;
    TempListItem:TListItem;
    TempControlSystem:TControlSystem;
begin
    for i:=0 to ControlModule.GetSystemCount -1 do
    begin
        TempListItem:=self.CtrlList.Items.Add;
        TempControlSystem:=ControlModule.GetSystem(i);
        TempListItem.Caption:=TempControlSystem.Memo;
        TempListItem.SubItems.Add(FormatDateTime('hh "时"mm"分"ss"秒"',TempControlSystem.Time));
        TempListItem.Data:=TempControlSystem; 
    end;
    btn_Add.Enabled:=true;
    btn_Edit.Enabled:=false;
    btn_Delete.Enabled:=false;
end;

procedure TfrmAlarmOption.btn_AddClick(Sender: TObject);
begin
    ControlModule.AddSystem;
end;

procedure TfrmAlarmOption.CtrlListClick(Sender: TObject);
begin
    if CtrlList.Selected<>nil then
    begin
        btn_Edit.Enabled:=true;
        btn_Delete.Enabled:=true;
    end
    else
    begin
        btn_Edit.Enabled:=false;
        btn_Delete.Enabled:=false;
    end;
end;

procedure TfrmAlarmOption.btn_EditClick(Sender: TObject);
var
    TempControlSystem:TControlSystem;
begin
    TempControlSystem:=CtrlList.Selected.Data;
    if TempControlSystem<>nil then
    begin
        TempControlSystem.ShowProp;
    end;
end;

procedure TfrmAlarmOption.btn_DeleteClick(Sender: TObject);
var
    TempControlSystem:TControlSystem;
begin
    if CtrlList.Selected=nil then exit;
    TempControlSystem:=CtrlList.Selected.Data;
    if TempControlSystem<>nil then
    begin
        ControlModule.DelSystem(TempControlSystem);
    end;
end;

procedure TfrmAlarmOption.btn_OKClick(Sender: TObject);
begin
    ModalResult:=mrOK;
end;

end.