manualverifyformunit1.~pas

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

unit ManualVerifyFormUnit1;

interface

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

type
  TManualVerifyForm = class(TForm)
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Panel14: TPanel;
    ToolBar2: TToolBar;
    ToolButton3: TToolButton;
    ToolButton8: TToolButton;
    Panel19: TPanel;
    ToolBar9: TToolBar;
    ToolButton39: TToolButton;
    ToolButton32: TToolButton;
    ToolButton40: TToolButton;
    ToolButton44: TToolButton;
    ToolButton41: TToolButton;
    ToolButton43: TToolButton;
    ToolButton42: TToolButton;
    ToolButton45: TToolButton;
    Edit21: TEdit;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    CheckBox8: TCheckBox;
    ComboBox10: TComboBox;
    Edit5: TEdit;
    CheckBox19: TCheckBox;
    ComboBox11: TComboBox;
    Edit9: TEdit;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Label7: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label6: TLabel;
    DateTimePicker2: TDateTimePicker;
    BitBtn1: TBitBtn;
    CheckBox1: TCheckBox;
    Edit1: TEdit;
    CheckBox2: TCheckBox;
    Edit2: TEdit;
    CheckBox5: TCheckBox;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton39Click(Sender: TObject);
    procedure ToolButton40Click(Sender: TObject);
    procedure ToolButton41Click(Sender: TObject);
    procedure ToolButton42Click(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure CheckBox8Click(Sender: TObject);
    procedure CheckBox19Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure DateTimePicker1Click(Sender: TObject);
    procedure DateTimePicker2Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ManualVerifyForm: TManualVerifyForm;

implementation

uses DataModuleUnit1, AppUtil;

{$R *.dfm}

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

procedure TManualVerifyForm.ToolButton3Click(Sender: TObject);
begin
    adoquery1.Connection:=DataModule1.ADOConnection1;
    adoquery1.SQL.Clear;
    adoquery1.Filtered:=false;
    adoquery1.Close;
    adoquery1.SQL.Add('select * from 问题数据分析');
    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 TManualVerifyForm.ToolButton39Click(Sender: TObject);
begin
    if adoquery1.State=dsBrowse	then
    begin
        adoquery1.First;
        edit21.Text:='位置:'+inttostr(adoquery1.RecNo)+'/'+inttostr(adoquery1.RecordCount);
    end;
end;

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

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

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

procedure TManualVerifyForm.DBGrid1TitleClick(Column: TColumn);
var
  str:string;
begin
  str:=adoquery1.Sort;
  if length(str)=0 then
     adoquery1.Sort:=column.Title.Caption+' DESC'
  else
  begin
      if pos('DESC',str)<>0 then
      begin
          if trim(leftbstr(str,pos('DESC',str)-1))=column.Title.Caption  then
              adoquery1.Sort:=column.Title.Caption+' ASC'
          else
              adoquery1.Sort:=column.Title.Caption+' DESC';
      end
      else if pos('ASC',str)<>0 then
      begin
          if trim(leftbstr(str,pos('ASC',str)-1))=column.Title.Caption  then
              adoquery1.Sort:=column.Title.Caption+' DESC'
          else
              adoquery1.Sort:=column.Title.Caption+' ASC';
      end;
  end;
end;

procedure TManualVerifyForm.BitBtn1Click(Sender: TObject);
var
    sqlstr:string;
begin
    sqlstr:='select * from 问题数据分析 where';
    if checkbox8.Checked then
    begin
        if combobox10.Text='=' then
            sqlstr:=sqlstr+ ' 注册号='''+trim(edit5.Text)+''' and '
        else if combobox10.Text='LIKE' then
            sqlstr:=sqlstr+ ' 注册号 like '''+'%'+trim(edit5.Text)+'%'+''' and ';
    end;
    if checkbox19.Checked then
    begin
        if combobox11.Text='=' then
            sqlstr:=sqlstr+ ' 用户名称='''+trim(edit9.Text)+''' and '
        else if combobox11.Text='LIKE' then
            sqlstr:=sqlstr+ ' 用户名称 like '''+'%'+trim(edit9.Text)+'%'+''' and ';
    end;
    if checkbox3.Checked then
       sqlstr:=sqlstr+ ' 区号='''+getNum(trim(combobox2.Text))+''' and ';
    if checkbox4.Checked then
       sqlstr:=sqlstr+ ' 本号='''+getNum(stringofchar('0',4-length(trim(combobox3.Text)))+trim(combobox3.Text))+''' and ';
    if datetimepicker1.Checked then
       sqlstr:=sqlstr+' 设备上传时间>='''+formatdatetime('yyyy-mm-dd hh:nn:ss',strtodatetime(datetostr(datetimepicker1.Date)+' 00:00:00'))+''' and ';
    if datetimepicker2.checked then
       sqlstr:=sqlstr+' 设备上传时间<='''+formatdatetime('yyyy-mm-dd hh:nn:ss',strtodatetime(datetostr(datetimepicker2.Date)+' 23:59:59'))+''' and ';
    sqlstr:=sqlstr+ ' 设备ID号 like ''%'' order by 区号,抄表员号';
    adoquery1.Connection:=DataModule1.ADOConnection1;
    adoquery1.SQL.Clear;
    adoquery1.Filtered:=false;
    adoquery1.Close;
    adoquery1.SQL.Add(sqlstr);
    adoquery1.Prepared;
    adoquery1.open;
    edit21.Text:='位置:'+inttostr(adoquery1.RecNo)+'/'+inttostr(adoquery1.RecordCount);
end;

procedure TManualVerifyForm.BitBtn2Click(Sender: TObject);
var
    sqlstr:string;
begin
    if datasource1.DataSet.State=dsBrowse then
    begin
        if datasource1.DataSet.RecordCount<>0 then
        begin
            sqlstr:='update 当前数据表 set ';
            if checkbox1.Checked then
                sqlstr:=sqlstr+' 本期指数='''+trim(edit1.Text)+''',本期流量='+trim(edit1.Text)+'-上期指数,';
            if checkbox2.Checked then
                sqlstr:=sqlstr+' 人工读数='''+trim(edit2.Text)+''',';
            if checkbox3.Checked then
                sqlstr:=sqlstr+' 估收水量='''+trim(edit3.Text)+''',';
            sqlstr:=sqlstr+' 设备上传时间='''+formatdatetime('yyyy-mm-dd hh:nn:ss',now)+''' where 注册号='''+trim(datasource1.DataSet.fieldbyname('注册号').AsString)+'''';
            if application.MessageBox('真的要修改原始数据吗？','确定',mb_yesno+mb_iconquestion)=idyes then
            begin
                DataModule1.adocommand1.Connection:=datamodule1.ADOConnection1;
                DataModule1.adocommand1.CommandText:=sqlstr;
                DataModule1.adocommand1.Execute;
                application.MessageBox('数据修改完毕！','提示',mb_iconinformation);
                datasource1.DataSet.Refresh;
            end;
        end
        else
        begin
            application.MessageBox('无可供更新数据！','提示',mb_iconinformation);
            exit;
        end;
    end
    else
        application.MessageBox('记录集尚未打开！','错误',mb_iconerror);
end;

procedure TManualVerifyForm.CheckBox8Click(Sender: TObject);
begin
    if checkbox8.Checked then
    begin
        edit5.Enabled:=true;
        combobox10.Enabled:=true;
    end
    else
    begin
        edit5.Text:='';
        edit5.Enabled:=false;
        combobox10.Text:='';
        combobox10.Enabled:=false;
    end;
end;

procedure TManualVerifyForm.CheckBox19Click(Sender: TObject);
begin
    if checkbox19.Checked then
    begin
        edit9.Enabled:=true;
        combobox11.Enabled:=true;
    end
    else
    begin
        edit9.Text:='';
        edit9.Enabled:=false;
        combobox11.Text:='';
        combobox11.Enabled:=false;
    end;
end;

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

procedure TManualVerifyForm.CheckBox4Click(Sender: TObject);
begin
    if checkbox4.Checked then
        combobox3.Enabled :=true
    else
    begin
        combobox3.Text:='';
        combobox3.Enabled :=false;
    end;
end;

procedure TManualVerifyForm.DateTimePicker1Click(Sender: TObject);
begin
    if datetimepicker1.Checked then
         datetimepicker1.Date:=now;
end;

procedure TManualVerifyForm.DateTimePicker2Click(Sender: TObject);
begin
    if datetimepicker2.Checked then
         datetimepicker2.Date:=now;
end;

procedure TManualVerifyForm.CheckBox1Click(Sender: TObject);
begin
    if checkbox1.Checked then
        edit1.Enabled:=true
    else
        edit1.Enabled:=false;
end;

procedure TManualVerifyForm.CheckBox2Click(Sender: TObject);
begin
    if checkbox2.Checked then
        edit2.Enabled:=true
    else
        edit2.Enabled:=false;
end;

procedure TManualVerifyForm.CheckBox5Click(Sender: TObject);
begin
    if checkbox5.Checked then
        edit3.Enabled:=true
    else
        edit3.Enabled:=false;
end;

procedure TManualVerifyForm.FormShow(Sender: TObject);
var
  i:integer;
begin
    DataModule1.adoquery4.Connection :=datamodule1.ADOConnection1;
    DataModule1.adoquery4.SQL.Clear;
    DataModule1.ADOQuery4.Filtered:=false;
    DataModule1.adoquery4.Close;
    DataModule1.adoquery4.SQL.Add('select * from 区域档案表');
    DataModule1.adoquery4.Prepared;
    DataModule1.adoquery4.open;
    if DataModule1.adoquery4.RecordCount <>0 then
    begin
        combobox2.Items.Clear;
        for i:=1 to DataModule1.adoquery4.RecordCount do
        begin
            combobox2.Items.Add(datamodule1.ADOQuery4.fieldbyname('区号').AsString+'-'+datamodule1.ADOQuery4.fieldbyname('区域名称').AsString);
            DataModule1.adoquery4.Next;
        end;
    end;
end;

procedure TManualVerifyForm.ComboBox2Change(Sender: TObject);
var
    i:integer;
begin
    DataModule1.adoquery4.Connection :=datamodule1.ADOConnection1;
    DataModule1.adoquery4.SQL.Clear;
    DataModule1.ADOQuery4.Filtered:=false;
    DataModule1.adoquery4.Close;
    DataModule1.adoquery4.SQL.Add('select * from 本档案管理 where 区号='''+getNum(trim(combobox2.Text))+'''');
    DataModule1.adoquery4.Prepared;
    DataModule1.adoquery4.open;
    combobox3.Items.Clear;
    combobox3.Text:='';
    if DataModule1.adoquery4.RecordCount <>0 then
    begin
        for i:=1 to DataModule1.adoquery4.RecordCount do
        begin
            combobox3.Items.Add(datamodule1.ADOQuery4.fieldbyname('本号').AsString+'-'+datamodule1.ADOQuery4.fieldbyname('本名').AsString);
            DataModule1.adoquery4.Next;
        end;
    end;
end;

end.