99
procedure TMine.RepVodExecute(Sender: TObject);
var exist: boolean;
i:integer;
year,month,day:word;
begin
exist:=false;
For i:=0 to Mine.MDIChildCount do
if Mine.MDIChildren[i] is TReportV
then exist:=true;
if exist
then ReportV.show
else ReportV:=TReportV.Create(Application);
ReportV.WindowState:=wsNormal;
ReportV.Height:=202;
ReportV.Width:=372;
//ReportV.ComboBox1.Text:=Mine.DateToStringM(now);
ReportV.Edit2.Text:=Mine.DateToStringY(now);
DecodeDate(date,year,month,day);
ReportV.ComboBox1.ItemIndex:=month-1;
ReportV.Edit1.SetFocus;
end;
procedure TMine.SaveExecute(Sender: TObject);
begin
//Проверка
if DM.QSKDSDesigner2.AsString<>JVod.DBEdit26.Text then begin
Application.MessageBox('Кондуктор с таким ТН в справочнике не найден!',
'Ошибка ввода данных!!!', MB_ICONERROR);
JVod.DBEdit26.SetFocus;
Exit;
end else JVod.DBComboBox2.SetFocus;
//Проверка на несколько путёвок
//Before Post on QJV
//
if DM.QJV.Modified then begin
100
DM.QJVDSDesigner2.AsInteger:=StrToInt(JVod.Edit1.text);
DM.QJV.Post;
end;
//Количество выходов
DM.QKol.SQL.Clear;
DM.QKol.SQL.Add('Select Число from РаботаВ where Год = '+Jvod.Edit3.Text+'
and Месяц = '''+Jvod.ComboBox1.Text+''' and Водитель = '+Jvod.Edit1.Text+' group by
Число');
DM.QKol.Active:=true;
Jvod.Label10.Caption:=inttostr(DM.QKol.RecordCount);
//
end;
procedure TMine.DeleteExecute(Sender: TObject);
begin
if Application.MessageBox(PChar('Вы действительно хотите удалить текущую
запись?'), 'Внимание!!!', MB_YESNO)=id_YES then
DM.QJV.Delete;
//Количество выходов
DM.QKol.SQL.Clear;
DM.QKol.SQL.Add('Select Число from РаботаВ where Год = '+Jvod.Edit3.Text+'
and Месяц = '''+Jvod.ComboBox1.Text+''' and Водитель = '+Jvod.Edit1.Text+' group by
Число');
DM.QKol.Active:=true;
Jvod.Label10.Caption:=inttostr(DM.QKol.RecordCount);
//
end;
procedure TMine.AddExecute(Sender: TObject);
var
n:integer;
begin
if DM.QJV.RecordCount<>0 then begin
//Проверка
if DM.QSKDSDesigner2.AsString<>JVod.DBEdit26.Text then begin
101
Application.MessageBox('Кондуктор с таким ТН в справочнике не найден!',
'Ошибка ввода данных!!!', MB_ICONERROR);
JVod.DBEdit26.SetFocus;
Exit;
end;
end;
//
n:=strtoint(JVod.Edit1.text);
DM.QJV.Insert;
//Ещё 00.00
JVod.DBEdit41.Text:='0';
JVod.DBEdit10.Text:='0';
JVod.DBEdit7.Text:='0';
JVod.DBEdit1.Text:='0';
JVod.DBEdit11.Text:='0';
JVod.DBEdit19.Text:='0';
JVod.DBEdit20.Text:='0';
JVod.DBEdit21.Text:='0';
JVod.DBEdit22.Text:='0';
JVod.DBEdit42.Text:='0';
JVod.DBEdit43.Text:='0';
JVod.DBEdit44.Text:='0';
JVod.DBEdit45.Text:='0';
DM.QJVDSDesigner2.AsInteger:=n;
DM.QJVDSDesigner19.AsString:= DM.QOptDSDesigner3.AsString; //из настроек
DM.QJVDSDesigner15.AsString:= DM.QOptDSDesigner2.AsString; //из настроек
DM.QJVDSDesigner37.AsString:= DM.QOptDSDesigner4.AsString; //из настроек
JVod.DBComboBox1.Text:=Mine.DateToStringM(now);
DM.QJVDSDesigner6.AsString:=Mine.DateToStringM(now);
DM.QJVDSDesigner5.AsString:=Mine.DateToStringY(now);
DM.QJVDSDesigner7.AsString:=Mine.DateToStringD(now);
JVod.DBComboBox2.SetFocus;
end;
procedure TMine.ArhExecute(Sender: TObject);
102
var Arc,Dir:string;
begin
if SaveDialog.Execute then
begin
Arc:=ExtractShortPathName(ExtractFileDir(SaveDialog.FileName))+
'\'+ExtractFileName(SaveDialog.FileName);
Dir:=ExtractShortPathName(ExtractFileDir(Application.ExeName))+'\';
WinExec(PChar(Dir+'arj a -e '+Arc+' '+Dir+'База.mdb'),0);
MessageDLG('Архивирование успешно завершено',mtInformation,[mbOK],0);
end
end;
procedure TMine.ReArhExecute(Sender: TObject);
{var Arc,Dir:string;}
begin
{DM.ADOConnection1.Close;
DM.QJV.Close;
DM.QSV.Close;
DM.QSK.Close;
DM.QSPE.Close;
DM.QM.Close;
DM.QDop.Close;
DM.QOpt.Close;
DM.QDel.Close;
DM.QKol.Close;
if MessageDlg('Cуществующие данные будут потеряны'+#13+
'без архивирования. Продолжить?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
if MDIChildCount<>0 then
begin
MessageDlg('Пожалуйста закройте все окна документов и
справочников.',mtError,[mbOk],0);
exit;
end
else
103
if OpenDialog.Execute then
begin
Arc:=ExtractShortPathName(OpenDialog.FileName);
Dir:=ExtractShortPathName(ExtractFileDir(Application.ExeName))+'\';
// CreateDir(Dir+'data\');
WinExec(PChar(Dir+'arj e -y '+Arc+' '+Dir+''),0);
MessageDLG('Восстановление успешно завершено',mtInformation,[mbOK],0);
end;
DM.QJV.Open;
DM.QSV.Open;
DM.QSK.Open;
DM.QSPE.Open;
DM.QM.Open;
DM.QDop.Open;
DM.QOpt.Open;
DM.QDel.Open;
DM.QKol.Open;
DM.ADOConnection1.Open;
// DM.ADOConnection1.Connected:=true;}
end;
procedure TMine.SaveKExecute(Sender: TObject);
begin
if DM.QSK.Modified then DM.QSK.Post;
end;
procedure TMine.AddKExecute(Sender: TObject);
begin
DM.QSK.Insert;
SKon.DBEdit1.SetFocus;
end;
procedure TMine.DeleteKExecute(Sender: TObject);
begin
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);