kc_find.pas

一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码

unit kc_find;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, baseform, StdCtrls, Buttons;

type
  Tfkc_find = class(Tfbaseform)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fkc_find: Tfkc_find;

implementation

uses KC_table;

{$R *.dfm}

procedure Tfkc_find.BitBtn1Click(Sender: TObject);
begin
  inherited;
fKC_table.ADOsearch.Close;
fKC_table.ADOsearch.SQL.Clear;
fKC_table.ADOsearch.SQL.Add(' select Kc_code,Kc_name,Kc_cbprice,Kc_qty1,Kc_qty2,Kc_qty3,Kc_qty4,Kc_allqty,Kc_money,b.phy_unit,Kc_up,Kc_down,a.fmem,(Kc_allqty*Kc_cbprice) as totalmoney') ;
fKC_table.ADOsearch.SQL.Add(' from KC_table a left outer join  Bs_physic b on a.kc_code=b.Phy_code where (1=1)');
if Trim(Edit1.Text)<>'' then
   fKC_table.ADOsearch.SQL.Add(' and (Kc_code like '+''''+'%'+Trim(Edit1.Text)+'%'+''''+')');
if Trim(Edit2.Text)<>'' then
   fKC_table.ADOsearch.SQL.Add(' and (Kc_name like '+''''+'%'+Trim(Edit1.Text)+'%'+''''+')');
if ComboBox1.ItemIndex=1 then
   fKC_table.ADOsearch.SQL.Add(' and (Kc_allqty >kc_up)');
if ComboBox1.ItemIndex=2 then
   fKC_table.ADOsearch.SQL.Add(' and (Kc_allqty <kc_down)');
fKC_table.ADOsearch.Open;
if fKC_table.ADOsearch.RecordCount=0 then
   MessageBox(0, '没有您要查询的记录！', '提示', MB_OK + MB_ICONINFORMATION +
     MB_TOPMOST); 



end;

end.