unit20.pas

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

unit Unit20;

interface

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

type
  TForm20 = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Label1: TLabel;
    Image1: TImage;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    flag :integer;
  end;

var
  Form20: TForm20;

implementation
 uses Unit19;
{$R *.dfm}

procedure TForm20.FormActivate(Sender: TObject);
begin
ADOQuery1.Connection :=DataModule2.ADOConnection1 ;
ADOQuery1.Close ;
ADOQuery1.SQL.Clear ;
ADOQuery1.SQL.Text :='select * from 来访表 where 来访人姓名=:A and 证件名称=:B';
ADOQuery1.Parameters.ParamByName('A').Value  :=trim(Form19.Edit2.Text);
ADOQuery1.Parameters.ParamByName('B').Value :=trim(Form19.ComboBox2.Text );
ADOQuery1.Prepared ;
ADOQuery1.Open ;
end;

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

procedure TForm20.DBGrid1DblClick(Sender: TObject);
begin
Form19.Edit1.Text  :=ADOQuery1.FieldByName('被访人姓名').AsString ;
Form19.Edit5.Text  :=ADOQuery1.FieldByName('所属关系').AsString ;
Form19.Edit3.Text  :=ADOQuery1.FieldByName('被访人寝室号').AsString ;
Form19.ComboBox1.Text  :=ADOQuery1.FieldByName('值班人').AsString ;
Form19.Memo1.Text  :=ADOQuery1.FieldByName('备注').AsString ;
Form19.DateTimePicker1.Time :=ADOQuery1.FieldByName('来访时间').AsDateTime ;
Form19.DateTimePicker3.Date :=ADOQuery1.FieldByName('来访日期').AsDateTime ;
//ADOQuery1.Close;
flag :=1;
self.Hide ;
end;

end.