Загруженность аудиторий КемГППК

DBComboBox3.DataField:='Cabinet';

DBComboBox7.DataField:='Cabinet';

while not Eof do begin

DBComboBox3.Items.Add(FieldByName('Cabinet').AsString);

DBComboBox7.Items.Add(FieldByName('Cabinet').AsString);

Next end; First end;

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

with Table5 do begin DatabaseName:='My';

TableName:='Raspisanie';

Active:=true end;

with Table6 do begin DatabaseName:='My';

TableName:='Groups';

Active:=true end;

with Table7 do begin DatabaseName:='My';

TableName:='Izmenenies';

Active:=true end;

with Table8 do begin DatabaseName:='My';

TableName:='Cabinets';

Active:=true end;

with Table9 do begin DatabaseName:='My';

TableName:='Disciplins';

Active:=true end;

with Table0 do begin DatabaseName:='My';

TableName:='Prepods';

Active:=true end;

finally ConfigMode:=cmAll;

Session.Databases[0].TransIsolation:=tiDirtyRead; end; g:=true end;

DBComboBox6.OnChange(Sender) end; 

procedure TMainForm.FormCreate(Sender: TObject);

begin MainForm.WindowState:=wsMaximized;

StaticText1.Caption:=#13#13#13'П'#13'н';

StaticText2.Caption:=#13#13'В'#13'т';

StaticText3.Caption:=#13#13'С'#13'р';

StaticText4.Caption:=#13#13'Ч'#13'т';

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

StaticText5.Caption:=#13#13'П'#13'т';

StaticText6.Caption:=#13#13'С'#13'б';

with StringGrid4 do begin Cells[0, 0]:=' № каб.';

Cells[1, 0]:='     Наименование кабинета';

Cells[2, 0]:=' Ответственный';

Cells[3, 0]:='Мест';

Cells[4, 0]:='ПК' end;

Mainform.Caption:=MainCap;

Data.Date:=Date;

with StringGrid2 do begin

Cells[1,0]:='  Пн'; Cells[0,1]:='   1';

Cells[2,0]:='  Вт'; Cells[0,2]:='   2';

Cells[3,0]:='  Ср'; Cells[0,3]:='   3';

Cells[4,0]:='  Чт'; Cells[0,4]:='   4';

Cells[5,0]:='  Пт'; Cells[0,5]:='   5';

Cells[6,0]:='  Сб'; Cells[0,6]:='   6' end;

with StringGrid1 do begin Cells[0, 0]:='№ пары';

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

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

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

with StringGrid do begin Cells[0,0]:='    Группа';

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);