ddglrq_dh.pas

商品批发管理系统 本作品采用C/S模式

unit ddglRQ_dh;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, XPMenu;

type
  TddglRQdh = class(TForm)
    Label2: TLabel;
    DateTimeF: TDateTimePicker;
    Label1: TLabel;
    DateTimeT: TDateTimePicker;
    Button1: TButton;
    Button2: TButton;
    XPMenu1: TXPMenu;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ddglRQdh: TddglRQdh;

implementation

uses newDM, ddgl_CX;

{$R *.dfm}

procedure TddglRQdh.Button1Click(Sender: TObject);
var
 eee:string;
begin
 with DM do
   Begin
    eee:='select * from ddb where dhrq between :form and :to';
    if ADOQddgl.Active then
        ADOQddgl.Active:=false;
    ADOQddgl.SQL.Clear;
    ADOQddgl.SQL.add(eee);
    ADOQddgl.Parameters[0].Value:=DatetimeF.Date;
    ADOQddgl.Parameters[1].Value:=DatetimeT.Date;
    ADOQddgl.Active:=true;
    ddglCX.button3.Enabled:=true;
    try
      ADOTddgl.Locate('ddbh',DM.ADOQddgl.fieldbyname('ddbh').AsString,[]);
    except
    end;
   end;
end;

procedure TddglRQdh.Button2Click(Sender: TObject);
begin
close;
end;

procedure TddglRQdh.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ddglCX.RGddgl.ItemIndex:=0;
end;

end.