unit2select.~pas

超级简单的管理系统

unit Unit2select;

interface

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

type
  TfrmInfoSearch = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    DBGrid2: TDBGrid;
    SpeedButton2: TSpeedButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;

    procedure SpeedButton2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmInfoSearch: TfrmInfoSearch;

implementation

  uses Unit1,UnitHy,UnitHeJi;
{$R *.dfm}





procedure TfrmInfoSearch.SpeedButton2Click(Sender: TObject);
begin
   adoquery1.SQL.Clear ;

adoquery1.SQL.Add('select * from main where car_num=:a10' );

adoquery1.Parameters.ParamByName('a10').Value :=edit1.Text ;
adoquery1.Open ;

adoquery2.Close ;
adoquery2.SQL.Clear ;
adoquery2.SQL.Add('select * from name where car_num= :a11' );
adoquery2.Parameters.ParamByName('a11').Value :=edit1.Text  ;
adoquery2.Open ;
end;

procedure TfrmInfoSearch.N1Click(Sender: TObject);
begin
frmServer.Show;
end;

procedure TfrmInfoSearch.N2Click(Sender: TObject);
begin
frmHuiYuan.Show;
end;

procedure TfrmInfoSearch.N3Click(Sender: TObject);
begin
frmDataSum.Show;
end;

end.