cxkc.pas

来自「企业库存管理系统」· PAS 代码 · 共 83 行

unit cxkc;

interface

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

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

var
  cxckfrm: Tcxckfrm;

implementation

{$R *.dfm}

procedure Tcxckfrm.BitBtn1Click(Sender: TObject);
begin
if radiobutton1.Checked=true then
   if edit1.Text='' then
   showmessage('请输入相应的查询条件！')
   else
   begin
    with adoquery1 do
       begin
       close;
       sql.Clear;
       sql.Add('select * from DEPOT where depotid=:str');
       adoquery1.Parameters.ParamByName('str').Value:=edit1.Text;
       open;
       first;
       if recordcount=0 then
          begin
          showmessage('没有符合条件的查询！');
          edit1.SetFocus;
          end
        else
        begin
          with adoquery2 do
            begin
            close;
            sql.Clear;
            sql.Add('select * from DEPOT where depotid='+''''+edit1.Text+'''');
            open;
            first;
            dbgrid1.Columns[0].FieldName:='depotid';
            dbgrid1.Columns[1].FieldName:='depotname';
            dbgrid1.Columns[2].FieldName:='address';
            dbgrid1.Columns[3].FieldName:='principal';
            end;
         end;
        end;
        end;
        end;   


procedure Tcxckfrm.BitBtn2Click(Sender: TObject);
begin
close;
end;

end.