sqsd_set.pas

完成虚拟的多功能电能表

unit sqsd_set;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, Buttons, ExtCtrls,combas,IniFiles;

type
  TsqsdForm = class(TForm)
    Bevel1: TBevel;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    SpeedButton1: TSpeedButton;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    GroupBox2: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    SpeedButton2: TSpeedButton;
    ComboBox3: TComboBox;
    DateTimePicker1: TDateTimePicker;
    ListBox2: TListBox;
    CheckBox1: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sqsdForm: TsqsdForm;

implementation

{$R *.DFM}

procedure TsqsdForm.FormCreate(Sender: TObject);
var
 tmpini:TIniFile;
begin
 tmpini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'hyyb.ini');
 CheckBox1.Checked:=tmpini.ReadBool('多功能参数','SD_WRITE_MODE',True);
 tmpini.Free;
 ComboBox1.ItemIndex:=0;
 ComboBox2.ItemIndex:=0;
 try
  ListBox2.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+'sqsd_set.dat');
 except
 end;
end;

procedure TsqsdForm.SpeedButton1Click(Sender: TObject);
var
 i,tmpnum:Integer;

begin
if ListBox2.Items.Count>0 then
 if leftstr(ListBox2.Items[ListBox2.Items.Count-1],2)='第' then begin
  Application.MessageBox('请先设置上一时区的时段！','时区设置',mb_ICONEXCLAMATION);
  exit;
 end;
tmpnum:=0;
for i:=0 to ListBox2.Items.Count-1 do
 if leftstr(ListBox2.Items[i],2)='第' then
  Inc(tmpnum);
ListBox2.Items.Add('第'+IntToStr(tmpnum+1)+'时区---起始日期：'+ComboBox1.Text+'月'+ComboBox2.Text+'日');
SpeedButton7.Enabled:=True;
end;

procedure TsqsdForm.SpeedButton2Click(Sender: TObject);
var
 i,tmpnum:Integer;
begin
tmpnum:=0;
for i:=0 to ListBox2.Items.Count-1 do
 if leftstr(ListBox2.Items[i],2)='第' then
  Inc(tmpnum);
if tmpnum=0 then begin
 Application.MessageBox('请先设置时区！','时段设置',mb_ICONEXCLAMATION);
 exit;
end;
ListBox2.Items.Add('------费率：'+ComboBox3.Text+'------'+FormatDateTime('hh":"mm',DateTimePicker1.Time));
SpeedButton7.Enabled:=True;
end;

procedure TsqsdForm.SpeedButton4Click(Sender: TObject);
begin
 ListBox2.Items.Clear;
 SpeedButton7.Enabled:=True;
end;

procedure TsqsdForm.SpeedButton5Click(Sender: TObject);
begin
if ListBox2.ItemIndex>=0 then begin
 ListBox2.Items.Delete(ListBox2.ItemIndex);
 SpeedButton7.Enabled:=True;
end;
end;

procedure TsqsdForm.SpeedButton6Click(Sender: TObject);
begin
Close;
end;

procedure TsqsdForm.SpeedButton7Click(Sender: TObject);
var
  tmpini:TIniFile;
begin
  tmpini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'hyyb.ini');
  tmpini.WriteBool('多功能参数','SD_WRITE_MODE',CheckBox1.Checked);
  tmpini.Free;
  ListBox2.Items.SaveToFile(ExtractFilePath(Application.ExeName)+'sqsd_set.dat');
  Close;       
end;

procedure TsqsdForm.CheckBox1Click(Sender: TObject);
begin
SpeedButton7.Enabled:=True;
end;

end.