Отчет по квалификационной практике в Кемеровском Государственном Профессионально-Педагогическом Колледже

Cells[1,0]:='№ Пары';

Cells[2,0]:='                                       Дисциплина';

Cells[3,0]:='         Преподаватель';

Cells[4,0]:='    № каб.' end end;

 

procedure TMainForm.RadioGroup2Click(Sender: TObject);

begin ComboBox2.Clear;

Продолжение приложения Г

 

if RadioGroup2.ItemIndex=0 then begin

ComboBox2.AddItem('1', Sender);

ComboBox2.AddItem('2', Sender);

ComboBox2.AddItem('3', Sender);

ComboBox2.AddItem('4', Sender);

for i:=0 to 5 do  begin

StringGrid1.Cells[0, 1+i*4]:='1';

StringGrid1.Cells[0, 2+i*4]:='2';

StringGrid1.Cells[0, 3+i*4]:='3';

StringGrid1.Cells[0, 4+i*4]:='4' end end else begin

ComboBox2.AddItem('0', Sender);

ComboBox2.AddItem('1', Sender);

ComboBox2.AddItem('2', Sender);

ComboBox2.AddItem('3', Sender);

for i:=0 to 5 do  begin

StringGrid1.Cells[0, 1+i*4]:='0';

StringGrid1.Cells[0, 2+i*4]:='1';

StringGrid1.Cells[0, 3+i*4]:='2';

StringGrid1.Cells[0, 4+i*4]:='3' end end;

ComboBox2.ItemIndex:=0;

Table1.First;

TabControl1.Tabs.Clear;

for i:=1 to Table1.RecordCount do begin

if Table1.FieldByName('Smena').AsInteger=RadioGroup2.ItemIndex then

TabControl1.Tabs.Add(Table1.FieldByName('Group').AsString);

Table1.Next end;

ControlChange(Sender) end;

 

Продолжение приложения Г

 

procedure TMainForm.ControlChange(Sender: TObject);

begin with Query1 do begin Close;

SQL.Clear;

SQL.Add('SELECT Groupp, Disciplin, Prepod, Cabinet, Dayy, Pari, Week');

SQL.Add('FROM ":My:raspisanie.db"');

SQL.Add('WHERE');

SQL.Add('(Groupp = ''' + TabControl1.Tabs[TabControl1.TabIndex] + ''')');

Open;

case RadioGroup2.ItemIndex of

0: MainForm.Caption:=MainCap+perv;

1: Mainform.Caption:=MainCap+vtor end;

with StringGrid1 do begin for i:=1 to 24 do begin Cells[1, i]:='';

Cells[2, i]:='';

Cells[3, i]:='' end;

j:=RadioGroup2.ItemIndex; First;

for i:=1 to RecordCount do begin if RadioGroup1.ItemIndex=0 then begin case FieldByName('Week').AsInteger of

0: Cells[1, FieldByName('Pari').AsInteger+j+4*(FieldByName('Dayy').AsInteger-1)]:=FieldByName('Disciplin').AsString+'; ';

1: Cells[1, FieldByName('Pari').AsInteger+j+4*(FieldByName('Dayy').AsInteger-1)]:=

Cells[1, FieldByName('Pari').AsInteger+j+4*(FieldByName('Dayy').AsInteger-1)]+'ч.н.:'+FieldByName('Disciplin').AsString+'; ';

2: Cells[1, FieldByName('Pari').AsInteger+j+4*(FieldByName('Dayy').AsInteger-1)]:=

Cells[1, FieldByName('Pari').AsInteger+j+4*(FieldByName('Dayy').AsInteger-1)]+'н.н.:'+FieldByName('Disciplin').AsString+'; ' end;

Cells[2, FieldByName('Pari').AsInteger+j+4*(FieldByName('Dayy').AsInteger-1)]:=

Cells[2, FieldByName('Pari').AsInteger+j+4*(FieldByName('Dayy').AsInteger-1)]+FieldByName('Prepod').AsString+'; ';

Продолжение приложения Г

 

Cells[3, FieldByName('Pari').AsInteger+j+4*(FieldByName('Dayy').AsInteger-1)]:=

Cells[3, FieldByName('Pari').AsInteger+j+4*(FieldByName('Dayy').AsInteger-1)]+FieldByName('Cabinet').AsString+'; ' end else

if RadioGroup1.ItemIndex=FieldByName('Week').AsInteger then begin

Cells[1, FieldByName('Pari').AsInteger+j+4*(FieldByName('Dayy').AsInteger-1)]:=FieldByName('Disciplin').AsString;

Cells[2, FieldByName('Pari').AsInteger+j+4*(FieldByName('Dayy').AsInteger-1)]:=FieldByName('Prepod').AsString;

Cells[3, FieldByName('Pari').AsInteger+j+4*(FieldByName('Dayy').AsInteger-1)]:=FieldByName('Cabinet').AsString end;

Next end end end end;

 

procedure TMainForm.DeleteClick(Sender: TObject);

begin if TabControl1.Visible then with StringGrid1 do

if not((Cells[1 , Row]='')or((Cells[1 , Row][2]='.')and(

(Cells[1 , Row][1]='ч')or(Cells[1 , Row][1]='н')))) then begin

if Table5.Locate('Groupp;Dayy;Pari;Week', VarArrayOf ([TabControl1.Tabs[TabControl1. TabIndex], ceil(Row/4), Cells[0 , Row], RadioGroup1.ItemIndex]), []) then Table5.Delete;

ControlChange(Sender) end else else begin

if Table7.Locate('Data;Grouppp;Pari;Subgroup', VarArrayOf([Data.Date, DBComboBox6.Text, ComboBox5.Text, ComboBox4.ItemIndex]), []) then Table7.Delete;

DataChange(Sender);

if not f then StringGridClick(Sender) end end;

 

procedure TMainForm.StringGrid1MouseDown(Sender: TObject;

  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin StringGrid1.MouseToCell(X, Y, r, r);

if r>0 then StringGrid1.Row:=r end;

Продолжение приложения Г

 

procedure TMainForm.Button1Click(Sender: TObject);

begin DeleteClick(Sender);

Table5.InsertRecord([TabControl1.Tabs[TabControl1.TabIndex], ComboBox1.ItemIndex+1, ComboBox2.Text, RadioGroup1.ItemIndex, DBComboBox3.Text, DBComboBox1.Text, ComboBox3.ItemIndex, DBComboBox2.Text]);

ControlChange(Sender) end;

 

procedure TMainForm.StringGrid1Click(Sender: TObject);

begin with StringGrid1 do begin if RadioGroup2.ItemIndex=0 then

ComboBox2.ItemIndex:=strtoint(Cells[0 , Row])-1 else

ComboBox2.ItemIndex:=strtoint(Cells[0 , Row]);

ComboBox1.ItemIndex:=ceil(Row/4)-1 end end;

 

procedure TMainForm.DBComboBox6Change(Sender: TObject);

begin with ComboBox5 do begin

if Text='' then i:=1 else i:=strtoint(Text);

Clear; Table6.Locate('Group', DBComboBox6.Text, []);

if Table6.FieldByName('Smena').AsInteger=0 then begin

AddItem('1', Sender);

AddItem('2', Sender);

AddItem('3', Sender);

AddItem('4', Sender);

AddItem('5', Sender);

if i<1 then i:=1;

ItemIndex:=i-1 end else begin

AddItem('-1', Sender);

AddItem('0', Sender);

AddItem('1', Sender);

Продолжение приложения Г

 

AddItem('2', Sender);

AddItem('3', Sender);

if i>3 then i:=3;

ItemIndex:=i+1 end end end;

 

procedure TMainForm.ComboBox1Change(Sender: TObject);

begin StringGrid1.Row:=ComboBox1.ItemIndex*4+ComboBox2.ItemIndex+1 end;

 

procedure TMainForm.Button3Click(Sender: TObject);

begin f:=true; DeleteClick(Sender); f:=false;

Table7.InsertRecord([Data.Date, DBComboBox6.Text, ComboBox5.Text, ComboBox4.ItemIndex, DBComboBox4.Text, DBComboBox5.Text, DBComboBox7.Text]);

DataChange(Sender) end;

 

procedure TMainForm.StringGrid1KeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin if Key=VK_DELETE then Button2.Click end;

 

procedure TMainForm.DataChange(Sender: TObject);

begin with Query1 do begin Close; SQL.Clear;

SQL.Add('SELECT Data, Grouppp, Pari, Subgroup, Disciplin, Prepod, Cabinet');

SQL.Add('FROM ":My:izmenenies.db"');

SQL.Add('WHERE');

SQL.Add('Data = ''' + datetostr(Data.Date) + '''');

SQL.Add('ORDER BY Grouppp');

Open; First;

if RecordCount>0 then StringGrid.RowCount:=RecordCount+1 else StringGrid.RowCount:=2;

Продолжение приложения Г

 

for i:=0 to 4 do StringGrid.Cells[i, 1]:='';

for i:=1 to RecordCount do begin

StringGrid.Cells[0, i]:=FieldByName('Grouppp').AsString;

StringGrid.Cells[1, i]:=FieldByName('Pari').AsString;

StringGrid.Cells[2, i]:=FieldByName('Disciplin').AsString;

StringGrid.Cells[3, i]:=FieldByName('Prepod').AsString;

StringGrid.Cells[4, i]:=FieldByName('Cabinet').AsString;

if FieldByName('Subgroup').AsInteger=1 then StringGrid.Cells[2, i]:='1-подгр.: '+StringGrid.Cells[2, i];

if FieldByName('Subgroup').AsInteger=2 then StringGrid.Cells[2, i]:='2-подгр.: '+StringGrid.Cells[2, i];

Next end end;

s:=formatdatetime('dddd', Data.Date);

s[1]:=chr(ord(s[1])-32);

j:=DayOfWeek(Data.Date);

i:=WeekOfTheYear(Data.Date);

if strtoint(formatdatetime('m', Data.Date))>8 then

i:=i-WeekOfTheYear(StrToDate('01.09.'+formatdatetime('yyyy', j))) else

i:=i+(52-WeekOfTheYear(StrToDate('01.09.'+inttostr(strtoint(formatdatetime('yyyy', j))-1))));

if i mod 2 = 0 then s:=s+chet else s:=s+nech;

Label7.Caption:=s;

DBComboBox7Change(Sender);

ComboBox5Change(Sender) end;

 

procedure TMainForm.DBComboBox6KeyPress(Sender: TObject; var Key: Char);

begin if Key=#13 then ComboBox5.SetFocus end;

 

Продолжение приложения Г

 

procedure TMainForm.ComboBox5KeyPress(Sender: TObject; var Key: Char);

begin if Key=#13 then DBComboBox4.SetFocus end;

 

procedure TMainForm.DBComboBox4KeyPress(Sender: TObject; var Key: Char);

begin if Key=#13 then ComboBox4.SetFocus end;

 

procedure TMainForm.ComboBox4KeyPress(Sender: TObject; var Key: Char);

begin if Key=#13 then DBComboBox5.SetFocus end;

 

procedure TMainForm.DBComboBox5KeyPress(Sender: TObject; var Key: Char);

begin if Key=#13 then DBComboBox7.SetFocus end;

 

procedure TMainForm.DBComboBox7KeyPress(Sender: TObject; var Key: Char);

begin Button3.SetFocus end;

 

procedure TMainForm.StringGridMouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin StringGrid.MouseToCell(X, Y, r, r);

if r>0 then StringGrid.Row:=r end;

 

procedure TMainForm.StringGridClick(Sender: TObject);

begin with StringGrid do begin if Cells[0, Row]='' then begin

ComboBox4.ItemIndex:=0;

ComboBox5.ItemIndex:=0;

DBComboBox6.ItemIndex:=0;

DBComboBox7.ItemIndex:=0 end else begin if Cells[2, Row][2]='-' then

ComboBox4.ItemIndex:=strtoint(Cells[2, Row][1]) else ComboBox4.ItemIndex:=0;

DBComboBox6.Text:=Cells[0, Row];

Продолжение приложения Г

 

ComboBox5.Text:=Cells[1, Row];

DBComboBox7.Text:=Cells[4, Row] end;

DBComboBox7Change(Sender);

DBComboBox6Change(Sender) end end;

 

procedure TMainForm.DBComboBox7Change(Sender: TObject);

begin for i:=1 to 6 do for j:=1 to 6 do

if Table5.Locate('Dayy;Pari;Cabinet', VarArrayOf([inttostr(i), inttostr(j), DBComboBox7.Text]), [])

then StringGrid2.Cells[i, j]:='   x' else StringGrid2.Cells[i, j]:='' end;

 

procedure TMainForm.ComboBox5Change(Sender: TObject);

begin s:=ComboBox5.Text;

for i:=1 to StringGrid.RowCount-1 do if (StringGrid.Cells[0, i]=DBComboBox6.Text)

and(StringGrid.Cells[1, i]=s) then StringGrid.Row:=i;

Table6.Locate('Group', DBComboBox6.Text, []);

with ComboBox5 do begin if Table6.FieldByName('Smena').AsInteger=0 then begin

StringGrid2.Row:=ItemIndex+1;

ItemIndex:=strtoint(s)-1 end else begin

if Text<>'4' then StringGrid2.Row:=ItemIndex+2;

ItemIndex:=strtoint(s)+1 end end;

if DayOfTheWeek(Data.Date)<>7 then StringGrid2.Col:=DayOfTheWeek(Data.Date);

ListBox1.Clear;

Table8.First;

for i:=1 to Table8.RecordCount do begin

if (not(Table5.Locate('Dayy;Pari;Cabinet', VarArrayOf([inttostr(DayOfWeek(Data.Date)-1), ComboBox5.Text, Table8.FieldByName('Cabinet').AsString]), [])))

 

Продолжение приложения Г

 

and((Table8.FieldByName('Computers').AsBoolean=CheckBox2.Checked)or(not CheckBox2.Checked)) then ListBox1.AddItem(Table8.FieldByName('Cabinet').AsString, Sender);

Table8.Next end end;

 

procedure TMainForm.StringGrid2MouseMove(Sender: TObject;

  Shift: TShiftState; X, Y: Integer);

var Row, Col: integer;

begin StringGrid2.MouseToCell(X, Y, Col, Row);

if ((Row<>r)or(Col<>c)) then begin

R:=row; C:=col; Application.CancelHint;

with Table5 do if Locate('Dayy;Pari;Cabinet', VarArrayOf([inttostr(c), inttostr(r), DBComboBox7.Text]), [])

then StringGrid2.Hint:=FieldByName('Groupp').AsString+': '+FieldByName('Disciplin').AsString+' ('+FieldByName('Prepod').AsString+')'

else StringGrid2.Hint:='' end end;

 

procedure TMainForm.StringGrid2DrawCell(Sender: TObject; ACol,

  ARow: Integer; Rect: TRect; State: TGridDrawState);

begin if (ACol=0)and(ARow=0) then begin with StringGrid2.Canvas do begin

TextOut(Rect.Left, Rect.Top, '  №');

TextOut(Rect.Left, Rect.Top-StringGrid2.Font.Height, 'пары') end end end;

 

procedure TMainForm.FileCloseItemClick(Sender: TObject);

begin RadioGroup3.OnClick(Sender);

TabControl1.Visible:=false;

TabControl2.Visible:=false;

TabControl3.Visible:=true;

Продолжение приложения Г

 

StringGrid3Click(Sender);

StringGrid4Click(Sender);

StringGrid6Click(Sender) end;

 

procedure TMainForm.RadioGroup3Click(Sender: TObject);

begin f:=false;

StringGrid5.RowCount:=1;

with Table1 do begin First;

for i:=1 to RecordCount do begin

if FieldByName('Smena').AsInteger=RadioGroup3.ItemIndex then begin

if f then StringGrid5.RowCount:=StringGrid5.RowCount+1;

StringGrid5.Cells[0, StringGrid5.RowCount-1]:=FieldByName('Group').AsString;

StringGrid5.Cells[1, StringGrid5.RowCount-1]:=FieldByName('Students').AsString;

f:=true end;

Next end end;

StringGrid5.OnClick(Sender) end;

 

procedure TMainForm.BitBtn1Click(Sender: TObject);

begin if Table1.Locate('Group', LabeledEdit1.Text, []) then begin Table1.Delete;

DBComboBox6.Items.Delete(DBComboBox6.Items.IndexOf(LabeledEdit1.Text)) end;

Table1.InsertRecord([LabeledEdit1.Text, SpinEdit1.Value, RadioGroup3.ItemIndex]);

DBComboBox6.Items.Add(LabeledEdit1.Text);

Session.Databases[0].StartTransaction;

try Table1.ApplyUpdates;

Session.Databases[0].Commit except Session.Databases[0].Rollback;

raise end;

Table1.CommitUpdates;

RadioGroup3.OnClick(Sender) end;

Продолжение приложения Г

 

procedure TMainForm.BitBtn2Click(Sender: TObject);

begin if Table1.Locate('Group', LabeledEdit1.Text, []) then begin Table1.Delete;

DBComboBox6.Items.Delete(DBComboBox6.Items.IndexOf(LabeledEdit1.Text)) end;

Session.Databases[0].StartTransaction;

try Table1.ApplyUpdates;

Session.Databases[0].Commit except Session.Databases[0].Rollback;

raise end;

Table1.CommitUpdates;

RadioGroup3.OnClick(Sender) end;

 

procedure TMainForm.BitBtn3Click(Sender: TObject);

begin if not Table9.Locate('Disciplin', LabeledEdit2.Text, []) then begin

Table9.InsertRecord([LabeledEdit2.Text]);

DBComboBox1.Items.Add(LabeledEdit2.Text);

DBComboBox4.Items.Add(LabeledEdit2.Text);

Session.Databases[0].StartTransaction;

try Table9.ApplyUpdates;

Session.Databases[0].Commit except Session.Databases[0].Rollback;

raise end;

Table9.CommitUpdates end;

StringGrid6.OnClick(Sender) end;

 

procedure TMainForm.BitBtn4Click(Sender: TObject);

begin if Table9.Locate('Disciplin', LabeledEdit2.Text, []) then begin Table9.Delete;

DBComboBox1.Items.Delete(DBComboBox1.Items.IndexOf(LabeledEdit2.Text));

DBComboBox4.Items.Delete(DBComboBox4.Items.IndexOf(LabeledEdit2.Text)) end;

Session.Databases[0].StartTransaction;

try Table9.ApplyUpdates;

Продолжение приложения Г

 

Session.Databases[0].Commit except Session.Databases[0].Rollback;

raise end;

Table9.CommitUpdates;

StringGrid6.OnClick(Sender) end;

 

procedure TMainForm.BitBtn5Click(Sender: TObject);

begin if not Table0.Locate('Prepod', LabeledEdit3.Text, []) then begin

Table0.InsertRecord([LabeledEdit3.Text]);

DBComboBox2.Items.Add(LabeledEdit3.Text);

DBComboBox5.Items.Add(LabeledEdit3.Text);

Session.Databases[0].StartTransaction;

try Table0.ApplyUpdates;

Session.Databases[0].Commit except Session.Databases[0].Rollback;

raise end;

Table0.CommitUpdates end;

StringGrid3.OnClick(Sender) end;

 

procedure TMainForm.BitBtn6Click(Sender: TObject);

begin if Table0.Locate('Prepod', LabeledEdit3.Text, []) then begin Table0.Delete;

DBComboBox2.Items.Delete(DBComboBox2.Items.IndexOf(LabeledEdit3.Text));

DBComboBox5.Items.Delete(DBComboBox5.Items.IndexOf(LabeledEdit3.Text)) end;

Session.Databases[0].StartTransaction;

try Table0.ApplyUpdates;

Session.Databases[0].Commit except Session.Databases[0].Rollback;

raise end;

Table0.CommitUpdates;

StringGrid3Click(Sender) end;

 

Продолжение приложения Г

 

procedure TMainForm.BitBtn7Click(Sender: TObject);

begin if Table8.Locate('Cabinet', LabeledEdit4.Text, []) then begin Table8.Delete;

DBComboBox3.Items.Delete(DBComboBox3.Items.IndexOf(LabeledEdit4.Text));

DBComboBox7.Items.Delete(DBComboBox7.Items.IndexOf(LabeledEdit4.Text)) end;

Table8.InsertRecord([LabeledEdit4.Text, CheckBox1.Checked, SpinEdit2.Text, LabeledEdit5.Text, LabeledEdit6.Text]);

DBComboBox3.Items.Add(LabeledEdit4.Text);

DBComboBox7.Items.Add(LabeledEdit4.Text);

Session.Databases[0].StartTransaction;

try Table8.ApplyUpdates;

Session.Databases[0].Commit except Session.Databases[0].Rollback;

raise end;

Table8.CommitUpdates;

StringGrid4.OnClick(Sender) end;

 

procedure TMainForm.BitBtn8Click(Sender: TObject);

begin if Table8.Locate('Cabinet', LabeledEdit4.Text, []) then begin Table8.Delete;

DBComboBox3.Items.Delete(DBComboBox3.Items.IndexOf(LabeledEdit4.Text));

DBComboBox7.Items.Delete(DBComboBox7.Items.IndexOf(LabeledEdit4.Text)) end;

Session.Databases[0].StartTransaction;

try Table8.ApplyUpdates;

Session.Databases[0].Commit except Session.Databases[0].Rollback;

raise end;

Table8.CommitUpdates;

StringGrid4.OnClick(Sender) end;

 

procedure TMainForm.StringGrid3Click(Sender: TObject);

begin try with Table0 do begin First;

Продолжение приложения Г

 

StringGrid3.RowCount:=RecordCount;

for i:=0 to RecordCount do begin

StringGrid3.Cells[0, i]:=FieldByName('Prepod').AsString; Next end end;

LabeledEdit3.Text:=StringGrid3.Cells[0, StringGrid3.Row] except end end;

 

procedure TMainForm.StringGrid4Click(Sender: TObject);

begin with Table8 do begin First;

StringGrid4.RowCount:=RecordCount+1;

for i:=1 to RecordCount do with StringGrid4 do begin

Cells[0, i]:=FieldByName('Cabinet').AsString;

Cells[1, i]:=FieldByName('Name').AsString;

Cells[2, i]:=FieldByName('Zavcab').AsString;

Cells[3, i]:=FieldByName('Mesta').AsString;

if FieldByName('Computers').AsBoolean then begin Cells[4, i]:=' X';

if Row=i then CheckBox1.Checked:=true end else begin Cells[4, i]:='';

if Row=i then CheckBox1.Checked:=false end; Next end end;

LabeledEdit4.Text:=StringGrid4.Cells[0, StringGrid4.Row];

LabeledEdit5.Text:=StringGrid4.Cells[1, StringGrid4.Row];

LabeledEdit6.Text:=StringGrid4.Cells[2, StringGrid4.Row];

SpinEdit2.Text:=StringGrid4.Cells[3, StringGrid4.Row] end;

 

procedure TMainForm.StringGrid5Click(Sender: TObject);

begin LabeledEdit1.Text:=StringGrid5.Cells[0, StringGrid5.Row];

Table1.Locate('Group', LabeledEdit1.Text, []);

SpinEdit1.Value:=Table1.FieldByName('Students').AsInteger end;

 

procedure TMainForm.StringGrid6Click(Sender: TObject);

begin try with Table9 do begin First;

Продолжение приложения Г

 

StringGrid6.RowCount:=RecordCount;

for i:=0 to RecordCount do begin

StringGrid6.Cells[0, i]:=FieldByName('Disciplin').AsString;Next end end;

LabeledEdit2.Text:=StringGrid6.Cells[0, StringGrid6.Row] except end end;

 

procedure TMainForm.ListBox1Click(Sender: TObject);

begin DBComboBox7.Text:=ListBox1.Items[ListBox1.ItemIndex];

DBComboBox7.OnChange(Sender) end;