cjcx.~pas

delphi下 数据库图书馆管理系统的实现

unit CJCX;

interface

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

type
  TCJCXForm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ListBox1: TListBox;
    DBGrid1: TDBGrid;
    BitBtn3: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Bevel1: TBevel;
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Exit(Sender: TObject);
    procedure ComboBox2Select(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CJCXForm: TCJCXForm;

implementation
uses DataModule;
{$R *.dfm}

procedure TCJCXForm.FormShow(Sender: TObject);
var i:integer;
begin
    Combobox1.Clear;
    with datamodule1 do
        begin
            table2.Active :=true;
            table2.first;
            for i:=1 to table2.RecordCount do
                begin
                    Combobox1.items.add(table2.FieldValues['bjbh']);
                    table2.Next;
                end;
        end;
end;

procedure TCJCXForm.ComboBox1Exit(Sender: TObject);
begin
    if combobox1.Text='' then
        begin
            messagedlg('请选择班级编号',mtwarning , [mbok],0);
            combobox1.SetFocus;
        end
    else
        combobox2.SetFocus;
end;
procedure TCJCXForm.ComboBox2Select(Sender: TObject);
var i:integer;
begin
    listbox1.Clear;
    with datamodule1.Query1 do
        begin
            close;
            sql.Clear;
            sql.Add('select kcmc from bjkc where (bjbh=:p1) and (xq=:p2)');
            ParamByName('p1').AsString:=trim(combobox1.Text);
            parambyname('p2').AsString:=inttostr(combobox2.itemindex);
            prepare;
            open;
            first;
            for i:=1 to  RecordCount do
                begin
                    listbox1.Items.Add(fieldvalues['kcmc']);
                    next;
                end;
        end;
end;


procedure TCJCXForm.BitBtn1Click(Sender: TObject);
var s:integer;
begin
    s:=listbox1.ItemIndex;
    with datamodule1.Query2 do
        begin
            close;
            sql.Clear;
            sql.Add('select distinct (cj.xh) as 学号,(cj.xq) as 学期,(jiben.xm) as 姓名,(cj.cj) as 成绩 from cj,jiben, (jiben left join cj on jiben.xh=cj.xh) where kcmc=:p1');
            parambyname('p1').AsString:=listbox1.Items[s];
            prepare;
            open;
        end;
end;
procedure TCJCXForm.BitBtn2Click(Sender: TObject);
begin
    combobox1.Text:='';
    combobox2.Text:='';
    listbox1.Clear;
    datamodule1.Query2.Close;
    dbgrid1.Refresh;
end;

procedure TCJCXForm.BitBtn3Click(Sender: TObject);
begin
    Close;
end;

end.