query.pas

本文件为使用Delphi开发的学生信息管理系统,演示了如何使用BDE来开发数据库应用程序!

unit query;

interface

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

type
  TfrmSearch = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Button1: TButton;
    Panel2: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    Panel4: TPanel;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit6: TDBEdit;
    Label8: TLabel;
    DBEdit7: TDBEdit;
    Label9: TLabel;
    DBEdit8: TDBEdit;
    Label10: TLabel;
    DBLookupComboBox2: TDBLookupComboBox;
    DBNavigator2: TDBNavigator;
    ComboBox1: TComboBox;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit5: TDBEdit;
    BitBtn1: TBitBtn;
    procedure Button1Click(Sender: TObject);
   
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSearch: TfrmSearch;

implementation

uses dm3; //引用数据模块单元

{$R *.dfm}
//根据系别执行查询
procedure TfrmSearch.Button1Click(Sender: TObject);
var dno:integer;
begin
   //如果数据表中存在该系别名称，则执行查询
   if datamodule3.tblDEPT.Locate('dname',combobox1.Text,[]) then
   begin
   dno:=DataModule3.tblDEPT.fieldbyname('dno').Value;//取得dno字段值
   datamodule3.qryCOUNT.Close;
   datamodule3.qryDEPT.Close;
   datamodule3.qryStudent.Close;
   //执行统计学生总数
   datamodule3.qryCOUNT.ParamByName('dno').Value:=dno;
   //执行系别信息查询
   datamodule3.qryDEPT.ParamByName('dno').Value:=dno;
   //执行学生信息查询
   datamodule3.qryStudent.ParamByName('dno').Value:=dno;
   datamodule3.qryCOUNT.Open;
   datamodule3.qryDEPT.Open;
   datamodule3.qryStudent.Open;
   end;
end;

//窗体活动时，将dept数据表中的所有系别
//添加到combobox1组合框，注意，不能在oncreate事件中
//因为当oncreate事件发生时，datamodule3数据模块还没有创建
procedure TfrmSearch.FormActivate(Sender: TObject);
begin
datamodule3.tblDEPT.First;
while not datamodule3.tblDEPT.Eof do
begin
 //如果组合框中没有该条目，则添加
  if combobox1.Items.IndexOf(datamodule3.tblDEPT.fieldbyname('dname').Value)<0 then
  combobox1.Items.Add(datamodule3.tblDEPT.fieldbyname('dname').Value) ;
  datamodule3.tblDEPT.Next;
end;
combobox1.Text:=combobox1.Items[0];//将第一个条目显示在combobox组合框中
end;

end.