unit6.pas

学生宿舍管理系统,用于宿舍的信息管理,简单容易用.

unit Unit6;

interface

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

type
  TForm6 = class(TForm)
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    Edit2: TEdit;
    Label2: TLabel;
    BitBtn2: TBitBtn;
    Image1: TImage;
    Label3: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm6.FormActivate(Sender: TObject);
begin
  form6.ADOQuery1.Connection :=DataModule2.ADOConnection1 ;
  form6.ADOQuery1.SQL.Clear ;
  form6.ADOQuery1.SQL.Add('select 学生信息表.姓名,学生信息表.性别,学生信息表.电话,学生寝室表.寝室号,学生信息表.系别 from 学生寝室表,学生信息表  where 学生信息表.姓名='''+Edit1.Text+''' and 学生信息表.学号=学生寝室表.学号');
  form6.ADOQuery1.Open;
end;                                      //确定该学生的寝室号

procedure TForm6.BitBtn1Click(Sender: TObject);
begin
Close;
end;

procedure TForm6.DBGrid1DblClick(Sender: TObject);
begin
Edit2.Text :=DBGrid1.SelectedField.Text ;
end;

procedure TForm6.BitBtn2Click(Sender: TObject);
begin
form5.Edit3.Text :=Edit2.Text ;
close;
end;

end.