guanliu.pas

源代码竟供大家参考

unit GuanLiU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB, ComCtrls, ExtCtrls, DBCtrls,
  StdCtrls, Mask;

type
  TFrmGuanli = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    PageControl2: TPageControl;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    DBGrid4: TDBGrid;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    ADOQuery1DSDesigner: TDateTimeField;
    ADOQuery1DSDesigner2: TWideStringField;
    ADOQuery1DSDesigner3: TWideStringField;
    ADOQuery1DSDesigner4: TWideStringField;
    ADOQuery1DSDesigner5: TDateTimeField;
    ADOQuery1DSDesigner6: TIntegerField;
    ADOQuery1DSDesigner7: TDateTimeField;
    ADOQuery1DSDesigner8: TFloatField;
    ADOQuery1DSDesigner9: TFloatField;
    ADOQuery1DSDesigner10: TFloatField;
    ADOQuery1DSDesigner11: TIntegerField;
    ADOQuery2ID: TAutoIncField;
    ADOQuery2DSDesigner: TWideStringField;
    ADOQuery2DSDesigner2: TWideStringField;
    ADOQuery2A: TWideStringField;
    ADOQuery2B: TWideStringField;
    ADOQuery2C: TWideStringField;
    ADOQuery2D: TWideStringField;
    ADOQuery2E: TWideStringField;
    ADOQuery2F: TWideStringField;
    ADOQuery2G: TWideStringField;
    ADOQuery2H: TWideStringField;
    ADOQuery2DSDesigner3: TWideStringField;
    ADOQuery2DSDesigner4: TWideStringField;
    ADOQuery3ID: TAutoIncField;
    ADOQuery3DSDesigner: TWideStringField;
    ADOQuery3DSDesigner2: TWideStringField;
    ADOQuery3A: TWideStringField;
    ADOQuery3B: TWideStringField;
    ADOQuery3C: TWideStringField;
    ADOQuery3D: TWideStringField;
    ADOQuery3E: TWideStringField;
    ADOQuery3F: TWideStringField;
    ADOQuery3G: TWideStringField;
    ADOQuery3H: TWideStringField;
    ADOQuery3A2: TBooleanField;
    ADOQuery3B2: TBooleanField;
    ADOQuery3C2: TBooleanField;
    ADOQuery3D2: TBooleanField;
    ADOQuery3E2: TBooleanField;
    ADOQuery3F2: TBooleanField;
    ADOQuery3G2: TBooleanField;
    ADOQuery3H2: TBooleanField;
    ADOQuery3A3: TBooleanField;
    ADOQuery3B3: TBooleanField;
    ADOQuery3C3: TBooleanField;
    ADOQuery3D3: TBooleanField;
    ADOQuery3E3: TBooleanField;
    ADOQuery3F3: TBooleanField;
    ADOQuery3G3: TBooleanField;
    ADOQuery3H3: TBooleanField;
    ADOQuery4ID: TAutoIncField;
    ADOQuery4DSDesigner: TWideStringField;
    ADOQuery4DSDesigner2: TWideStringField;
    ADOQuery4DSDesigner3: TWideStringField;
    ADOQuery4DSDesigner4: TWideStringField;
    ADOQuery4DSDesigner5: TWideStringField;
    ADOQuery4DSDesigner6: TWideStringField;
    ADOTable1: TADOTable;
    DataSource5: TDataSource;
    DBGrid5: TDBGrid;
    DBNavigator1: TDBNavigator;
    TabSheet6: TTabSheet;
    DBGrid6: TDBGrid;
    DBNavigator2: TDBNavigator;
    ADOTable2: TADOTable;
    DataSource6: TDataSource;
    ADOTable2ID: TAutoIncField;
    ADOTable2Random: TIntegerField;
    ADOTable2DSDesigner: TWideStringField;
    ADOTable2A: TWideStringField;
    ADOTable2B: TWideStringField;
    ADOTable2C: TWideStringField;
    ADOTable2D: TWideStringField;
    ADOTable2E: TWideStringField;
    ADOTable2F: TWideStringField;
    ADOTable2G: TWideStringField;
    ADOTable2H: TWideStringField;
    ADOTable2DSDesigner2: TWideStringField;
    ADOTable2DSDesigner3: TBlobField;
    TabSheet7: TTabSheet;
    TabSheet8: TTabSheet;
    TabSheet9: TTabSheet;
    DBGrid7: TDBGrid;
    DBGrid8: TDBGrid;
    DataSource7: TDataSource;
    ADOTable3: TADOTable;
    ADOTable3ID: TAutoIncField;
    ADOTable3Random: TIntegerField;
    ADOTable3DSDesigner: TWideStringField;
    ADOTable3A: TWideStringField;
    ADOTable3B: TWideStringField;
    ADOTable3C: TWideStringField;
    ADOTable3D: TWideStringField;
    ADOTable3E: TWideStringField;
    ADOTable3F: TWideStringField;
    ADOTable3G: TWideStringField;
    ADOTable3H: TWideStringField;
    ADOTable3A2: TBooleanField;
    ADOTable3B2: TBooleanField;
    ADOTable3C2: TBooleanField;
    ADOTable3D2: TBooleanField;
    ADOTable3E2: TBooleanField;
    ADOTable3F2: TBooleanField;
    ADOTable3G2: TBooleanField;
    ADOTable3H2: TBooleanField;
    ADOTable3DSDesigner2: TBlobField;
    ADOTable4: TADOTable;
    DataSource8: TDataSource;
    ADOTable4ID: TAutoIncField;
    ADOTable4Random: TIntegerField;
    ADOTable4DSDesigner: TWideStringField;
    ADOTable4DSDesigner2: TWideStringField;
    ADOTable4DSDesigner3: TWideStringField;
    ADOTable4DSDesigner4: TBlobField;
    ADOTable5: TADOTable;
    DataSource9: TDataSource;
    ADOTable5DSDesigner: TIntegerField;
    ADOTable5DSDesigner2: TIntegerField;
    ADOTable5DSDesigner3: TIntegerField;
    ADOTable5DSDesigner4: TIntegerField;
    ADOTable5DSDesigner5: TWideStringField;
    ADOTable5DSDesigner6: TIntegerField;
    ADOTable5DSDesigner7: TIntegerField;
    ADOTable5DSDesigner8: TIntegerField;
    ADOTable5DSDesigner9: TWideStringField;
    ADOTable5DSDesigner10: TIntegerField;
    ADOTable5DSDesigner11: TIntegerField;
    ADOTable5DSDesigner12: TWideStringField;
    ADOTable5DSDesigner13: TWideStringField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    Label11: TLabel;
    DBEdit11: TDBEdit;
    Label12: TLabel;
    DBEdit12: TDBEdit;
    Label13: TLabel;
    DBEdit13: TDBEdit;
    DBNavigator3: TDBNavigator;
    DBNavigator4: TDBNavigator;
    DBNavigator5: TDBNavigator;
    procedure FormCreate(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
    procedure RefreshTestRecord();
  public
    { Public declarations }
  end;

var
  FrmGuanli: TFrmGuanli;

implementation

{$R *.dfm}

{ TForm1 }

procedure TFrmGuanli.RefreshTestRecord;
begin
  self.ADOQuery2.Close;
  self.ADOQuery2.Parameters[0].Value := self.ADOQuery1.FieldByName('考生学号').Value;
  self.ADOQuery2.Open;
  self.ADOQuery3.Close;
  self.ADOQuery3.Parameters[0].Value := self.ADOQuery1.FieldByName('考生学号').Value;
  self.ADOQuery3.Open;
  self.ADOQuery4.Close;
  self.ADOQuery4.Parameters[0].Value := self.ADOQuery1.FieldByName('考生学号').Value;
  self.ADOQuery4.Open;
end;

procedure TFrmGuanli.FormCreate(Sender: TObject);
begin
  RefreshTestRecord;
end;

procedure TFrmGuanli.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  RefreshTestRecord()
end;

end.