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

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; 

procedure TMainForm.AboutClick(Sender: TObject);

begin Application.CreateForm(TAboutForm, AboutForm);

AboutForm.ShowModal;

AboutForm.Free end; 

procedure TMainForm.SOSClick(Sender: TObject);

var MsWord: variant;

begin try MsWord:=CreateOleObject('Word.Application') except end;

MsWord.Visible:=true;

MsWord.Documents.Open(ExtractFilePath(ParamStr(0))+'/Help/help.doc') end; 

procedure TMainForm.Button5Click(Sender: TObject);

begin RvProject1.SetParam('God', formatdatetime('y', Data.Date));

RvProject1.SetParam('Den', formatdatetime('dddd', Data.Date));

RvProject1.SetParam('Chislo', formatdatetime('d', Data.Date));

RvProject1.SetParam('Mes', formatdatetime('mmmm', Data.Date));

for i:=1 to 140 do RvProject1.SetParam(inttostr(i), '');

for i:=1 to StringGrid.RowCount-1 do begin

RvProject1.SetParam(inttostr(i), StringGrid.Cells[0, i]);

Окончание приложения Г 

RvProject1.SetParam(inttostr(i+35), StringGrid.Cells[1, i]);

RvProject1.SetParam(inttostr(i+70), StringGrid.Cells[2, i]);