112
32. Ховард, Лебланк, Виега: Как написать безопасный код на С++, Java,
Perl, PHP, ASP.NET, - М., ДМК-Пресс, 2014 г., 288 с.
33. Чистов Д.А: Экономическая информатика (для бакалавров).
Учебное пособие, - М., Кнорус, 2014 г., 512 с.
34. Эндрю Стиллмен: Изучаем C#, - М., Питер, 2014 г., 816 с.
35. Энтони Молинаро, SQL. Сборник рецептов, - М., Символ-
Плюс,2011 г., 672 с.
36. Энтони Уильямс: Параллельное программирование на С++ в
действии. Практика разработки многопоточных программ, - М., ДМК-Пресс,
2014 г., 672 с.
113
Приложение. Листинг программных модулей
unit ufCardEditor;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls,
Vcl.DBCtrls,
Vcl.Mask, DB;
type
TfCardEditor = class(TForm)
Button1: TButton;
Button2: TButton;
DBEdit5: TDBEdit;
Label5: TLabel;
DBEdit6: TDBEdit;
Label6: TLabel;
DBEdit7: TDBEdit;
Label7: TLabel;
DBEdit8: TDBEdit;
Label8: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
Label12: TLabel;
Label13: TLabel;
DBLookupComboBox3: TDBLookupComboBox;
Label15: TLabel;
DBLookupComboBox4: TDBLookupComboBox;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
bGetData2: TButton;
bGetData1: TButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure Button2Click(Sender: TObject);
procedure bGetData1Click(Sender: TObject);
procedure bGetData2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fCardEditor: TfCardEditor;
114
implementation
{$R *.dfm}
uses udmData;
procedure TfCardEditor.bGetData1Click(Sender: TObject);
begin
//
dmData.cdsCardДата_поступления.Value :=
dmData.RemoteMethods.GetDate;
end;
procedure TfCardEditor.bGetData2Click(Sender: TObject);
begin
dmData.cdsCardДата_выдачи.Value := dmData.RemoteMethods.GetDate;
end;
procedure TfCardEditor.Button1Click(Sender: TObject);
begin
//
if (dmData.cdsCard.State = dsEdit) or (dmData.cdsCard.State =
dsInsert) then
dmData.cdsCard.Post;
Close;
end;
procedure TfCardEditor.Button2Click(Sender: TObject);
begin
//
Close;
end;
procedure TfCardEditor.FormClose(Sender: TObject; var Action:
TCloseAction);
begin
//
dmData.cdsCard.Cancel;
end;
procedure TfCardEditor.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then Close;
end;
end.
object fRangeDateSelector: TfRangeDateSelector
Left = 0
Top = 0
BorderStyle = bsDialog
Caption = #1042#1099#1073#1088#1072#1090#1100'
'#1076#1080#1072#1087#1072#1079#1086#1085
115
ClientHeight = 170
ClientWidth = 477
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
Position = poDesktopCenter
OnCreate = FormCreate
OnKeyPress = FormKeyPress
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left = 394
Top = 8
Width = 75
Height = 25
Caption = 'OK'
Default = True
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 394
Top = 39
Width = 75
Height = 25
Caption = #1054#1090#1084#1077#1085#1072
TabOrder = 1
116
OnClick = Button2Click
end
object MonthCalendar1: TMonthCalendar
Left = 8
Top = 8
Width = 191
Height = 154
Date = 41276.026995254630000000
TabOrder = 2
end
object MonthCalendar2: TMonthCalendar
Left = 197
Top = 2
Width = 191
Height = 160
Date = 41276.027374606480000000
TabOrder = 3
end
end
object fUserNotebook: TfUserNotebook
Left = 0
Top = 0
Caption = #1041#1083#1086#1082#1085#1086#1090
ClientHeight = 465
ClientWidth = 623
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
FormStyle = fsMDIChild
117
OldCreateOrder = False
Visible = True
PixelsPerInch = 96
TextHeight = 13
object dbmNoteBook: TDBMemo
AlignWithMargins = True
Left = 3
Top = 3
Width = 617
Height = 459
Align = alClient
DataField = #1041#1083#1086#1082#1085#1086#1090
DataSource = dmData.dsUserNotebook
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
ScrollBars = ssVertical
TabOrder = 0
end
end
Params.Strings = (
'DriverUnit=Data.DBXDataSnap'
'HostName=localhost'
'Port=6000'
'CommunicationProtocol=tcp/ip'
'DatasnapContext=datasnap/'
'DriverAssemblyLoader=Borland.Data.TDBXClientDriverLoader,Borland'
+
118
'.Data.DbxClientDriver,Version=16.0.0.0,Culture=neutral,PublicKey' +
'Token=91d62ebb5b0d1b1b'
'Filters={}'
'DSAuthenticationPassword=admin'
'DSAuthenticationUser=admin')
AfterConnect = SQLConnectionAfterConnect
BeforeDisconnect = SQLConnectionBeforeDisconnect
Left = 48
Top = 16
UniqueId = '{6A8D5147-8F9F-4705-B41A-65275751F48F}'
end
object DSProviderConnection: TDSProviderConnection
ServerClassName = 'TdssmRemoteData'
SQLConnection = SQLConnection
Left = 184
Top = 16
end