Часть №2.
-
Работа с календарем – 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;