unitfrmsetuptime.pas

改写的sql2000管理器

UNIT UnitFrmSetupTime;

INTERFACE

USES
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, IniFiles, Mask, RzEdit, FileCtrl, RzSpnEdt, RzRadChk, RzCmboBx,
  RzButton;

TYPE
  TFrmSetupTime=CLASS(TForm)
    Bevel1:TBevel;
    Label1:TLabel;
    RBtnNone: TRzRadioButton;
    RBtnEveryTime: TRzRadioButton;
    RBtnEveryDay: TRzRadioButton;
    RBtnEveryWeek: TRzRadioButton;
    RBtnEveryMonth: TRzRadioButton;
    Bevel2:TBevel;
    Label2:TLabel;
    Label3:TLabel;
    Label4:TLabel;
    Label5:TLabel;
    CmbWeek: TRzComboBox;
    EdtDay:TRzSpinEdit;
    EdtTime:TRzSpinEdit;
    EdtMinute:TRzSpinEdit;
    Label6:TLabel;
    BitBtn1: TRzBitBtn;
    BitBtn2: TRzBitBtn;
    btnPath: TRzButton;
    Bevel3:TBevel;
    Label7:TLabel;
    Label8:TLabel;
    ComboBox1: TRzComboBox;
    Label9:TLabel;
    CheckBox1: TRzCheckBox;
    CheckBox2: TRzCheckBox;
    Bevel4:TBevel;
    Label10:TLabel;
    PROCEDURE RBtnNoneClick(Sender:TObject);
    PROCEDURE RBtnEveryTimeClick(Sender:TObject);
    PROCEDURE RBtnEveryDayClick(Sender:TObject);
    PROCEDURE RBtnEveryWeekClick(Sender:TObject);
    PROCEDURE RBtnEveryMonthClick(Sender:TObject);
    PROCEDURE BitBtn1Click(Sender:TObject);
    PROCEDURE FormCreate(Sender:TObject);
    PROCEDURE BitBtn2Click(Sender:TObject);
    PROCEDURE btnPathClick(Sender:TObject);
    PROCEDURE ComboBox1Change(Sender:TObject);
    PROCEDURE CheckBox1Click(Sender:TObject);
    PROCEDURE CheckBox2Click(Sender:TObject);
  PRIVATE
    { Private declarations }
    FilePath:STRING;
    BackupType, EveryTime, EveryDay, EveryMonth:integer;
    EveryWeek:STRING;
    ServerName, DatabaseName, UserName, Password:STRING;
    BackupIniFile:TInifile;
  PUBLIC
    { Public declarations }
    sSavePath:STRING;
  END;

VAR
  FrmSetupTime:TFrmSetupTime;

IMPLEMENTATION

USES Main;

{$R *.dfm}

PROCEDURE TFrmSetupTime.RBtnNoneClick(Sender:TObject);
BEGIN
  IF RBtnNone.Checked THEN
  BEGIN
    CmbWeek.Enabled:=False;
    EdtDay.Enabled:=False;
    EdtTime.Enabled:=False;
    EdtMinute.Enabled:=False;
    BackupType:=0;
  END;
END;

PROCEDURE TFrmSetupTime.RBtnEveryTimeClick(Sender:TObject);
BEGIN
  IF RBtnEveryTime.Checked THEN
  BEGIN
    CmbWeek.Enabled:=False;
    EdtDay.Enabled:=False;
    EdtTime.Enabled:=False;
    EdtMinute.Enabled:=True;
    BackupType:=1;
  END;
END;

PROCEDURE TFrmSetupTime.RBtnEveryDayClick(Sender:TObject);
BEGIN
  IF RBtnEveryDay.Checked THEN
  BEGIN
    CmbWeek.Enabled:=False;
    EdtDay.Enabled:=False;
    EdtTime.Enabled:=True;
    EdtMinute.Enabled:=True;
    BackupType:=2;
  END;
END;

PROCEDURE TFrmSetupTime.RBtnEveryWeekClick(Sender:TObject);
BEGIN
  IF RBtnEveryWeek.Checked THEN
  BEGIN
    CmbWeek.Enabled:=True;
    EdtDay.Enabled:=False;
    EdtTime.Enabled:=True;
    EdtMinute.Enabled:=True;
    BackupType:=3;
  END;
END;

PROCEDURE TFrmSetupTime.RBtnEveryMonthClick(Sender:TObject);
BEGIN
  IF RBtnEveryMonth.Checked THEN
  BEGIN
    CmbWeek.Enabled:=False;
    EdtDay.Enabled:=True;
    EdtTime.Enabled:=True;
    EdtMinute.Enabled:=True;
    BackupType:=4;
  END;
END;

PROCEDURE TFrmSetupTime.BitBtn1Click(Sender:TObject);
BEGIN
  TRY
    BackupIniFile.WriteInteger('Backup', 'BackupType', BackupType);
    BackupIniFile.WriteInteger('Backup', 'EveryTime', EdtMinute.IntValue);
    BackupIniFile.WriteInteger('Backup', 'EveryDay', EdtTime.IntValue);
    BackupIniFile.WriteInteger('Backup', 'EveryWeek', StrToInt(Trim(CmbWeek.Text)));
    BackupIniFile.WriteInteger('Backup', 'EveryMonth', EdtDay.IntValue);

    MainForm.BackupType:=BackupType;
    MainForm.EveryTime:=EdtMinute.IntValue;
    MainForm.EveryDay:=EdtTime.IntValue;
    MainForm.EveryMonth:=EdtDay.IntValue;
    MainForm.EveryWeek:=StrToInt(Trim(CmbWeek.Text));
    Close;
    //BackupType,EveryTime,EveryDay,EveryWeek,EveryMonth:integer;
  EXCEPT
    MessageBox(handle, '保存数据错误！', '错误', mb_IconWarning+mb_Ok);
    Exit;
  END;
END;

PROCEDURE TFrmSetupTime.FormCreate(Sender:TObject);
BEGIN
  //建立ini文件对象
  FilePath:=ExtractFilePath(Application.ExeName)+'pm6.ini';
  BackupIniFile:=TInifile.Create(FilePath);
  BackupType:=BackupIniFile.ReadInteger('Backup', 'BackupType', 0);
  EveryTime:=BackupIniFile.ReadInteger('Backup', 'EveryTime', 0);
  EveryDay:=BackupIniFile.ReadInteger('Backup', 'EveryDay', 0);
  EveryWeek:=BackupIniFile.ReadString('Backup', 'EveryWeek', '');
  EveryMonth:=BackupIniFile.ReadInteger('Backup', 'EveryMonth', 0);
  self.CheckBox2.Checked:=BackupIniFile.ReadBool('系统数据库', '备份提示', True);
  CASE BackupType OF
    0:
      BEGIN                             //不备份
        RBtnNone.Checked:=True;
        RBtnNoneClick(RBtnNone);
      END;
    1:
      BEGIN                             //每小时
        RBtnEveryTime.Checked:=True;
        RBtnEveryTimeClick(RBtnEveryTime);
        EdtMinute.Value:=EveryTime;
      END;
    2:
      BEGIN                             //每天
        RBtnEveryDay.Checked:=True;
        RBtnEveryDayClick(RBtnEveryDay);
        EdtTime.Value:=EveryDay;
        EdtMinute.Value:=EveryTime;
      END;
    3:
      BEGIN                             //每周
        RBtnEveryWeek.Checked:=True;
        RBtnEveryWeekClick(RBtnEveryWeek);
        CmbWeek.Text:=EveryWeek;
      END;
    4:
      BEGIN                             //每月
        RBtnEveryMonth.Checked:=True;
        RBtnEveryMonthClick(RBtnEveryMonth);
        EdtDay.Value:=EveryMonth;
      END;
  END;
END;

PROCEDURE TFrmSetupTime.BitBtn2Click(Sender:TObject);
BEGIN
  Close;
END;

PROCEDURE TFrmSetupTime.btnPathClick(Sender:TObject);
BEGIN
  SelectDirectory('请选择：', '', sSavePath);
END;

PROCEDURE TFrmSetupTime.ComboBox1Change(Sender:TObject);
BEGIN
  BackupIniFile.WriteString('系统数据库', 'SaveDB', self.ComboBox1.Text);
  self.Label9.Caption:=self.ComboBox1.Text;
END;

PROCEDURE TFrmSetupTime.CheckBox1Click(Sender:TObject);
BEGIN
  self.ComboBox1.Enabled:=self.CheckBox1.Checked;
END;

PROCEDURE TFrmSetupTime.CheckBox2Click(Sender:TObject);
BEGIN
  BackupIniFile.WriteBool('系统数据库', '备份提示', self.CheckBox2.Checked);
END;

END.