unit2.pas

来自「此系统为一教务管理系统」· PAS 代码 · 共 72 行

unit Unit2;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  StdCtrls, Forms, DBCtrls, DB, DBGrids, DBTables, Grids, Mask, ExtCtrls,
  Buttons;

type
  TForm2 = class(TForm)
    ScrollBox: TScrollBox;
    Label1: TLabel;
    EditDno: TDBEdit;
    Label2: TLabel;
    EditDname: TDBEdit;
    Label3: TLabel;
    EditTel: TDBEdit;
    Panel1: TPanel;
    DataSource1: TDataSource;
    Panel2: TPanel;
    Panel3: TPanel;
    Table1: TTable;
    EditNum: TEdit;
    Label4: TLabel;
    Query1: TQuery;
    DataSource3: TDataSource;
    BitBtn1: TBitBtn;
    Table1Dno: TStringField;
    Table1Dname: TStringField;
    Table1Tel: TStringField;
    DBNavigator1: TDBNavigator;
    Table2: TTable;
    DataSource2: TDataSource;
    DBGrid1: TDBGrid;
    Table2Sno: TIntegerField;
    Table2Sname: TStringField;
    Table2Sex: TStringField;
    Table2Age: TFloatField;
    Table2Dno: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure Table1AfterScroll(DataSet: TDataSet);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.DFM}

procedure TForm2.FormCreate(Sender: TObject);
begin
 Table1.Open;
 Table2.Open;
end;

procedure TForm2.Table1AfterScroll(DataSet: TDataSet);
begin
query1.close;
query1.ParamByName('dno').value:=editdno.Text;
query1.Open;
editnum.text:=query1.fields[0].asstring;
end;


end.