180
procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses Unit1, Unit2, Unit3, Unit4, Unit5;
{$R *.dfm}
procedure TForm6.BitBtn1Click(Sender: TObject);
begin
fdm.TKDPrep.Insert;
end;
procedure TForm6.BitBtn2Click(Sender: TObject);
begin
if form6.DBEdit1.Text='' then begin showmessage('Пустое поле "Фамилия"');
exit; end;
if form6.DBEdit2.Text='' then begin showmessage('Пустое поле "Имя"'); exit;
end;
if form6.DBEdit3.Text='' then begin showmessage('Пустое поле
"Отчество"'); exit; end;
if form6.DBEdit4.Text='' then begin showmessage('Пустое поле "Стаж"');
exit; end;
if fDM.TPrepod.Modified then
fDM.TPrepod.Post;
if fDM.TKDPrep.Modified then
181
fDM.TKDPrep.Post;
if fDM.TUchNagrus.Modified then
fDM.TUchNagrus.Post;
Close;
end;
procedure TForm6.BitBtn3Click(Sender: TObject);
begin
Form5.Show;
end;
procedure TForm6.BitBtn4Click(Sender: TObject);
begin
fdm.TPrepod.Insert;
end;
procedure TForm6.FormShow(Sender: TObject);
begin
dbgrid1.DataSource:=fdm.DSKDPrep;
fdm.TKDPrep.MasterFields:='ИДПреподаватель';
fdm.TKDPrep.MasterSource:=fdm.DSPrepod;
fdm.TUchNagrus.Refresh;
end;
procedure TForm6.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['0'..'9'] then key :=#0;
end;
procedure TForm6.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
182
if Key in ['0'..'9'] then key :=#0;
end;
procedure TForm6.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['0'..'9'] then key :=#0;
end;
procedure TForm6.DBComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['0'..'9'] then key :=#0;
end;
procedure TForm6.DBComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['0'..'9'] then key :=#0;
end;
procedure TForm6.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #8]) then
Key:=#0;
end;
procedure TForm6.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #8]) then
Key:=#0;
end;
end.
183
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DBCtrls, Mask, Buttons;
type
TForm7 = class(TForm)
DBEdit1: TDBEdit;
DBNavigator1: TDBNavigator;
Label1: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6;
{$R *.dfm}
end.
unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Mask, DBCtrls, DB, ADODB;
type
TForm8 = class(TForm)
184
Label1: TLabel;
Label2: TLabel;
ADOTable1: TADOTable;
DataSource1: TDataSource;
DBLookupComboBox1: TDBLookupComboBox;
DBEdit1: TDBEdit;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
implementation
uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7;
{$R *.dfm}
procedure TForm8.BitBtn1Click(Sender: TObject);
begin
if form8.ADOTable1.Modified=true then form8.ADOTable1.Post;
end;
end.
unit Unit9;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, QuickRpt, QRCtrls;
type
TForm9 = class(TForm)
185
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form9: TForm9;
implementation
uses Unit1, Unit10, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;
{$R *.dfm}
end.
unit Unit10;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, DBCtrls, StdCtrls, Buttons;
type
TForm10 = class(TForm)
DBLookupComboBox1: TDBLookupComboBox;
DBLookupListBox1: TDBLookupListBox;
DBLookupComboBox2: TDBLookupComboBox;
DBLookupListBox2: TDBLookupListBox;
DSKlass1: TDataSource;
DSKlass2: TDataSource;
TKlass1: TADOTable;
TKlass2: TADOTable;
TUchen1: TADOTable;
TUchen2: TADOTable;
DSUchen1: TDataSource;
DSUchen2: TDataSource;
186
BitBtn1: TBitBtn;
QPerevod: TADOQuery;
BitBtn2: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form10: TForm10;
implementation
uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9;
{$R *.dfm}
procedure TForm10.BitBtn1Click(Sender: TObject);
Var iduch, idklass:integer;
begin
if form10.DBLookupComboBox1.Text = '' then
begin
showmessage('Выберите класс из которого должен быть осуществлен
перевод!');
exit;
end;
if form10.DBLookupComboBox2.Text = '' then
begin
187
showmessage('Выберите класс в который должен быть осуществлен
перевод!');
exit;
end;
if MessageDlg('Перевести выбранного учащегося? ',mtConfirmation,
[mbYes,mbNo],0)=mrYes
then
begin
iduch:= form10.DBLookupListBox1.KeyValue;
idklass:=form10.DBLookupComboBox2.KeyValue;
form10.QPerevod.SQL.Clear;
form10.QPerevod.SQL.Add('Update Учащийся SET ИДКласс =
'+IntToStr(idklass)+' Where ИДУчащийся = '+IntToStr(iduch));
form10.QPerevod.ExecSQL;
showmessage('Перевод успешен!');
end;
end;
procedure TForm10.BitBtn2Click(Sender: TObject);
Var iduch, idklass,i:integer;
begin
if form10.DBLookupComboBox1.Text = '' then
begin
showmessage('Выберите класс из которого должен быть осуществлен
перевод!');
exit;
end;
if form10.DBLookupComboBox2.Text = '' then
begin
showmessage('Выберите класс в который должен быть осуществлен
перевод!');
188
exit;
end;
if MessageDlg('Перевести всех учеников выбранного класса?
',mtConfirmation, [mbYes,mbNo],0)=mrYes
then
begin
idklass:=form10.DBLookupComboBox2.KeyValue;
for i:=0 to form10.TUchen1.RecordCount do
begin
iduch:=form10.TUchen1.FieldValues['ИДУчащийся'];
form10.QPerevod.SQL.Clear;
form10.QPerevod.SQL.Add('Update Учащийся SET ИДКласс =
'+IntToStr(idklass)+' Where ИДУчащийся = '+IntToStr(iduch));
form10.QPerevod.ExecSQL;
form10.TUchen1.Next;
end;
showmessage('Перевод всего класса успешен!');
end;
end;
procedure TForm10.FormShow(Sender: TObject);
begin
form10.TKlass1.Refresh;
form10.TKlass2.Refresh;
form10.TUchen1.Refresh;
form10.TUchen2.Refresh;
end;
end.
unit Unit11;
interface
189
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB, Grids, DBGrids, Mask, DBCtrls, ADODB;
type
TForm11 = class(TForm)
ADOTable1: TADOTable;
DataSource1: TDataSource;
DBEdit1: TDBEdit;
DBGrid1: TDBGrid;
ADOTable1DSDesigner: TAutoIncField;
ADOTable1DSDesigner2: TWideStringField;
Label1: TLabel;
Label2: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form11: TForm11;
implementation
uses Unit1, Unit10, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9;
{$R *.dfm}
procedure TForm11.BitBtn1Click(Sender: TObject);