instorefind.~pas

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

unit instorefind;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, ComCtrls,list_unit,product_unit,
  operator_unit,DBClient, Buttons, RpCon, RpConDS, RpDefine, RpRave,
  ExtCtrls;

type
  Tinstorefindfrm = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    instorefind_ds1: TDataSource;
    DBGrid1: TDBGrid;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label3: TLabel;
    pro_codelb: TLabel;
    operator_idlb: TLabel;
    instorefind_cds1: TClientDataSet;
    BitBtn1: TBitBtn;
    RvProject2: TRvProject;
    RvDataSetConnection2: TRvDataSetConnection;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    list_date_btn: TBitBtn;
    pro_code_btn: TBitBtn;
    operator_id_btn: TBitBtn;
    Button1: TBitBtn;
    pro_codeed: TComboBox;
    operator_ided: TComboBox;
    Label1: TLabel;
    procedure list_date_btnClick(Sender: TObject);
    procedure pro_code_btnClick(Sender: TObject);
    procedure operator_id_btnClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure list_date_btnMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure list_date_btnMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pro_code_btnMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pro_code_btnMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure operator_id_btnMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure operator_id_btnMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    list:Tlist;
    product:Tproduct;
    operator:Toperator;
     datestr:string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  instorefindfrm: Tinstorefindfrm;

implementation

uses main;

{$R *.dfm}

procedure Tinstorefindfrm.list_date_btnClick(Sender: TObject);
var
 tt1,tt2,sql:string;
begin
 list:=Tlist.create ;
if 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%'' and  '
+'list_date between '''+tt1+''' and '''+tt2+''' ';
if list.ListsFind(sql)=false   then
begin
showmessage('该段时间没有入库信息！');
exit;
end;

instorefind_cds1.Data :=list.Lists(sql) ;
list.Free;

end;

procedure Tinstorefindfrm.pro_code_btnClick(Sender: TObject);
 var
   sql:string;
begin
product:=Tproduct.create ;
list:=Tlist.create ;
if pro_codeed.Text =''  then
begin
showmessage('请输入物品编码！');
exit;
end;

if length(pro_codeed.Text)<>12  then
begin
showmessage('对不起，物品编码位数不对！');
exit;
end;

if product.CheckProRec(pro_codeed.Text)=false  then
begin
showmessage('该物品编码为非法编码！');
exit;
end;

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%'' and pro_code='''+pro_codeed.Text+''' ';
if list.ListsFind(sql)=false   then
begin
showmessage('有关该物品的入库信息不存在！');
exit;
end;

instorefind_cds1.Data :=list.Lists(sql) ;
 pro_codeed.Text :='';
list.Free;
product.Free;
end;

procedure Tinstorefindfrm.operator_id_btnClick(Sender: TObject);
 var
   sql:string;
begin
operator:=Toperator.create ;
list:=Tlist.create ;

if operator_ided.Text =''  then
begin
showmessage('请输入操作员ID号进行查询！');
exit;
end;

if operator.OperatorRec(operator_ided.Text)=false  then
begin
showmessage('该操作员ID为非法ID！');
exit;
end;

 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%'' and operator_id='''+operator_ided.Text+''' ';
if list.ListsFind(sql)=false   then
begin
showmessage('该操作员经手的入库信息不存在！');
exit;
end;

instorefind_cds1.Data :=list.Lists(sql);
  operator_ided.Text :='';
 operator.Free;
 list.Free;
end;

procedure Tinstorefindfrm.BitBtn1Click(Sender: TObject);
begin
  mainfrm.show;
  instorefindfrm.Close ;
end;

procedure Tinstorefindfrm.Button1Click(Sender: TObject);
begin
 instorefindfrm.RvProject2.Execute ;
end;

procedure Tinstorefindfrm.FormActivate(Sender: TObject);
begin
 product:=Tproduct.create;
 operator:=Toperator.create ;
 pro_codeed.Items:=product.GetProIdList();
 operator_ided.Items :=operator.GetIdList ();
end;

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

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

procedure Tinstorefindfrm.list_date_btnMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
TBitBtn(Sender).Font.Color := clblue;
end;

procedure Tinstorefindfrm.list_date_btnMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  TBitBtn(Sender).Font.Color := clRed;
end;

procedure Tinstorefindfrm.pro_code_btnMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
TBitBtn(Sender).Font.Color := clRed;
end;

procedure Tinstorefindfrm.pro_code_btnMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 TBitBtn(Sender).Font.Color := clblue;
end;

procedure Tinstorefindfrm.operator_id_btnMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  TBitBtn(Sender).Font.Color := clblue;
end;

procedure Tinstorefindfrm.operator_id_btnMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  TBitBtn(Sender).Font.Color := clRed;
end;

procedure Tinstorefindfrm.Button1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  TBitBtn(Sender).Font.Color := clRed;
end;

procedure Tinstorefindfrm.Button1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  TBitBtn(Sender).Font.Color := clblue;
end;

end.