shanchubanji.~pas

有不足之处请指出

unit shanchubanji;

interface

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

type
  TshanchubanjiForm = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    DeletebanjiQuery: TQuery;
    DeletexueshengQuery: TQuery;
    DeletebanjiQueryBianhao: TStringField;
    DeletebanjiQueryMingcheng: TStringField;
    DeletebanjiQueryNansheng: TIntegerField;
    DeletebanjiQueryNvsheng: TIntegerField;
    DeletexueshengQueryXuehao: TStringField;
    DeletexueshengQueryXingming: TStringField;
    DeletexueshengQueryXingbie: TStringField;
    DeletexueshengQueryBanji: TStringField;
    DeletexueshengQueryChushengnianyue: TStringField;
    DeletexueshengQueryJiguan: TStringField;
    DeletexueshengQueryFumuxingming: TStringField;
    DeletexueshengQueryLianxidianhua: TStringField;
    DeletexueshengQueryXianzhuzhi: TStringField;
    BanjiTable: TTable;
    BanjiTableBianhao: TStringField;
    BanjiTableMingcheng: TStringField;
    BanjiTableNansheng: TIntegerField;
    BanjiTableNvsheng: TIntegerField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  shanchubanjiForm: TshanchubanjiForm;

implementation

{$R *.dfm}

procedure TshanchubanjiForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
Action:=caFree;
end;

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

procedure TshanchubanjiForm.FormCreate(Sender: TObject);
var i:integer;
begin
  ComboBox1.Clear ;
  banjiTable.Open ;
  i:=0;
  banjiTable.First ;
  while i<banjiTable.RecordCount do
    begin
      ComboBox1.Items.Insert(i,banjiTablemingcheng.Value);
      banjiTable.Next ;
      i:=i+1;
    end;
  banjiTable.Close;     
end;

procedure TshanchubanjiForm.FormShow(Sender: TObject);
begin
ComboBox1.SetFocus ;
ComboBox1.Focused ;
Button1.Enabled :=false;
end;

procedure TshanchubanjiForm.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text <>'' then
  begin
    Button1.Enabled:=true;
    Button1.SetFocus ;
    Button1.Focused;
  end
else
  begin
    Button1.Enabled :=False;
  end;
end;

procedure TshanchubanjiForm.Button1Click(Sender: TObject);
var i:integer;
    bjname:string[20];
begin
  bjname:=ComboBox1.Text ;
  DeletebanjiQuery.Close ;
  DeletebanjiQuery.SQL.Clear ;
  DeletebanjiQuery.Params.Clear ;
  DeletebanjiQuery.Params.CreateParam(ftstring,'bj1',ptinput).AsString :=ComboBox1.Text ;
  DeletebanjiQuery.SQL.Add('delete from classes where mingcheng=:bj1;');
  DeletebanjiQuery.ExecSQL ;
  DeletebanjiQuery.Close ;
  DeletebanjiQuery.SQL.Clear;
  DeletebanjiQuery.Params.Clear ;
  DeletebanjiQuery.Params.CreateParam(ftstring,'bj2',ptinput).AsString :=ComboBox1.Text ;
  DeletebanjiQuery.SQL.Add('delete from students where banji=:bj2;');
  DeletebanjiQuery.ExecSQL ;
  ComboBox1.Clear ;
  banjiTable.Open;
  i:=0;
  banjiTable.First ;
  while i<banjiTable.RecordCount do
    begin
      ComboBox1.Items.Insert(i,banjiTablemingcheng.Value);
      banjiTable.Next ;
      i:=i+1;
    end;
  banjiTable.Close ;
  messagebeep(1);
  showmessage(bjname+'和该班级中的所有学生档案信息已经删除!');
  Button1.Enabled :=False;
  Combobox1.Text :='';
  ComboBox1.SetFocus ;
  ComboBox1.Focused ;
end;

end.