kccx.~pas

企业库存管理系统

unit kccx;

interface

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

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

var
  kccxfrm: Tkccxfrm;

implementation
  uses main;
{$R *.dfm}

procedure Tkccxfrm.BitBtn1Click(Sender: TObject);
var  query:string;
begin
if radiobutton1.Checked=true then
   if edit1.Text='' then
    showmessage('请输入相应的查询条件!')
    else
    query:='select * from STORAGE where storageid='+''''+edit1.Text+'''';
if radiobutton2.Checked=true then
   query:='select * from STORAGE' ;
if radiobutton3.Checked=true then
  if edit2.Text='' then
    showmessage('请输入相应的查询条件!')
    else
   query:='select * from STORAGE where depotid='+''''+edit2.Text+'''' ;
if query<>'' then
  begin
  with adoquery1 do
   begin
   close;
   sql.Clear;
   sql.Add(query);
   open;
   first;
   if recordcount=0 then
     begin
     showmessage('没有符合条件的查询!');
     edit1.SetFocus;
     end
   else
   begin
    dbgrid1.Columns[0].FieldName:='storageid';
    dbgrid1.Columns[1].FieldName:='depotid';
    dbgrid1.Columns[2].FieldName:='depotname';
    dbgrid1.Columns[3].FieldName:='productid';
    dbgrid1.Columns[4].FieldName:='productname';
    dbgrid1.Columns[5].FieldName:='spec';
    dbgrid1.Columns[6].FieldName:='unit';
    dbgrid1.Columns[7].FieldName:='quantity';

    end;
   end;
   end;
end;

procedure Tkccxfrm.BitBtn2Click(Sender: TObject);
begin
mainfrm.Show;
kccxfrm.Hide;
end;

end.