procedure TForm1.CategoryButtons1SelectedCategoryChange(Sender:
TObject;
const Category: TButtonCategory);
begin
PrintTabel();
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row] :=ComboBox1.Text;
ComboBox1.Visible :=false;
end;
procedure TForm1.DBLookupComboBox1CloseUp(Sender: TObject);
begin
StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row] :=
DBLookupComboBox1.Text;
DBLookupComboBox1.Visible := False;
end;
procedure TForm1.FormShow(Sender: TObject);
var i: integer;
begin
dm.tabPodr.First;
i:=0;
while not dm.tabPodr.Eof do
begin
CategoryButtons1.Categories.Add;
CategoryButtons1.Categories.Items[i].Caption:=dm.tabPodrpdName.Value;
CategoryButtons1.Categories.Items[i].Data:=Pointer(dm.tabPodrpdID.Value);
inc(i);
dm.tabPodr.Next;
end;
//Шапка таблицы
StringGrid1.Cells[0,0]:='№';
StringGrid1.ColWidths[0]:=20;
StringGrid1.Cells[1,0]:='ФИО, должность';
StringGrid1.ColWidths[1]:=250;
StringGrid1.Cells[2,0]:='Табельный номер';
StringGrid1.ColWidths[2]:=100;
for i := 1 to 31 do
begin
StringGrid1.Cells[i+2,0]:=IntToStr(i);
StringGrid1.ColWidths[i+2]:=20;
end;
end;
procedure TForm1.N11Click(Sender: TObject);
begin
Form4.ShowModal;
end;
procedure TForm1.N12Click(Sender: TObject);
begin
Form5.ShowModal;
end;
procedure TForm1.N13Click(Sender: TObject);
begin
Form7.ShowModal;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
dm.tabSotr.Insert;
Form2.ShowModal;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
Form3.ShowModal;
end;
end.