unit1.pas

实现了断路器群控系统

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    DBGrid1: TDBGrid;
    DataSource2: TDataSource;
    Button2: TButton;
    Button4: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit2: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    ADODataSet2: TADODataSet;
    Button1: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    DateTimePicker1: TDateTimePicker;
    Bevel1: TBevel;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

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

implementation

{$R *.dfm}
procedure TForm1.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.ADODataSet2.Connection := g_Connection;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
   strSql:string;

begin
   strSql:='select * from dbo.断路器的基本信息表';
   self.ADODataSet2.Active:=False;
   self.ADODataSet2.CommandText:=strSql;
   self.ADODataSet2.Active:=True;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
   strSql:string;
begin
  if (radiobutton1.Checked = false) and (radiobutton2.Checked = false)  and (radiobutton3.Checked = false) then
    begin
      showmessage('请选择断路器！');
      exit;
    end

    else if (radiobutton1.Checked = true) then
    begin
    if edit2.Text='' then begin showmessage('型号不能为空！'); exit; end;
    if edit4.Text='' then begin showmessage('生产厂家不能为空！'); exit; end;
    if edit5.Text='' then begin showmessage('电流不能为空！'); exit; end;
    if edit6.Text='' then begin showmessage('电压不能为空！'); exit; end;

      strSql:='select * from dbo.断路器的基本信息表 where 名称=';
      strSql:= strSql+''''+'断路器1'+'''';
      self.ADODataSet2.Active := false;
      self.ADODataSet2.CommandText :=strSql;
      self.ADODataSet2.Active := true;
      self.ADODataSet2.edit;
      self.ADODataSet2.FieldValues['名称'] := '断路器1';
      self.ADODataSet2.FieldValues['编号'] := '1';
      self.ADODataSet2.FieldValues['型号'] := edit2.Text;
      self.ADODataSet2.FieldValues['安装时间'] := DateTimePicker1.DateTime;
      self.ADODataSet2.FieldValues['生产厂家'] := edit4.Text;
      self.ADODataSet2.FieldValues['最大额定电流'] := edit5.Text;
      self.ADODataSet2.FieldValues['最大额定电压'] := edit6.Text;
      self.ADODataSet2.Post;
      showmessage('基本信息更新成功！');

      edit2.Text := '';
      //DateTimePicker1.DateTime := '';
      edit4.Text := '';
      edit5.Text := '';
      edit6.Text := '';

    end
    else if (radiobutton2.Checked = true) then
    begin
    if edit2.Text='' then begin showmessage('型号不能为空！'); exit; end;
    if edit4.Text='' then begin showmessage('生产厂家不能为空！'); exit; end;
    if edit5.Text='' then begin showmessage('电流不能为空！'); exit; end;
    if edit6.Text='' then begin showmessage('电压不能为空！'); exit; end;

      strSql:='select * from dbo.断路器的基本信息表 where 名称=';
      strSql:= strSql+''''+'断路器2'+'''';
      self.ADODataSet2.Active := false;
      self.ADODataSet2.CommandText :=strSql;
      self.ADODataSet2.Active := true;
      self.ADODataSet2.edit;
      self.ADODataSet2.FieldValues['名称'] := '断路器2';
      self.ADODataSet2.FieldValues['编号'] := '2';
      self.ADODataSet2.FieldValues['型号'] := edit2.Text;
      self.ADODataSet2.FieldValues['安装时间'] := DateTimePicker1.DateTime;
      self.ADODataSet2.FieldValues['生产厂家'] := edit4.Text;
      self.ADODataSet2.FieldValues['最大额定电流'] := edit5.Text;
      self.ADODataSet2.FieldValues['最大额定电压'] := edit6.Text;
      self.ADODataSet2.Post;
      showmessage('基本信息更新成功！');

      edit2.Text := '';
      //DateTimePicker1.DateTime := '';
      edit4.Text := '';
      edit5.Text := '';
      edit6.Text := '';

    end
    else if (radiobutton3.Checked = true) then
    begin
    if edit2.Text='' then begin showmessage('型号不能为空！'); exit; end;
    if edit4.Text='' then begin showmessage('生产厂家不能为空！'); exit; end;
    if edit5.Text='' then begin showmessage('电流不能为空！'); exit; end;
    if edit6.Text='' then begin showmessage('电压不能为空！'); exit; end;

      strSql:='select * from dbo.断路器的基本信息表 where 名称=';
      strSql:= strSql+''''+'断路器3'+'''';
      self.ADODataSet2.Active := false;
      self.ADODataSet2.CommandText :=strSql;
      self.ADODataSet2.Active := true;
      self.ADODataSet2.edit;
      self.ADODataSet2.FieldValues['名称'] := '断路器3';
      self.ADODataSet2.FieldValues['编号'] := '3';
      self.ADODataSet2.FieldValues['型号'] := edit2.Text;
      self.ADODataSet2.FieldValues['安装时间'] := DateTimePicker1.DateTime;
      self.ADODataSet2.FieldValues['生产厂家'] := edit4.Text;
      self.ADODataSet2.FieldValues['最大额定电流'] := edit5.Text;
      self.ADODataSet2.FieldValues['最大额定电压'] := edit6.Text;
      self.ADODataSet2.Post;
      showmessage('基本信息更新成功！');

      edit2.Text := '';
      //DateTimePicker1.DateTime := '';
      edit4.Text := '';
      edit5.Text := '';
      edit6.Text := '';

    end;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
    close;
end;

end.