selectoperatorformunit.~pas

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

unit SelectOperatorFormUnit;

interface

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

type
  TSelectOperatorForm = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ComboBox1: TComboBox;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    ListView1: TListView;
    Label3: TLabel;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Bevel1: TBevel;
    Bevel2: TBevel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    //operatorlist:array[1..10] of string;
    operatorlist:array of string;
    tempquno:string;
    //tempdate:string;
    tempsendtaskdate,tempgettaskdate:string;
  end;

var
  SelectOperatorForm: TSelectOperatorForm;

implementation

uses DataModuleUnit1, AppUtil;

{$R *.dfm}

procedure TSelectOperatorForm.Button1Click(Sender: TObject);
var
    i:integer;
    lvitem:tlistitem;
begin
    listview1.Items.Clear;
    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(combobox1.Text))+'''');
    DataModule1.adoquery4.Prepared;
    DataModule1.adoquery4.open;
    if datamodule1.ADOQuery4.RecordCount<>0 then
    begin
        for i:=1 to datamodule1.ADOQuery4.RecordCount do
        begin
            lvitem:=listview1.Items.Add;
            lvitem.Caption:=datamodule1.ADOQuery4.fieldbyname('抄表员号').AsString+'-'+datamodule1.ADOQuery4.fieldbyname('姓名').AsString;
            //lvitem.SubItems.Add(trim(datamodule1.ADOQuery4.FieldValues['设备ID号']));
            lvitem.Update;
            datamodule1.ADOQuery4.Next;
        end;
    end
    else
        application.MessageBox('没有可显示纪录！','提示',mb_iconinformation);
end;

procedure TSelectOperatorForm.FormCreate(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
        combobox1.Items.Clear;
        for i:=1 to DataModule1.adoquery4.RecordCount do
        begin
            combobox1.Items.Add(datamodule1.ADOQuery4.fieldbyname('区号').AsString+'-'+datamodule1.ADOQuery4.fieldbyname('区域名称').AsString);
            DataModule1.adoquery4.Next;
        end;
    end;
    DataModule1.adoquery3.Connection:=DataModule1.ADOConnection1;
    DataModule1.adoquery3.SQL.Clear;
    DataModule1.ADOQuery3.Filtered:=false;
    DataModule1.adoquery3.Close;
    {DataModule1.adoquery3.SQL.Add('select max(抄表日期)as 抄表日期 from 任务分配表');
    DataModule1.adoquery3.Prepared;
    DataModule1.adoquery3.open;
    if (DataModule1.adoquery3.RecordCount <>0) and (length(trim(datamodule1.ADOQuery3.FieldByName('抄表日期').AsString))<>0) then
       datetimepicker2.Date:=incday(strtodatetime(formatdatetime('yyyy',now)+'-'+leftstr(DataModule1.adoquery3.fieldbyname('抄表日期').asstring,2)+'-'+rightstr(DataModule1.adoquery3.fieldbyname('抄表日期').asstring,2)),-1)
    else
       datetimepicker2.Date:=now;
    datetimepicker1.Date:=now;  }
    combobox1.ItemIndex:=0;
    button1.Click;
end;

procedure TSelectOperatorForm.Button2Click(Sender: TObject);
var
    i,j:integer;
begin
    j:=0;
    for i:=1 to listview1.Items.Count do
    begin
        if not listview1.Items[i-1].Checked then
            continue;
        inc(j);
        Setlength(operatorlist,j);
        operatorlist[j-1]:=getNum(listview1.Items[i-1].Caption);
    end;
    tempquno:=getNum(trim(combobox1.Text));
    tempsendtaskdate:=formatdatetime('yyyy-mm-dd',datetimepicker2.Date);
    tempgettaskdate:=formatdatetime('yyyy-mm-dd',datetimepicker1.Date);
    //tempdate:=formatdatetime('yyyy-mm-dd',datetimepicker1.Date);
    {showmessage(operatorlist[1]);
    showmessage(operatorlist[2]);
    showmessage(operatorlist[3]);}
end;

procedure TSelectOperatorForm.ComboBox1Change(Sender: TObject);
begin
    button1.Click;
end;

end.