120
TPrepodDSDesigner5: TIntegerField;
TPrepodDSDesigner6: TWideStringField;
TPrepodDSDesigner7: TIntegerField;
TPrepodNazvSpez: TStringField;
TUchNagrusNazvKlass: TStringField;
TPredmetDSDesigner: TAutoIncField;
TPredmetDSDesigner2: TWideStringField;
TKDPrepDSDesigner: TIntegerField;
TKDPrepDSDesigner2: TWideStringField;
TKDPrepDSDesigner3: TWideStringField;
TKDUchDSDesigner: TIntegerField;
TKDUchDSDesigner2: TWideStringField;
TKDUchDSDesigner3: TWideStringField;
TUchNagrusFamPrepod: TStringField;
TUspevFamUch: TStringField;
private
{ Private declarations }
public
{ Public declarations }
end;
var
fDM: TfDM;
implementation
uses Unit1, Unit3, Unit4;
{$R *.dfm}
end.
unit Unit3;
interface
121
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, ComCtrls, ExtCtrls, Menus, DB, ADODB,
DBCtrls, Buttons, WordXP, OleServer, ComObj, math, XPMan;
type
TfMain = class(TForm)
Button1: TButton;
Panel4: TPanel;
RadioGroup1: TRadioGroup;
MainMenu1: TMainMenu;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
ADOTable1: TADOTable;
DataSource1: TDataSource;
DataSource3: TDataSource;
ADOQuery2: TADOQuery;
ADOQuery2DSDesigner: TAutoIncField;
ADOQuery2DSDesigner2: TIntegerField;
ADOQuery2DSDesigner3: TIntegerField;
ADOQuery2DSDesigner4: TIntegerField;
ADOQuery2DSDesigner5: TDateTimeField;
ADOQuery2NazvPredmet: TStringField;
DataSource4: TDataSource;
Tuch: TADOTable;
ADOQuery1: TADOQuery;
DataSource5: TDataSource;
DobZap: TADOQuery;
BitBtn2: TBitBtn;
DataSource2: TDataSource;
122
ADOTable2: TADOTable;
ADOQuery4: TADOQuery;
DataSource6: TDataSource;
ADOQuery4DSDesigner: TAutoIncField;
ADOQuery4DSDesigner2: TIntegerField;
ADOQuery4DSDesigner3: TIntegerField;
ADOQuery4DSDesigner4: TIntegerField;
ADOQuery4DSDesigner5: TDateTimeField;
ADOQuery4NazvPredmet: TStringField;
QRas: TADOQuery;
DSRas: TDataSource;
QRasDSDesigner: TAutoIncField;
QRasDSDesigner2: TIntegerField;
QRasDSDesigner3: TIntegerField;
QRasDSDesigner1_: TIntegerField;
QRasDSDesigner2_: TIntegerField;
QRasDSDesigner3_: TIntegerField;
QRasDSDesigner4_: TIntegerField;
QRasDSDesigner1_2: TIntegerField;
QRasDSDesigner2_2: TIntegerField;
QRasDSDesigner4: TIntegerField;
QRaskol10_4: TIntegerField;
ADOTable3: TADOTable;
DataSource7: TDataSource;
ADOTable2DSDesigner: TAutoIncField;
ADOTable2DSDesigner2: TWideStringField;
BitBtn4: TBitBtn;
Edit1: TEdit;
BitBtn5: TBitBtn;
N5: TMenuItem;
BitBtn6: TBitBtn;
123
BitBtn7: TBitBtn;
BitBtn8: TBitBtn;
Label10: TLabel;
ComboBox1: TComboBox;
N6: TMenuItem;
BitBtn9: TBitBtn;
BitBtn10: TBitBtn;
GroupBox1: TGroupBox;
Edit2: TEdit;
N7: TMenuItem;
N8: TMenuItem;
ComboBox2: TComboBox;
XPManifest1: TXPManifest;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Splitter1: TSplitter;
Panel2: TPanel;
DBGrid2: TDBGrid;
Panel3: TPanel;
DBGrid3: TDBGrid;
Panel1: TPanel;
DBGrid1: TDBGrid;
TabSheet2: TTabSheet;
Splitter3: TSplitter;
Panel5: TPanel;
DBGrid4: TDBGrid;
Panel6: TPanel;
DBGrid5: TDBGrid;
TabSheet3: TTabSheet;
Splitter5: TSplitter;
Panel8: TPanel;
124
DBGrid7: TDBGrid;
Panel9: TPanel;
DBGrid8: TDBGrid;
TabSheet4: TTabSheet;
Panel7: TPanel;
Label5: TLabel;
Label4: TLabel;
Label6: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
StringGrid1: TStringGrid;
DBLookupListBox1: TDBLookupListBox;
BitBtn1: TBitBtn;
TabSheet5: TTabSheet;
Panel10: TPanel;
Label11: TLabel;
Label12: TLabel;
DBLookupComboBox2: TDBLookupComboBox;
DBLookupListBox2: TDBLookupListBox;
BitBtn3: TBitBtn;
StringGrid2: TStringGrid;
BitBtn11: TBitBtn;
TabSheet6: TTabSheet;
DBGrid6: TDBGrid;
N1: TMenuItem;
N9: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
125
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure N4Click(Sender: TObject);
procedure DBLookupComboBox1Click(Sender: TObject);
procedure DBLookupListBox1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure DBGrid4DblClick(Sender: TObject);
procedure TabSheet4Show(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure DBLookupComboBox2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure TabSheet5Show(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure BitBtn11Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure BitBtn10Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);
procedure StringGrid2KeyPress(Sender: TObject; var Key: Char);
procedure DBLookupListBox2Click(Sender: TObject);
procedure BitBtn12Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N9Click(Sender: TObject);
126
procedure DBGrid4TitleClick(Column: TColumn);
procedure DBGrid6TitleClick(Column: TColumn);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fMain: TfMain;
id:array[1..100] of integer;
k10,k9,k8,k7,k6,k5,k4,k3,kol10_4, kol10_7:integer;
absuspev, kachuspev, sou:string;
implementation
uses Unit1, Unit2, Unit4, Unit5, Unit6, Unit8, Unit7, Unit10, Unit9,
Unit11, Unit12, Unit13;
{$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;
127
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;
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;
128
fmain.ADOQuery2.Active:=false;
fmain.Tuch.Active:=false;
fmain.ADOQuery1.Active:=false;
end;
procedure TfMain.Button1Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TfMain.DBGrid1DblClick(Sender: TObject);
begin
feditor.Show;
end;
procedure TfMain.FormShow(Sender: TObject);
begin
ClearSvz;
fmain.RadioGroup1.Items.Clear;
fmain.RadioGroup1.Items.Add('Успеваемость');
fmain.RadioGroup1.Items.Add('Контактные данные');
fmain.RadioGroup1.ItemIndex:=0;
fmain.DBGrid1.DataSource:=fdm.DSKlass;
fmain.DBGrid2.DataSource:=fdm.DSUchenik;
fdm.TUchenik.MasterFields:='ИДКласс';
fdm.TUchenik.MasterSource:=fdm.DSKlass;
fmain.DBGrid3.DataSource:=fdm.DSUspev;
fdm.TUspev.MasterSource:=fdm.DSUchenik;
fdm.TUspev.MasterFields:='ИДУчащийся';
129
fmain.BitBtn6.Caption:='Новый учащийся';
fmain.BitBtn9.Caption:='Редактирование учащихся';
fmain.BitBtn2.Caption:='Удалить учащегося';
fmain.BitBtn4.Caption:='Новый класс';
fmain.BitBtn7.Caption:='Редактирование класса';
fmain.BitBtn8.Caption:='Новый класс';
//if fauth.ComboBox1.ItemIndex = 1 then
// begin
// fmain.TabSheet4.TabVisible:=false;
// fmain.N6.Visible:=false;
// end
// else
// fmain.TabSheet4.TabVisible:=true;
// fmain.N6.Visible:=true;
if fmain.RadioGroup1.ItemIndex = 0 then
fmain.DBGrid3.DataSource:=fdm.DSUspev else
fmain.DBGrid3.DataSource:=fdm.DSKDUch;
end;
procedure TfMain.RadioGroup1Click(Sender: TObject);
begin
//класс
if fmain.PageControl1.TabIndex = 0 then
begin
if fmain.RadioGroup1.ItemIndex = 0 then
fmain.DBGrid3.DataSource:=fdm.DSUspev else begin
fmain.DBGrid3.Columns.Clear; fmain.DBGrid3.DataSource:=fdm.DSKDUch;
fdm.TKDUch.MasterFields:='ИДУчащийся';
fdm.TKDUch.MasterSource:=fdm.DSUchenik; end;