medicine_form3.pas

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

unit medicine_form3;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, DBGrids, ComCtrls, Db, DBTables, jpeg, ExtCtrls;

type
  Tfind_form = class(TForm)
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    Query1: TQuery;
    GroupBox1: TGroupBox;
    RB_medicine: TRadioButton;
    RB_date: TRadioButton;
    RB_low: TRadioButton;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    DateTimePicker1: TDateTimePicker;
    GroupBox3: TGroupBox;
    DBGrid1: TDBGrid;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure RB_medicineClick(Sender: TObject);
    procedure RB_dateClick(Sender: TObject);
    procedure RB_lowClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  find_form: Tfind_form;

implementation

{$R *.DFM}

procedure Tfind_form.Button1Click(Sender: TObject);
begin
     self.Close;
end;

procedure Tfind_form.RB_medicineClick(Sender: TObject);
begin
     label1.Caption := '请输入要查询药品的名称或编码：';
     Edit1.Visible := true;
     Edit1.Text := '';
     DateTimePicker1.Visible := false;
end;

procedure Tfind_form.RB_dateClick(Sender: TObject);
begin
     label1.Caption := '请输入要检查药品过期的时间：';
     DateTimePicker1.Visible := true;
     Edit1.Visible := false;
end;

procedure Tfind_form.RB_lowClick(Sender: TObject);
begin
     label1.Caption := '现有药品库存数量底限信息显示（请直接查询）:';
     DateTimePicker1.Visible := false;
     Edit1.Visible := false;
end;

procedure Tfind_form.FormCreate(Sender: TObject);
begin
     label1.Caption := '请输入要查询药品的名称或编码：';
     Edit1.Visible := true;
     DateTimePicker1.Visible := false;
end;

procedure Tfind_form.Button2Click(Sender: TObject);
var
   s_sql:string;
begin
     if RB_medicine.Checked = true then begin
        query1.Close;
        query1.SQL.Clear;
        s_sql:='select * from medicine where (code like '+ ''''+'*'+trim(Edit1.Text)+'*'+'''' +
            ') or (name like ' +  ''''+'*'+trim(Edit1.Text)+'*'+'''' + ')';
        query1.sql.add(s_sql);
        query1.Open;

        DBGrid1.Columns[0].Title.Caption := '编码';
        DBGrid1.Columns[1].Title.Caption := '药品名称';
        DBGrid1.Columns[2].Title.Caption := '规格';
        DBGrid1.Columns[3].Title.Caption := '单位';
        DBGrid1.Columns[4].Title.Caption := '产地';
        DBGrid1.Columns[5].Title.Caption := '单价(元)';
        DBGrid1.Columns[6].Title.Caption := '批号';
        DBGrid1.Columns[7].Title.Caption := '库存量';
        DBGrid1.Columns[8].Title.Caption := '库存底量';
     end;

     if RB_low.Checked = true then begin
        query1.Close;
        query1.sql.Clear;
        query1.sql.add('select * from medicine where innumber<lownumber');
        query1.Open;

        DBGrid1.Columns[0].Title.Caption := '编码';
        DBGrid1.Columns[1].Title.Caption := '药品名称';
        DBGrid1.Columns[2].Title.Caption := '规格';
        DBGrid1.Columns[3].Title.Caption := '单位';
        DBGrid1.Columns[4].Title.Caption := '产地';
        DBGrid1.Columns[5].Title.Caption := '单价(元)';
        DBGrid1.Columns[6].Title.Caption := '批号';
        DBGrid1.Columns[7].Title.Caption := '库存量';
        DBGrid1.Columns[8].Title.Caption := '库存底量';
     end;

     if RB_date.Checked = true then begin
        query1.Close;
        query1.sql.Clear;
        query1.sql.Add('select b.lastdate,a.* from medicine as a,inmedicine as b' +
                       ' where (a.code=b.code) and (b.isover=''0'') and (b.lastdate<=:this_date)' +
                       ' order by a.code');
        query1.ParamByName('this_date').AsString := DateToStr(DateTimePicker1.Date);
        query1.Open;

        DBGrid1.Columns[0].Title.Caption := '有效期';
        DBGrid1.Columns[1].Title.Caption := '编码';
        DBGrid1.Columns[2].Title.Caption := '药品名称';
        DBGrid1.Columns[3].Title.Caption := '规格';
        DBGrid1.Columns[4].Title.Caption := '单位';
        DBGrid1.Columns[5].Title.Caption := '产地';
        DBGrid1.Columns[6].Title.Caption := '单价(元)';
        DBGrid1.Columns[7].Title.Caption := '批号';
        DBGrid1.Columns[8].Title.Caption := '库存量';
        DBGrid1.Columns[9].Title.Caption := '库存底量';
     end;
end;

procedure Tfind_form.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then
  begin
    Key := #0;
    SelectNext( TWinControl(Sender), True, True);
  end;
end;

end.