uhthm_lb.pas

工廠倉庫管理系統

unit uhthm_lb;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, StdCtrls, Grids, DBGrids, ExtCtrls, DB, ADODB,
  ComCtrls, RzDTP;

type
  Tfrmhthm_lb = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Edit1: TEdit;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    dtp1: TRzDateTimePicker;
    dtp2: TRzDateTimePicker;
    Label2: TLabel;
    Label3: TLabel;
    ADOQuery2: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure csh();
    procedure Edit1Change(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure dtp1Exit(Sender: TObject);
    procedure dtp2Exit(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmhthm_lb: Tfrmhthm_lb;

implementation
uses ufunction,uconst,udm1;
{$R *.dfm}

procedure Tfrmhthm_lb.FormCreate(Sender: TObject);
begin
adoquery1.Connection:=dm1.ADOConnection1;
dtp1.Date:=date;
dtp2.Date:=date+30;
csh;
end;
procedure tfrmhthm_lb.csh();
begin
if adoquery1.Active then adoquery1.Close;
adoquery1.SQL.Clear;
strsql:='select distinct gdhm from order_wlfp where ldrq>=:rq1 and ldrq<=:rq2 order by gdhm asc';
adoquery1.SQL.Add(strsql);
adoquery1.Parameters.ParamByName('rq1').Value:=dtp1.Date;
adoquery1.Parameters.ParamByName('rq2').Value:=dtp2.Date;
adoquery1.Open;
end;
procedure Tfrmhthm_lb.Edit1Change(Sender: TObject);
begin
strsql:='select distinct gdhm from order_wlfp where gdhm like'+''''+
trim(edit1.Text)+'%'+''''+'order by gdhm asc';
adoexect(adoquery1,strsql);
if adoquery1.Recordset.EOF and adoquery1.Recordset.BOF then
   begin
        strsql:='select distinct gdhm from order_wlfp where gdhm like'+''''+
        trim(edit1.Text)+'%'+''''+'order by gdhm asc';
        adoexect(adoquery1,strsql);
   end;
end;

procedure Tfrmhthm_lb.RzBitBtn1Click(Sender: TObject);
begin
strsql:='select * from order_wlfp where gdhm='+''''+trim(adoquery1.fieldbyname('gdhm').AsString)+
''''+'and wlsl>0';
adoexect(adoquery2,strsql);
if adoquery2.Recordset.EOF and adoquery2.Recordset.BOF then
   begin
   if messagebox(handle,'该工单上所有物料已经全部领完，是否继续发料？','询问',mb_yesno+mb_iconquestion)=idno then
      begin
      adoquery2.Close;
      edit1.SetFocus;
      exit;
      end
   end;
strhthm:=trim(adoquery1.fieldbyname('gdhm').AsString);
close;
end;

procedure Tfrmhthm_lb.dtp1Exit(Sender: TObject);
begin
csh;
end;

procedure Tfrmhthm_lb.dtp2Exit(Sender: TObject);
begin
csh;
end;

procedure Tfrmhthm_lb.RzBitBtn2Click(Sender: TObject);
begin
close;
end;

end.