search.pas

对于商品销售、库存信息

unit Search;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, Mask, ExtCtrls, DB, ADODB;

type
  TFormSearch = class(TForm)
    RadioGroup1: TRadioGroup;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBEditDate: TDBEdit;
    DBEditGoodName: TDBEdit;
    DBEditPrice: TDBEdit;
    DBEditAmount: TDBEdit;
    DBEditSum: TDBEdit;
    DBEditDealer: TDBEdit;
    DBMemoDetail: TDBMemo;
    Label8: TLabel;
    Edit1: TEdit;
    GroupBox2: TGroupBox;
    BTNSearch: TButton;
    BTNMore: TButton;
    BTNClose: TButton;
    LabelCoding: TLabel;
    DBEditCoding: TDBEdit;
    Label10: TLabel;
    DBEditBrand: TDBEdit;
    Label11: TLabel;
    DBEditProducer: TDBEdit;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure BTNSearchClick(Sender: TObject);
    procedure BTNMoreClick(Sender: TObject);
    procedure BTNCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormSearch: TFormSearch;
  SearchField: string;
implementation
uses DataModule, Browser;
{$R *.dfm}

procedure TFormSearch.FormCreate(Sender: TObject);
begin
  BTNSearch.Enabled := False;
  BTNMore.Enabled := False;
  SearchField := 'GoodName';
end;

procedure TFormSearch.Edit1Change(Sender: TObject);
begin
  if Edit1.Text <> '' then
    BTNSearch.Enabled := True;
end;

procedure TFormSearch.RadioGroup1Click(Sender: TObject);
begin
  if RadioGroup1.ItemIndex = 0 then
    SearchField := 'Coding'
  else if RadioGroup1.ItemIndex = 1 then
    SearchField := 'Producer'
  else if RadioGroup1.ItemIndex = 2 then
    SearchField := 'GoodName'
  else if RadioGroup1.ItemIndex = 3 then
    SearchField := 'Date'
  else if RadioGroup1.ItemIndex = 4 then
    SearchField := 'Brand'
  else
    SearchField := 'Dealer'
end;

procedure TFormSearch.BTNSearchClick(Sender: TObject);
var
  Bookmark1: string;
  Searchwhat: string;
begin
  BTNMore.Enabled := False;
  BTNSearch.Enabled := False;
  DataModule1.ADODataSet1.Refresh;
  with DataModule1.ADODataSet1 do try
    Disablecontrols;
    Filtered := False;
    Searchwhat := SearchField + '=' + '''' + Edit1.Text + '''';
    Filter := Searchwhat;
    Filtered := True;
  finally
    Enablecontrols;
    if DataModule1.ADODataSet1.RecordCount = 0 then begin
      messagebeep(1);
      showmessage('没有符合条件的记录，请确定查询条件或放弃查询！');
      if messageDlg('是否继续查询？只有结束查询才能进行其他操作！', mtinformation,
        [mbYes, mbNo], 0) = mrNo then begin
        Filtered := False;
        DataModule1.ADODataSet1.Close;
        DataModule1.ADODataSet1.Open;
      end;
    end
    else begin
      showmessage('找到销售记录了！');
      Bookmark1 := DataModule1.ADODataSet1.Bookmark;
      Filtered := False;
      BTNMore.Enabled := True;
    end;
  end;
  DataModule1.ADODataSet1.Bookmark := Bookmark1;
end;

procedure TFormSearch.BTNMoreClick(Sender: TObject);
begin
  FormBrowser.Show;
end;

procedure TFormSearch.BTNCloseClick(Sender: TObject);
begin
  Close;
end;



end.