salefindunit.~pas

贸易管理系统Delphi源代码（有开发文档） 采用access+delphi设计 软件实现功能：供应商信息的输入

unit salefindunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, ImgList, ComCtrls, ToolWin,
  Grids, DBGrids;

type
  Tsalefindfrm = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ImageList1: TImageList;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    CheckBox1: TCheckBox;
    Label5: TLabel;
    Label6: TLabel;
    Splitter1: TSplitter;
    CheckBox2: TCheckBox;
    Panel2: TPanel;
    Panel3: TPanel;
    Label7: TLabel;
    Label8: TLabel;
    DBGrid1: TDBGrid;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Edit2: TEdit;
    Edit1: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  salefindfrm: Tsalefindfrm;

implementation

uses datamoduleUnit;

{$R *.dfm}

procedure Tsalefindfrm.ToolButton5Click(Sender: TObject);
begin
salefindfrm.Close;
end;

procedure Tsalefindfrm.ToolButton1Click(Sender: TObject);
var i,count:integer;
begin
   if edit1.Text<>'' then
       begin
          datamodule2.ADSsalefind.Filter:='顾客编号='+''''+edit1.Text+'''';
          datamodule2.ADSsalefind.Filtered:=true;
          datamodule2.ADSsalefind.Open;
       end
   else if edit2.Text<>'' then
           begin
              datamodule2.ADSsalefind.Filter:='商品编号='+''''+edit2.Text+'''';
              datamodule2.ADSsalefind.Filtered:=true;
              datamodule2.ADSsalefind.Open;
           end
        else if edit3.Text<>'' then
            begin
                datamodule2.ADSsalefind.Filter:='顾客名称='+''''+edit3.Text+'''';
                datamodule2.ADSsalefind.Filtered:=true;
                datamodule2.ADSsalefind.Open;
            end
              else if edit4.Text<>'' then
            begin
                datamodule2.ADSsalefind.Filter:='商品名称='+''''+edit4.Text+'''';
                datamodule2.ADSsalefind.Filtered:=true;
                datamodule2.ADSsalefind.Open;
            end
                   else showmessage('No data put in!');
       count:=0;
       for i:=0 to datamodule2.ADSsalefind.RecordCount-1 do
         count:=count+1;
         label9.Caption:=inttostr(count);


end;

procedure Tsalefindfrm.ToolButton3Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
end;

procedure Tsalefindfrm.CheckBox1Click(Sender: TObject);
begin
 if checkbox1.Checked then
    begin
      datetimepicker1.Enabled:=true;
      datetimepicker2.Enabled:=true;
    end ;

end;

procedure Tsalefindfrm.FormCreate(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
end;

end.