89
ChisloInCurr := chislo;
Str(ChisloInCurr: 20: Precision, ChisloInStr);
ChisloInStr[Pos('.', ChisloInStr)] := ',';
RoundEx := Trim(ChisloInStr);
end;
function sub(a, b: double): string;
var r1, r2: string;
h1,h2,i:double;
begin
h1 :=INT(A) + (((a - INT(A))*100)/60);
h2 :=INT(B) + (((b - INT(B))*100)/60);
r1:=ReplaceSub(RoundEx(h1,1), ',' ,'.' );
r2:=ReplaceSub(RoundEx(h2,1), ',' ,'.' );
i:=StrToFloat(r1) - StrToFloat(r2);
Result:=FloatToStr(i);
end;
procedure TDM.QJVBeforePost(DataSet: TDataSet);
begin
//Водители
DM.QTWO.SQL.Clear;
DM.QTWO.SQL.Add('Select * from РаботаВ where Год =
'+DM.QJVDSDesigner5.AsString+' and Месяц = '''+DM.QJVDSDesigner6.AsString+''' and
Водитель = '+Jvod.Edit1.Text+' and Число = '+DM.QJVDSDesigner7.AsString+'');
DM.QTWO.Active:=true;
if DM.QTWO.RecordCount>0 then
begin
DM.QJVDSDesigner15.AsString:='00.00';
DM.QJVDSDesigner19.AsString:='00.00';
end;
//Кондукторы
DM.QTWO.SQL.Clear;
90
DM.QTWO.SQL.Add('Select * from РаботаВ where Год =
'+DM.QJVDSDesigner5.AsString+' and Месяц = '''+DM.QJVDSDesigner6.AsString+''' and
Кондуктор = '+Jvod.DBEdit26.Text+' and Число = '+DM.QJVDSDesigner7.AsString+'');
DM.QTWO.Active:=true;
if DM.QTWO.RecordCount>0 then
begin
DM.QJVDSDesigner37.AsString:='00.00';
end;
end;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, DB, ADODB, ActnList, ImgList, ExtCtrls, ComCtrls, ToolWin,
StdCtrls;
type
TMine = class(TForm)
ActionList1: TActionList;
JV: TAction;
SV: TAction;
SK: TAction;
SP: TAction;
ImageList1: TImageList;
Quit: TAction;
SM: TAction;
ControlBar1: TControlBar;
ToolBar1: TToolBar;
ToolBar2: TToolBar;
91
ToolBar3: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
Splitter1: TSplitter;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
Splitter2: TSplitter;
RepKon: TAction;
RepVod: TAction;
Opt: TAction;
Save: TAction;
Delete: TAction;
Add: TAction;
ToolButton10: TToolButton;
Arh: TAction;
SaveDialog: TSaveDialog;
OpenDialog: TOpenDialog;
SaveK: TAction;
DeleteK: TAction;
AddK: TAction;
SaveV: TAction;
DeleteV: TAction;
AddV: TAction;
SavePE: TAction;
DeletePE: TAction;
AddPE: TAction;
SaveM: TAction;
DeleteM: TAction;
AddM: TAction;
MainMenu1: TMainMenu;
92
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
RepKon1: TMenuItem;
RepVod1: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
Opt1: TMenuItem;
N10: TMenuItem;
N1: TMenuItem;
N11: TMenuItem;
procedure JVExecute(Sender: TObject);
procedure SKExecute(Sender: TObject);
procedure SVExecute(Sender: TObject);
procedure ExitExecute(Sender: TObject);
function DateToStringM(Date:TDateTime):String;
function DateToStringY(Date:TDateTime):String;
function DateToStringD(Date:TDateTime):String;
procedure SPExecute(Sender: TObject);
procedure QuitExecute(Sender: TObject);
procedure SMExecute(Sender: TObject);
procedure OptExecute(Sender: TObject);
procedure RepKonExecute(Sender: TObject);
procedure RepVodExecute(Sender: TObject);
procedure SaveExecute(Sender: TObject);
procedure DeleteExecute(Sender: TObject);
procedure AddExecute(Sender: TObject);
procedure ArhExecute(Sender: TObject);
procedure ReArhExecute(Sender: TObject);
procedure SaveKExecute(Sender: TObject);
procedure AddKExecute(Sender: TObject);
procedure DeleteKExecute(Sender: TObject);
93
procedure DeleteVExecute(Sender: TObject);
procedure DeletePEExecute(Sender: TObject);
procedure DeleteMExecute(Sender: TObject);
procedure SaveVExecute(Sender: TObject);
procedure AddVExecute(Sender: TObject);
procedure SavePEExecute(Sender: TObject);
procedure AddPEExecute(Sender: TObject);
procedure SaveMExecute(Sender: TObject);
procedure AddMExecute(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Mine: TMine;
implementation
uses Unit2, Unit3, Unit5, Unit6, Unit7, Unit4, Unit8, Unit10, Unit9;
{$R *.dfm}
function TMine.DateToStringM(Date:TDateTime):String;
var year,month,day:word;
monthStr:string;
begin
DecodeDate(date,year,month,day);
case month of
1:MonthStr:='Январь';
2:MonthStr:='Февраль';
3:MonthStr:='Март';
4:MonthStr:='Апрель';
5:MonthStr:='Май';
94
6:MonthStr:='Июнь';
7:MonthStr:='Июль';
8:MonthStr:='Август';
9:MonthStr:='Сентябрь';
10:MonthStr:='Октябрь';
11:MonthStr:='Ноябрь';
12:MonthStr:='Декабрь';
end;
if Date=0
then Result:=''
else Result:=MonthStr;
end;
function TMine.DateToStringY(Date:TDateTime):String;
var year,month,day:word;
begin
DecodeDate(date,year,month,day);
if Date=0
then Result:=''
else Result:=inttostr(year);
end;
function TMine.DateToStringD(Date:TDateTime):String;
var year,month,day:word;
begin
DecodeDate(date,year,month,day);
if Date=0
then Result:=''
else Result:=inttostr(day);
end;
procedure TMine.JVExecute(Sender: TObject);
var exist: boolean;
95
i:integer;
year,month,day:word;
begin
DM.QJV.Edit;
exist:=false;
For i:=0 to Mine.MDIChildCount do
if Mine.MDIChildren[i] is TJVod
then exist:=true;
if exist
then JVod.Close;
JVod:=TJVod.Create(Application);
JVod.WindowState:=wsMaximized;
// Mine.QX:=DM.QJV;
//Jvod.ComboBox1.Text:=Mine.DateToStringM(now);
Jvod.Edit3.Text:=Mine.DateToStringY(now);
DecodeDate(date,year,month,day);
Jvod.ComboBox1.ItemIndex:=month-1;
end;
procedure TMine.SKExecute(Sender: TObject);
var exist: boolean;
i:integer;
begin
exist:=false;
For i:=0 to Mine.MDIChildCount do
if Mine.MDIChildren[i] is TSKon
then exist:=true;
if exist
then SKon.show
else SKon:=TSKon.Create(Application);
SKon.WindowState:=wsNormal;
SKon.Height:=272;
SKon.Width:=682;
96
SKon.DBEdit1.SetFocus;
// Mine.QX:=DM.QSK;
end;
procedure TMine.SVExecute(Sender: TObject);
var exist: boolean;
i:integer;
begin
exist:=false;
For i:=0 to Mine.MDIChildCount do
if Mine.MDIChildren[i] is TSVod
then exist:=true;
if exist
then SVod.show
else SVod:=TSVod.Create(Application);
SVod.WindowState:=wsNormal;
SVod.Height:=358;
SVod.Width:=769;
SVod.DBEdit1.SetFocus;
// Mine.QX:=DM.QSV;
end;
procedure TMine.ExitExecute(Sender: TObject);
begin
close;
end;
procedure TMine.SPExecute(Sender: TObject);
var exist: boolean;
i:integer;
begin
exist:=false;
For i:=0 to Mine.MDIChildCount do
if Mine.MDIChildren[i] is TSPE
then exist:=true;
97
if exist
then SPE.show
else SPE:=TSPE.Create(Application);
SPE.WindowState:=wsNormal;
SPE.Height:=291;
SPE.Width:=436;
SPE.DBEdit1.SetFocus;
// Mine.QX:=DM.QSV;
end;
procedure TMine.QuitExecute(Sender: TObject);
begin
close;
end;
procedure TMine.SMExecute(Sender: TObject);
var exist: boolean;
i:integer;
begin
exist:=false;
For i:=0 to Mine.MDIChildCount do
if Mine.MDIChildren[i] is TSMar
then exist:=true;
if exist
then SMar.show
else SMar:=TSMar.Create(Application);
SMar.WindowState:=wsNormal;
SMar.Height:=238;
SMar.Width:=402;
SMar.DBEdit1.SetFocus;
end;
procedure TMine.OptExecute(Sender: TObject);
var exist: boolean;
i:integer;
98
begin
exist:=false;
For i:=0 to Mine.MDIChildCount do
if Mine.MDIChildren[i] is TOptions
then exist:=true;
if exist
then Options.show
else Options:=TOptions.Create(Application);
Options.WindowState:=wsNormal;
Options.Height:=163;
Options.Width:=318;
Options.DBEdit1.SetFocus;
end;
procedure TMine.RepKonExecute(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 TReportK
then exist:=true;
if exist
then ReportK.show
else ReportK:=TReportK.Create(Application);
ReportK.WindowState:=wsNormal;
ReportK.Height:=202;
ReportK.Width:=372;
//ReportK.ComboBox1.Text:=Mine.DateToStringM(now);
ReportK.Edit2.Text:=Mine.DateToStringY(now);
DecodeDate(date,year,month,day);
ReportK.ComboBox1.ItemIndex:=month-1;
end;