cj_sztime.pas

亚惠快餐管理信息系统 包括亚惠快餐管理的各项功能

unit CJ_SzTime;

interface

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

type
  TFrmCJ_SzTime = class(TForm)
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
procedure SetWork;
implementation

uses CJ_DataModule;

{$R *.dfm}

procedure SetWork;
var
  FrmCJ_SzTime: TFrmCJ_SzTime;
begin
  Application.CreateForm(TFrmCJ_SzTime, FrmCJ_SzTime);
  FrmCJ_SzTime.Caption := '设置采集时间及步长';
  FrmCJ_SzTime.ShowModal;
  FrmCJ_SzTime.Free;
end;

procedure TFrmCJ_SzTime.FormShow(Sender: TObject);
begin
  DateTimePicker1.DateTime := Now;
  DateTimePicker2.DateTime := Now;
end;

procedure TFrmCJ_SzTime.Button1Click(Sender: TObject);
var
  cjdate: string;
  cjtime: string;
  cjrq: TDateTime;
begin
  cjdate := DateToStr(DateTimePicker1.Date);
  cjtime := TimeToStr(DateTimePicker2.Date);
  cjrq := StrToDateTime(cjdate + ' ' + cjtime);
  with FrmCJ_DataModule.ADOQuery2 do
  begin
    Close;
    Sql.Clear;
    Sql.Add('Delete From CJTask');
    try
      ExecSql;
    except
      ShowMessage('清空任务列表失败');
      Exit;
    end;
    Sql.Clear;
    Sql.Add('Insert into CJTask');
    Sql.Add('(采集区间,采集时间,上次采集时间,是否成功采集)');
    Sql.Add('values (');
    Sql.Add(Trim(Edit1.Text) + ',''' + DateTimeToStr(Cjrq) + ''',''' +
      DateTimeToStr(Cjrq) + ''',1)');
    try
      ExecSql;
    except
      ShowMessage('向数据库中写入采集时间失败！');
      Exit;
    end;
  end;
end;

procedure TFrmCJ_SzTime.Button2Click(Sender: TObject);
begin
  Close;
end;

end.