Форум программистов [Powered by Invision Power Board]

Код

файл scMainForm.pas

unit scMainForm;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, TrayIcon, FileCtrl, Db, DBTables, ExtCtrls;

type
TfrmMain = class(TForm)
PopupMenu1: TPopupMenu;
mnuClose: TMenuItem;
N1: TMenuItem;
mnuRunSms: TMenuItem;
mnuDayReport: TMenuItem;
Timer1: TTimer;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
procedure mnuCloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure mnuRunSmsClick(Sender: TObject);
function StartQSms(CommandLine:string;FileName:string) : Boolean;
procedure mnuDayReportClick(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
private
//
public
{ Public declarations }
end;

var
frmMain: TfrmMain;

implementation

uses scfrmDayReport;

{$R *.DFM}
//------------------------------------------------------------------------------
procedure TfrmMain.mnuCloseClick(Sender: TObject);
begin
Close;
end;
//------------------------------------------------------------------------------
procedure TfrmMain.FormCreate(Sender: TObject);
begin
Icon.IconVisible := True;
frmDayReport := nil;
Try
mnuDayReportClick (Self);
except
on EDataBaseError do

end;
end;
//------------------------------------------------------------------------------
procedure TfrmMain.mnuRunSmsClick(Sender: TObject);
var
Drive : char;
DirPart: string;
ExeFile: string;
begin
If (FindWindow(PChar('TMainForm'), nil) = 0) then
begin
ProcessPath (Application.ExeName, Drive, DirPart,ExeFile);
ExeFile := Drive + ':' + DirPart + '\QSms.exe';
StartQsms(ExeFile, '');
end;
end;
//------------------------------------------------------------------------------
function TfrmMain.StartQSms(CommandLine:string;FileName:string) : Boolean;
var
pCommandLine : array [0..MAX_PATH] of char;
pFileName : array [0..MAX_PATH] of char;
StartupInfo : TStartupInfo;
ProcessInfo : TProcessInformation;
begin
try
StrPCopy(pCommandLine,CommandLine);
FileName:=CommandLine + ' '+ FileName;
StrPCopy(pFileName,FileName);
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
StartupInfo.wShowWindow :=SW_NORMAL;
Result:= CreateProcess(nil,pFileName,nil,nil,True,NORMAL_PRIORITY_CLASS,
nil,nil,StartupInfo,ProcessInfo);
If Result then
begin
//hAppProcess:= ProcessInfo.hProcess;
end;
finally
//If (hAppProcess<>0) then CloseHandle(hAppProcess);
end;
end;
//------------------------------------------------------------------------------
procedure TfrmMain.mnuDayReportClick(Sender: TObject);
var
Year, Month, Day : Word;
begin
if (frmDayReport <> nil) then Exit;
DecodeDate (Now(), Year, Month, Day);

Application.CreateForm (TfrmDayReport, frmDayReport);

//if not frmDayReport.tbDepartments.Active then frmDayReport.tbDepartments.Open;

if (frmDayReport.qryDepInt.Active) then frmDayReport.qryDepInt.Close;
frmDayReport.qryDepInt.ParamByName ('KeyId').AsInteger := frmDayReport.tbParamsDefaultDepartment.Value;
frmDayReport.qryDepInt.Open;

if (frmDayReport.qryDepExt.Active) then frmDayReport.qryDepExt.Close;
frmDayReport.qryDepExt.ParamByName ('KeyId').AsInteger := frmDayReport.tbParamsDefaultDepartment.Value;
frmDayReport.qryDepExt.Open;

if (frmDayReport.qryWorks.Active) then frmDayReport.qryWorks.Close;
frmDayReport.qryWorks.ParamByName ('KeyId').AsInteger := frmDayReport.tbParamsDefaultDepartment.Value;
frmDayReport.qryWorks.Open;

if (frmDayReport.qrySmsCorrection.Active) then frmDayReport.qrySmsCorrection.Close;
frmDayReport.qrySmsCorrection.Open;

if (frmDayReport.qryInDoc.Active) then frmDayReport.qryInDoc.Close;
frmDayReport.qryInDoc.ParamByName ('DepKeyId').AsInteger := frmDayReport.tbParamsDefaultDepartment.Value;
frmDayReport.qryInDoc.ParamByName ('year').AsInteger := Year;
frmDayReport.qryInDoc.Open;

if (frmDayReport.qryWorks.RecordCount = 0) and
(frmDayReport.qryDepExt.RecordCount = 0) and
(frmDayReport.qryDepInt.RecordCount = 0) and (frmDayReport.qrySmsCorrection.RecordCount = 0) then
begin
MessageDlg ('Ii Aaoaio iia?acaaeaie? iaauiieiaiiuo ?aaio eee ianiioaaonoaee a nenoaia IEOA ia auyaeaii.',
mtInformation, [mbOk], 0);
Timer1.Enabled := False;
end
else
begin
if frmDayReport.tbDepartments.Locate ('KeyId', frmDayReport.tbParamsDefaultDepartment.Value, []) then
frmDayReport.ShowModal;
end;

frmDayReport.Free;
frmDayReport := nil;
end;
//------------------------------------------------------------------------------
procedure TfrmMain.N3Click(Sender: TObject);
begin
WinExec (PChar('Transport.exe'), 0)
end;
//------------------------------------------------------------------------------
procedure TfrmMain.N4Click(Sender: TObject);
begin
WinExec (PChar('Documents.exe'), 0)
end;
//------------------------------------------------------------------------------
end.
end;