xsselsell.pas

企业商品管理系统

unit XSSelSell;

interface

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

type
  TFrm_XSSelSell = class(TBaseForm)
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    SpeedButton1: TSpeedButton;
    WareAll: TSpeedButton;
    WareGrid: TDBGrid;
    WareClose: TSpeedButton;
    Notebook1: TNotebook;
    Edit1: TEdit;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label1: TLabel;
    ADOPrice: TADODataSet;
    DSPrice: TDataSource;
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure WareGridDblClick(Sender: TObject);
    procedure WareCloseClick(Sender: TObject);
    procedure WareAllClick(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    SourceID:string;
  end;

var
  Frm_XSSelSell: TFrm_XSSelSell;

implementation
uses Main,DM;
{$R *.dfm}

procedure TFrm_XSSelSell.SpeedButton3Click(Sender: TObject);
begin
  Close;
end;

procedure TFrm_XSSelSell.SpeedButton1Click(Sender: TObject);
var
  SQLStr:string;
begin
  if (Notebook1.PageIndex=1) and (Edit1.Text='') then
  begin
    Application.MessageBox('查询值不能为空！','明日科技');
    Exit;
  end;
  case ComboBox1.ItemIndex of
  1:  begin
        SQLStr:='MR_OrderID Like '+QuotedStr(Edit1.Text+'%');  
      end;
  0:  begin
        SQLStr:='MR_OrderDate >= '+QuotedStr(DateTimeToStr(DateTimePicker1.DateTime))+' and MR_OrderDate<='+
                QuotedStr(DateTimeToStr(DateTimePicker2.DateTime));
      end;
  end;
    ADOPrice.Filtered:=False;
    ADOPrice.Filter:=SQLStr;
    ADOPrice.Filtered:=True;

end;

procedure TFrm_XSSelSell.FormShow(Sender: TObject);
begin
  ADOPrice.Close;
  ADOPrice.Open;
  WareAll.Click;
  Notebook1.PageIndex:=ComboBox1.ItemIndex;
end;

procedure TFrm_XSSelSell.WareGridDblClick(Sender: TObject);
begin
  if ADOPrice.RecordCount>0 then
    SourceID:=ADOPrice.FieldByName('MR_OutStockID').AsString
  else
    SourceID:='';
  Close;
end;

procedure TFrm_XSSelSell.WareCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TFrm_XSSelSell.WareAllClick(Sender: TObject);
begin

    ADOPrice.Filtered:=False;
    ADOPrice.Filter:='';
    ADOPrice.Filtered:=True;

end;

procedure TFrm_XSSelSell.ComboBox1Change(Sender: TObject);
begin
  Notebook1.PageIndex:=ComboBox1.ItemIndex;
end;

end.