Материал: Автоматизация управления персоналом в АО "Киномакс" г. Краснодар

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
109
UpQualifProForm.Caption:='Просмотр';
// UpQualifProForm.ToolBar1.Visible:=False;
UpQualifProForm.ShowModal;
End
Else
ShowMessage('Нет записей!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N30Click(Sender: TObject);
begin
If DataModule1.UsersListRead.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.ProfList.RecordCount>0 then
Begin
ProfProForm.Tag:=4;
ProfProForm.Caption:='Просмотр';
// ProfProForm.ToolBar1.Visible:=False;
ProfProForm.ShowModal;
End
Else
ShowMessage('Нет записей!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N31Click(Sender: TObject);
begin
If DataModule1.UsersListRead.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.AwardsList.RecordCount>0 then
Begin
AwardsProForm.Tag:=4;
AwardsProForm.Caption:='Просмотр';
// AwardsProForm.ToolBar1.Visible:=False;
AwardsProForm.ShowModal;
End
Else
ShowMessage('Нет записей!')
110
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N32Click(Sender: TObject);
begin
If DataModule1.UsersListRead.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.OutputList.RecordCount>0 then
Begin
OutputProForm.Tag:=4;
OutputProForm.Caption:='Просмотр';
// OutputProForm.ToolBar1.Visible:=False;
OutputProForm.ShowModal;
End
Else
ShowMessage('Нет записей!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N33Click(Sender: TObject);
begin
If DataModule1.UsersListRead.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.SocialList.RecordCount>0 then
Begin
SocialProForm.Tag:=4;
SocialProForm.Caption:='Просмотр';
// SocialProForm.ToolBar1.Visible:=False;
SocialProForm.ShowModal;
End
Else
ShowMessage('Нет записей!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N34Click(Sender: TObject);
111
begin
If DataModule1.UsersListRead.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.AdditionalList.RecordCount>0 then
Begin
AdditionalForm.Tag:=4;
AdditionalForm.Caption:='Просмотр';
AdditionalForm.ShowModal;
End
Else
ShowMessage('Нет записей!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N53Click(Sender: TObject);
begin
If MessageDlg('Вы действительно хотите выполнить резервное копирование
данных?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
DataModule1.DataBase.Close;
CopyFile1ToFile2(MainForm.CurDir+'/data/MoriCinema.mdb',MainForm.CurDir+'/data/arc/ArcBase.mdb');
DataModule1.DataBase.Open;
ShowMessage('Резервное копирование выполнено!');
end;
end;
procedure TMainForm.N107Click(Sender: TObject);
begin
ArchiveForm.Caption:='Архив';
ArchiveForm.CanClose:=False;
ArchiveForm.ShowModal;
end;
end.
CardUnit.pas
unit CardUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ComCtrls, DBCtrls, Mask, ExtCtrls;
type
112
TCardForm = class(TForm)
BitBtn1: TBitBtn;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
GroupBox1: TGroupBox;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
Label5: TLabel;
Label6: TLabel;
DBEdit5: TDBEdit;
Label7: TLabel;
DBEdit6: TDBEdit;
TabSheet2: TTabSheet;
BitBtn2: TBitBtn;
Label32: TLabel;
DBComboBox7: TDBComboBox;
GroupBox10: TGroupBox;
Label37: TLabel;
Label38: TLabel;
DBEdit29: TDBEdit;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
GroupBox2: TGroupBox;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
DBEdit9: TDBEdit;
DateTimePicker3: TDateTimePicker;
GroupBox3: TGroupBox;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
DBEdit10: TDBEdit;
113
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
DateTimePicker4: TDateTimePicker;
GroupBox4: TGroupBox;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
DBEdit14: TDBEdit;
DBEdit15: TDBEdit;
DBEdit16: TDBEdit;
DBComboBox1: TDBComboBox;
DBEdit17: TDBEdit;
DBRadioGroup2: TDBRadioGroup;
Label21: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Label64: TLabel;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
Label22: TLabel;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
procedure BitBtn2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TabSheet1Show(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit12KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit16KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit29KeyPress(Sender: TObject; var Key: Char);
Источник: https://baza.diplomsite.ru/previewfile/2254

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

Анализ эффективности инвестиций предприятия на примере ООО «СпецПримСтрой»
Изложение содержания дела, по которому приняты судебные постановления