u_yuangong.pas

销售业绩核算系统

unit U_yuangong;

interface

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

type
  TForm_yuangong = class(TForm)
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    SpeedButton4: TSpeedButton;
    Edit4: TEdit;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_yuangong: TForm_yuangong;

implementation

{$R *.dfm}

procedure TForm_yuangong.SpeedButton1Click(Sender: TObject);
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select * from aaa where name='''+trim(edit1.text)+'''';
adoquery1.Open;
end;

procedure TForm_yuangong.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure TForm_yuangong.Button1Click(Sender: TObject);
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select * from aaa where money>='+trim(edit3.text)+'';
adoquery1.Open;
end;

procedure TForm_yuangong.SpeedButton2Click(Sender: TObject);
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select * from aaa where bianhao='''+trim(edit2.text)+'''';
adoquery1.Open;
end;

procedure TForm_yuangong.SpeedButton4Click(Sender: TObject);
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select * from aaa where shangshuname='''+trim(edit4.text)+'''';
adoquery1.Open;
end;

end.