medicine_form7.pas

基于DELPHI+SQL的药品管理系统

unit medicine_form7;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, DBTables;

type
  TForm2 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses medicine_form6;

{$R *.DFM}

procedure TForm2.Button1Click(Sender: TObject);
var
   a,b:integer;
   str_empno:string;
begin
   try                        //检查输入条件是否正确
     if trim(Edit1.Text)<>'' then
         a:=StrToInt(trim(Edit1.Text)) ;
     if trim(Edit2.Text)<>'' then
         b:=StrToInt(trim(Edit2.Text));
   Except
      on EConvertError do
      ShowMessage('提示：顾客的销售流水号必须是数字！')
   end;

   //id字段的输入条件
   if (Trim(Edit1.Text)='') and  (Trim(Edit2.Text)='') then
      str_empno:=''
   else if (Trim(Edit1.Text)='') and  (Trim(Edit2.Text)<>'') then
      str_empno:=' and id<='+trim(Edit2.Text)
   else if (Trim(Edit1.Text)<>'') and  (Trim(Edit2.Text)='') then
      str_empno:=' and id>='+trim(Edit1.Text)
   else if (Trim(Edit1.Text)<>'') and  (Trim(Edit2.Text)<>'') then
      str_empno:=' and id>='+trim(Edit1.Text)+ ' and id<='+trim(Edit2.Text);

      //组合各个条件并进行查询
    Form1.Table1.Filter:='id>1 '+str_empno;
    Form1.Table1.Filtered:=True;
    Form1.Table1.Open;
    close;
    if Form1.Table1.RecordCount=0 then
       ShowMessage('没有查询到符合条件的数据。');

end;

procedure TForm2.FormActivate(Sender: TObject);
begin
     Edit1.Text:='';
     Edit2.Text:='';
end;

end.