workplan.pas

串口监控程序,可与UPS进行通信,适合初学者使用

unit workplan;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Mask, RzEdit, StdCtrls, RzButton, Buttons, ComCtrls, DB, ADODB,
  DBTables;

type
  Tfworkplan = class(TForm)
    Label1: TLabel;
    RzButton1: TRzButton;
    RzButton2: TRzButton;
    RzButton3: TRzButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    RzEdit1: TRzEdit;
    RzEdit2: TRzEdit;
    RzEdit3: TRzEdit;
    RzButton4: TRzButton;
    RzButton5: TRzButton;
    Edit1: TEdit;
    workqry: TADOQuery;
    ListView1: TListView;
    Query1: TQuery;
    DateTimePicker1: TDateTimePicker;
    Button1: TButton;
    procedure RzButton5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RzButton2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RzButton4Click(Sender: TObject);
  private
    //显示明细信息
    procedure ShowDetail;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fworkplan: Tfworkplan;

  workdate:TDatetime;
  worktime:tdatetime;
  workdetail:string;
  worknum:string;

implementation
 uses
  plandetali,main;

{$R *.dfm}

procedure Tfworkplan.RzButton5Click(Sender: TObject);
begin
 close;
end;

procedure Tfworkplan.FormCreate(Sender: TObject);
var
 i:integer;

  ListItem: TListItem;

begin
 workqry.Connection :=fmain.dbcon ;
 workqry.SQL.Clear ;
 workqry.SQL.Text :='select * from  workplan where workdate='''+datetostr(DateTimePicker1.date)+'''';
  //where workdate='''+datetostr(DateTimePicker1.date)+''''
 workqry.Open  ;

  with ListView1 do
  begin

 if not workqry.IsEmpty  then
  begin
  for i:=0 to workqry.RecordCount-1 do
  begin
  ListItem := Items.Add;
  ListItem.Caption :=workqry.fieldbyname('workdate').AsVariant ;
  ListItem.SubItems.Add(workqry.fieldbyname('worktime').AsVariant );
  ListItem.SubItems.Add(workqry.fieldbyname('workdetail').AsString);
  ListItem.SubItems.Add(workqry.fieldbyname('worknum').AsString  );


  workqry.Next ;

  end;
  end;
  end;

end;





procedure Tfworkplan.RzButton2Click(Sender: TObject);
var
   ListItem: TListItem;

begin
  with tfplandetail.create(nil) do
  begin
  
   showmodal;
   free;
  end;


   with ListView1 do
  begin
    ListItem := Items.Add;
  ListItem.Caption :=datetostr(DateTimePicker1.date);
  ListItem.SubItems.Add(timetostr(worktime) );
  ListItem.SubItems.Add(workdetail);
  ListItem.SubItems.Add(worknum);
 end;

end;



procedure Tfworkplan.ShowDetail;
var
  Item:TListItem;
  //i:Integer;
  str:string;
begin
  listview1.Items.Clear;
  //adoquery1.FieldByName('workdate').AsDateTime;

 // str:=(maskedit1.Text);

  with query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select *');
    SQL.Add('from work');
    SQL.Add('Where workdate=:workdate');
  //  ParamByName('workdate').asdatetime:=strtodate(str);

    Open;
    //i:=0;
    while not Eof do
    begin
     // i:=i+1;

      Item:=listview1.Items.Add;
      //Item.Caption:=IntToStr(i);
      Item.SubItems.Add(FieldByName('workdate').AsString );
      Item.SubItems.Add(FieldByName('worktime').Asstring);
      Item.SubItems.Add(fieldbyname('workdetail').AsString);
      item.SubItems.Add(fieldbyname('worknum').Asstring);

      Next;
    end;
    Close;
    //显示合计信息
   // SumDetail;
  end;
end;

procedure Tfworkplan.Button1Click(Sender: TObject);
begin
//listview1.Items.Add;
//listview1.Items.Item[1].
//listview1.Items.AddItem('2004','kj','2kkk','3') ;

end;

procedure Tfworkplan.RzButton4Click(Sender: TObject);
begin
 workqry.SQL.Text:='insert into work values'

end;

end.