creditreportunit.pas

教学管理系统源代码

unit creditReportUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, Mask;

type
  TcreditReportForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    GroupBox1: TGroupBox;
    DBEdit1: TMaskEdit;
    Label2: TLabel;
    Label1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  creditReportForm: TcreditReportForm;

implementation

uses datamoduleUnit;

{$R *.dfm}

procedure TcreditReportForm.BitBtn1Click(Sender: TObject);
begin
if (trim(DBedit1.Text)='')  then
  begin
    messagebox (handle,'条件不能为空，请输入！','警告',mb_ok) ;
    exit;
  end;
with datamodule1.Querystudent do
    begin
     close;
     SQL.Clear;
     sql.Add('select * from student');
     sql.Add('where  sno like :sno');
     Parameters.ParamByName('sno').Value:=trim(dbedit1.Text)+'%';
     prepared;
     open;
    end;
 datamodule1.Querycredit.Open;
 with datamodule1.RvProjectall do
begin
datamodule1.RvDataSetConnectionall.DataSet:=datamodule1.queryall;
SelectReport('creditreport',false);
Execute;
end;
end;

procedure TcreditReportForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
datamodule1.Querystudent.Close;
datamodule1.queryall.Close;

end;

end.