uxqdh_lb.pas

工廠採購管理系統

unit uxqdh_lb;

interface

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

type
  Tfrmxqdh_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;
    procedure FormCreate(Sender: TObject);
    procedure csh();
    procedure Edit1Change(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure dtp1Exit(Sender: TObject);
    procedure dtp2Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmxqdh_lb: Tfrmxqdh_lb;

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

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

procedure Tfrmxqdh_lb.RzBitBtn1Click(Sender: TObject);
begin
strhthm:=trim(adoquery1.fieldbyname('cgxqdh').AsString);
close;
end;

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

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

end.