stat.~pas

这是用delphi开发的一个物资管理信息系统

unit stat;

interface

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

type
  Tstatfrm = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox3: TGroupBox;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    stat_ds1: TDataSource;
    stat_ds2: TDataSource;
    stat_cds1: TClientDataSet;
    stat_cds2: TClientDataSet;
    BitBtn1: TBitBtn;
    Label5: TLabel;
    GroupBox2: TGroupBox;
    CheckBox1: TCheckBox;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label1: TLabel;
    DateTimePicker2: TDateTimePicker;
    Instore_Static: TButton;
    Label6: TLabel;
    GroupBox4: TGroupBox;
    CheckBox2: TCheckBox;
    Label3: TLabel;
    DateTimePicker3: TDateTimePicker;
    Label4: TLabel;
    DateTimePicker4: TDateTimePicker;
    OutStore_Static: TButton;
    Button5: TBitBtn;
    Label7: TLabel;
    procedure Button5Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure Instore_StaticClick(Sender: TObject);
    procedure OutStore_StaticClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    list:Tlist;
      datestr:string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  statfrm: Tstatfrm;
  sql,tt1,tt2:string;
implementation

uses plan;

{$R *.dfm}

procedure Tstatfrm.Button5Click(Sender: TObject);
begin
planfrm:=tplanfrm.create(application);
planfrm.show;
end;

procedure Tstatfrm.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked=true  then
begin
datetimepicker1.Enabled :=true;
datetimepicker2.Enabled :=true;
end;
if checkbox1.Checked=false  then
begin
datetimepicker1.Enabled :=false;
datetimepicker2.Enabled :=false;
end;


end;

procedure Tstatfrm.CheckBox2Click(Sender: TObject);
begin
if checkbox2.Checked=true  then
begin
datetimepicker3.Enabled :=true;
datetimepicker4.Enabled :=true;
end;
if checkbox2.Checked=false  then
begin
datetimepicker3.Enabled :=false;
datetimepicker4.Enabled :=false;
end;
end;

procedure Tstatfrm.Instore_StaticClick(Sender: TObject);
var
 tt1,tt2:string;
begin
 list:=Tlist.create ;

if (checkbox1.Checked=true) and (datetimepicker1.Date>datetimepicker2.Date) then
begin
showmessage('时间选择前后矛盾！');
exit;
end;


tt1:=datetostr(datetimepicker1.date);
tt2:=datetostr(datetimepicker2.date);

sql:='select list_code as 入库单编号,operator_id as 操作员代号,'
+'list_date as 入库日期,pro_code as 入库物品编码,pro_num as 入库物品数量,'
+'unit as 物品单位,place_code as  物品库位代号'
+'  from list_info where list_code like ''I%'' ';
if checkbox1.Checked=true then
sql:=sql+' and list_date between '''+tt1+''' and '''+tt2+'''' ;

if list.ListsFind(sql)=false  then
begin
showmessage('对不起，没有查到相关信息！');
exit;
end;

stat_cds1.Data :=list.Lists(sql);
list.Free;
end;

procedure Tstatfrm.OutStore_StaticClick(Sender: TObject);
var
 tt1,tt2:string;
begin
list:=Tlist.create ;

if (checkbox2.Checked=true) and (datetimepicker3.Date>datetimepicker4.Date) then
begin
showmessage('时间选择前后矛盾！');
exit;
end;

tt1:=datetostr(datetimepicker3.date);
tt2:=datetostr(datetimepicker4.date);

sql:='select list_code as 出库单编号,operator_id as 操作员代号,'
+'list_date as 出库日期,pro_code as 出库物品编码,pro_num as 出库物品数量,'
+'unit as 物品单位,place_code as  物品库位代号'
+'  from list_info where list_code like ''O%'' ';
if checkbox2.Checked=true then
sql:=sql+' and list_date  between '''+tt1+''' and '''+tt2+''' ';

if list.ListsFind(sql)=false   then
begin
showmessage('对不起，没有查到相关信息！');
exit;
end;

stat_cds2.Data :=list.Lists(sql);
list.Free;
end;

procedure Tstatfrm.BitBtn1Click(Sender: TObject);
begin
   statfrm.Close ;
end;

procedure Tstatfrm.FormShow(Sender: TObject);
begin
   DateTimePicker1.DateTime :=date;
   DateTimePicker2.DateTime :=date;
   DateTimePicker3.DateTime :=date;
   DateTimePicker4.DateTime :=date;
end;

procedure Tstatfrm.FormCreate(Sender: TObject);
begin
   shortdateformat:='YYYY-MM-DD';
  longdateformat:= 'YYYY-MM-DD';
  dateseparator:='-';
  datestr:=datetostr(date);
end;

end.