db_backupschedule.pas

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

unit DB_BackupSchedule;

{
代码单元名称：通用数据库备份工具备份时间选择窗口
从属软件：大连资金清算中心打码机管理信息系统
开发单位：大连理工大学计算机技术研究所软件工程研究室
作者：王树润
时间：2001,2,3
}

interface

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

type
  TDB_DfmBackupSchedule = class(TForm)
    GroupBox1: TGroupBox;
    FixTimeRadioButton: TRadioButton;
    CycleRadioButton: TRadioButton;
    FixDateDateTimePicker: TDateTimePicker;
    FixTimeDateTimePicker: TDateTimePicker;
    CycleTimeDateTimePicker: TDateTimePicker;
    Button1: TButton;
    Button2: TButton;
    CycleTypeComboBox: TComboBox;
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    BackupTimeType: string;
    BackupTime: string;
  end;

implementation

{$R *.DFM}

procedure TDB_DfmBackupSchedule.FormShow(Sender: TObject);
begin
  CycleRadioButton.Checked := True;
  CycleTypeComboBox.ItemIndex := 0;
end;

procedure TDB_DfmBackupSchedule.Button2Click(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

procedure TDB_DfmBackupSchedule.Button1Click(Sender: TObject);
begin
  if FixTimeRadioButton.Checked = True then
  begin
    BackupTimeType := 'fix';
    BackupTime := DateToStr(FixDateDateTimePicker.Date) + ' ' +
      TimeToStr(FixTimeDateTimePicker.Time);
    if Pos('-', BackupTime) = 0 then
    begin
      ShowMessage('计算机日期显示格式不匹配，请设成<1111-11-11>格式');
      Exit;
    end;
  end
  else if (CycleRadioButton.Checked = True) and (CycleTypeComboBox.ItemIndex = 0)
    then
  begin
    BackupTimeType := 'cycleday';
    BackupTime := TimeToStr(CycleTimeDateTimePicker.Time);
  end
  else if (CycleRadioButton.Checked = True) and (CycleTypeComboBox.ItemIndex = 1)
    then
  begin
    BackupTimeType := 'cyclemonth';
    BackupTime := DateToStr(Date);
    if Pos('-', BackupTime) = 0 then
    begin
      ShowMessage('计算机日期显示格式不匹配，请设成<1111-11-11>格式');
      Exit;
    end;
    BackupTime := Copy(BackupTime, Pos('-', BackupTime) + 1,
      Length(BackupTime));
    BackupTime := Copy(BackupTime, Pos('-', BackupTime) + 1,
      Length(BackupTime));
    BackupTime := Trim(BackupTime) + ' ' +
      TimeToStr(CycleTimeDateTimePicker.Time);
  end
  else if (CycleRadioButton.Checked = True) and (CycleTypeComboBox.ItemIndex = 2)
    then
  begin
    BackupTimeType := 'cyclequarter';
    BackupTime := DateToStr(Date);
    if Pos('-', BackupTime) = 0 then
    begin
      ShowMessage('计算机日期显示格式不匹配，请设成<1111-11-11>格式');
      Exit;
    end;
    BackupTime := Copy(BackupTime, Pos('-', BackupTime) + 1,
      Length(BackupTime));
    BackupTime := Trim(BackupTime) + ' ' +
      TimeToStr(CycleTimeDateTimePicker.Time);
  end
  else if (CycleRadioButton.Checked = True) and (CycleTypeComboBox.ItemIndex = 3)
    then
  begin
    BackupTimeType := 'cycleyear';
    BackupTime := DateToStr(Date);
    if Pos('-', BackupTime) = 0 then
    begin
      ShowMessage('计算机日期显示格式不匹配，请设成<1111-11-11>格式');
      Exit;
    end;
    BackupTime := Copy(BackupTime, Pos('-', BackupTime) + 1,
      Length(BackupTime));
    BackupTime := Trim(BackupTime) + ' ' +
      TimeToStr(CycleTimeDateTimePicker.Time);
  end
  else
    Exit;
  ModalResult := mrOK;
end;

end.