unit14.pas

学校学籍管理系统

unit Unit14;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, DBCtrls, Grids, DBGrids, ExtCtrls, Mask,
  ComCtrls, DB, DBTables, XPMenu;

type
  TForm14 = class(TForm)
    PageControl1: TPageControl;
    TabSheet5: TTabSheet;
    Label16: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label36: TLabel;
    i_stud_id_4: TMaskEdit;
    GroupBox4: TGroupBox;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    Button7: TButton;
    Button8: TButton;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    DBGrid4: TDBGrid;
    GroupBox5: TGroupBox;
    Label26: TLabel;
    Label27: TLabel;
    DBLookupComboBox3: TDBLookupComboBox;
    DBMemo1: TDBMemo;
    Button9: TButton;
    Button10: TButton;
    GroupBox6: TGroupBox;
    Label28: TLabel;
    Label29: TLabel;
    DBLookupComboBox4: TDBLookupComboBox;
    DBMemo2: TDBMemo;
    Button11: TButton;
    Button12: TButton;
    GroupBox7: TGroupBox;
    Label30: TLabel;
    Label31: TLabel;
    DBMemo3: TDBMemo;
    DBLookupComboBox5: TDBLookupComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBGrid5: TDBGrid;
    GroupBox8: TGroupBox;
    Label34: TLabel;
    Label35: TLabel;
    DBMemo4: TDBMemo;
    DBLookupComboBox6: TDBLookupComboBox;
    Button15: TButton;
    Button16: TButton;
    DBEdit4: TDBEdit;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DBLookupComboBox2: TDBLookupComboBox;
    BitBtn3: TBitBtn;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    DataSource5: TDataSource;
    DataSource6: TDataSource;
    DataSource7: TDataSource;
    DataSource8: TDataSource;
    DataSource9: TDataSource;
    DataSource10: TDataSource;
    DataSource11: TDataSource;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    DBMemo5: TDBMemo;
    DBLookupComboBox7: TDBLookupComboBox;
    Button1: TButton;
    Button2: TButton;
    Label4: TLabel;
    DataSource12: TDataSource;
    DataSource13: TDataSource;
    procedure Button7Click(Sender: TObject);
    procedure i_stud_id_4Change(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form14: TForm14;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm14.Button7Click(Sender: TObject);
var
  counter:integer;
begin
  dm.studen.Open;
  if dm.studen.RecordCount>0 then //确认学号是否存在
 begin
dm.studen.Post;
next;
dm.soji3.Refresh;
  end
  else
    Application.MessageBox('请确认输入的学号是否正确！', '错误', MB_OK);
end;


procedure TForm14.i_stud_id_4Change(Sender: TObject);
begin
dm.studen.Filter:='ID='''+i_stud_id_4.Text+'''';
dm.soji.Filter:='ID='''+i_stud_id_4.Text+'''';
dm.soji1.Filter:='ID='''+i_stud_id_4.Text+'''';
dm.soji2.Filter:='ID='''+i_stud_id_4.Text+'''';
dm.soji3.Filter:='ID='''+i_stud_id_4.Text+'''';
dm.bioe.Filter:='ID='''+i_stud_id_4.Text+'''';
dm.studen.Open;
dm.ban.Open;
dm.soji.Open;
dm.soji1.Open;
dm.soji2.Open;
dm.soji3.Open;
dm.bioe.Open;
end;

procedure TForm14.Button8Click(Sender: TObject);
begin
dm.studen.Cancel;
end;

procedure TForm14.Button9Click(Sender: TObject);
begin
dm.ban.Open;
dm.ban.edit;
dm.ban.Refresh;
end;

procedure TForm14.Button11Click(Sender: TObject);
begin
dm.ban.Open;
dm.ban.edit;
dm.ban.Refresh;
end;

procedure TForm14.BitBtn1Click(Sender: TObject);
begin
dm.ban.Open;
dm.ban.edit;
dm.ban.Refresh;
end;

procedure TForm14.Button15Click(Sender: TObject);
begin
dm.bioe.Open;
dm.bioe.edit;
dm.bioe.Refresh;
end;

procedure TForm14.Button10Click(Sender: TObject);
begin
dm.ban.Cancel;
end;

procedure TForm14.Button12Click(Sender: TObject);
begin
dm.ban.Cancel;
end;

procedure TForm14.BitBtn2Click(Sender: TObject);
begin
dm.ban.Cancel;
end;

procedure TForm14.Button16Click(Sender: TObject);
begin
Dm.bioe.Cancel;
end;

procedure TForm14.BitBtn3Click(Sender: TObject);
begin
dm.main.Refresh;
dm.studen.close;
dm.ban.close;
dm.soji.close;
dm.soji1.close;
dm.soji2.close;
dm.soji3.close;
i_stud_id_4.Text:='';
end;

end.