unitequipmetsearch.~pas

delphi基于工业控制的串口通讯

unit UnitEquipmetSearch;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, Buttons, ToolWin, ComCtrls, Mask,
  DBCtrls, XPMenu;

type
  Tfrm_EquipmetSearch = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    Cb_Equipment_NO: TCheckBox;
    Cb_Equipment_Name: TCheckBox;
    Cb_Cont: TCheckBox;
    Cb_Terminal: TCheckBox;
    Cb_Uport: TCheckBox;
    Cob_Equipment_NO: TComboBox;
    Cob_Equipment_Name: TComboBox;
    Cob_Cont: TComboBox;
    Cob_Terminal: TComboBox;
    Cob_Uport: TComboBox;
    Cb_Equipment_Address: TCheckBox;
    Cob_Equipment_Address: TComboBox;
    ToolBar2: TToolBar;
    Cmd_Search: TSpeedButton;
    Cmd_Pweview: TSpeedButton;
    Cmd_Print: TSpeedButton;
    Cmd_Exit: TSpeedButton;
    Cmd_Cancel: TSpeedButton;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    XPMenu1: TXPMenu;
    Cob_Warn_Music: TComboBox;
    Cb_Warn_Music: TCheckBox;
    Cb_WarnImage: TCheckBox;
    Cob_WarnImage: TComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Cmd_CancelClick(Sender: TObject);
    procedure Cmd_ExitClick(Sender: TObject);
    procedure Cb_Equipment_NOClick(Sender: TObject);
    procedure Cb_Equipment_NameClick(Sender: TObject);
    procedure Cb_Equipment_AddressClick(Sender: TObject);
    procedure Cb_ContClick(Sender: TObject);
    procedure Cb_TerminalClick(Sender: TObject);
    procedure Cb_UportClick(Sender: TObject);
    procedure Cmd_SearchClick(Sender: TObject);
    procedure Cb_Warn_MusicClick(Sender: TObject);
    procedure Cb_WarnImageClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_EquipmetSearch: Tfrm_EquipmetSearch;

implementation

uses UnitDataModule;

{$R *.dfm}

procedure Tfrm_EquipmetSearch.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    frm_DataModule.ADO_QueryItem.Close;
    frm_DataModule.ADO_QuerySearch.Close;
    Action:=Cafree;
end;

procedure Tfrm_EquipmetSearch.Cmd_CancelClick(Sender: TObject);
begin
    frm_DataModule.ADO_QueryItem.Close;
    frm_DataModule.ADO_QuerySearch.Close;
    Close;
end;

procedure Tfrm_EquipmetSearch.Cmd_ExitClick(Sender: TObject);
begin
    Cmd_Pweview.Enabled:=False;
    Cmd_Print.Enabled:=False;
end;

procedure Tfrm_EquipmetSearch.Cb_Equipment_NOClick(Sender: TObject);
begin
    if Cb_Equipment_NO.Checked=true then
    begin
        Cob_Equipment_NO.Clear;
        Cob_Equipment_NO.Visible:=True;
        with frm_DataModule.ADO_QueryItem do
        begin
            Close;
            Sql.Clear;
            Sql.Add('Select distinct Equipment_NO from [Equipment]');
            prepared;
            Open;
            while not eof do
            begin
                Cob_Equipment_NO.Items.Add(FieldByName('Equipment_NO').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        Cob_Equipment_NO.Visible:=False;
        Cob_Equipment_NO.Clear;
    end;
end;

procedure Tfrm_EquipmetSearch.Cb_Equipment_NameClick(Sender: TObject);
begin
    if Cb_Equipment_Name.Checked=true then
    begin
        Cob_Equipment_Name.Clear;
        Cob_Equipment_Name.Visible:=True;
        with frm_DataModule.ADO_QueryItem do
        begin
            Close;
            Sql.Clear;
            Sql.Add('Select distinct Equipment_Name from [Equipment]');
            prepared;
            Open;
            while not eof do
            begin
                Cob_Equipment_Name.Items.Add(FieldByName('Equipment_Name').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        Cob_Equipment_Name.Visible:=False;
        Cob_Equipment_Name.Clear;
    end;
end;

procedure Tfrm_EquipmetSearch.Cb_Equipment_AddressClick(Sender: TObject);
begin
    if Cb_Equipment_Address.Checked=true then
    begin
        Cob_Equipment_Address.Clear;
        Cob_Equipment_Address.Visible:=True;
        with frm_DataModule.ADO_QueryItem do
        begin
            Close;
            Sql.Clear;
            Sql.Add('Select distinct Equipment_Address from [Equipment]');
            prepared;
            Open;
            while not eof do
            begin
                Cob_Equipment_Address.Items.Add(FieldByName('Equipment_Address').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        Cob_Equipment_Address.Visible:=False;
        Cob_Equipment_Address.Clear;
    end;
end;

procedure Tfrm_EquipmetSearch.Cb_ContClick(Sender: TObject);
begin
    if Cb_Cont.Checked=true then
    begin
        Cob_Cont.Clear;
        Cob_Cont.Visible:=True;
        with frm_DataModule.ADO_QueryItem do
        begin
            Close;
            Sql.Clear;
            Sql.Add('Select distinct Cont from [Equipment]');
            prepared;
            Open;
            while not eof do
            begin
                Cob_Cont.Items.Add(FieldByName('Cont').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        Cob_Cont.Visible:=False;
        Cob_Cont.Clear;
    end;
end;

procedure Tfrm_EquipmetSearch.Cb_TerminalClick(Sender: TObject);
begin
    if Cb_Terminal.Checked=true then
    begin
        Cob_Terminal.Clear;
        Cob_Terminal.Visible:=True;
        with frm_DataModule.ADO_QueryItem do
        begin
            Close;
            Sql.Clear;
            Sql.Add('Select distinct Terminal from [Equipment]');
            prepared;
            Open;
            while not eof do
            begin
                Cob_Terminal.Items.Add(FieldByName('Terminal').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        Cob_Terminal.Visible:=False;
        Cob_Terminal.Clear;
    end;
end;

procedure Tfrm_EquipmetSearch.Cb_UportClick(Sender: TObject);
begin
    if Cb_Uport.Checked=true then
    begin
        Cob_Uport.Clear;
        Cob_Uport.Visible:=True;
        with frm_DataModule.ADO_QueryItem do
        begin
            Close;
            Sql.Clear;
            Sql.Add('Select distinct Uport from [Equipment]');
            prepared;
            Open;
            while not eof do
            begin
                Cob_Uport.Items.Add(FieldByName('Uport').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        Cob_Uport.Visible:=False;
        Cob_Uport.Clear;
    end;
end;

procedure Tfrm_EquipmetSearch.Cmd_SearchClick(Sender: TObject);
var
    SqlStr:String;
begin
    SqlStr:=' Select ID,Equipment_NO,Equipment_Name,Equipment_Address,Cont,Terminal,Uport,Warn_Music,WarnImage From [Equipment] where ';

    if Cb_Equipment_NO.Checked=True then
    begin
        SqlStr:=SqlStr+' Equipment_NO like '+''''+'%'+ Trim(Cob_Equipment_NO.Text)+'%'+''''+' and ';
    end;
    if Cb_Equipment_Name.Checked=True then
    begin
        SqlStr:=SqlStr+' Equipment_Name like '+''''+'%'+ Trim(Cob_Equipment_Name.Text)+'%'+''''+' and ';
    end;
    if Cb_Equipment_Address.Checked=True then
    begin
        SqlStr:=SqlStr+' Equipment_Address like '+''''+'%'+ Trim(Cob_Equipment_Address.Text)+'%'+''''+' and ';
    end;

    if Cb_Warn_Music.Checked=True then
    begin
        SqlStr:=SqlStr+' Warn_Music like '+''''+'%'+ Trim(Cob_Warn_Music.Text)+'%'+''''+' and ';
    end;

    if Cb_Cont.Checked=True then
    begin
        SqlStr:=SqlStr+' Cont like '+''''+'%'+ Trim(Cob_Cont.Text)+'%'+''''+' and ';
    end;

    if Cb_Terminal.Checked=True then
    begin
        SqlStr:=SqlStr+' Terminal like '+''''+'%'+ Trim(Cob_Terminal.Text)+'%'+''''+' and ';
    end;

    if Cb_Uport.Checked=True then
    begin
        SqlStr:=SqlStr+' Uport like '+''''+'%'+ Trim(Cob_Uport.Text)+'%'+''''+' and ';
    end;

    if Cb_WarnImage.Checked=True then
    begin
        SqlStr:=SqlStr+' WarnImage like '+''''+'%'+ Trim(Cob_WarnImage.Text)+'%'+''''+' and ';
    end;

    SqlStr:=Copy(SqlStr,0,length(SqlStr)-4);
    with frm_DataModule.ADO_QuerySearch do
    begin
        Close;
        Sql.Clear;
        Sql.Add(SqlStr);
        try
            Open;
            Prepared;
            if frm_DataModule.ADO_QuerySearch.RecordCount<>0 then
            begin
                {frm_Report:=Tfrm_Report.Create(self);
                frm_Report.Lab_Print.Caption:='???:'+Operator;
                frm_Report.Lab_S_Tiltle.Caption:=CompanyName;
                frm_Report.Lab_Time.Caption:='????:'+DateTimeToStr(now);
                frm_Report.Lab_Record_Title.Caption:=CompanyName+'???????????';
                frm_Report.QuickRep_Record.Print; }
                Cmd_Print.Enabled:=True;
                Cmd_Pweview.Enabled:=True;
                frm_DataModule.DataSourceSearch.DataSet:=frm_DataModule.ADO_QuerySearch;
                frm_DataModule.DataSourceSearch.Enabled:=True;
                DBGrid1.DataSource:=frm_DataModule.DataSourceSearch;
                DBGrid1.Columns[0].Title.Caption:='自动编号';
                DBGrid1.Columns[1].Title.Caption:='设备编号';
                DBGrid1.Columns[2].Title.Caption:='设备名称';
                DBGrid1.Columns[3].Title.Caption:='设备地址';
                DBGrid1.Columns[4].Title.Caption:='集中器号';
                DBGrid1.Columns[5].Title.Caption:='终端号';
                DBGrid1.Columns[6].Title.Caption:='端口号号';
                DBGrid1.Columns[7].Title.Caption:='报警声音';
                DBGrid1.Columns[8].Title.Caption:='报警器号';
            end;
        except
        end;
    end;
end;

procedure Tfrm_EquipmetSearch.Cb_Warn_MusicClick(Sender: TObject);
begin
    if Cb_Warn_Music.Checked=true then
    begin
        Cob_Warn_Music.Clear;
        Cob_Warn_Music.Visible:=True;
        with frm_DataModule.ADO_QueryItem do
        begin
            Close;
            Sql.Clear;
            Sql.Add('Select distinct Warn_Music from [Equipment]');
            prepared;
            Open;
            while not eof do
            begin
                Cob_Warn_Music.Items.Add(FieldByName('Warn_Music').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        Cob_Warn_Music.Visible:=False;
        Cob_Warn_Music.Clear;
    end;
end;

procedure Tfrm_EquipmetSearch.Cb_WarnImageClick(Sender: TObject);
begin
    if Cb_WarnImage.Checked=true then
    begin
        Cob_WarnImage.Clear;
        Cob_WarnImage.Visible:=True;
        with frm_DataModule.ADO_QueryItem do
        begin
            Close;
            Sql.Clear;
            Sql.Add('Select distinct WarnImage from [Equipment]');
            prepared;
            Open;
            while not eof do
            begin
                Cob_WarnImage.Items.Add(FieldByName('WarnImage').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        Cob_WarnImage.Visible:=False;
        Cob_WarnImage.Clear;
    end;
end;

end.