unit9.~pas

学籍管理系统（MSS）是集计算机技术、网络通信技术为一体的信息系统工程

unit Unit9;

interface

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

type
  TqxForm = class(TForm)
    Table1: TTable;
    Query1: TQuery;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    ListBox2: TListBox;
    ListBox3: TListBox;
    Button3: TButton;
    Button4: TButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  qxForm: TqxForm;

implementation

uses Unit3, Unit10;

{$R *.dfm}

procedure TqxForm.Button1Click(Sender: TObject);
var a:string; c:integer;
begin
   if listbox1.ItemIndex > -1 then
   a:=listbox1.Items[listbox1.itemindex];
   c:=length(a);
   delete(a,c - 1,2);
   table1.Open;
   if table1.FindKey([a]) then
      begin
      table1.Edit;
      table1.FieldByName('quanxian').Value:='administra';
      table1.Post;
      listbox2.Items.Add(a);
      listbox1.DeleteSelected;
      end;

end;

procedure TqxForm.FormCreate(Sender: TObject);
 var i:integer;
begin
     with query1 do
     begin
         close;
         sql.Clear;
         sql.Add('select yonghu, quanxian from yonghu.db');
         prepare;
         open;
         first;
         for i:=1 to recordCount do
             begin
             if fieldvalues['quanxian']='administra' then
             listbox1.Items.Add(fieldvalues['yonghu']+'+A')
             else if fieldvalues['quanxian']='student' then
             listbox1.Items.Add(fieldvalues['yonghu']+'+B')
             else if  fieldvalues['quanxian']=null then
             listbox1.Items.Add(fieldvalues['yonghu']+'+c');
             next;
             end;
           close;
           end;
end;

procedure TqxForm.Button4Click(Sender: TObject);
 var a:variant;
begin
    if listbox2.ItemIndex > - 1 then
    begin
    a:=listbox2.Items[listbox2.ItemIndex];
    table1.Open;
    if table1.FindKey([a]) then
       begin
       table1.Edit;
       table1.FieldByName('quanxian').Value:='';
       table1.Post;
       listbox1.Items.Add(a+'c');
       end;
     end
     else if listbox3.ItemIndex > -1 then
     begin
      a:=listbox3.Items[listbox3.ItemIndex];
     table1.Open;
     if table1.FindKey([a]) then
        begin
        table1.Edit;
        table1.FieldByName('quanxian').Value:='';
        table1.Post;
        listbox3.DeleteSelected;
        listbox1.Items.Add(a +'+ c ');
        end;
        end;

end;

procedure TqxForm.BitBtn2Click(Sender: TObject);
begin
 close;

end;

procedure TqxForm.BitBtn1Click(Sender: TObject);
begin
close;
frmmain.n11.click;
end;

procedure TqxForm.Button3Click(Sender: TObject);
var r:integer;

begin
r:=tjyhform.showmodal;
if r=mrok then
listbox1.Items.Add(tjyhform.edituser.text +' + c');

end;

end.