seekalarmunit.pas

完整的ic卡管理软件

unit seekAlarmUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, bsSkinCtrls, StdCtrls, Mask, bsSkinBoxCtrls,
  BusinessSkinForm, bsSkinGrids, bsDBGrids, bsMessages;

type
  TseekalarmForm = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinMessage1: TbsSkinMessage;
    bsSkinDBGrid1: TbsSkinDBGrid;
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox5: TbsSkinCheckRadioBox;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinScrollBar1: TbsSkinScrollBar;
    bsSkinComboBox1: TbsSkinComboBox;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinEdit3: TbsSkinEdit;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinComboBox2: TbsSkinComboBox;
    bsSkinComboBox3: TbsSkinComboBox;
    bsSkinComboBox4: TbsSkinComboBox;
    bsSkinScrollBar2: TbsSkinScrollBar;
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinDBGrid1TitleClick(Column: TbsColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  seekalarmForm: TseekalarmForm;
  bSort:boolean;//定义排序

implementation
uses
 datamodel, seekAlarmUnitQ, ReportUnit;

{$R *.dfm}

procedure TseekalarmForm.bsSkinButton4Click(Sender: TObject);
begin
close;
end;
//********有条件查询*****************
procedure TseekalarmForm.bsSkinButton1Click(Sender: TObject);
begin
  bsskinButton3.Enabled:=true;
   with datamodule1.alarmQuery do
    begin
       close;
       sql.Clear;
        sql.Add('select a.carid as IC卡编号,a.personID as 人员编号,a.Aname as 报警名称 ,'+
            ' a.alarmAdressid as 机器编号,b.address as 机器名称,a.Adate as 报警时间,a.deal as 处理情况,a.memo as 备注 ' );
        sql.Add('from alarm as a inner join alarmDress as b on a.alarmAdressid=b.adressid ');
        sql.Add('where 1=1');
        if bsSkinCheckRadioBox1.Checked then
        begin
        sql.Add('and a.carid='''+bsSkinEdit1.Text+'''');
        end;
        if bsSkinCheckRadioBox2.Checked then
         begin
         sql.Add('and a.personID='''+bsSkinEdit2.Text+'''');
         end;
        if bsSkinCheckRadioBox3.Checked then
         begin
         sql.Add('and a.alarmAdressid='''+bsSkinEdit3.Text+'''');
         end;
        if bsSkinCheckRadioBox4.Checked then
         begin
          sql.Add('and a.Aname='''+bsSkinComboBox1.Text+'''');
         end;
        if bsSkinCheckRadioBox5.Checked then
          begin
           if bsSkinComboBox4.Text<>'' then
             begin
               sql.Add('and a.year='''+bsSkinComboBox4.Text+'''');
             end;
            if bsSkinComboBox3.Text<>'' then
              begin
                sql.Add('and a.month='''+bsSkinComboBox3.Text+'''');
              end;
             if bsSkinComboBox2.Text<>'' then
             begin
               sql.Add('and a.date='''+bsSkinComboBox2.Text+'''');
             end;
             
        //sql.Add('and a.Adate between '+bsSkinDateEdit1.Text+' and '+bsSkinDateEdit2.Text);

          end;

          
        open;
    end;
      bsSkinDBGrid1.Columns[0].Width:=80;
      bsSkinDBGrid1.Columns[1].Width:=80;
      bsSkinDBGrid1.Columns[2].Width:=100;
      bsSkinDBGrid1.Columns[3].Width:=80;
      bsSkinDBGrid1.Columns[4].Width:=150;
      bsSkinDBGrid1.Columns[5].Width:=150;
      bsSkinDBGrid1.Columns[6].Width:=100;
end;
 ///****查询全部报警信息**********************
procedure TseekalarmForm.bsSkinButton2Click(Sender: TObject);
begin
  bsskinButton3.Enabled:=true;  
   with datamodule1.alarmQuery do
   begin
     close;
     sql.Clear;
     sql.Add('select a.carid as IC卡编号,a.personID as 人员编号,a.Aname as 报警名称 ,'+
            ' a.alarmAdressid as 机器编号,b.address as 机器名称,a.Adate as 报警时间,a.deal as 处理情况,a.memo as 备注 ' );
     sql.Add('from alarm as a inner join alarmDress as b on a.alarmAdressid=b.adressid ');


    // sql.Add('select * from alarm');
     open;
   end;
      bsSkinDBGrid1.Columns[0].Width:=80;
      bsSkinDBGrid1.Columns[1].Width:=80;
      bsSkinDBGrid1.Columns[2].Width:=100;
      bsSkinDBGrid1.Columns[3].Width:=80;
      bsSkinDBGrid1.Columns[4].Width:=150;
      bsSkinDBGrid1.Columns[5].Width:=150;
      bsSkinDBGrid1.Columns[6].Width:=100;

end;

procedure TseekalarmForm.bsSkinButton3Click(Sender: TObject);
begin
// seekAlarmReport:=TseekAlarmReport.Create(application);
 
 with datamodule1.alarmQuery do
 begin
 seekAlarmReport.QRDBText1.DataField:='IC卡编号';
 seekAlarmReport.QRDBText2.DataField:='人员编号';
 seekAlarmReport.QRDBText3.DataField:='报警名称';
 seekAlarmReport.QRDBText4.DataField:='机器编号';
 seekAlarmReport.QRDBText5.DataField:='机器名称';
 seekAlarmReport.QRDBText6.DataField:='报警时间';
 seekAlarmReport.QRDBText7.DataField:='处理情况';
 datamodule1.alarmQuery.Open;
 if datamodule1.alarmQuery.Active=true then
 begin
 datamodule1.alarmQuery.First;
 seekAlarmReport.Preview;
 end;
 //Reportform.Close;
 //Reportform.QuickRep1.Print;

 end;
end;

procedure TseekalarmForm.FormShow(Sender: TObject);
begin
     bsskinbutton3.Enabled:=false;
     bSort:=true;
end;
//***排序********
procedure TseekalarmForm.bsSkinDBGrid1TitleClick(Column: TbsColumn);
var
    i:integer;
    fieldname:string;
    
begin//排序

    i:=Column.Index;
    if bSort then
    begin
        fieldname:=bsSkinDBGrid1.Columns[i].FieldName+' ASC';
        bSort:=False;
    end
    else
    begin
        fieldname:=bsSkinDBGrid1.Columns[i].FieldName+' DESC';
        bSort:=True;
    end;

   datamodule1.alarmQuery.Sort:=fieldName;
end;


end.