chaxununit1.~pas

来自「实现了断路器群控系统」· ~PAS 代码 · 共 105 行

unit chaxunUnit1;

interface

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

type
  Tchaxun = class(TForm)
    DataSource1: TDataSource;
    ADODataSet1: TADODataSet;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Button1: TButton;
    DateTimePicker1: TDateTimePicker;
    Label1: TLabel;
    ComboBox1: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure DateTimePicker1Click(Sender: TObject);
   // procedure GroupBox1Click(Sender: TObject);
   // procedure DBComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

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

implementation

{$R *.dfm}

procedure Tchaxun.Button1Click(Sender: TObject);
begin
  close;
end;

procedure Tchaxun.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 Tchaxun.DateTimePicker1Click(Sender: TObject);
var
   strSql:string;
   strLeiXing_NA:string;
   strRiqi:string;

begin
   strLeiXing_NA:=Trim(ComboBox1.Text);
   strRiqi:=DateToStr(DateTimePicker1.Date);
   strSql:='select * from dbo.Canshu';
   strSql:=strSql+' where shebeiming='+''''+strLeiXing_NA+'''';
   strSql:=strSql+' and riqi='+''''+strRiqi+'''';
   self.ADODataSet1.Active:=False;
   self.ADODataSet1.CommandText:=strSql;
   self.ADODataSet1.Active:=True;
end;

procedure Tchaxun.ComboBox1Click(Sender: TObject);
var
   strSql:string;
   strLeiXing_NA:string;
   //strRiqi:string;

begin
   strLeiXing_NA:=Trim(ComboBox1.Text);
   //strRiqi:=Trim(DateTimePicker1.Date);
   strSql:='select * from dbo.Canshu Where shebeiming=';
   strSql:=strSql+''''+strLeiXing_NA+'''';
   //strSql:=strSql+'riqi='+''''+strRiqi+'''';
   self.ADODataSet1.Active:=False;
   self.ADODataSet1.CommandText:=strSql;
   self.ADODataSet1.Active:=True;
end;

end.