jbsrunit.pas

高校学生学籍管理系统源码

unit jbsrunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, ExtCtrls;

type
  Tjbsrtemp = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    DataSource1: TDataSource;
    qry: TQuery;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jbsrtemp: Tjbsrtemp;

implementation

uses bjglunit;

{$R *.dfm}

procedure Tjbsrtemp.Button1Click(Sender: TObject);
begin

with bjgl.qry do
begin
close;
sql.clear;
sql.add('select * from bjb0 where zymc=:name');
parambyname('name').AsString:=combobox1.text;
open;
end;

bjgl.ShowModal;

close;
end;

procedure Tjbsrtemp.FormCreate(Sender: TObject);
begin
combobox1.Items.clear;
with qry do
begin
 close;
 sql.clear;
 sql.add('select * from zyb0') ;
 open;
 first;
end;
if qry.recordcount>0 then
 combobox1.text:=qry.Fields[1].asstring;
repeat
 combobox1.items.add(qry.fields[1].asstring);
 until qry.findnext=false;
end;

end.