Информационная система «Преподаватели»

tify">    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N11: TMenuItem;

    N8: TMenuItem;

    N9: TMenuItem;

    N10: TMenuItem;

    GroupBox3: TGroupBox;

    DBGrid2: TDBGrid;

    DBGrid1: TDBGrid;

    GroupBox4: TGroupBox;

    DBLCB_kaf_prepod: TDBLookupComboBox;

    Label1: TLabel;

    RBall: TRadioButton;

    procedure N2Click(Sender: TObject);

    procedure BT_AddClick(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure N9Click(Sender: TObject);

    procedure N11Click(Sender: TObject);

    procedure BT_EditClick(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button7Click(Sender: TObject);

    procedure Button9Click(Sender: TObject);

    procedure Button8Click(Sender: TObject);

    procedure Button10Click(Sender: TObject);

    procedure Button11Click(Sender: TObject);

    procedure Button12Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure BT_DelClick(Sender: TObject);

    procedure DBGrid1CellClick(Column: TColumn);

    procedure N10Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure DBLCB_kaf_prepodClick(Sender: TObject);

    procedure RBallClick(Sender: TObject);

  private

    { Private declarations }

  public

  

    { Public declarations }

  end; 

var

  MainForm: TMainForm; 

implementation 

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit9, Unit8, Unit10, Unit12,

  Unit13, Unit14, Unit11, Unit15, Unit16, Unit17, IBQuery, DB,

  IBCustomDataSet, Unit18; 

{$R *.dfm}

procedure activ;

begin

dm.Qprepod.Open;

dm.Q_specialnost.Open;

dm.Q_tmp.Open;

dm.T_stepen.Open;

dm.T_facultet.Open;

dm.Q_kafedra.Open;

end; 

procedure TMainForm.N2Click(Sender: TObject);

begin

MainForm.Close;

end; 

procedure TMainForm.BT_AddClick(Sender: TObject);

begin

FPrepod.ED_f.Clear;

FPrepod.ED_I.Clear;

FPrepod.ED_O.Clear;

FPrepod.ME_Data.Clear;

FPrepod.ED_Seria.Clear;

FPrepod.ED_Hachala.Clear;

FPrepod.ED_Stazh.Clear;

FPrepod.ED_Adress.Clear;

FPrepod.ED_Tel.Clear;

FPrepod.ED_Otdel.Clear;

FPrepod.ED_Nomer.Clear;

 

dm.T_stepen.Open;

dm.T_zvanie.Open;

dm.T_facultet.Open;

dm.t_status.Open;

dm.T_Dolshnost.Open;

FPrepod.flag:=0;

FPrepod.Show;

FPrepod.ED_f.SetFocus;

end; 

procedure TMainForm.N5Click(Sender: TObject);

begin

FY_Stepen.showmodal;

end; 

procedure TMainForm.N4Click(Sender: TObject);

begin

FY_Zvanie.showmodal;

end; 

procedure TMainForm.N8Click(Sender: TObject);

begin

FSpecialnost.ShowModal;

end; 

procedure TMainForm.N7Click(Sender: TObject);

begin

dm.QPredmet.SQL.Text:='select * from predmety';

dm.QPredmet.Open;

FPredmet.Show;

end; 

procedure TMainForm.N9Click(Sender: TObject);

begin

FCafedra_add.ShowModal;

end; 

procedure TMainForm.N11Click(Sender: TObject);

begin

FFacultet.ShowModal;

end; 

procedure TMainForm.BT_EditClick(Sender: TObject);

begin

dm.Qprepod.Open;

dm.Q_specialnost.Open;

dm.T_stepen.Open;

dm.T_facultet.Open;

dm.Q_kafedra.Open;

dm.QGruppa.Open;

dm.Qprepod.Open;

dm.T_zvanie.Open;

dm.t_status.Open;

dm.T_Dolshnost.Open; 

FPrepod.flag:=1;

FPrepod.Show;

FPrepod.ED_f.SetFocus;

FPrepod.ED_f.Text:=dm.Qprepod.FieldByName('f').AsString;

FPrepod.ED_I.Text:=dm.Qprepod.FieldByName('i').AsString;

FPrepod.ED_O.Text:=dm.Qprepod.FieldByName('o').AsString;

FPrepod.ME_Data.Text:=dm.Qprepod.FieldByName('data').AsString;

FPrepod.ED_Seria.Text:=dm.Qprepod.FieldByName('Passport_Seria').AsString;

FPrepod.ED_Nomer.Text:=dm.Qprepod.FieldByName('Passport_namber').AsString;

FPrepod.ED_Otdel.Text:=dm.Qprepod.FieldByName('Otdel').AsString;

FPrepod.ED_Hachala.Text:=dm.Qprepod.FieldByName('god_nachala').AsString;

FPrepod.ED_Stazh.Text:=dm.Qprepod.FieldByName('stazh').AsString;

FPrepod.ED_Adress.Text:=dm.Qprepod.FieldByName('Adres').AsString;

FPrepod.ED_Tel.Text:=dm.Qprepod.FieldByName('telephone').AsString; 

end; 

procedure TMainForm.Button4Click(Sender: TObject);

begin

FSpecialnost_add.flag:=0;

FSpecialnost_add.Show;

FSpecialnost_add.Edit1.SetFocus;

end; 

procedure TMainForm.Button5Click(Sender: TObject);

begin

FSpecialnost_add.flag:=1;

FSpecialnost_add.Edit1.Text:=dm.Q_specialnost.FieldByName('specialnost').AsString;

FSpecialnost_add.Show;

FSpecialnost_add.Edit1.SetFocus;

end; 

procedure TMainForm.Button6Click(Sender: TObject);

begin

 dm.Q_specialnost.SQL.Text:='delete from specialnosti s where s.sp='+IntToStr(dm.Q_specialnost['sp']);

  try

   dm.Q_specialnost.ExecSQL;

   dm.ibtransaction1.commit;

   except

      showmessage('Ошибка изменений данных в таблице. Возможно нет прав. Обратитесь к администратору');

   end;

dm.IBTransaction1.Active:=true;

// showmessage(dm.Q_specialnost.SQL.Text);

dm.Q_specialnost.Open; 

dm.Q_specialnost.SQL.Text:='select sp, SPECIALNOST, FACULTET  from SPECIALNOSTI, FACULTETY where FACULTETY.FC = SPECIALNOSTI.FC';

dm.Q_specialnost.Open;

dm.Q_kafedra.Open;

dm.T_facultet.Open;}

end; 

procedure TMainForm.Button7Click(Sender: TObject);

begin

{dm.QGruppa.Open;

FGruppa.flag:=0;

FGruppa.show;

FGruppa.Edit1.SetFocus;}

end; 

procedure TMainForm.Button9Click(Sender: TObject);

begin

FDel_gruppa.ShowModal;

end; 

procedure TMainForm.Button8Click(Sender: TObject);

begin

{FGruppa.Edit1.Text:=dm.QGruppa.FieldByName('gruppa').AsString;

FGruppa.flag:=1;

 FGruppa.show;

FGruppa.Edit1.SetFocus;}

end; 

procedure TMainForm.Button10Click(Sender: TObject);

begin

FKafedra.flag:=0;

FKafedra.Show;

FKafedra.Edit1.SetFocus;

end; 

procedure TMainForm.Button11Click(Sender: TObject);

begin

FKafedra.Edit1.Text:=dm.Q_kafedra.FieldByName('kafedra').AsString;

FKafedra.flag:=1;

FKafedra.Show;

FKafedra.Edit1.SetFocus;

end; 

procedure TMainForm.Button12Click(Sender: TObject);

begin

 dm.Q_kafedra.SQL.Text:='delete from kafedry k where k.kaf='+IntToStr(dm.Q_kafedra['kaf']);

  try

   dm.Q_kafedra.ExecSQL;

   dm.ibtransaction1.commit;

   end;

dm.IBTransaction1.Active:=true;

dm.Q_kafedra.Open; 

dm.Q_kafedra.SQL.Text:='select * from KAFEDRY k,  FACULTETY f where k.fc=f.fc';

dm.Q_kafedra.Open;

  dm.QGruppa.Open;

  dm.Q_specialnost.Open;

  dm.T_facultet.Open;

  dm.Qprepod.open;     

end; 

procedure TMainForm.N6Click(Sender: TObject);

begin

FStatus.ShowModal;

end; 

procedure TMainForm.BT_DelClick(Sender: TObject);

begin

  dm.Qprepod.SQL.Text:='delete from prepodavateli where prepodavateli.prep='+IntToStr(dm.Qprepod['prep']);

  try

   dm.Qprepod.ExecSQL;

   dm.ibtransaction1.commit;

   end;

dm.Qprepod.Transaction.Active:=true;

dm.IBTransaction1.Active:=true;

dm.Qprepod.sql.Text:='select * from prepodavateli';

dm.Qprepod.Open;

dm.Q_specialnost.Open;

dm.T_stepen.Open;

dm.T_facultet.Open;

dm.Q_kafedra.Open;

dm.QGruppa.Open;

dm.Qprepod.Open;

dm.T_zvanie.Open;