kechengchaxun.pas.~1~

《Delphi程序员成长攻略》-蒙祖强龚涛的源代码

unit KechengChaxun;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, DB, ADODB, Grids, DBGrids, StdCtrls;
 // QExport3, QExport3XLS;

type
  TKechengChaxunForm = class(TForm)
    ComboBox1: TComboBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    ComboBox2: TComboBox;
    Button1: TButton;
    ADOConnection1: TADOConnection;
    DBGrid1: TDBGrid;
    ADODataSet1: TADODataSet;
    ADODataSet2: TADODataSet;
    ADODataSet3: TADODataSet;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DBNavigator1: TDBNavigator;
    DBGrid2: TDBGrid;
    Button2: TButton;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ADODataSet2AfterScroll(DataSet: TDataSet);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  KechengChaxunForm: TKechengChaxunForm;

implementation

{$R *.dfm}

procedure TKechengChaxunForm.FormActivate(Sender: TObject);
begin
      ComboBox1.Items.Clear;
      ADODataSet1.Close;
      ADODataSet1.CommandType:=cmdtext;
      ADODataSet1.CommandText:='select distinct clatable.name from clatable' ;
      adodataset1.Open;
        while not adodataset1.Eof do
        begin
           ComboBox1.Items.Add(adodataset1.Fields[0].AsString);
           adodataset1.Next;
        end;
      ComboBox2.Items.Clear;
      ADODataSet1.Close;
      ADODataSet1.CommandType:=cmdtext;
      ADODataSet1.CommandText:='select distinct coutable.name from coutable' ;
      adodataset1.Open;
        while not adodataset1.Eof do
        begin
           ComboBox2.Items.Add(adodataset1.Fields[0].AsString);
           adodataset1.Next;
        end;

end;

procedure TKechengChaxunForm.Button1Click(Sender: TObject);
begin

    adodataset2.Close;
    adodataset2.CommandType:=cmdtext;
    if (CheckBox1.Checked=true) and (CheckBox2.Checked=false) then
    adodataset2.commandtext:='select * from coutable where classname=:classname1 ';
    //if (CheckBox1.Checked=false) and CheckBox2.Checked then
    //adodataset2.commandtext:='select name from coutable where name=:name1';
    if (CheckBox1.Checked=true) and (CheckBox2.Checked=true) then
    adodataset2.commandtext:='select * from coutable where classname=:classname1 and name=:name1 ';
    if (CheckBox1.Checked=false) and (CheckBox2.Checked=false) then
    adodataset2.commandtext:='select * from coutable ';
    ADODataSet2.Parameters.clear;
    adodataset2.Parameters.AddParameter;
    adodataset2.Parameters[0].Name:='classname1';
    adodataset2.Parameters[0].DataType:=ftstring;
    adodataset2.Parameters[0].Direction:=pdinput;
    adodataset2.Parameters[0].Value:= ComboBox1.Text;
    adodataset2.Parameters.AddParameter;
    adodataset2.Parameters[1].Name:='name1';
    adodataset2.Parameters[1].DataType:=ftstring;
    adodataset2.Parameters[1].Direction:=pdinput;
    adodataset2.Parameters[1].Value:= ComboBox2.Text;
    if (CheckBox1.Checked=false) and CheckBox2.Checked then
    begin
    adodataset2.commandtext:='select * from coutable where name=:name2';
    ADODataSet2.Parameters.clear;
    adodataset2.Parameters.AddParameter;
    adodataset2.Parameters[0].Name:='name2';
    adodataset2.Parameters[0].DataType:=ftstring;
    adodataset2.Parameters[0].Direction:=pdinput;
    adodataset2.Parameters[0].Value:= ComboBox2.Text;
    end;
    adodataset2.Open;
end;

procedure TKechengChaxunForm.ADODataSet2AfterScroll(DataSet: TDataSet);
begin
    adodataset3.Close;
    adodataset3.CommandType:=cmdtext;
    adodataset3.commandtext:='select * from teatable where teatable.teacherno='''+adodataset2.Fields[9].AsString+'''';
    adodataset3.Open;
end;

procedure TKechengChaxunForm.Button2Click(Sender: TObject);
begin
close;
end;

procedure TKechengChaxunForm.Button3Click(Sender: TObject);
begin
//QExport3XLS1.Execute;
end;

end.