Дипломная работа: Автоматизация учета рабочего времени сотрудников компании ООО «Транспорт-Отрадный 2»

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
104
if Application.MessageBox(PChar('Вы действительно хотите удалить текущую
запись?'), 'Внимание!!!', MB_YESNO)=id_YES then
DM.QSK.Delete;
end;
procedure TMine.DeleteVExecute(Sender: TObject);
begin
if Application.MessageBox(PChar('Вы действительно хотите удалить текущую
запись?'), 'Внимание!!!', MB_YESNO)=id_YES then
DM.QSV.Delete;
end;
procedure TMine.DeletePEExecute(Sender: TObject);
begin
if Application.MessageBox(PChar('Вы действительно хотите удалить текущую
запись?'), 'Внимание!!!', MB_YESNO)=id_YES then
DM.QSPE.Delete;
end;
procedure TMine.DeleteMExecute(Sender: TObject);
begin
if Application.MessageBox(PChar('Вы действительно хотите удалить текущую
запись?'), 'Внимание!!!', MB_YESNO)=id_YES then
DM.QM.Delete;
end;
procedure TMine.SaveVExecute(Sender: TObject);
begin
if DM.QSV.Modified then DM.QSV.Post;
end;
procedure TMine.AddVExecute(Sender: TObject);
begin
DM.QSV.Insert;
SVod.DBEdit1.SetFocus;
105
end;
procedure TMine.SavePEExecute(Sender: TObject);
begin
if DM.QSPE.Modified then DM.QSPE.Post;
end;
procedure TMine.AddPEExecute(Sender: TObject);
begin
DM.QSPE.Insert;
SPE.DBEdit1.SetFocus;
end;
procedure TMine.SaveMExecute(Sender: TObject);
begin
if DM.QM.Modified then DM.QM.Post;
end;
procedure TMine.AddMExecute(Sender: TObject);
begin
DM.QM.Insert;
SMar.DBEdit1.SetFocus;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids, DBGrids, Mask, DBCtrls, ActnList;
type
106
TSMar = class(TForm)
DBGrid1: TDBGrid;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
GroupBox1: TGroupBox;
Label1: TLabel;
DBEdit1: TDBEdit;
ActionList1: TActionList;
Save: TAction;
Delete: TAction;
Add: TAction;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure SaveExecute(Sender: TObject);
procedure DeleteExecute(Sender: TObject);
procedure AddExecute(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
SMar: TSMar;
implementation
uses Unit2, Unit1;
{$R *.dfm}
procedure TSMar.BitBtn1Click(Sender: TObject);
107
begin
DM.QM.Insert;
end;
procedure TSMar.BitBtn2Click(Sender: TObject);
begin
if Application.MessageBox(PChar('Вы действительно хотите удалить текущую
запись?'), 'Внимание!!!', MB_YESNO)=id_YES then
DM.QM.Delete;
end;
procedure TSMar.BitBtn3Click(Sender: TObject);
begin
if DM.QM.Modified then DM.QM.Post;
end;
procedure TSMar.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TSMar.SaveExecute(Sender: TObject);
begin
Mine.SaveMExecute(Sender);
end;
procedure TSMar.DeleteExecute(Sender: TObject);
begin
Mine.DeleteMExecute(Sender);
end;
procedure TSMar.AddExecute(Sender: TObject);
begin
Mine.AddMExecute(Sender);
end;
108
end.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DB, DBGrids, StdCtrls, Mask, DBCtrls, Buttons, ActnList;
type
TSVod = class(TForm)
DBGrid1: TDBGrid;
Edit1: TEdit;
GroupBox1: TGroupBox;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
ActionList1: TActionList;
Save: TAction;
Delete: TAction;
Add: TAction;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Edit1Change(Sender: TObject);
procedure Edit1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
Источник: https://baza.diplomsite.ru/previewfile/2441

Смотрите также:

Влияние космоса на существование человечества
Кадровые риски
Классификация испанских компьютерных метафор по характеру коннотативного значения
Мировой рынок нефти
Нестандартний урок в інтерактивному режимі
Расчет энергонапряженности планетарной мельницы для кварцевых порошков
семестровая
Сучасний стан реалізації основних прав і свобод людини і громадянина в Україні
Телемедицина: современное состояние и перспективы развития
Характеристика основных механизмов психологической защиты