xszc.~pas

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

unit XSZC;

interface

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

type
  TXSZCForm = class(TForm)
    RadioGroup1: TRadioGroup;
    Panel1: TPanel;
    ListBox2: TListBox;
    ListBox1: TListBox;
    Label4: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Button4: TButton;
    Button3: TButton;
    Button2: TButton;
    Button1: TButton;
    Bevel1: TBevel;
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Select(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XSZCForm: TXSZCForm;

implementation

{$R *.dfm}

procedure TXSZCForm.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 TXSZCForm.ComboBox1Select(Sender: TObject);
var i:integer;
begin
    listbox2.clear;
    with datamodule1.Query2 do
        begin
            close;
            sql.Clear;
            sql.Add('select xh, xm from jiben where bjbh=:p1');
            parambyname('p1').AsString:=combobox1.Text;
            prepare;
            open;
            listbox1.Clear;
            first;
            for i:=1 to RecordCount do
                begin
                    listbox1.Items.Add(fieldvalues['xh']+'  '+fieldvalues['xm']);
                    next;
                end;
        end;
    with datamodule1.Table2 do
        begin
            edit1.Text:=fieldvalues['sfje']
        end;
end;

procedure TXSZCForm.Button3Click(Sender: TObject);
var a: integer;
    b:string;
begin
    a:=listbox1.ItemIndex;
    if radiogroup1.ItemIndex=0 then
        b:='1';
    if radiogroup1.ItemIndex=1 then
        b:='2';
    if radiogroup1.ItemIndex=2 then
        b:='3';
    if radiogroup1.ItemIndex=3 then
        b:='4';
    if radiogroup1.ItemIndex=3 then
        b:='5';
    if a>-1 then
        with datamodule1 do
            begin
                table3.open;
                table3.setkey;
                if table3.FindKey([copy(listbox1.Items[a],1,6)]) then
                    messagedlg('该生已注册',mtwarning,[mbok],0)
                else
                    begin
                        listbox2.Items.Add(copy(listbox1.Items[a],1,6));
                        table3.Append;
                        table3.FieldValues['xh']:=copy(listbox1.Items[a],1,6);
                        table3.FieldValues['xn']:=b;
                        table3.FieldValues['zc']:=true;
                        table3.post;
                        listbox1.Items.Delete(a);
                    end;
            end
    else
        messagedlg('该班已注册完毕',mtinformation,[mbok],0);
end;
procedure TzcForm.Button4Click(Sender: TObject);
var c:integer;
begin
c:=listbox2.itemindex;
if c>-1 then
begin
with datamodule1 do
begin
table3.Open;
table3.SetKey;
if table3.FindKey([listbox2.items[c]]) then
begin
table3.Edit;
table3.FieldValues['zc']:=False;
end;
end;
listbox2.Items.Delete(c);
end
else
messagedlg('请选择要取消注册的学号！',mtwarning,[mbok],0);
end;

procedure TXSZCForm.Button4Click(Sender: TObject);
var c:integer;
begin
    c:=listbox2.itemindex;
    if c>-1 then
        begin
            with datamodule1 do
                begin
                    table3.Open;
                    table3.SetKey;
                    if table3.FindKey([listbox2.items[c]]) then
                        begin
                            table3.Edit;
                            table3.FieldValues['zc']:=False;
                        end;
                end;
            listbox2.Items.Delete(c);
        end
    else
        messagedlg('请选择要取消注册的学号！',mtwarning,[mbok],0);
end;

procedure TXSZCForm.Button1Click(Sender: TObject);
begin
    combobox1.Text:='';
    edit1.Text:='';
    listbox1.Clear;
    listbox2.Clear;
end;

procedure TXSZCForm.Button2Click(Sender: TObject);
begin
    Close;
end;

end.