Часть №2.

1. Работа с календарем –MonthCalendar.

Рисунок 33 – Календарь

procedure TCalendar.Button1Click(Sender: TObject);

begin

AddPersonal.Edit16.Text:= DateTostr(MonthCalendar1.Date);

Calendar.Close;

end;

Этот код заносит дату из календаря на форму Personal в поле Edit16.Text

Просмотр данных без редактирования.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, DBTables, Menus, StdCtrls, Grids, DBGrids;

type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

StaticText1: TStaticText;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

DataSource1: TDataSource;

Table1: TTable;

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N10Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit8;

{$R *.dfm}

procedure TForm1.N4Click(Sender: TObject);

begin

form2.Show;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

form3.ShowModal;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

form4.Show;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

form5.Show;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

form8.Show;

end;

end.

Форма редактирование данных

С помощью этой формы можно осуществлять добавление, удаление и изменение записей.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, DBCtrls, DB, DBTables, Grids, DBGrids;

type

TForm2 = class(TForm)

DBNavigator4: TDBNavigator;

. . . . . . . . . . . . .

procedure TForm2.FormCreate(Sender: TObject); //Создание раскрывающихся

списков

var i:integer;

begin

Table2.First;

DBGrid1.Columns[3].PickList.clear;

for i:=1 to Table2.RecordCount do

begin

DBGrid1.Columns[3].PickList.add(Table2.fieldbyname('FIO').AsString);

Table2.Next;

end;

Table3.First;

DBGrid1.Columns[4].PickList.clear;

for i:=1 to Table3.RecordCount do

begin

DBGrid1.Columns[4].PickList.add(Table3.fieldbyname('FIO').AsString);

Table3.Next;

end;

Table4.First;

DBGrid1.Columns[5].PickList.clear;

for i:=1 to Table4.RecordCount do

begin

DBGrid1.Columns[5].PickList.add(Table4.fieldbyname('Naimenovanie').AsString);

Table4.Next;

end;end;

end.

procedure TForm5.N3Click(Sender: TObject); // Процедура удаления объекта

begin

if MessageDlg('Вы действительно хотите удалить этот объект?',mtConfirmation,[mbYes,mbNo],0)=mrYes

then begin

Table1.Edit;

Table1.Delete;

Table1.Refresh;

exit;

end

else Exit;

end;