复件 unit1.pas

玉龙飞雪进销存管理系统,可以帮您管理进销存的软件

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    Database1: TDatabase;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    CheckBox1: TCheckBox;
    DateTimePicker1: TDateTimePicker;
    CheckBox2: TCheckBox;
    ComboBox1: TComboBox;
    Edit3: TEdit;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var aSQL,sign:string;
begin
if combobox2.text<>''  then aSQL:='and 货品类型="'+combobox2.text+'" ';
if combobox3.text<>'' then aSQL:=aSQL+ 'and 进货方式="'+combobox3.text+'" ';
if checkbox1.Checked then  aSQL:=aSQL+ 'and 进货时间=:d1';
case ComboBox1.ItemIndex of
    0: sign:='=';
    1: sign:='>';
    2: sign:='<';
    end;
if checkbox2.Checked then  aSQL:=aSQL+'and "sign", 进货数量="'+Edit3.Text+'"';
if asql<>''then
       begin                                    
       query1.close;
       query1.SQL.Clear;
       query1.sql.text:='select * from jin.db where 货品类型<>"" '+asql;
       if checkbox1.Checked  then
        begin
          Query1.ParambyName('d1').asdate:=DateTimePicker1.Date;
        end;
        query1.prepare;
        query1.Open;
        end;
       
end;




procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.ItemIndex:=0;
end;

end.