ygcx.~pas

一个基于数据的药品行业管理系统,较全面,可供学习数据的开发人员参考消息

unit ygcx;

interface

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

type
  Tfrmygcx = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmygcx: Tfrmygcx;

implementation

uses date1,  ygda;

{$R *.dfm}

procedure Tfrmygcx.BitBtn1Click(Sender: TObject);
var sq1,strwhere,strorder:string;
    flag:boolean;
    i:integer;
begin
flag:=false;
sq1:='select * from ygzl ';
strwhere:='where';
strorder:='order by ygbh';
if (edit1.text='') and (edit2.text='') and
(edit4.text='') and (edit5.text='') and (edit6.text='' )
then
strwhere:=''
else
begin
if not flag then
begin
if edit1.Text<>'' then
begin
strwhere:=strwhere+' ygbh='+QuotedStr(trim(edit1.Text));
flag:=true;
end;
end;
if edit2.Text<>'' then
begin
if not flag then
begin
strwhere:=strwhere+' ygmc like '+quotedstr('%'+edit2.text+'%' );
flag:=true;
end;
strwhere:=strwhere+' and ygmc like '+quotedstr('%'+edit2.text+'%' );
end;

if edit4.Text<>'' then
begin
if not flag then
begin
strwhere:=strwhere+' phone like '+quotedstr('%'+edit4.text+'%' );
flag:=true;
end;
strwhere:=strwhere+' and phone like '+quotedstr('%'+edit4.text+'%' );
end;
if edit5.Text<>'' then
begin
if not flag then
begin
strwhere:=strwhere+' dz like '+quotedstr('%'+edit5.text+'%' );
flag:=true;
end;
strwhere:=strwhere+'and dz like '+quotedstr('%'+edit5.text+'%' );
end;
if edit6.Text<>'' then
begin
if not flag then
begin
strwhere:=strwhere+' zw like '+quotedstr('%'+edit6.text+'%' );
flag:=true;
end;
strwhere:=strwhere+'and zw like '+quotedstr('%'+edit6.text+'%' );
end;
end;
sq1:=sq1+strwhere+strorder;
screen.Cursor:=crHourGlass;
with data do
begin
aq1.Connection:=adoc1;
aq1.close;
aq1.SQL.Clear;
aq1.SQL.Add(sq1);
aq1.Open;
if aq1.Recordset.RecordCount=0 then
begin
screen.Cursor:=crDefault;
showmessage('没有符合条件的纪录');
exit;
end;
frmyg.stgid1.RowCount:=aq1.Recordset.RecordCount+1;
frmyg.StatusBar1.Panels[1].Text:=inttostr(aq1.Recordset.RecordCount);
while not aq1.Eof do
begin
for i:=1 to frmyg.stgid1.RowCount do
begin
frmyg.stgid1.Cells[0,i]:=aq1.Fields.fieldbyname('ygbh').Value;
frmyg.stgid1.Cells[1,i]:=aq1.Fields.fieldbyname('ygmc').Value;
frmyg.stgid1.Cells[2,i]:=aq1.Fields.fieldbyname('phone').Value;
frmyg.stgid1.Cells[3,i]:=aq1.Fields.fieldbyname('dz').Value;
frmyg.stgid1.Cells[4,i]:=aq1.Fields.fieldbyname('zw').Value;

aq1.Next;
end;
end;
frmyg.edit1.Text:=frmyg.stgid1.Cells[0,1];
frmyg.edit2.Text:=frmyg.stgid1.Cells[1,1];
frmyg.edit3.Text:=frmyg.stgid1.Cells[2,1];
frmyg.edit4.Text:=frmyg.stgid1.Cells[3,1];
frmyg.edit6.Text:=frmyg.stgid1.Cells[4,1];
screen.Cursor:=crDefault;
aq1.Close;
end;
end; 
procedure Tfrmygcx.FormCreate(Sender: TObject);
begin
edit1.Clear;
edit2.Clear; 
edit4.Clear;
edit5.Clear;
edit6.Clear;
end;


end.