selectdateformunit1.pas

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

unit SelectDateFormUnit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls,StrUtils, ExtCtrls;

type
  TSelectDateForm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label3: TLabel;
    ComboBox1: TComboBox;
    DateTimePicker1: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    DateTimePicker2: TDateTimePicker;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Label4: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button2: TButton;
    Button1: TButton;
    Bevel1: TBevel;
    Bevel2: TBevel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DateTimePicker1Click(Sender: TObject);
    procedure DateTimePicker2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ComboBox3Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    selectdates,selectdatee,selectquno,selectstyle,selectstylecontent,printorsave:string;
  end;

var
  SelectDateForm: TSelectDateForm;

implementation

uses DataModuleUnit1;

{$R *.dfm}

procedure TSelectDateForm.Button2Click(Sender: TObject);
begin
    //self.Close;
end;

procedure TSelectDateForm.Button1Click(Sender: TObject);
begin
    {if length(trim(combobox1.Text))=0 then
    begin
        application.MessageBox('请选择相应区号！','错误',mb_iconSTOP);
        exit;
    end
    else
        selectquno:=trim(combobox1.Text);
    if datetimepicker1.Checked then
        selectdates:=formatdatetime('yyyy-mm-dd',datetimepicker1.Date)
    else
        selectdates:='';
    if datetimepicker2.Checked then
        selectdatee:=formatdatetime('yyyy-mm-dd',datetimepicker2.Date)
    else
        selectdatee:='';
    if (length(selectdates)=0) and (length(selectdatee)=0) then
          application.MessageBox('请选择相应日期！','错误',mb_iconSTOP);}
    selectquno:=trim(combobox1.Text);
    if datetimepicker1.Checked then
        selectdates:=formatdatetime('yyyy-mm-dd',datetimepicker1.Date)
    else
        selectdates:='';
    if datetimepicker2.Checked then
        selectdatee:=formatdatetime('yyyy-mm-dd',datetimepicker2.Date)
    else
        selectdatee:='';
    selectstyle:=trim(combobox3.Text);
    selectstylecontent:=trim(combobox2.Text);
    if radiobutton1.Checked then
        printorsave:='p'
    else if radiobutton2.Checked then
        printorsave:='s';
end;

procedure TSelectDateForm.FormCreate(Sender: TObject);
var
    i:integer;
begin
    combobox1.Items.Clear;
    combobox1.Items.Add('全部');
    DataModule1.adoquery4.Connection :=datamodule1.ADOConnection1;
    DataModule1.adoquery4.SQL.Clear;
    DataModule1.ADOQuery4.Filtered:=false;
    DataModule1.adoquery4.Close;
    DataModule1.adoquery4.SQL.Add('select distinct 区号 from 区域档案表');
    DataModule1.adoquery4.Prepared;
    DataModule1.adoquery4.open;
    if DataModule1.adoquery4.RecordCount <>0 then
    begin
        for i:=1 to DataModule1.adoquery4.RecordCount do
        begin
            combobox1.Items.Add(datamodule1.ADOQuery4.fieldbyname('区号').AsString);
            DataModule1.adoquery4.Next;
        end;
    end;
    combobox1.ItemIndex:=0;
    combobox3.ItemIndex:=0;
end;

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

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

procedure TSelectDateForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    {action:=cafree;
    SelectDateForm:=nil;}
end;

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

end.