chaxun.pas

药店GSP源码

unit chaxun;

interface

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

type
  TForm3 = class(TForm)
    DS1: TDataSource;
    DBGrid1: TDBGrid;
    Database1: TDatabase;
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    R1: TRadioButton;
    R2: TRadioButton;
    R3: TRadioButton;
    DBNavigator1: TDBNavigator;
    Query1: TQuery;
    Button2: TButton;
    Query1ID: TIntegerField;
    Query1Code: TIntegerField;
    Query1Name: TStringField;
    Query1DrugUnit: TStringField;
    Query1Category: TIntegerField;
    Query1BasicUnit: TStringField;
    Query1StoreUnit: TStringField;
    Query1StoreTrans: TIntegerField;
    Query1XH: TStringField;
    Query1Comment: TStringField;
    Query1PingYingCode: TStringField;
    Query1NumCode: TStringField;
    Query1WBCode: TStringField;
    Query1OtherCode: TStringField;
    Query1Stopped: TIntegerField;
    Query1SalePrice: TFloatField;
    Query1InPrice: TFloatField;
    Query1nProperty: TIntegerField;
    StatusBar1: TStatusBar;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation
   
{$R *.dfm}

procedure TForm3.Button2Click(Sender: TObject);
begin
form3.Close;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
if edit1.Text='' then
begin
  query1.Close;
  query1.RequestLive:=False;
  if r1.Checked=true then
  begin
  dbgrid1.Font.Color:=clblack;
  query1.SQL.Clear;
  query1.SQL.Add('Select * from base');
  query1.Open;
  statusbar1.Panels[0].Text:='共有'+inttostr(query1.RecordCount)+'条记录';
  end;
  if r2.Checked=True then
  begin
  dbgrid1.Font.Color:=clred;
  query1.Close;
  query1.SQL.Clear;
  Query1.SQL.Add('select * from base');
  query1.SQL.Add('where stopped>0');
  Query1.Open;
  statusbar1.Panels[0].Text:='共有'+inttostr(query1.RecordCount)+'条记录';
  end;
  if r3.Checked=true then
  begin
  dbgrid1.Font.Color:=clblack;
  query1.SQL.Clear;
   Query1.SQL.Add('select * from base');
  query1.SQL.Add('where stopped=0');
  Query1.Open;
  statusbar1.Panels[0].Text:='共有'+inttostr(query1.RecordCount)+'条记录';
  end;
end
else
  begin
  query1.Close;
  query1.RequestLive:=True;
  query1.SQL.Clear;
  Query1.SQL.Add('select * from base');
  query1.SQL.Add('where pingyingcode like "'+edit1.Text+'%"');
  Query1.Open;
  statusbar1.Panels[0].Text:='共有'+inttostr(query1.RecordCount)+'条记录';
  end;
end;

end.