unit BJ;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, ComCtrls;

type
  TBJForm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    ListView1: TListView;
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
   row:integer;
    { Public declarations }
  end;

var
  BJForm: TBJForm;

implementation

uses datamodule;

{$R *.dfm}

procedure TBJForm.Button4Click(Sender: TObject);
begin
close;
end;

procedure TBJForm.Button1Click(Sender: TObject);
var
 query:Tadoquery;
 sql:string;
 Fname:string;
begin
 if inputquery('輸入班級(jí)名稱','',Fname) then
  begin
   if Fname='' then exit;
   query:=Tadoquery.Create(self);
   query.Connection:=dmfm.ADOConnection;

   sql:=format('select * from tbj where fname=''%s''',[Fname]);
   query.close;
   query.sql.text:=sql;
   query.open;
   if not query.IsEmpty then
    begin
     messagebox(handle,'班級(jí)名稱已經(jīng)存在','提示',mb_iconwarning);
     exit;
    end;

   sql:=format('insert tbj(Fname) values(''%s'')',[Fname]);
   query.close;
   query.sql.text:=sql;
   query.ExecSQL;
   
   query.Destroy;
   formshow(sender);
  end;
end;

procedure TBJForm.FormShow(Sender: TObject);
var
 query:Tadoquery;
 sql:string;
 i:integer;
begin
 query:=Tadoquery.Create(self);
 query.Connection:=dmfm.ADOConnection;
 sql:='select * from Tbj order by fname';
 query.close;
 query.sql.text:=sql;
 query.open;
 listview1.Items.Clear;
 i:=0;
 while not query.eof do
  begin
   listview1.Items.Add();
   listview1.Items[i].Caption:=query.fieldbyname('fname').AsString;
   listview1.Items[i].SubItems.Add(query.fieldbyname('id').AsString);
   query.next;
   i:=i+1;
  end;

 query.Destroy;
 row:=0;
 listview1.SetFocus;

end;

procedure TBJForm.Button2Click(Sender: TObject);
var
 query:Tadoquery;
 sql:string;
 Fname:string;
begin
 if listview1.ItemIndex=-1 then exit;
 if messagebox(handle,'你真的要?jiǎng)h除此班級(jí)嗎？','提示',mb_iconwarning+mb_yesno)=idno then exit;

   query:=Tadoquery.Create(self);
   query.Connection:=dmfm.ADOConnection;

   sql:=format('select * from cardtb  where class=%s',[listview1.Selected.SubItems[0]]);
   query.close;
   query.sql.text:=sql;
   query.open;
   if not query.IsEmpty then
    begin
     messagebox(handle,'班級(jí)已經(jīng)存在學(xué)生,不能刪除','提示',mb_iconwarning);
     exit;
    end;

   sql:=format('delete tbj where ID=%s ',[listview1.Selected.SubItems[0]]);
   query.close;
   query.sql.text:=sql;
   query.ExecSQL;

   query.Destroy;
   formshow(sender);
end;
procedure TBJForm.Button3Click(Sender: TObject);
var
 query:Tadoquery;
 sql:string;
 Fname:string;
begin
 if listview1.ItemIndex=-1 then exit;

   query:=Tadoquery.Create(self);
   query.Connection:=dmfm.ADOConnection;

   sql:=format('select * from cardtb  where class=%s',[listview1.Selected.SubItems[0]]);
   query.close;
   query.sql.text:=sql;
   query.open;
   if not query.IsEmpty then
    begin
     messagebox(handle,'班級(jí)已經(jīng)存在學(xué)生,不能修改','提示',mb_iconwarning);
     exit;
    end;

   Fname:=listview1.Selected.Caption;
   if not inputquery('輸入班級(jí)名稱','',Fname) then exit;

   sql:=format('update tbj  set fname=''%s''  where ID=%s',[Fname,listview1.Selected.SubItems[0]]);
   query.close;
   query.sql.text:=sql;
   query.ExecSQL;

   query.Destroy;
   formshow(sender);
end;

end.