unit3.~pas

实现了断路器群控系统

unit Unit3;

interface

uses
  IniFiles, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, ExtCtrls;

type
  TForm3 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Label2: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    Button2: TButton;
    Bevel1: TBevel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  g_connection : TAdoConnection = nil; //与数据库的连接对象，供系统中其他数据控件与数据库连接使用
  Bresult: boolean =True;


implementation

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);
var
  strpath:string;     //配置文件路径
  strsyspara:Tinifile;  //系统特殊数据存放文件

begin
  strpath := ExtractFilePath(Application.ExeName);
  strsyspara := Tinifile.Create(strpath+'shenchang_CONFIG.INI');
  if NOT FileExists(strpath+'shenchang_CONFIG.INI')  then
     begin
            showmessage('警告：系统配置文件不存在！');
            Bresult:=False;
            Exit;
     end;
  g_connection:=TADOConnection.Create(nil);
  g_connection.ConnectionString:=strsyspara.ReadString('system','connectionstring','');
  g_connection.LoginPrompt := False;
  g_connection.Open;

  //self.ADOCommand1.Connection := g_Connection;
  self.ADODataSet1.Connection := g_Connection;

end;


procedure TForm3.Button1Click(Sender: TObject);
var
  dianliu:integer;
  strSql:string;
begin
if Edit1.Text='' then
    begin
    showMessage('请输入电流值！');
    Edit1.SetFocus;
    exit;
    end;

    if (radiobutton1.Checked = false) and (radiobutton2.Checked = false)  and (radiobutton3.Checked = false) then
    begin
      showmessage('请选择断路器！');
      exit;
    end
    else if radiobutton1.Checked  then
    begin
      strSql:='select 最大额定电流 from dbo.断路器的基本信息表 where 名称=';
      strSql:= strSql+''''+'断路器1'+'''';
      self.ADODataSet1.Active := false;
      self.ADODataSet1.CommandText :=strSql;
      self.ADODataSet1.Active := true;
      dianliu:= self.ADODataSet1.FieldValues['最大额定电流'];
    if strtoint(Edit1.Text) <= dianliu then
      begin
        strSql:='select * from dbo.电流设定值表 where 断路器名称=';
        strSql:= strSql+''''+'断路器1'+'''';
        self.ADODataSet1.Active := false;
        self.ADODataSet1.CommandText :=strSql;
        self.ADODataSet1.Active := true;
        self.ADODataSet1.Edit;
        self.ADODataSet1.FieldValues['编号'] := '1';
        self.ADODataSet1.FieldValues['断路器名称'] := '断路器1';
        self.ADODataSet1.FieldValues['最大负载电流值'] := strtoint(Edit1.Text);
        self.ADODataSet1.Post;
      end
    else
      begin
        showMessage('设定值不能超过额定电流！');
        exit;
      end
    end

    else if radiobutton2.Checked  then
    begin
      strSql:='select 最大额定电流 from dbo.断路器的基本信息表 where 名称=';
      strSql:= strSql+''''+'断路器2'+'''';
      self.ADODataSet1.Active := false;
      self.ADODataSet1.CommandText :=strSql;
      self.ADODataSet1.Active := true;
      dianliu:= self.ADODataSet1.FieldValues['最大额定电流'];
    if strtoint(Edit1.Text) <= dianliu then
      begin
        strSql:='select * from dbo.电流设定值表 where 断路器名称=';
        strSql:= strSql+''''+'断路器2'+'''';
        self.ADODataSet1.Active := false;
        self.ADODataSet1.CommandText :=strSql;
        self.ADODataSet1.Active := true;
        self.ADODataSet1.Edit;
        self.ADODataSet1.FieldValues['编号'] := '2';
        self.ADODataSet1.FieldValues['断路器名称'] := '断路器2';
        self.ADODataSet1.FieldValues['最大负载电流值'] := strtoint(Edit1.Text);
        self.ADODataSet1.Post;
      end
    else
      begin
        showMessage('设定值不能超过额定电流！');
        exit;
      end
    end

    else if radiobutton3.Checked  then
    begin
      strSql:='select 最大额定电流 from dbo.断路器的基本信息表 where 名称=';
      strSql:= strSql+''''+'断路器3'+'''';
      self.ADODataSet1.Active := false;
      self.ADODataSet1.CommandText :=strSql;
      self.ADODataSet1.Active := true;
      dianliu:= self.ADODataSet1.FieldValues['最大额定电流'];
    if strtoint(Edit1.Text) <= dianliu then
      begin
        strSql:='select * from dbo.电流设定值表 where 断路器名称=';
        strSql:= strSql+''''+'断路器3'+'''';
        self.ADODataSet1.Active := false;
        self.ADODataSet1.CommandText :=strSql;
        self.ADODataSet1.Active := true;
        self.ADODataSet1.Edit;
        self.ADODataSet1.FieldValues['编号'] := '3';
        self.ADODataSet1.FieldValues['断路器名称'] := '断路器3';
        self.ADODataSet1.FieldValues['最大负载电流值'] := strtoint(Edit1.Text);
        self.ADODataSet1.Post;
      end
    else
      begin
        showMessage('设定值不能超过额定电流！');
        exit;
      end
    end;
    showmessage('新电流值设定成功！');

end;

procedure TForm3.Button2Click(Sender: TObject);
begin
   close;
end;

end.