bookbrower.~pas

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

unit bookbrower;

interface

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

type
  TBookBrowerForm = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    GroupBox3: TGroupBox;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BookBrowerForm: TBookBrowerForm;

implementation

{$R *.dfm}

procedure TBookBrowerForm.SpeedButton2Click(Sender: TObject);
begin
    Close;
end;

procedure TBookBrowerForm.FormActivate(Sender: TObject);
begin
    radiobutton1.Checked:=true;
    edit1.text:='';
    edit2.Text:='';
    edit3.text:='';
    dbgrid1.DataSource:=datasource1;
    datasource1.DataSet:=adodataset1;
    adodataset1.Connection:=adoconnection1;
    adodataset1.close;
    adodataset1.CommandType:=cmdtext;
    adodataset1.commandtext:='select sum(教材数量*教材单价) from 教材表';
    adodataset1.Open;
    edit3.text:=FloatToStr(adodataset1.Fields[0].Value);
    adodataset1.close;
    adodataset1.CommandText:='select * from 教材表';
    adodataset1.open;
    edit2.text:=IntToStr(adodataset1.RecordCount);
end;

procedure TBookBrowerForm.SpeedButton1Click(Sender: TObject);
begin
    adodataset1.Close;
    adodataset1.CommandType:=cmdtext;
    if edit1.text='' then
        adodataset1.commandtext:='select sum(教材数量*教材单价) from 教材表'
    else if radiobutton1.Checked then
        adodataset1.commandtext:='select sum(教材数量*教材单价) from 教材表 where 教材名=:s0'
    else if radiobutton2.Checked then
        adodataset1.commandtext:='select sum(教材数量*教材单价) from 教材表 where 出版社=:s0'
    else if radiobutton3.checked then
        adodataset1.commandtext:='select sum(教材数量*教材单价) from 教材表 where 作者=:s0'
    else
        adodataset1.commandtext:='select sum(教材数量*教材单价) from 教材表 where 订书单位=:s0';
    if edit1.text<>'' then
    begin
        adodataset1.Parameters.Clear;
        adodataset1.Parameters.AddParameter;
        adodataset1.Parameters[0].name:='s0';
        adodataset1.Parameters[0].datatype:=ftstring;
        adodataset1.Parameters[0].Direction:=pdinput;
        adodataset1.Parameters[0].Value:=edit1.text;
    end;
    adodataset1.Open;
    if adodataset1.fields[0].value<>null then
        edit3.text:=FloatToStr(adodataset1.Fields[0].Value)
    else
        edit3.text:='';
    adodataset1.close;
    if edit1.text='' then
        adodataset1.commandtext:='select * from 教材表'
    else if radiobutton1.Checked then
        adodataset1.commandtext:='select * from 教材表 where 教材名=:s0'
    else if radiobutton2.Checked then
        adodataset1.commandtext:='select * from 教材表 where 出版社=:s0'
    else if radiobutton3.checked then
        adodataset1.commandtext:='select * from 教材表 where 作者=:s0'
    else
        adodataset1.commandtext:='select * from 教材表 where 订书单位=:s0';
    if edit1.text<>'' then
    begin
        adodataset1.Parameters.Clear;
        adodataset1.Parameters.AddParameter;
        adodataset1.Parameters[0].name:='s0';
        adodataset1.Parameters[0].datatype:=ftstring;
        adodataset1.Parameters[0].Direction:=pdinput;
        adodataset1.Parameters[0].Value:=edit1.text;
    end;
    adodataset1.open;
    if adodataset1.Recordset.RecordCount=1 then
        edit2.text:=IntToStr(adodataset1.RecordCount)
    else
        edit2.text:='';
end;

end.