cxkc.~pas

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

unit cxkc;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons, SUIDBCtrls,
  SUIEdit, SUIButton, SUIImagePanel, SUIGroupBox, ExtCtrls, SUIForm;

type
  Tcxckfrm = class(TForm)
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    suiForm1: TsuiForm;
    GroupBox1: TsuiGroupBox;
    RadioButton1: TsuiRadioButton;
    BitBtn1: TsuiButton;
    Edit1: TsuiEdit;
    BitBtn2: TsuiButton;
    GroupBox2: TsuiGroupBox;
    DBGrid1: TsuiDBGrid;
    procedure suitempBitBtn1Click(Sender: TObject);
    procedure suitempBitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cxckfrm: Tcxckfrm;

implementation

{$R *.dfm}

procedure Tcxckfrm.suitempBitBtn1Click(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.suitempBitBtn2Click(Sender: TObject);
begin
close;
end;

end.