tianjiabanji.~pas

有不足之处请指出

unit tianjiabanji;

interface

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

type
  TtianjiabanjiForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    ComboBox1: TComboBox;
    BanjiTable: TTable;
    AddbanjiQuery: TQuery;
    AddbanjiQueryBianhao: TStringField;
    AddbanjiQueryMingcheng: TStringField;
    AddbanjiQueryNansheng: TIntegerField;
    AddbanjiQueryNvsheng: TIntegerField;
    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 Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tianjiabanjiForm: TtianjiabanjiForm;

implementation

{$R *.dfm}

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

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

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

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

procedure TtianjiabanjiForm.Button1Click(Sender: TObject);
var i,mycount:integer;
    presentdate:TdateTime;
    myYear,myMonth,myDay:Word;
    jinnian:string[4];
    mybianhao:string[6];
begin
  presentdate:=date;
  DecodeDate(presentdate,myYear,myMonth,myDay);
  jinnian:=inttostr(myYear);
  AddbanjiQuery.Close ;
  AddbanjiQuery.SQL.Clear ;
  AddbanjiQuery.Params.Clear ;
  AddbanjiQuery.Params.CreateParam(ftstring,'bj1',ptinput).AsString :=Edit1.Text ;
  AddbanjiQuery.SQL.Add('select * from classes where mingcheng=:bj1;');
  AddbanjiQuery.ExecSQL ;
  AddbanjiQuery.Open ;
  mycount:=AddbanjiQuery.RecordCount ;
  AddbanjiQuery.Close ;
  if mycount=0 then
    begin
      AddbanjiQuery.Close;
      AddbanjiQuery.SQL.Clear ;
      AddbanjiQuery.Params.Clear ;
      AddbanjiQuery.Params.CreateParam(ftstring,'bh1',ptinput).AsString :=jinnian+'__';
      AddbanjiQuery.SQL.Add('select * from classes where bianhao like :bh1 order by bianhao;');
      AddbanjiQuery.ExecSQL ;
      AddbanjiQuery.Open ;
      if AddbanjiQuery.RecordCount =0 then
        begin
          mybianhao:=jinnian+'01'
      end
      else
        begin
          AddbanjiQuery.Last ;
          mybianhao:=AddbanjiQuerybianhao.Value;
          mybianhao:=inttostr(strtoint(mybianhao)+1);
        end;
      AddbanjiQuery.Close;
      AddbanjiQuery.Close ;
      AddbanjiQuery.SQL.Clear;
      AddbanjiQuery.Params.Clear;
      AddbanjiQuery.Params.CreateParam(ftstring,'bh2',ptinput).AsString:=mybianhao;
      AddbanjiQuery.Params.CreateParam(ftstring,'mc1',ptinput).AsString :=Edit1.Text ;
      AddbanjiQuery.SQL.Add('insert into classes values(:bh2,:mc1,0,0);');
      AddbanjiQuery.ExecSQL ;
      AddbanjiQuery.Close;
      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('名称为"'+Edit1.Text+'"的班级成功添加到班级数据表中了!');
      Button1.Enabled :=False;
      Edit1.Clear ;
      Edit1.SetFocus ;
      Edit1.Focused ;
      end
else
    begin
      messagebeep(1);
      showmessage('班级数据表中已经存在称为"'+Edit1.Text+'"的班级了!');
      Edit1.SetFocus ;
      Edit1.Focused ;
    end;
end;

end.