infindunit.pas

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

unit infindunit;

interface

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

type
  Tinfindfrm = 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;
    Edit1: TEdit;
    Edit2: 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
  infindfrm: Tinfindfrm;

implementation

uses aboutboxunit, main, datamoduleUnit;

{$R *.dfm}

procedure Tinfindfrm.ToolButton5Click(Sender: TObject);
begin
infindfrm.Close;
end;

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

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

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

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

end.