frmxxcx.~pas

本软件应用了Delphi提供的BDE数据库引擎。本系统为政教管理系统

unit frmxxcx;

interface

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

type
  Tfrmcx = class(TForm)
    Table1: TTable;
    ComboBox1: TComboBox;
    Button1: TButton;
    DBNavigator1: TDBNavigator;
    BitBtn1: TBitBtn;
    dsstudent: TDataSource;
    Qrystudent: TQuery;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;

    procedure Button1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmcx: Tfrmcx;

implementation
 uses dm3;
{$R *.dfm}

{procedure Tfrmcx.FormActivate(Sender: TObject);
begin
table1.First;
//table2.First;
while not table1.Eof do
begin
//如果组合框中没有则添加
if combobox1.Items.IndexOf(table1.Fieldbyname('classno').Value )<0 then
combobox1.Items.Add(table1.fieldbyname('classno').Value);
table1.Next;
end;
combobox1.Text:=combobox1.Items[2];
end;}

procedure Tfrmcx.Button1Click(Sender: TObject);
var sname:string;
classno:integer;
begin
  if combobox1.Text='学号'then
     begin
     classno:=strtoint(Edit1.text);
     table1.Open;
     if table1.Locate('学号',classno,[])then
      //如果存在该学号
        begin
        qrystudent.Close;
        qrystudent.ParamByName('学号').Value:=classno;
        qrystudent.Prepare;
        qrystudent.Open;  //如果数据表中存在该班名，则查询
        end
        else
        showmessage('没有查找到相关信息!'  );
        end
    else
      begin
      sname:=Edit1.text;
      table1.Open;
      if table1.Locate('姓名',sname,[])then
       //如果存在该姓名
        begin
        qrystudent.Close;
        qrystudent.ParamByName('姓名').Value:=sname;
        qrystudent.Prepare;
        qrystudent.Open;  //如果数据表中存在该学生名，则查询
        end
        else
        showmessage('没有查找到相关信息!'  );
        
      end ;
end;

procedure Tfrmcx.ComboBox1Change(Sender: TObject);
begin
  if  combobox1.Text='学号' then
  begin

      Qrystudent.Close;
      Qrystudent.sql.Clear;
      Qrystudent.sql.Add('select * from student.db where 学号=:学号');
   end
   else
   begin
      Qrystudent.Close;
      Qrystudent.sql.Clear;
      Qrystudent.sql.Add('select * from student.db where 姓名=:姓名');
   end;
   edit1.SetFocus;   
end;

procedure Tfrmcx.FormActivate(Sender: TObject);
begin
edit1.SetFocus;
end;

end.