classbookbrower.~pas

本系统是一个由delphi制作而成的教材管理系统.

unit classbookbrower;

interface

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

type
  TClassBookBrowerForm = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    ComboBox1: TComboBox;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ClassBookBrowerForm: TClassBookBrowerForm;

implementation

{$R *.dfm}

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

procedure TClassBookBrowerForm.FormActivate(Sender: TObject);
var
    adotable:TAdoTable;
begin
    adotable:=TAdoTable.Create(self);
    adotable.Connection:=adoconnection1;
    adotable.TableName:='班级表';
    adotable.open;
    combobox1.Items.clear;
    while not adotable.Eof do
    begin
        combobox1.items.Add(adotable.fieldbyname('班级名').asstring);
        adotable.next;
    end;
    combobox1.text:='';
    adotable.close;
    dbgrid1.DataSource:=datasource1;
    datasource1.DataSet:=adoquery1;
    adoquery1.Connection:=adoconnection1;
    adoquery1.Close;
    RadioButton1.Checked:=true;
end;

procedure TClassBookBrowerForm.RadioButton1Click(Sender: TObject);
var
    adotable:TAdoTable;
begin
    adotable:=TAdoTable.Create(self);
    adotable.Connection:=adoconnection1;
    adotable.TableName:='班级表';
    adotable.open;
    combobox1.Items.clear;
    while not adotable.Eof do
    begin
        combobox1.items.Add(adotable.fieldbyname('班级名').asstring);
        adotable.next;
    end;
    combobox1.text:='';
    adotable.close;
    label1.caption:='选择查询班级名';
    adoquery1.Close;
    adoquery1.sql.Clear;
    adoquery1.sql.Add('select * from 学生书费历史库');
    adoquery1.Prepared;
    adoquery1.active:=true;
end;

procedure TClassBookBrowerForm.RadioButton2Click(Sender: TObject);
var
    adotable:TAdoTable;
begin
    adotable:=TAdoTable.Create(self);
    adotable.Connection:=adoconnection1;
    adotable.TableName:='单位信息表';
    adotable.open;
    combobox1.Items.clear;
    while not adotable.Eof do
    begin
        combobox1.items.Add(adotable.fieldbyname('单位名').asstring);
        adotable.next;
    end;
    combobox1.text:='';
    adotable.close;
    label1.caption:='选择单位名';
    adoquery1.Close;
    adoquery1.sql.Clear;
    adoquery1.sql.Add('select * from 学生书费历史库');
    adoquery1.Prepared;
    adoquery1.active:=true;
end;

procedure TClassBookBrowerForm.ComboBox1Click(Sender: TObject);
begin
    adoquery1.Close;
    adoquery1.sql.clear;
    adoquery1.SQL.Add('select * from 学生书费历史库 where 班级名=:s0');
    adoquery1.Parameters.clear;
    adoquery1.Parameters.AddParameter;
    adoquery1.Parameters[0].name:='s0';
    adoquery1.Parameters[0].DataType:=ftstring;
    adoquery1.Parameters[0].Direction:=pdinput;
    adoquery1.Parameters[0].Value:=combobox1.text;
    adoquery1.Prepared;
    adoquery1.active:=true;
end;

end.