unit19.pas

学校学籍管理系统

unit Unit19;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons, Grids, DBGrids, DB;

type
  The3 = class(TForm)
    PageControl1: TPageControl;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    DBGrid4: TDBGrid;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
    BitBtn16: TBitBtn;
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure BitBtn16Click(Sender: TObject);
    procedure DBGrid4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn15Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  he3: The3;

implementation

uses Unit4;

{$R *.dfm}

procedure The3.BitBtn8Click(Sender: TObject);
begin
dm.bioo.Open;
dm.bioo.Insert;
next;
end;

procedure The3.BitBtn4Click(Sender: TObject);
begin
close;
end;

procedure The3.BitBtn12Click(Sender: TObject);
begin
dm.chen.Open;
dm.chen.Insert;
next;
end;

procedure The3.BitBtn16Click(Sender: TObject);
begin
dm.jian.Open;
dm.jian.Insert;
next;
end;

procedure The3.DBGrid4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = VK_RETURN	then
dm.bioo.edit;
next;
end;

procedure The3.DBGrid3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = VK_RETURN	then
dm.chen.edit;
next;
end;

procedure The3.DBGrid2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = VK_RETURN	then
dm.jian.edit;
next;
end;

procedure The3.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = VK_RETURN	then
dm.qing.edit;
next;
end;

procedure The3.BitBtn5Click(Sender: TObject);
begin
if MessageDlg('确定删除该项吗?',mtConfirmation,[mbYes,mbno],0)= mrno then
 exit;
                begin
                 end;
if dm.main.RecordCount=0 then
  begin
    MessageBox(Handle,'数据为零，删除无效！','警告',MB_OK); exit;
 end;
 begin
Dm.bioo.Delete;
end;
end;
procedure The3.BitBtn9Click(Sender: TObject);
begin
if MessageDlg('确定删除该项吗?',mtConfirmation,[mbYes,mbno],0)= mrno then
 exit;
                begin
                 end;
if dm.main.RecordCount=0 then
  begin
    MessageBox(Handle,'数据为零，删除无效！','警告',MB_OK); exit;
 end;
 begin
Dm.chen.Delete;
end;
end;

procedure The3.BitBtn13Click(Sender: TObject);
begin
if MessageDlg('确定删除该项吗?',mtConfirmation,[mbYes,mbno],0)= mrno then
 exit;
                begin
                 end;
if dm.main.RecordCount=0 then
  begin
    MessageBox(Handle,'数据为零，删除无效！','警告',MB_OK); exit;
 end;
 begin
Dm.jian.Delete;
end;
end;
procedure The3.BitBtn3Click(Sender: TObject);
begin
if MessageDlg('确定删除该项吗?',mtConfirmation,[mbYes,mbno],0)= mrno then
 exit;
                begin
                 end;
if dm.main.RecordCount=0 then
  begin
    MessageBox(Handle,'数据为零，删除无效！','警告',MB_OK); exit;
 end;
 begin
Dm.qing.Delete;
end;
end;
procedure The3.BitBtn1Click(Sender: TObject);
begin
dm.qing.Open;
dm.qing.Insert;
next;
end;

procedure The3.BitBtn2Click(Sender: TObject);
begin
if MessageDlg('确定修改该项吗?',mtConfirmation,[mbYes,mbno],0)= mrno then
 exit;
                begin
                 end;
if dm.main.RecordCount=0 then
  begin
    MessageBox(Handle,'数据为零，修改无效！','警告',MB_OK); exit;
 end;
 begin
Dm.qing.edit;
next;
end;
 end;
procedure The3.BitBtn7Click(Sender: TObject);
begin
if MessageDlg('确定修改该项吗?',mtConfirmation,[mbYes,mbno],0)= mrno then
 exit;
                begin
                 end;
if dm.main.RecordCount=0 then
  begin
    MessageBox(Handle,'数据为零，修改无效！','警告',MB_OK); exit;
 end;
 begin
Dm.bioo.edit;
next;
end;
 end;
procedure The3.BitBtn11Click(Sender: TObject);
begin
if MessageDlg('确定修改该项吗?',mtConfirmation,[mbYes,mbno],0)= mrno then
 exit;
                begin
                 end;
if dm.main.RecordCount=0 then
  begin
    MessageBox(Handle,'数据为零，修改无效！','警告',MB_OK); exit;
 end;
 begin
Dm.chen.edit;
next;
end;
end;
procedure The3.BitBtn15Click(Sender: TObject);
begin
if MessageDlg('确定修改该项吗?',mtConfirmation,[mbYes,mbno],0)= mrno then
 exit;
                begin
                 end;
if dm.main.RecordCount=0 then
  begin
    MessageBox(Handle,'数据为零，修改无效！','警告',MB_OK); exit;
 end;
 begin
Dm.jian.edit;
next;
end;
 end;
end.