ualarm.pas

来自「Delphi写的小型桌面日历不错的！」· PAS 代码 · 共 71 行

unit UAlarm;

interface

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

type
  TFAlarm = class(TForm)
    startTime: TDateTimePicker;
    EndTime: TDateTimePicker;
    edt_Title: TEdit;
    edt_who: TEdit;
    content: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    ADOConn: TADOConnection;
    tb_client: TADOTable;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SetStartTime(t:TDateTime);
  end;

var
  FAlarm: TFAlarm;

implementation

{$R *.dfm}

procedure TFAlarm.FormCreate(Sender: TObject);
begin
  StartTime.DateTime:=now;
  EndTime.DateTime:=now;
end;

procedure TFAlarm.SetStartTime(t:TDateTime);
begin
  StartTime.DateTime:=t;
  EndTime.DateTime:=t;
end;

procedure TFAlarm.BitBtn1Click(Sender: TObject);
begin
  with tb_client do
  begin
    Open;
    Insert;
    fieldValues['StartTime']:=StartTime.DateTime;
    fieldValues['EndTime']:=EndTime.DateTime;
    FieldValues['Title']:=edt_title.Text;
    fieldValues['Name']:=edt_who.Text;
    fieldValues['content']:=content.Text;
    Post;
    close;
  end;
end;

end.