unit5.pas

同学录第二版(源代码)

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, DBCtrls, ComCtrls;

type
  TForm5 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn2: TBitBtn;
    DBLookupListBox1: TDBLookupListBox;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation
 uses unit1,unit4;
{$R *.DFM}

procedure TForm5.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure TForm5.BitBtn2Click(Sender: TObject);
var id:integer;
    idprior:integer;
begin
if edit1.text<>'' then
with form1 do //调整组号
begin//begin1
if table2.RecordCount=0 then
id:=1
else
begin//begin2
table2.Last;
id:=table2.fieldbyname('typeid').value;
if table2.FieldCount<id then
begin//begin3
table2.First;
while table2.eof do
begin//begin4
idprior:=table2.fieldbyname('typeid').value;
table2.next;
if idprior+1<>table2.fieldbyname('typeid').value then
begin//begin5
table2.Prior;
id:=idprior+1;
exit;
end;//end5
end;//end4
end;//end3
end;//end2
table2.append;
table2.fieldbyname('typeid').value:=id;
table2.fieldbyname('typename').value:=form5.edit1.text;
table2.post;
table2.Refresh;
end;//end1
end;

procedure TForm5.BitBtn3Click(Sender: TObject);
begin
if application.MessageBox('确定要删除组吗？','提示',mb_okcancel)=idok then
form1.table2.delete;
end;

end.