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);
114
procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit13KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit14KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit15KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit17KeyPress(Sender: TObject; var Key: Char);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
CanClose:Boolean;
{ Public declarations }
end;
var
CardForm: TCardForm;
implementation
uses DMUnit, MainUnit, CardMenuUnit, SpravDolUnit, OrgUnit, AdditionalUnit;
{$R *.dfm}
procedure TCardForm.BitBtn1Click(Sender: TObject);
begin
If tag=1 then
begin
CardForm.TabSheet1.Enabled:=True;
CardForm.TabSheet2.Enabled:=true;
end;
DataModule1.CardList.Cancel;
Close;
end;
procedure TCardForm.DateTimePicker1KeyPress(Sender: TObject;
var Key: Char);
begin
Key:=#0;
end;
procedure TCardForm.BitBtn2Click(Sender: TObject);
begin
{If (Tag=0) or (tag=2) then
If not ((DateTimePicker1.DateTime>=DateTimePicker2.DateTime) or (DateTimePick-
er1.DateTime>=Now) or (DateTimePicker1.DateTime>=DateTimePicker3.DateTime) or (DateTimePick-
er1.DateTime>=DateTimePicker4.DateTime)) then
try}
115
DataMod-
ule1.CardListBirthDay.Value:=strtodatetime(formatdatetime('dd.mm.yyyy',DatetimePicker1.DateTime));
DataMod-
ule1.CardListDateDog.Value:=strtodatetime(formatdatetime('dd.mm.yyyy',DatetimePicker2.DateTime));
DataMod-
ule1.CardListPasDate.Value:=strtodatetime(formatdatetime('dd.mm.yyyy',DatetimePicker3.DateTime));
DataMod-
ule1.CardListDateRegister.Value:=strtodatetime(formatdatetime('dd.mm.yyyy',DatetimePicker4.DateTime));
DataModule1.CardListWork.Value:=True;
DataModule1.CardListPassport.Value:=Edit1.Text+'-'+Edit2.Text;
DataModule1.CardList.Post;
MainForm.Label7.Caption:=inttostr(DataModule1.CardList.RecordCount);
CardMenuForm.BitBtn2.Enabled:=true;
CardMenuForm.BitBtn3.Enabled:=true;
CardMenuForm.BitBtn4.Enabled:=true;
CardMenuForm.BitBtn5.Enabled:=true;
CardMenuForm.BitBtn6.Enabled:=true;
CardMenuForm.BitBtn7.Enabled:=true;
Close;
CardMenuForm.Show;
{except
ShowMessage('Не все обязательные поля заполнены!');
end
else ShowMessage('Неверная дата рождения!')
else ShowMessage('Документ не может быть сохранен, так как находится в режиме просмотра.');}
end;
procedure TCardForm.FormShow(Sender: TObject);
{var
I:Integer;}
begin
If tag=2 then
begin
{rPassport;}
DateTimePicker1.DateTime:=DataModule1.CardListBirthDay.Value;
DateTimePicker2.DateTime:=DataModule1.CardListDateDog.Value;
DateTimePicker3.DateTime:=DataModule1.CardListPasDate.Value;
DateTimePicker4.DateTime:=DataModule1.CardListDateRegister.Value;
PageControl1.ActivePageIndex:=0;
if tag=1 then
begin
CardForm.TabSheet1.Enabled:=False;
CardForm.TabSheet2.Enabled:=False;
116
end
else
DBEdit1.SetFocus;
end;
If tag=3 then
Begin
DataModule1.CardList.Edit;
CardForm.Caption:='Редактирование';
CardForm.CanClose:=false;
end;
If tag=4 then
Begin
CardForm.CanClose:=false;
CardForm.TabSheet1.Enabled:=False;
CardForm.TabSheet2.Enabled:=False;
CardForm.BitBtn2.Enabled:=False;
end
end;
procedure TCardForm.TabSheet1Show(Sender: TObject);
begin
DBRadioGroup2.ItemIndex:=0;
end;
procedure TCardForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'0'..'9','X','V','I',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'0'..'9',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я',#1..#32:exit
else key:=#0;
end;
117
end;
procedure TCardForm.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.DBEdit6KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я','.',',',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.DBEdit9KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я','.',',',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.DBEdit10KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я','.',',','-','0'..'9',#1..#32:exit
else key:=#0;
118
end;
end;
procedure TCardForm.DBEdit12KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я','.',',','-','0'..'9',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.DBEdit16KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я','.',',',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'0'..'9',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.DBEdit29KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'0'..'9',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.DBEdit11KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'0'..'9',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.DBEdit13KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'0'..'9',#1..#32:exit
else key:=#0;