98
DM.qryOutput.Close;
DM.qryOutput.Params.ParamByName('idEmpl').Value:=DM.user.kod;
DM.qryOutput.Open;
DM.qryRelat.Close;
DM.qryRelat.Open;
imSettings.Visible:=DM.user.admin;
imReport.Visible:=DM.user.admin;
imLibrary.Visible:=DM.user.admin;
end;
procedure TfrmMain.grdCorrInputDblClick(Sender: TObject);
var
frm: TfrmCorr;
begin
if grdCorrInput.DataSource.DataSet.FieldCount>0 then
begin
Application.CreateForm(TfrmCorr,frm);
DM.tblCorr.RefireSQL;
DM.Reload(DM.tblCorr,DM.qryInput.FieldByName('Код').AsInteger);
frm.Tag:=0;
frm.ShowModal;
frm.Free;
end;
end;
procedure TfrmMain.grdCorrOutputDblClick(Sender: TObject);
var
frm: TfrmCorr;
begin
if grdCorrOutput.DataSource.DataSet.FieldCount>0 then
99
begin
Application.CreateForm(TfrmCorr,frm);
DM.tblCorr.RefireSQL;
DM.Reload(DM.tblCorr,DM.qryOutput.FieldByName('Код').AsInteger);
frm.Tag:=0;
frm.ShowModal;
frm.Free;
end;
end;
procedure TfrmMain.grdDocInputDblClick(Sender: TObject);
var
frm: TfrmDoc;
begin
Application.CreateForm(TfrmDoc,frm);
frm.Tag:=0;
frm.typeDoc:=0;
frm.ShowModal;
frm.Free;
end;
procedure TfrmMain.grdDocOutputDblClick(Sender: TObject);
var
frm: TfrmDoc;
begin
Application.CreateForm(TfrmDoc,frm);
frm.Tag:=0;
frm.typeDoc:=1;
frm.ShowModal;
frm.Free;
end;
procedure TfrmMain.imAddCorrClick(Sender: TObject);
100
var
frm: TfrmCorr;
begin
Application.CreateForm(TfrmCorr,frm);
frm.Tag:=1;
DM.tblCorr.Append;
frm.ShowModal;
frm.Free;
end;
procedure TfrmMain.imAddDocClick(Sender: TObject);
var
frm: TfrmDoc;
begin
Application.CreateForm(TfrmDoc,frm);
frm.Tag:=1;
frm.typeDoc:=1;
DM.tblDocOutput.Append;
frm.ShowModal;
frm.Free;
end;
procedure TfrmMain.imAddEmplClick(Sender: TObject);
var
frm: TfrmEmplOutput;
begin
Application.CreateForm(TfrmEmplOutput,frm);
DM.tblRelat.Append;
frm.ShowModal;
frm.Free;
end;
procedure TfrmMain.imDeleteCorrClick(Sender: TObject);
101
begin
if MessageDlg('Вы действительно хотите удалить
запись?',mtWarning,mbOkCancel,0)=mrOk then
begin
DM.Reload(DM.tblCorr,DM.qryOutput.FieldByName('Код').AsInteger);
DM.tblCorr.Delete;
DM.qryOutput.Close;
DM.qryOutput.Open;
end;
end;
procedure TfrmMain.imDeleteDocClick(Sender: TObject);
begin
if MessageDlg('Вы действительно хотите удалить
запись?',mtWarning,mbOkCancel,0)=mrOk then
grdDocOutput.DataSource.DataSet.Delete;
end;
procedure TfrmMain.imDeleteEmplClick(Sender: TObject);
begin
if MessageDlg('Вы действительно хотите удалить
запись?',mtWarning,mbOkCancel,0)=mrOk then
begin
DM.tblRelat.Filtered:=false;
DM.tblRelat.Filter:='([Сотрудник_код]='+grdEmplOutput.DataSource.DataSet.Field
ByName('Сотрудник_код').AsString+') and
([Корреспонденция_код]='+grdEmplOutput.DataSource.DataSet.FieldByName('Кор
респонденция_код').AsString+')';
DM.tblRelat.Filtered:=true;
DM.tblRelat.Delete;
102
DM.qryRelat.Close;
DM.qryRelat.Open;
end;
end;
procedure TfrmMain.imEditCorrClick(Sender: TObject);
var
frm: TfrmCorr;
begin
Application.CreateForm(TfrmCorr,frm);
frm.Tag:=1;
DM.Reload(DM.tblCorr,DM.qryOutput.FieldByName('Код').AsInteger);
DM.tblCorr.Edit;
frm.ShowModal;
frm.Free;
end;
procedure TfrmMain.imEditDocClick(Sender: TObject);
var
frm: TfrmDoc;
begin
Application.CreateForm(TfrmDoc,frm);
frm.Tag:=1;
frm.typeDoc:=1;
DM.tblDocOutput.Edit;
frm.ShowModal;
frm.Free;
end;
procedure TfrmMain.imLinkingClick(Sender: TObject);
begin
frmSetLink.ShowModal;
103
end;
procedure TfrmMain.imSendCorrClick(Sender: TObject);
begin
if MessageDlg('Отправить сообщение?',mtWarning,mbOkCancel,0)=mrOk
then
begin
DM.Reload(DM.tblCorr,DM.qryOutput.FieldByName('Код').AsInteger);
DM.tblCorr.Edit;
DM.tblCorr.FieldByName('ОтправленоФлаг').AsBoolean:=True;
DM.tblCorr.FieldByName('Отправлено').AsDateTime:=Now;
DM.tblCorr.Post;
DM.qryOutput.Close;
DM.qryOutput.Open;
DM.ReloadQRY(DM.qryOutput,DM.tblCorr.FieldByName('Код').AsInteger);
end;
end;
procedure TfrmMain.imUsersClick(Sender: TObject);
var
frm: TfrmUser;
begin
Application.CreateForm(TfrmUser,frm);
frm.ShowModal;
frm.Free;
end;
procedure TfrmMain.pmCorrOutputPopup(Sender: TObject);
begin
imEditCorr.Visible:=((grdCorrOutput.DataSource.DataSet.FieldCount>0)
AND
(grdCorrOutput.DataSource.DataSet.FieldByName('Отправлено').AsString='Нет'));
104
imDeleteCorr.Visible:=((grdCorrOutput.DataSource.DataSet.FieldCount>0)
AND
(grdCorrOutput.DataSource.DataSet.FieldByName('Отправлено').AsString='Нет'));
imSendCorr.Visible:=((grdCorrOutput.DataSource.DataSet.FieldCount>0)
AND
(grdCorrOutput.DataSource.DataSet.FieldByName('Отправлено').AsString='Нет'));
end;
procedure TfrmMain.pmDocOutputPopup(Sender: TObject);
begin
imAddDoc.Visible:=((grdCorrOutput.DataSource.DataSet.FieldCount>0)
AND
(grdCorrOutput.DataSource.DataSet.FieldByName('Отправлено').AsString='Нет'));
imEditDoc.Visible:=((grdDocOutput.DataSource.DataSet.FieldCount>0) AND
(grdCorrOutput.DataSource.DataSet.FieldByName('Отправлено').AsString='Нет'));
imDeleteDoc.Visible:=((grdDocOutput.DataSource.DataSet.FieldCount>0)
AND
(grdCorrOutput.DataSource.DataSet.FieldByName('Отправлено').AsString='Нет'));
end;
procedure TfrmMain.pmEmplOutputPopup(Sender: TObject);
begin
imAddEmpl.Visible:=((grdCorrOutput.DataSource.DataSet.FieldCount>0)
AND
(grdCorrOutput.DataSource.DataSet.FieldByName('Отправлено').AsString='Нет'));
imDeleteEmpl.Visible:=((grdEmplOutput.DataSource.DataSet.FieldCount>0)
AND
(grdCorrOutput.DataSource.DataSet.FieldByName('Отправлено').AsString='Нет'));
end;
procedure TfrmMain.Timer1Timer(Sender: TObject);
var
id: integer;
begin
105
id:=DM.qryInput.FieldByName('Код').AsInteger;
DM.qryInput.Close;
DM.qryInput.Open;
DM.ReloadQry(DM.qryInput,id);
end;
procedure TfrmMain.imGridClick(Sender: TObject);
var
frm: TfrmGrid;
begin
Application.CreateForm(TfrmGrid,frm);
frm.Tag:=(Sender as TMenuItem).Tag;
frm.ShowModal;
frm.Free;
end;
procedure TfrmMain.imReportClick(Sender: TObject);
var
frm: TfrmReport;
begin
Application.CreateForm(TfrmReport,frm);
frm.Tag:=(Sender as TMenuItem).Tag;
frm.ShowModal;
frm.Free;
end;
end.
unit uCorr;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Vcl.ExtCtrls,
Vcl.DBCtrls, Vcl.Mask, Data.DB;
106
type
TfrmCorr = class(TForm)
pnlMain: TPanel;
pnlBtn: TPanel;
btnCancel: TBitBtn;
btnSave: TBitBtn;
btnClose: TBitBtn;
pnlOutput: TPanel;
Label1: TLabel;
Label2: TLabel;
edtTitle: TDBEdit;
mmDescript: TDBMemo;
cbDest: TDBLookupComboBox;
Label3: TLabel;
procedure FormShow(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
private
{ Private declarations }
public
end;
var
frmCorr: TfrmCorr;
implementation
{$R *.dfm}
uses
uDM;
107
procedure TfrmCorr.btnCancelClick(Sender: TObject);
begin
DM.tblCorr.Cancel;
ModalResult:=mrCancel;
end;
procedure TfrmCorr.btnSaveClick(Sender: TObject);
begin
DM.tblCorr.Post;
DM.qryReport.Close;
DM.qryReport.SQL.Clear;
DM.qryReport.SQL.Add('insert into Отношение (Сотрудник_код,
Корреспонденция_код, Отправитель)');
DM.qryReport.SQL.Add('values (:emplID, :corrID, 1)');
DM.qryReport.Params.ParamByName('emplID').Value:=DM.user.kod;
DM.qryReport.Params.ParamByName('corrID').Value:=DM.tblCorr.FieldByName('К
од').AsInteger;
DM.qryReport.ExecSQL;
DM.qryOutput.Close;
DM.qryOutput.Open;
DM.ReloadQry(DM.qryOutput,DM.tblCorr.FieldByName('Код').AsInteger);
ModalResult:=mrOk;
end;
procedure TfrmCorr.FormShow(Sender: TObject);
begin
btnSave.Visible:=Tag=1;
btnCancel.Visible:=Tag=1;
btnClose.Visible:=Tag=0;
end;
end.