cxghdw.~pas

库存管理信息系统 自带数据库 如有什么问题:247848560

unit cxghdw;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons;

type
  Tcxghdwfrm = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    Edit1: TEdit;
    RadioButton2: TRadioButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cxghdwfrm: Tcxghdwfrm;

implementation
uses main;
{$R *.dfm}

procedure Tcxghdwfrm.BitBtn1Click(Sender: TObject);
var query: string;
begin
if radiobutton1.checked=true then
  if edit1.text='' then
     showmessage('请输入相应的查询条件！')
  else
   query:='select * from FEEDER where feedername like'+''''+'%'+edit1.text+'%'+''''+'order by feederid';
if radiobutton2.checked=true then
query:='select * from FEEDER ';
if query<>'' then
begin
  with adoquery1 do
  begin
    close;
    sql.clear;
    sql.add(query);
    open;
    first;
    dbgrid1.Columns[0].FieldName:='feederid';
    dbgrid1.Columns[1].FieldName:='feedername';
    dbgrid1.Columns[2].FieldName:='address';
    dbgrid1.Columns[3].FieldName:='linkman';
    dbgrid1.Columns[4].FieldName:='tel';
    dbgrid1.Columns[5].FieldName:='fax';
    dbgrid1.Columns[6].FieldName:='zipcode';
    dbgrid1.Columns[7].FieldName:='feederremark';
    if recordcount=0 then
    begin
     showmessage('对不起，没有符合条件的查询结果');
     edit1.setfocus;
     end
    
   end;
   end;
   end;


procedure Tcxghdwfrm.BitBtn2Click(Sender: TObject);
begin
mainfrm.Show;
cxghdwfrm.Hide;
end;

end.