160
end;
procedure TfMain.BitBtn9Click(Sender: TObject);
begin
if fmain.PageControl1.TabIndex = 0 then //классы
begin
feditor.Show;
feditor.DBLookupComboBox1.Enabled:=false;
end;
if fmain.PageControl1.TabIndex = 1 then //ïпреподаватели
begin
form6.Show;
end;
if fmain.PageControl1.TabIndex = 3 then //предмет
begin
form5.Show;
end;
if fmain.PageControl1.TabIndex = 2 then //предмет
begin
form11.Show;
end;
end;
procedure TfMain.Edit2Change(Sender: TObject);
begin
if fmain.PageControl1.TabIndex = 1 then
begin
begin
if Length(Edit2.Text) > 0 then
begin
fdm.TPrepod.Filtered:=false;
161
if fmain.ComboBox2.ItemIndex = 0 then fdm.TPrepod.Filter:='[Фамилия]
lIKE '+ #39 + Edit2.Text + '%' + #39;
if fmain.ComboBox2.ItemIndex = 1 then fdm.TPrepod.Filter:='[Имя] lIKE '+
#39 + Edit2.Text + '%' + #39;
if fmain.ComboBox2.ItemIndex = 2 then fdm.TPrepod.Filter:='[Отчество]
lIKE '+ #39 + Edit2.Text + '%' + #39;
fdm.TPrepod.Filtered:=true;
end
else
fdm.TPrepod.Filtered:=false;
end;
end;
end;
procedure TfMain.N8Click(Sender: TObject);
begin
form10.TKlass1.Refresh;
form10.TKlass2.Refresh;
form10.TUchen1.Refresh;
form10.TUchen2.Refresh;
Form10.Show;
end;
procedure TfMain.N7Click(Sender: TObject);
begin
form9.QuickRep1.PreviewModal;
end;
procedure TfMain.BitBtn11Click(Sender: TObject);
var WordApp, doc:Variant;
i,j:integer;
162
begin
WordApp:=CreateOleObject('Word.Application');
doc:=WordApp.Documents.open(getcurrentdir+'\Шаблон\Успеваемость
учащихся.dot');
WordApp.Selection.GoTo(-1,,,'Класс');
WordApp.Selection.TypeText(fmain.StringGrid2.Cells[1,1]);
WordApp.Selection.GoTo(-1,,,'Предмет');
WordApp.Selection.TypeText(fmain.DBLookupListBox2.SelectedItem);
WordApp.Selection.GoTo(-1,,,'Колво');
WordApp.Selection.TypeText(fmain.StringGrid2.Cells[2,1]);
for i:=2 to 6 do
for j:=2 to 8 do
WordApp.ActiveDocument.Tables.Item(1).Cell(j,i).Range.InsertBefore(fmain.StringG
rid2.Cells[i+1,j-1]);
WordApp.Visible:=True;
WordApp:= Unassigned;
end;
procedure TfMain.BitBtn7Click(Sender: TObject);
begin
if fmain.PageControl1.TabIndex = 0 then form7.Show;
if fmain.PageControl1.TabIndex = 1 then form5.Show;
end;
procedure TfMain.BitBtn10Click(Sender: TObject);
begin
if MessageDlg('Удалить выбранный элемент? ',mtConfirmation,
[mbYes,mbNo],0)=mrYes
then
begin
if not DBGrid5.DataSource.DataSet.Eof
163
then
DBGrid5.DataSource.DataSet.Delete;
end;
end;
procedure TfMain.N3Click(Sender: TObject);
begin
showmessage('Автоматизация процесса контроля знаний учащихся ГУО
«Средняя школа №8 г.Полоцка»');
end;
procedure TfMain.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #8]) then
Key:=#0;
end;
procedure TfMain.StringGrid2KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #8]) then
Key:=#0;
end;
procedure TfMain.DBLookupListBox2Click(Sender: TObject);
begin
//if fmain.DBLookupListBox2.SelectedItem = '' then
// begin
// showmessage('Выберите предмет!');
// exit;
// end;
fmain.BitBtn3.Enabled:=true;
164
fmain.BitBtn11.Enabled:=false;
end;
procedure TfMain.BitBtn12Click(Sender: TObject);
begin
showmessage('Не введено поле Фамилия');
end;
procedure TfMain.N1Click(Sender: TObject);
begin
fdm.TKDPrep.MasterFields:='ИДпреподаватель';
fdm.TKDPrep.MasterSource:=fdm.DSPrepod;
form12.QuickRep1.PreviewModal;
end;
procedure TfMain.N9Click(Sender: TObject);
begin
fdm.TUchNagrus.MasterFields:='ИДКласс';
fdm.TUchNagrus.MasterSource:=fdm.DSKlass;
form13.QuickRep1.PreviewModal;
end;
procedure TfMain.DBGrid4TitleClick(Column: TColumn);
var
ss : string;
begin
if fdm.TPrepod.FieldByName(Column.FieldName).Tag=0 then
begin
ss := ' ASC';
fdm.TPrepod.FieldByName(Column.FieldName).Tag:=1;
end
165
else
begin
ss := ' DESC';
fdm.TPrepod.FieldByName(Column.FieldName).Tag:=0;
end;
fdm.TPrepod.Sort:=Column.FieldName + ss;
end;
procedure TfMain.DBGrid6TitleClick(Column: TColumn);
var
ss : string;
begin
if form11.ADOTable1.FieldByName(Column.FieldName).Tag=0 then
begin
ss := ' ASC';
form11.ADOTable1.FieldByName(Column.FieldName).Tag:=1;
end
else
begin
ss := ' DESC';
form11.ADOTable1.FieldByName(Column.FieldName).Tag:=0;
end;
form11.ADOTable1.Sort:=Column.FieldName + ss;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, Mask, DBCtrls, ExtCtrls, Buttons, DB,
166
ADODB;
type
Tfeditor = class(TForm)
GroupBox1: TGroupBox;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBMemo1: TDBMemo;
DBComboBox2: TDBComboBox;
DBEdit4: TDBEdit;
GroupBox2: TGroupBox;
DBGrid1: TDBGrid;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
GroupBox3: TGroupBox;
DBEdit12: TDBEdit;
DBComboBox4: TDBComboBox;
DBGrid2: TDBGrid;
DBNavigator1: TDBNavigator;
Button1: TButton;
Button2: TButton;
DBLookupComboBox1: TDBLookupComboBox;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
167
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
BitBtn2: TBitBtn;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
DataSource1: TDataSource;
ADOTable1: TADOTable;
BitBtn1: TBitBtn;
BitBtn3: TBitBtn;
Tuspev: TADOTable;
DSUspev: TDataSource;
TuspevDSDesigner: TAutoIncField;
TuspevDSDesigner2: TIntegerField;
TuspevDSDesigner3: TIntegerField;
TuspevDSDesigner1_: TIntegerField;
TuspevDSDesigner2_: TIntegerField;
TuspevDSDesigner3_: TIntegerField;
TuspevDSDesigner4_: TIntegerField;
TuspevDSDesigner1_2: TIntegerField;
TuspevDSDesigner2_2: TIntegerField;
TuspevDSDesigner4: TIntegerField;
ADOTable2: TADOTable;
DataSource2: TDataSource;
168
DataSource3: TDataSource;
ADOTable3: TADOTable;
DBEdit13: TDBEdit;
BitBtn4: TBitBtn;
Label1: TLabel;
procedure FormShow(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
procedure DBComboBox2KeyPress(Sender: TObject; var Key: Char);
procedure DBComboBox4KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit13KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit12KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
169
var
feditor: Tfeditor;
implementation
uses Unit1, Unit2, Unit3;
{$R *.dfm}
Procedure ClearSvz;
begin
fdm.TKlass.MasterSource:=nil;
fdm.TKlass.MasterFields:='';
fdm.TKlass.Active:=false;
fdm.TKlass.Active:=true;
fdm.TKDPrep.MasterSource:=nil;
fdm.TKDPrep.MasterFields:='';
fdm.TKDPrep.Active:=false;
fdm.TKDPrep.Active:=true;
fdm.TKDUch.MasterSource:=nil;
fdm.TKDUch.MasterFields:='';
fdm.TKDUch.Active:=false;
fdm.TKDUch.Active:=true;
fdm.TPredmet.MasterSource:=nil;
fdm.TPredmet.MasterFields:='';
fdm.TPredmet.Active:=false;
fdm.TPredmet.Active:=true;
fdm.TPrepod.MasterSource:=nil;
fdm.TPrepod.MasterFields:='';
fdm.TPrepod.Active:=false;
fdm.TPrepod.Active:=true;