task.pas

if you want to program an alert task like ardv

unit Task;

interface

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

type
  TTaskForm = class(TForm)
    TaskNumL: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    NameE: TEdit;
    DescriptionM: TMemo;
    DateEndDTP: TDateTimePicker;
    TimeEndME: TMaskEdit;
    GroupBox1: TGroupBox;
    AlertCB: TCheckBox;
    AlertPCB: TCheckBox;
    Label5: TLabel;
    IntervalCB: TComboBox;
    GroupBox2: TGroupBox;
    CheckBox1: TCheckBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label6: TLabel;
    DateBeginDTP: TDateTimePicker;
    Label7: TLabel;
    TimeBeginME: TMaskEdit;
    OKBtn: TSpeedButton;
    CancelBtn: TSpeedButton;
    MaskEdit1: TMaskEdit;
    Timer1: TTimer;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure CancelBtnClick(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
    procedure AlertCBClick(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure IntervalCBChange(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
  public
    procedure Clear;
    function NewTask: Boolean;
    function EditTask(ID: Integer): Boolean;
    function AntiComa(S: string): string;
    function TimeToSecond(S: string): Integer;
  end;

var
  TaskForm: TTaskForm;

implementation

uses Main, DateUtils, DB;

{$R *.dfm}

{ TTaskForm }

function TTaskForm.EditTask(ID: Integer): Boolean;
var
 A, AA, AT, ATO, R, Alerted: string;
 tmp: Integer;
begin
  Clear;
  Timer1.Enabled := false;
  with MainForm do begin
    ADOQuery1.SQL.Text := 'select * from Tasks where id=' + IntToStr(ID);
    ADOQuery1.Open;
    TaskNumL.Caption := '青溧龛