【delphi开源代码栏目提醒】：网学会员--在 delphi开源代码编辑为广大网友搜集整理了：CloseBFUnit.pas绩等信息，祝愿广大网友取得需要的信息，参考学习。

    unit CloseBFUnit;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, Buttons, ExtCtrls;
    
    type
      TCloseBFForm = class(TForm)
        Panel1: TPanel;
        Label2: TLabel;
        GroupBox1: TGroupBox;
        CheckBox1: TCheckBox;
        CheckBox2: TCheckBox;
        CheckBox3: TCheckBox;
        CheckBox4: TCheckBox;
        CheckBox5: TCheckBox;
        CheckBox6: TCheckBox;
        CheckBox7: TCheckBox;
        CheckBox8: TCheckBox;
        CheckBox9: TCheckBox;
        Label3: TLabel;
        Label4: TLabel;
        Panel2: TPanel;
        SpeedButton3: TSpeedButton;
        SpeedButton1: TSpeedButton;
        SpeedButton2: TSpeedButton;
        CheckBox10: TCheckBox;
        SaveMemo: TMemo;
        InFLabel: TLabel;
        procedure Label3Click(Sender: TObject);
        procedure Label4Click(Sender: TObject);
        procedure SpeedButton1Click(Sender: TObject);
        procedure SpeedButton2Click(Sender: TObject);
        procedure SpeedButton3Click(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      CloseBFForm: TCloseBFForm;
    
    implementation
    
    uses Plate;
    
    {$R *.dfm}
    
    procedure TCloseBFForm.Label3Click(Sender: TObject);
    begin
    CheckBox1.Checked:=True;CheckBox2.Checked:=True;
    CheckBox3.Checked:=True;CheckBox4.Checked:=True;
    CheckBox5.Checked:=True;CheckBox6.Checked:=True;
    CheckBox7.Checked:=True;CheckBox8.Checked:=True;
    end;
    
    procedure TCloseBFForm.Label4Click(Sender: TObject);
    begin
    CheckBox1.Checked:=False;CheckBox2.Checked:=False;
    CheckBox3.Checked:=False;CheckBox4.Checked:=False;
    CheckBox5.Checked:=False;CheckBox6.Checked:=False;
    CheckBox7.Checked:=False;CheckBox8.Checked:=False;
    end;
    
    procedure TCloseBFForm.SpeedButton1Click(Sender: TObject);
    begin
    Plate.SystemClose:=TRUE;
    PlateFixerSystem.Close;
    end;
    
    procedure TCloseBFForm.SpeedButton2Click(Sender: TObject);
    begin
    PlateFixerSystem.Enabled:=True;
    CloseBFForm.Hide;
    end;
    
    procedure TCloseBFForm.SpeedButton3Click(Sender: TObject);
    var
      FilePas:string;
      i:integer;
    begin
      if CheckBox9.Checked then begin
        InFLabel.Caption:='正在进行数据备份...';
        PlateFixerSystem.BeiFenData;
        InFLabel.Caption:='数据成功备份';
      end;
      InFLabel.Caption:='正在进行数据更新...';
      FilePas:=ExtractFilePath(Application.ExeName)+'\Data\';
      SaveMemo.Lines.LoadFromFile(FilePas+'CoNumber.clr');
      if CheckBox1.Checked then
      begin
        SaveMemo.Lines[6]:=FloatToStr(HLSColor[7]);
        SaveMemo.Lines[7]:=FloatToStr(HLSColor[8]);
        SaveMemo.Lines[8]:=FloatToStr(HLSColor[9]);
      end;
      if CheckBox2.Checked then
      begin
        SaveMemo.Lines[3]:=FloatToStr(HLSColor[4]);
        SaveMemo.Lines[4]:=FloatToStr(HLSColor[5]);
        SaveMemo.Lines[5]:=FloatToStr(HLSColor[6]);
      end;
      if CheckBox3.Checked then
      begin
        SaveMemo.Lines[9]:=FloatToStr(HLSColor[10]);
        SaveMemo.Lines[10]:=FloatToStr(HLSColor[11]);
        SaveMemo.Lines[11]:=FloatToStr(HLSColor[12]);
      end;
      if CheckBox4.Checked then
      begin
        SaveMemo.Lines[0]:=FloatToStr(HLSColor[1]);
        SaveMemo.Lines[1]:=FloatToStr(HLSColor[2]);
        SaveMemo.Lines[2]:=FloatToStr(HLSColor[3]);
      end;
      SaveMemo.Lines.SaveToFile(FilePas+'CoNumber.clr');
      SaveMemo.Clear;
      SaveMemo.Lines.LoadFromFile(FilePas+'JUNum.clr');
      if CheckBox5.Checked then
      begin
        SaveMemo.Lines[1]:=PlateFixerSystem.PLMaxEdit.Text;
        SaveMemo.Lines[2]:=PlateFixerSystem.PLMinEdit.Text;
        SaveMemo.Lines[3]:=PlateFixerSystem.PWMaxEdit.Text;
        SaveMemo.Lines[4]:=PlateFixerSystem.PWMinEdit.Text;
        SaveMemo.Lines[5]:=PlateFixerSystem.LWBEdit.Text;
      end;
      if CheckBox6.Checked then
      begin
        saveMemo.Lines[0]:=PlateFixerSystem.NewDcolorEdit.Text;
      end;
      if CheckBox7.Checked then
      begin
        SaveMemo.Lines[6]:=PlateFixerSystem.NewAEdit.Text;
        SaveMemo.Lines[7]:=PlateFixerSystem.NewBEdit.Text;
        SaveMemo.Lines[8]:=PlateFixerSystem.NewCEdit.Text;
      end;
      SaveMemo.Lines.SaveToFile(FilePas+'JUNum.clr');
      if CheckBox8.Checked then
      begin
        SaveMemo.Clear;
        SaveMemo.Lines.Add(PlateFixerSystem.BiLiEdit.Text);
        SaveMemo.Lines.SaveToFile(FilePas+'proportional.clr');
      end;
      InFLabel.Caption:='数据成功更新.';
      if CheckBox10.Checked then
      begin
       InFLabel.Caption:='正在进行统计数据保存...';
        PlateFixerSystem.WhiteMemo.Lines.SaveToFile(FilePas+'White.HLW');
        PlateFixerSystem.BlueMemo.Lines.SaveToFile(FilePas+'Blue.HLW');
        PlateFixerSystem.YellowMemo.Lines.SaveToFile(FilePas+'Yellow.HLW');
        PlateFixerSystem.BlackMemo.Lines.SaveToFile(FilePas+'Black.HLW');
        InFLabel.Caption:='统计数据保存完毕.';
      end;
      InFLabel.Caption:='正在关闭系统...';
      Plate.SystemClose:=TRUE;
      PlateFixerSystem.Close;
    end;
    
    procedure TCloseBFForm.FormClose(Sender: TObject;
      var Action: TCloseAction);
    begin
     PlateFixerSystem.Enabled:=True;
      CloseBFForm.Hide;
    end;
    
    end.
    

上一篇：DOCKTOOLBAR.CPP
下一篇：应用数学学报编辑部联系方式