xiugaibanji.pas

有不足之处请指出

unit xiugaibanji;

interface

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

type
  TxiugaibanjiForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    updatebanjiQuery: TQuery;
    updatexueshengQuery: TQuery;
    updatebanjiQueryBianhao: TStringField;
    updatebanjiQueryMingcheng: TStringField;
    updatebanjiQueryNansheng: TIntegerField;
    updatebanjiQueryNvsheng: TIntegerField;
    updatexueshengQueryXuehao: TStringField;
    updatexueshengQueryXingming: TStringField;
    updatexueshengQueryXingbie: TStringField;
    updatexueshengQueryBanji: TStringField;
    updatexueshengQueryChushengnianyue: TStringField;
    updatexueshengQueryJiguan: TStringField;
    updatexueshengQueryFumuxingming: TStringField;
    updatexueshengQueryLianxidianhua: TStringField;
    updatexueshengQueryXianzhuzhi: 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 Edit1Change(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xiugaibanjiForm: TxiugaibanjiForm;

implementation

{$R *.dfm}

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

procedure TxiugaibanjiForm.Button2Click(Sender: TObject);
begin
close;
end;

procedure TxiugaibanjiForm.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 TxiugaibanjiForm.FormShow(Sender: TObject);
begin
  ComboBox1.SetFocus ;
  ComboBox1.Focused ;
  Button1.Enabled :=false;
end;



procedure TxiugaibanjiForm.Edit1Change(Sender: TObject);
begin
  if Edit1.Text <>'' then
    begin
      Button1.Enabled :=true;
    end
  else
    begin
      Button1.Enabled :=False;
    end;
end;

procedure TxiugaibanjiForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (key=#13) and (Edit1.Text<>'') then
    begin
      Button1.SetFocus ;
      Button1.Focused ;
    end;
end;

procedure TxiugaibanjiForm.ComboBox1Change(Sender: TObject);
begin
  if ComboBox1.Text <>'' then
    begin
      Edit1.SetFocus ;
      Edit1.Focused ;
      Edit1.Text :=ComboBox1.Text ;
    end;
end;

procedure TxiugaibanjiForm.Button1Click(Sender: TObject);
var i:integer;
begin
  updatebanjiQuery.Close ;
  updatebanjiQuery.SQL.Clear ;
  updatebanjiQuery.Params.Createparam(ftstring,'newbj1',ptinput).AsString :=Edit1.Text ;
  updatebanjiQuery.Params.CreateParam(ftstring,'oldbj1',ptinput).AsString :=ComboBox1.Text ;
  updatebanjiQuery.SQL.Add('update classes set mingcheng=:newbj1 where mingcheng=:oldbj1;');
  updatebanjiQuery.ExecSQL ;
  updatexueshengQuery.Close;
  updatexueshengQuery.SQL.Clear ;
  updatexueshengQuery.Params.Clear ;
  updatexueshengQuery.Params.CreateParam(ftstring,'newbj2',ptinput).AsString :=Edit1.Text ;
  updatexueshengQuery.Params.CreateParam(ftstring,'oldbj2',ptinput).AsString :=ComboBox1.Text ;
  updatexueshengQuery.SQL.Add('update students set banji=:newbj2 where banji=:oldbj2;');
  updatexueshengQuery.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(Combobox1.Text +'已经成功修改为'+Edit1.Text +'!');
  Button1.Enabled :=false;
  ComboBox1.Text :='';
  Edit1.Text :='';
  ComboBox1.SetFocus ;
  ComboBox1.Focused ;
end;

end.