databrowseformunit1.~pas

delphi开发的抄表数据管理系统

unit DataBrowseFormUnit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ComCtrls, StdCtrls, ToolWin, ExtCtrls, DB, ADODB,StrUtils,
  ComObj, Buttons;

type
  TDataBrowseForm = class(TForm)
    DBGrid1: TDBGrid;
    Panel14: TPanel;
    ToolBar2: TToolBar;
    ToolButton3: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton21: TToolButton;
    ToolButton11: TToolButton;
    Panel19: TPanel;
    ToolBar9: TToolBar;
    ToolButton39: TToolButton;
    ToolButton32: TToolButton;
    ToolButton40: TToolButton;
    ToolButton44: TToolButton;
    ToolButton41: TToolButton;
    ToolButton43: TToolButton;
    ToolButton42: TToolButton;
    ToolButton45: TToolButton;
    Edit21: TEdit;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    Panel1: TPanel;
    SaveDialog1: TSaveDialog;
    GroupBox1: TGroupBox;
    CheckBox31: TCheckBox;
    ComboBox20: TComboBox;
    CheckBox32: TCheckBox;
    ComboBox21: TComboBox;
    CheckBox33: TCheckBox;
    ComboBox22: TComboBox;
    Label8: TLabel;
    DateTimePicker6: TDateTimePicker;
    Label11: TLabel;
    DateTimePicker7: TDateTimePicker;
    GroupBox2: TGroupBox;
    CheckBox1: TCheckBox;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    CheckBox3: TCheckBox;
    ComboBox3: TComboBox;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Panel20: TPanel;
    SpeedButton4: TSpeedButton;
    procedure ToolButton3Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure CheckBox31Click(Sender: TObject);
    procedure CheckBox32Click(Sender: TObject);
    procedure CheckBox33Click(Sender: TObject);
    procedure DateTimePicker6Click(Sender: TObject);
    procedure DateTimePicker7Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ComboBox3Change(Sender: TObject);
    procedure ToolButton39Click(Sender: TObject);
    procedure ToolButton40Click(Sender: TObject);
    procedure ToolButton41Click(Sender: TObject);
    procedure ToolButton42Click(Sender: TObject);
    procedure ToolButton21Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ComboBox20Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataBrowseForm: TDataBrowseForm;

implementation

uses DataModuleUnit1,Pack_CRCUnit1, AppUtil;

{$R *.dfm}

procedure TDataBrowseForm.ToolButton3Click(Sender: TObject);
var
    sqlstr:string;
begin
    sqlstr:='select 注册号,设备类型,left(用户名称,10) as 用户名称,本期指数,本期流量,人工读数,估收水量,问题标记,故障标记,上期指数,上期流量,停转时间,电池电压,计数轮,定点时间,设备上传时间,';
    sqlstr:=sqlstr+'设备当前时钟,数据来源,停转开始时间,当前时间,上传模式,区号,本号,牌号,抄表员号,设备ID号,地址,是否导出,备注 from 问题数据分析';
    adoquery1.Connection:=DataModule1.ADOConnection1;
    adoquery1.SQL.Clear;
    adoquery1.Filtered:=false;
    adoquery1.Close;
    adoquery1.SQL.Add(sqlstr);
    adoquery1.Prepared;
    adoquery1.open;
    //self.Caption:='检索数据'+'['+inttostr(adoquery1.RecordCount)+'条'+']';
    if adoquery1.State=dsBrowse	then
    begin
        edit21.Text:='位置:'+inttostr(adoquery1.RecNo)+'/'+inttostr(adoquery1.RecordCount);
    end;
end;

procedure TDataBrowseForm.ComboBox1Change(Sender: TObject);
begin
    if combobox1.ItemIndex=1 then
    begin
        combobox2.Enabled:=true;
        combobox2.Items.Clear;
        combobox2.Text:='';
        combobox2.items.Add('106--无单元(丢失)');
        combobox2.Items.Add('114--机械表');
    end
    else if combobox1.ItemIndex=2 then
    begin
        combobox2.Enabled:=true;
        combobox2.Items.Clear;
        combobox2.Text:='';
        combobox2.Items.Add('111--数据差额');
        //combobox2.items.Add('112--水量为零');
        //combobox2.items.Add('113--水量为负');
        combobox2.items.Add('103--设备故障');
    end
    else if combobox1.ItemIndex=3 then
    begin
        combobox2.Enabled:=true;
        combobox2.Items.Clear;
        combobox2.Text:='';
        combobox2.items.Add('107--表污');
        combobox2.Items.Add('108--井塌');
        combobox2.items.Add('109--锁门');
        combobox2.items.Add('110--压井');
        combobox2.items.Add('999--散牌');
    end
    else
    begin
        combobox2.Items.Clear;
        combobox2.text:='';
        combobox2.Enabled:=false;
    end;
end;

procedure TDataBrowseForm.CheckBox31Click(Sender: TObject);
begin
    if checkbox31.Checked then
        combobox20.Enabled :=true
    else
    begin
        combobox20.Text:='';
        combobox20.Enabled :=false;
    end;
end;

procedure TDataBrowseForm.CheckBox32Click(Sender: TObject);
begin
    if checkbox32.Checked then
        combobox21.Enabled :=true
    else
    begin
        combobox21.Text:='';
        combobox21.Enabled :=false;
    end;
end;

procedure TDataBrowseForm.CheckBox33Click(Sender: TObject);
begin
    if checkbox33.Checked then
        combobox22.Enabled :=true
    else
    begin
        combobox22.Text:='';
        combobox22.Enabled :=false;
    end;
end;

procedure TDataBrowseForm.DateTimePicker6Click(Sender: TObject);
begin
    if datetimepicker6.Checked then
         datetimepicker6.Date:=now;
end;

procedure TDataBrowseForm.DateTimePicker7Click(Sender: TObject);
begin
    if datetimepicker7.Checked then
         datetimepicker7.Date:=now;
end;

procedure TDataBrowseForm.CheckBox1Click(Sender: TObject);
begin
    if checkbox1.Checked then
    begin
        combobox1.Enabled:=true;
        //combobox2.Enabled:=true;
    end
    else
    begin
        combobox1.Enabled:=false;
        combobox2.Enabled:=false;
    end;
end;

procedure TDataBrowseForm.CheckBox3Click(Sender: TObject);
begin
    if checkbox3.Checked then
    begin
        edit1.Enabled:=true;
        combobox3.Enabled:=true;
    end
    else
    begin
        edit1.Text:='';
        edit1.Enabled:=false;
        combobox3.Enabled:=false;
    end;
end;

procedure TDataBrowseForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    DataModule1.ADOConnection1.Close;
    DataBrowseForm:=nil;
    action:=cafree;
end;

procedure TDataBrowseForm.ComboBox3Change(Sender: TObject);
begin
    if trim(combobox3.Text)='between' then
    begin
        label1.Enabled:=true;
        edit2.Enabled:=true;
    end
    else
    begin
        label1.Enabled:=false;
        edit2.Enabled:=false;
    end;
end;

procedure TDataBrowseForm.ToolButton39Click(Sender: TObject);
begin
    if datasource1.DataSet.State=dsBrowse	then
    begin
        datasource1.DataSet.First;
        edit21.Text:='位置:'+inttostr(datasource1.DataSet.RecNo)+'/'+inttostr(datasource1.DataSet.RecordCount);
    end;
end;

procedure TDataBrowseForm.ToolButton40Click(Sender: TObject);
begin
    if datasource1.DataSet.State=dsBrowse	then
    begin
        datasource1.DataSet.Prior;
        edit21.Text:='位置:'+inttostr(datasource1.DataSet.RecNo)+'/'+inttostr(datasource1.DataSet.RecordCount);
    end;
end;

procedure TDataBrowseForm.ToolButton41Click(Sender: TObject);
begin
    if datasource1.DataSet.State=dsBrowse	then
    begin
        datasource1.DataSet.Next;
        edit21.Text:='位置:'+inttostr(datasource1.DataSet.RecNo)+'/'+inttostr(datasource1.DataSet.RecordCount);
    end;
end;

procedure TDataBrowseForm.ToolButton42Click(Sender: TObject);
begin
    if datasource1.DataSet.State=dsBrowse	then
    begin
        datasource1.DataSet.Last;
        edit21.Text:='位置:'+inttostr(datasource1.DataSet.RecNo)+'/'+inttostr(datasource1.DataSet.RecordCount);
    end;
end;