unitmersch.pas

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

unit UnitMerSch;

interface

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

type
  TMerSch = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label3: TLabel;
    CheckBox1: TCheckBox;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    Edit2: TEdit;
    Edit3: TEdit;
    Splitter1: TSplitter;
    Splitter2: TSplitter;
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MerSch: TMerSch;

implementation
   uses unit1;
{$R *.dfm}

procedure TMerSch.ToolButton1Click(Sender: TObject);
var a:string;
begin
    if checkbox1.Checked=true  then
       with datamodule1.ADOQryMerSch do
          begin
             sql.Clear;
             sql.Text:='select * from 商品信息';
             a:=sql.Text;

               if edit2.Text<>'' then begin sql.Text:=a+' where 商品编号 like '+'''%S%''';open;end;
               if edit3.Text<>'' then begin
                 sql.Text:=a+' where '+'商品名称 like '+'''商%'''+' or '+'公司名称 like '+'''%型%''';
                 open;
                 end;

              edit1.Text:=edit1.Text+inttostr(datamodule1.ADOQryMerSch.RecordCount);
         end
    else
       with datamodule1.ADOQryMerSch do
       begin
          sql.Clear;
          sql.Text:='select * from 商品信息';
          a:=sql.Text;
          if edit2.Text<>'' then begin sql.Text:=a+' where 商品编号='+quotedstr(edit2.Text);open; end;
          if edit3.Text<>'' then begin sql.Text:=a+' where 商品名称='+quotedstr(edit3.Text);open; end;
          
          edit1.Text:=edit1.Text+inttostr(datamodule1.ADOQryMerSch.RecordCount);

         end;

end;

procedure TMerSch.ToolButton3Click(Sender: TObject);
begin
  edit2.Text:='';
  edit3.Text:='';

end;

procedure TMerSch.ToolButton5Click(Sender: TObject);
begin
MerSch.Close;
end;

procedure TMerSch.FormCreate(Sender: TObject);
begin
datamodule1.ADOQryMerSch.open;
end;

end.