170
fdm.TUchenik.MasterSource:=nil;
fdm.TUchenik.MasterFields:='';
fdm.TUchenik.Active:=false;
fdm.TUchenik.Active:=true;
fdm.TUspev.MasterSource:=nil;
fdm.TUspev.MasterFields:='';
fdm.TUspev.Active:=false;
fdm.TUspev.Active:=true;
fdm.TUchNagrus.MasterSource:=nil;
fdm.TUchNagrus.MasterFields:='';
fdm.TUchNagrus.Active:=false;
fdm.TUchNagrus.Active:=true;
fmain.ADOTable1.Active:=false;
fmain.ADOQuery2.Active:=false;
fmain.Tuch.Active:=false;
fmain.ADOQuery1.Active:=false;
end;
procedure Tfeditor.FormShow(Sender: TObject);
begin
// fDM.TPredmet.First;
//While Not fDM.TPredmet.Eof Do
// begin
// feditor.ComboBox1.Items.add(fDM.TPredmet.FieldByName('Название').AsString);
// fDm.TPredmet.Next;
// end;
171
//DBEdit13.DataSource:=fdm.DSUspev;
//DBEdit13.DataField:='NazvPredmet';
//fdm.TUchNagrus.MasterFields:='ИДУспеваемость';
//fdm.TUchNagrus.MasterSource:=fdm.DSUspev;
dbgrid2.DataSource:=fdm.DSKDUch;
fdm.TKDUch.MasterFields:='ИДУчащийся';
fdm.TKDUch.MasterSource:=fdm.DSUchenik;
end;
procedure Tfeditor.BitBtn1Click(Sender: TObject);
begin
feditor.DBGrid2.DataSource.DataSet.Delete;
end;
procedure Tfeditor.Button1Click(Sender: TObject);
begin
if feditor.DBEdit1.Text='' then begin showmessage('Пустое поле "Фамилия"'); exit;
end;
if feditor.DBEdit2.Text='' then begin showmessage('Пустое поле "Имя"'); exit; end;
if feditor.DBEdit3.Text='' then begin showmessage('Пустое поле "Отчество"'); exit;
end;
if feditor.DBEdit4.Text='' then begin showmessage('Пустое поле "Дата рождения"');
exit; end;
if fDM.TUchenik.Modified then
fDM.TUchenik.Post;
if fDM.TUspev.Modified then
fDM.TUspev.Post;
if fDM.TKDUch.Modified then
fDM.TKDUch.Post;
fdm.TUchenik.Refresh;
172
Close;
end;
procedure Tfeditor.Button2Click(Sender: TObject);
begin
fdm.TUchenik.Insert;
end;
procedure Tfeditor.BitBtn2Click(Sender: TObject);
begin
fdm.TKDUch.Insert;
end;
procedure Tfeditor.BitBtn3Click(Sender: TObject);
begin
if MessageDlg('Удалить выбранную успеваемость? ',mtConfirmation,
[mbYes,mbNo],0)=mrYes
then
begin
if not DBGrid1.DataSource.DataSet.Eof
then
DBGrid1.DataSource.DataSet.Delete;
end;
end;
procedure Tfeditor.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['0'..'9'] then key :=#0;
end;
procedure Tfeditor.DBEdit2KeyPress(Sender: TObject; var Key: Char);
173
begin
if Key in ['0'..'9'] then key :=#0;
end;
procedure Tfeditor.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['0'..'9'] then key :=#0;
end;
procedure Tfeditor.DBComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['0'..'9'] then key :=#0;
end;
procedure Tfeditor.DBComboBox4KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['0'..'9'] then key :=#0;
end;
procedure Tfeditor.DBEdit13KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['0'..'9'] then key :=#0;
end;
procedure Tfeditor.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #8]) then
Key:=#0;
end;
procedure Tfeditor.DBEdit12KeyPress(Sender: TObject; var Key: Char);
174
begin
If not (Key in ['0'..'9', #8]) then
Key:=#0;
end;
procedure Tfeditor.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #8]) then
Key:=#0;
end;
procedure Tfeditor.DBEdit6KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #8]) then
Key:=#0;
end;
procedure Tfeditor.DBEdit7KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #8]) then
Key:=#0;
end;
procedure Tfeditor.DBEdit8KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #8]) then
Key:=#0;
end;
procedure Tfeditor.FormClose(Sender: TObject; var Action: TCloseAction);
begin
175
fdm.TUchenik.Refresh;
end;
procedure Tfeditor.BitBtn4Click(Sender: TObject);
begin
feditor.Tuspev.Post;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, StdCtrls, Buttons, DB, ADODB, Grids, DBGrids;
type
TForm5 = class(TForm)
DBGrid1: TDBGrid;
ADOTable1: TADOTable;
ADOTable2: TADOTable;
ADOTable3: TADOTable;
DataSource1: TDataSource;
DataSource2: TDataSource;
DataSource3: TDataSource;
DataSource4: TDataSource;
ADOTable4: TADOTable;
BitBtn1: TBitBtn;
DBLookupListBox1: TDBLookupListBox;
DBLookupListBox2: TDBLookupListBox;
DBLookupComboBox1: TDBLookupComboBox;
ADOQuery1: TADOQuery;
ADOTable1DSDesigner: TAutoIncField;
176
ADOTable1DSDesigner2: TIntegerField;
ADOTable1DSDesigner3: TIntegerField;
ADOTable1DSDesigner4: TIntegerField;
ADOTable1DSDesigner5: TDateTimeField;
ADOTable1FamPrep: TStringField;
ADOTable1NazvPredm: TStringField;
ADOTable1NazvKlass: TStringField;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
BitBtn2: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit1, Unit2, Unit3, Unit4;
{$R *.dfm}
procedure TForm5.BitBtn1Click(Sender: TObject);
begin
form5.ADOQuery1.Close;
form5.ADOQuery1.SQL.Clear;
form5.ADOQuery1.SQL.Add('Select * From УчебнаяНагрузка Where
ИДПреподаватель = :idprep AND ИДПредмет = :idpredmet AND ИДКласс =
:idklass');
177
form5.ADOQuery1.Parameters.ParamByName('idprep').Value:=form5.DBLoo
kupListBox1.KeyValue;
form5.ADOQuery1.Parameters.ParamByName('idpredmet').Value:=form5.DB
LookupListBox2.KeyValue;
form5.ADOQuery1.Parameters.ParamByName('idklass').Value:=form5.DBLoo
kupComboBox1.KeyValue;
form5.ADOQuery1.Open;
form5.ADOQuery1.Active:=true;
if form5.ADOQuery1.RecordCount > 0 then ShowMessage('Такая учебная
нагрузка уже существует!') else
begin
form5.ADOQuery1.SQL.Clear;
form5.ADOQuery1.SQL.Add('INSERT INTO
УчебнаяНагрузка(ИДПреподаватель, ИДПредмет, ИДКласс) VALUES (:idprep,
:idpredmet, :idklass)');
form5.ADOQuery1.Parameters.ParamByName('idprep').Value:=form5.DBLoo
kupListBox1.KeyValue;
form5.ADOQuery1.Parameters.ParamByName('idpredmet').Value:=form5.DB
LookupListBox2.KeyValue;
form5.ADOQuery1.Parameters.ParamByName('idklass').Value:=form5.DBLoo
kupComboBox1.KeyValue;
form5.ADOQuery1.ExecSQL;
form5.ADOTable1.Active:=false;
form5.ADOTable1.Active:=true;
form5.DBGrid1.Refresh;
end;
end;
procedure TForm5.BitBtn2Click(Sender: TObject);
begin
178
if MessageDlg('Удалить выбранную учебную нагрузку(и все оценки
соответственно)? ',mtConfirmation, [mbYes,mbNo],0)=mrYes
then
begin
if not DBGrid1.DataSource.DataSet.Eof
then
DBGrid1.DataSource.DataSet.Delete;
end;
end;
procedure TForm5.FormShow(Sender: TObject);
begin
form5.ADOTable1.Refresh;
form5.ADOTable2.Refresh;
form5.ADOTable3.Refresh;
form5.ADOTable4.Refresh;
end;
end.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, StdCtrls, Mask, Buttons, Grids, DBGrids, ExtCtrls;
type
TForm6 = class(TForm)
GroupBox1: TGroupBox;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
179
DBComboBox1: TDBComboBox;
DBMemo1: TDBMemo;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
DBNavigator1: TDBNavigator;
Label7: TLabel;
DBEdit5: TDBEdit;
Label8: TLabel;
DBComboBox2: TDBComboBox;
DBGrid1: TDBGrid;
BitBtn1: TBitBtn;
DBGrid2: TDBGrid;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
procedure DBComboBox1KeyPress(Sender: TObject; var Key: Char);
procedure DBComboBox2KeyPress(Sender: TObject; var Key: Char);