Проектирование информационной системы по управлению взаимоотношениями с клиентами

Выбор технологии разработки программного обеспечения, информационного и технологического обеспечения. Проектирование и реализация баз данных. Переход от ER-модели к системе реляционной базы данных. Разработка стартовой страницы и побочных форм.

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык русский
Дата добавления 30.07.2017
Размер файла 2,0 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

<TdbButton dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnKeyUp="" dbOnKeyPress="" dbOnKeyDown="" dbOnClick="" Style="bsPushButton" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BiDiMode="bdLeftToRight" Height="25" Width="117" Caption="Открыть в EXCEL" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" dbAnchors="2211" Top="392" Left="448" Name="Открыть_в_EXCEL" WordWrap="False" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma" dbOnExit="" dbOnEnter="" dbOnAfterClick="" ImageAlignment="iaLeft" CommandLinkHint="" Default="False" Cancel="False" dbSortAsc="True" dbCheckNotNull="False" dbCloseFormAfterSave="True" dbConfirmDelete="True" dbIconName="Excel" dbCustomOrderBy="" dbSortField="" dbReportFile="" dbSQL="" dbFormName="" dbGeneralTable="" dbResultControl="Таблица" dbListFooters="" dbListFieldsNames="" dbListFields="" dbListControls="" dbReportOpenIn="rpoPreview" dbActionType="adbGridToExcel" TabStop="True" TabOrder="4"/>

</Sotrudniki>

<Sotrudniki_dobavit dbOnShow="" dbOnResize="" dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnKeyUp="" dbOnKeyPress="" dbOnKeyDown="" dbOnDoubleClick="" dbOnClose="" dbOnClick="" Owner="none" StyleEx="18579" Style="61525" Directives="" ScriptEnabled="True" WindowState="wsNormal" TransparentColorValue="0" TransparentColor="False" Position="poScreenCenter" KeyPreview="False" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BorderStyle="bsSingle" BorderIcons="[biSystemMenu,biMinimize]" BiDiMode="bdLeftToRight" AutoScroll="False" AlphaBlendValue="0" AlphaBlend="False" Sizeable="False" Color="-16777201" Height="232" Width="245" Caption="Редактировать">

<TdbLabel dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnDoubleClick="" dbOnClick="" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BiDiMode="bdLeftToRight" Color="-16777201" Height="13" Width="44" Caption="Фамилия" AutoSize="True" Transparent="True" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" dbAnchors="2211" Top="32" Left="64" Name="Фамилия" WordWrap="False" Layout="tlTop" Alignment="taLeftJustify" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma"/>

<TdbLabel dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnDoubleClick="" dbOnClick="" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BiDiMode="bdLeftToRight" Color="-16777201" Height="13" Width="19" Caption="Имя" AutoSize="True" Transparent="True" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" dbAnchors="2211" Top="56" Left="88" Name="Имя" WordWrap="False" Layout="tlTop" Alignment="taLeftJustify" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma"/>

<TdbLabel dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnDoubleClick="" dbOnClick="" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BiDiMode="bdLeftToRight" Color="-16777201" Height="13" Width="49" Caption="Отчество" AutoSize="True" Transparent="True" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" dbAnchors="2211" Top="80" Left="56" Name="Отчество" WordWrap="False" Layout="tlTop" Alignment="taLeftJustify" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma"/>

<TdbLabel dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnDoubleClick="" dbOnClick="" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BiDiMode="bdLeftToRight" Color="-16777201" Height="13" Width="78" Caption="Специальность" AutoSize="True" Transparent="True" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" dbAnchors="2211" Top="104" Left="30" Name="Специальность" WordWrap="False" Layout="tlTop" Alignment="taLeftJustify" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma"/>

<TdbLabel dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnDoubleClick="" dbOnClick="" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BiDiMode="bdLeftToRight" Color="-16777201" Height="13" Width="84" Caption="Номер телефона" AutoSize="True" Transparent="True" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" dbAnchors="2211" Top="128" Left="24" Name="Номер_телефона" WordWrap="False" Layout="tlTop" Alignment="taLeftJustify" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma"/>

<TdbLabel dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnDoubleClick="" dbOnClick="" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BiDiMode="bdLeftToRight" Color="-16777201" Height="13" Width="50" Caption="Эл. почта" AutoSize="True" Transparent="True" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" dbAnchors="2211" Top="152" Left="56" Name="Эл_почта" WordWrap="False" Layout="tlTop" Alignment="taLeftJustify" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma"/>

<TdbLabel dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnDoubleClick="" dbOnClick="" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BiDiMode="bdLeftToRight" Color="-16777201" Height="13" Width="19" Caption="ICQ" AutoSize="True" Transparent="True" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" dbAnchors="2211" Top="176" Left="88" Name="ICQ" WordWrap="False" Layout="tlTop" Alignment="taLeftJustify" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma"/>

<TdbEdit dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnKeyUp="" dbOnKeyPress="" dbOnKeyDown="" dbOnDoubleClick="" dbOnClick="" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BorderStyle="bsSingle" BiDiMode="bdLeftToRight" Color="-16777211" Height="21" Width="121" AutoSize="True" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" dbAnchors="2211" Top="24" Left="112" Name="Фамилия1" Alignment="taLeftJustify" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma" dbOnExit="" dbOnEnter="" TabStop="True" TabOrder="0" dbOnChange="" ReadOnly="False" dbIncremSearch="" dbFilter="=" Text="" TextHint="" PasswordChar="" MaxLength="0" CharCase="ecNormal" AutoSelect="True" dbEditMask="" dbDefaultValue="" dbField="Фамилия" dbTable="Sotrudniki" dbThousandSeparator="False" dbSuffix="" dbPrefix="" dbAccuracy="0" dbCurrency="False" NumbersOnly="False" BevelKind="bkNone" BevelOuter="bvLowered" BevelInner="bvRaised"/>

<TdbEdit dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnKeyUp="" dbOnKeyPress="" dbOnKeyDown="" dbOnDoubleClick="" dbOnClick="" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BorderStyle="bsSingle" BiDiMode="bdLeftToRight" Color="-16777211" Height="21" Width="121" AutoSize="True" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" dbAnchors="2211" Top="48" Left="112" Name="Имя1" Alignment="taLeftJustify" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma" dbOnExit="" dbOnEnter="" TabStop="True" TabOrder="1" dbOnChange="" ReadOnly="False" dbIncremSearch="" dbFilter="=" Text="" TextHint="" PasswordChar="" MaxLength="0" CharCase="ecNormal" AutoSelect="True" dbEditMask="" dbDefaultValue="" dbField="Имя" dbTable="Sotrudniki" dbThousandSeparator="False" dbSuffix="" dbPrefix="" dbAccuracy="0" dbCurrency="False" NumbersOnly="False" BevelKind="bkNone" BevelOuter="bvLowered" BevelInner="bvRaised"/>

<TdbEdit dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnKeyUp="" dbOnKeyPress="" dbOnKeyDown="" dbOnDoubleClick="" dbOnClick="" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BorderStyle="bsSingle" BiDiMode="bdLeftToRight" Color="-16777211" Height="21" Width="121" AutoSize="True" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" dbAnchors="2211" Top="72" Left="112" Name="Отчество1" Alignment="taLeftJustify" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma" dbOnExit="" dbOnEnter="" TabStop="True" TabOrder="2" dbOnChange="" ReadOnly="False" dbIncremSearch="" dbFilter="=" Text="" TextHint="" PasswordChar="" MaxLength="0" CharCase="ecNormal" AutoSelect="True" dbEditMask="" dbDefaultValue="" dbField="Отчество" dbTable="Sotrudniki" dbThousandSeparator="False" dbSuffix="" dbPrefix="" dbAccuracy="0" dbCurrency="False" NumbersOnly="False" BevelKind="bkNone" BevelOuter="bvLowered" BevelInner="bvRaised"/>

<TdbEdit dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnKeyUp="" dbOnKeyPress="" dbOnKeyDown="" dbOnDoubleClick="" dbOnClick="" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BorderStyle="bsSingle" BiDiMode="bdLeftToRight" Color="-16777211" Height="21" Width="121" AutoSize="True" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" dbAnchors="2211" Top="96" Left="112" Name="Специальность1" Alignment="taLeftJustify" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma" dbOnExit="" dbOnEnter="" TabStop="True" TabOrder="3" dbOnChange="" ReadOnly="False" dbIncremSearch="" dbFilter="=" Text="" TextHint="" PasswordChar="" MaxLength="0" CharCase="ecNormal" AutoSelect="True" dbEditMask="" dbDefaultValue="" dbField="Специальность" dbTable="Sotrudniki" dbThousandSeparator="False" dbSuffix="" dbPrefix="" dbAccuracy="0" dbCurrency="False" NumbersOnly="False" BevelKind="bkNone" BevelOuter="bvLowered" BevelInner="bvRaised"/>

<TdbEdit dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnKeyUp="" dbOnKeyPress="" dbOnKeyDown="" dbOnDoubleClick="" dbOnClick="" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BorderStyle="bsSingle" BiDiMode="bdLeftToRight" Color="-16777211" Height="21" Width="121" AutoSize="True" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" dbAnchors="2211" Top="120" Left="112" Name="Номер_телефона1" Alignment="taLeftJustify" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma" dbOnExit="" dbOnEnter="" TabStop="True" TabOrder="4" dbOnChange="" ReadOnly="False" dbIncremSearch="" dbFilter="=" Text="" TextHint="" PasswordChar="" MaxLength="0" CharCase="ecNormal" AutoSelect="True" dbEditMask="" dbDefaultValue="" dbField="Номер телефона" dbTable="Sotrudniki" dbThousandSeparator="False" dbSuffix="" dbPrefix="" dbAccuracy="0" dbCurrency="False" NumbersOnly="False" BevelKind="bkNone" BevelOuter="bvLowered" BevelInner="bvRaised"/>

<TdbEdit dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnKeyUp="" dbOnKeyPress="" dbOnKeyDown="" dbOnDoubleClick="" dbOnClick="" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BorderStyle="bsSingle" BiDiMode="bdLeftToRight" Color="-16777211" Height="21" Width="121" AutoSize="True" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" dbAnchors="2211" Top="144" Left="112" Name="Эл_Почта1" Alignment="taLeftJustify" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma" dbOnExit="" dbOnEnter="" TabStop="True" TabOrder="5" dbOnChange="" ReadOnly="False" dbIncremSearch="" dbFilter="=" Text="" TextHint="" PasswordChar="" MaxLength="0" CharCase="ecNormal" AutoSelect="True" dbEditMask="" dbDefaultValue="" dbField="Эл. Почта" dbTable="Sotrudniki" dbThousandSeparator="False" dbSuffix="" dbPrefix="" dbAccuracy="0" dbCurrency="False" NumbersOnly="False" BevelKind="bkNone" BevelOuter="bvLowered" BevelInner="bvRaised"/>

<TdbEdit dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnKeyUp="" dbOnKeyPress="" dbOnKeyDown="" dbOnDoubleClick="" dbOnClick="" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BorderStyle="bsSingle" BiDiMode="bdLeftToRight" Color="-16777211" Height="21" Width="121" AutoSize="True" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" dbAnchors="2211" Top="168" Left="112" Name="ICQ1" Alignment="taLeftJustify" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma" dbOnExit="" dbOnEnter="" TabStop="True" TabOrder="6" dbOnChange="" ReadOnly="False" dbIncremSearch="" dbFilter="=" Text="" TextHint="" PasswordChar="" MaxLength="0" CharCase="ecNormal" AutoSelect="True" dbEditMask="" dbDefaultValue="" dbField="ICQ" dbTable="Sotrudniki" dbThousandSeparator="False" dbSuffix="" dbPrefix="" dbAccuracy="0" dbCurrency="False" NumbersOnly="False" BevelKind="bkNone" BevelOuter="bvLowered" BevelInner="bvRaised"/>

<TdbButton dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnKeyUp="" dbOnKeyPress="" dbOnKeyDown="" dbOnClick="" Style="bsPushButton" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BiDiMode="bdLeftToRight" Height="25" Width="85" Caption="Добавить" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" dbAnchors="2211" Top="200" Left="32" Name="Добавить" WordWrap="False" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma" dbOnExit="" dbOnEnter="" dbOnAfterClick="" ImageAlignment="iaLeft" CommandLinkHint="" Default="True" Cancel="False" dbSortAsc="True" dbCheckNotNull="True" dbCloseFormAfterSave="True" dbConfirmDelete="True" dbIconName="New" dbCustomOrderBy="" dbSortField="" dbReportFile="" dbSQL="" dbFormName="" dbGeneralTable="Sotrudniki" dbResultControl="" dbListFooters="" dbListFieldsNames="" dbListFields="" dbListControls="Имя1,Фамилия1,Отчество1,Специальность1,Номер_телефона1,Эл_Почта1,ICQ1" dbReportOpenIn="rpoPreview" dbActionType="adbSaveRecord" TabStop="True" TabOrder="7"/>

<TdbButton dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnKeyUp="" dbOnKeyPress="" dbOnKeyDown="" dbOnClick="" Style="bsPushButton" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BiDiMode="bdLeftToRight" Height="25" Width="85" Caption="Отмена" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" dbAnchors="2211" Top="200" Left="144" Name="Отмена" WordWrap="False" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma" dbOnExit="" dbOnEnter="" dbOnAfterClick="" ImageAlignment="iaLeft" CommandLinkHint="" Default="False" Cancel="True" dbSortAsc="True" dbCheckNotNull="False" dbCloseFormAfterSave="True" dbConfirmDelete="True" dbIconName="Cancel" dbCustomOrderBy="" dbSortField="" dbReportFile="" dbSQL="" dbFormName="" dbGeneralTable="" dbResultControl="" dbListFooters="" dbListFieldsNames="" dbListFields="" dbListControls="" dbReportOpenIn="rpoPreview" dbActionType="adbCloseForm" TabStop="True" TabOrder="8"/>

</Sotrudniki_dobavit>

</main>

Приложение 2

var

Timer: TTimer;

procedure Form1_OnShow (Sender: string; Action: string);

begin

Timer := TTimer.Create(Form);

Timer.Interval := 60000;

Timer.OnTimer := @OnTimer;

OnTimer;

Timer.Enabled := true;

end;

procedure Form1_OnClose (Sender: string; Action: string);

begin

Timer.Free;

end;

procedure OnTimer;

var

sMessage: string;

begin

sMessage := SQLExecute('SELECT message FROM reminder WHERE strftime(''%d.%m.%Y %H:%M'', datetime) = strftime(''%d.%m.%Y %H:%M'', ''now'', ''localtime'') ');

if sMessage<>'' then ShowMessage(sMessage);

end;

begin

end.

<?xml version="1.0" encoding="UNICODE"?>

<main>

<Form dbOnShow="Form1_OnShow" dbOnResize="" dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnKeyUp="" dbOnKeyPress="" dbOnKeyDown="" dbOnDoubleClick="" dbOnClose="Form1_OnClose" dbOnClick="" Owner="none" StyleEx="12115" Style="55061" Directives="" ScriptEnabled="True" WindowState="wsNormal" TransparentColorValue="0" TransparentColor="False" Position="poScreenCenter" KeyPreview="False" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BorderStyle="bsSingle" BorderIcons="[biSystemMenu,biMinimize]" BiDiMode="bdLeftToRight" AutoScroll="False" AlphaBlendValue="255" AlphaBlend="False" Sizeable="False" Color="-16777201" Height="308" Width="417" Caption="Напоминания">

<TdbStringGrid dbOnResize="" dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnKeyUp="" dbOnKeyPress="" dbOnKeyDown="" dbOnDoubleClick="" dbOnClick="" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BiDiMode="bdLeftToRight" AutoScroll="False" Color="-16777211" Height="269" Width="253" Caption="" dbOnSortColumn="" dbOnLoadProgress="" dbOnHeaderDoubleClick="" dbOnHeaderClick="" dbOnFooterClick="" dbOnExit="" dbOnEnter="" dbOnColumnResize="" dbOnChange="" dbOnCellDoubleClick="" dbOnCellClick="" dbOnAfterSort="" SecondClickEdit="True" AllowDelete="False" AllowEdit="False" AllowCreateEmpty="False" AllowCreate="False" WantTabs="False" WantReturns="False" TabLeaveControl="True" SortedStyle="soDefault" SelectionMoveDirection="mdDown" SelectionColor="-16777203" ReadOnly="False" Options="[goDisableColumnMoving,goGrid,goHeader,goSecondClickEdit,goSelectFullRow]" MouseWheelEnabled="True" KeepUserSort="False" InputSize="16" InactiveSelectionColor="-16777201" HomeEndBehaviour="hebTopBottom" HighlightedTextColor="-16777208" HideScrollBar="True" HeaderStyle="hsAuto" HeaderSize="18" GridStyle="gsReport" GridLinesStyle="lsActiveRows" GridLinesColor="-16777201" FooterSize="18" FixedCols="0" EnableVisualStyles="True" AppearanceOptions="[aoAlphaBlendedSelection]" dbIncremSearch="" dbSortAsc="False" dbCustomOrderBy="" dbSortField="" dbAutoExecute="True" dbFilter="" dbListFooters="None:^,None:^" dbListFieldsNames="Дата/время,Текст сообщения" dbListFields="reminder.datetime,reminder.message" dbGeneralTable="reminder" DefaultRowHeight="18" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" TabStop="True" TabOrder="0" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma" dbAnchors="2211" Top="24" Left="0" Name="TableGrid1">

<TRollShadow MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BiDiMode="bdLeftToRight" Height="0" Width="0" ShowHint="False" Hint="" Top="0" Left="0" Name=""/>

<TDragArrow MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BiDiMode="bdLeftToRight" Height="9" Width="9" ShowHint="False" Hint="" Top="0" Left="0" Name=""/>

<TDragArrow MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BiDiMode="bdLeftToRight" Height="9" Width="9" ShowHint="False" Hint="" Top="0" Left="0" Name=""/>

<TColumnDragBox MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BiDiMode="bdLeftToRight" Height="0" Width="0" ShowHint="False" Hint="" Top="0" Left="0" Name=""/>

</TdbStringGrid>

<TdbButton dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnKeyUp="" dbOnKeyPress="" dbOnKeyDown="" dbOnClick="" Style="bsPushButton" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BiDiMode="bdLeftToRight" Height="25" Width="141" Caption="Новое напоминание" dbOnExit="" dbOnEnter="" dbSortAsc="True" dbCustomOrderBy="" dbSortField="" dbListFooters="" dbListFieldsNames="" dbListFields="" dbGeneralTable="" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" TabStop="True" TabOrder="3" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma" dbAnchors="2211" Top="24" Left="264" Name="Button1" dbOnAfterClick="" WordWrap="False" ImageAlignment="iaLeft" CommandLinkHint="" Default="False" Cancel="False" dbCheckNotNull="True" dbCloseFormAfterSave="True" dbConfirmDelete="True" dbIconName="New" dbReportFile="" dbSQL="" dbFormName="frmRemider" dbResultControl="" dbListControls="" dbReportOpenIn="rpoPreview" dbActionType="adbNewRecord"/>

<TdbButton dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnKeyUp="" dbOnKeyPress="" dbOnKeyDown="" dbOnClick="" Style="bsPushButton" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BiDiMode="bdLeftToRight" Height="25" Width="141" Caption="Редактировать" dbOnExit="" dbOnEnter="" dbSortAsc="True" dbCustomOrderBy="" dbSortField="" dbListFooters="" dbListFieldsNames="" dbListFields="" dbGeneralTable="" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" TabStop="True" TabOrder="2" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma" dbAnchors="2211" Top="56" Left="264" Name="Button2" dbOnAfterClick="" WordWrap="False" ImageAlignment="iaLeft" CommandLinkHint="" Default="False" Cancel="False" dbCheckNotNull="True" dbCloseFormAfterSave="True" dbConfirmDelete="True" dbIconName="Edit" dbReportFile="" dbSQL="" dbFormName="frmRemider" dbResultControl="TableGrid1" dbListControls="" dbReportOpenIn="rpoPreview" dbActionType="adbShowRecord"/>

<TdbButton dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnKeyUp="" dbOnKeyPress="" dbOnKeyDown="" dbOnClick="" Style="bsPushButton" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BiDiMode="bdLeftToRight" Height="25" Width="141" Caption="Удалить напоминание" dbOnExit="" dbOnEnter="" dbSortAsc="True" dbCustomOrderBy="" dbSortField="" dbListFooters="" dbListFieldsNames="" dbListFields="" dbGeneralTable="" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" TabStop="True" TabOrder="1" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma" dbAnchors="2211" Top="88" Left="264" Name="Button3" dbOnAfterClick="" WordWrap="False" ImageAlignment="iaLeft" CommandLinkHint="" Default="False" Cancel="False" dbCheckNotNull="True" dbCloseFormAfterSave="True" dbConfirmDelete="True" dbIconName="Delete" dbReportFile="" dbSQL="" dbFormName="" dbResultControl="TableGrid1" dbListControls="" dbReportOpenIn="rpoPreview" dbActionType="adbDelete"/>

</Form>

<frmRemider dbOnShow="" dbOnResize="" dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnKeyUp="" dbOnKeyPress="" dbOnKeyDown="" dbOnDoubleClick="" dbOnClose="" dbOnClick="" Owner="none" StyleEx="15094" Style="58040" Directives="" ScriptEnabled="True" WindowState="wsNormal" TransparentColorValue="0" TransparentColor="False" Position="poScreenCenter" KeyPreview="False" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BorderStyle="bsSingle" BorderIcons="[biSystemMenu,biMinimize]" BiDiMode="bdLeftToRight" AutoScroll="False" AlphaBlendValue="255" AlphaBlend="False" Sizeable="False" Color="-16777201" Height="216" Width="290" Caption="Редактировать">

<TdbLabel dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnDoubleClick="" dbOnClick="" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BiDiMode="bdLeftToRight" Color="-16777201" Height="13" Width="69" Caption="Дата/время" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma" dbAnchors="2211" Top="16" Left="16" Name="Label1" WordWrap="False" Transparent="True" Layout="tlTop" AutoSize="False" Alignment="taLeftJustify"/>

<TdbLabel dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnDoubleClick="" dbOnClick="" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BiDiMode="bdLeftToRight" Color="-16777201" Height="13" Width="93" Caption="Текст сообщения" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma" dbAnchors="2211" Top="72" Left="16" Name="Label2" WordWrap="False" Transparent="True" Layout="tlTop" AutoSize="False" Alignment="taLeftJustify"/>

<TdbDateTimePicker dbOnMouseLeave="" dbOnMouseEnter="" dbOnKeyUp="" dbOnKeyPress="" dbOnKeyDown="" dbOnClick="" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BiDiMode="bdLeftToRight" Height="21" Width="117" dbOnExit="" dbOnEnter="" dbOnChange="" dbIncremSearch="" dbFilter="=" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" TabStop="True" TabOrder="0" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma" dbAnchors="2211" Top="32" Left="16" Name="DateTimePicker1" dbOnDropDown="" dbOnCloseUp="" ShowCheckbox="True" CalAlignment="dtaLeft" Kind="dtkTime" Format="" DateMode="dmComboBox" DateFormat="dfShort" dbDefaultChecked="False" dbCalendarControl="DateTimePicker2" dbField="datetime" dbTable="reminder" BevelKind="bkNone" BevelOuter="bvLowered" BevelInner="bvRaised"/>

<TdbDateTimePicker dbOnMouseLeave="" dbOnMouseEnter="" dbOnKeyUp="" dbOnKeyPress="" dbOnKeyDown="" dbOnClick="" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BiDiMode="bdLeftToRight" Height="21" Width="141" dbOnExit="" dbOnEnter="" dbOnChange="" dbIncremSearch="" dbFilter="=" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" TabStop="True" TabOrder="1" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma" dbAnchors="2211" Top="32" Left="136" Name="DateTimePicker2" dbOnDropDown="" dbOnCloseUp="" ShowCheckbox="True" CalAlignment="dtaLeft" Kind="dtkDate" Format="" DateMode="dmComboBox" DateFormat="dfShort" dbDefaultChecked="True" dbCalendarControl="" dbField="" dbTable="" BevelKind="bkNone" BevelOuter="bvLowered" BevelInner="bvRaised"/>

<TdbMemo dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnKeyUp="" dbOnKeyPress="" dbOnKeyDown="" dbOnDoubleClick="" dbOnClick="" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BorderStyle="bsSingle" BiDiMode="bdLeftToRight" Color="-16777211" Height="89" Width="261" dbOnExit="" dbOnEnter="" dbOnChange="" WantTabs="False" WantReturns="True" ReadOnly="False" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" TabStop="True" TabOrder="2" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma" dbAnchors="2211" Top="88" Left="16" Name="Memo1" WordWrap="True" Alignment="taLeftJustify" dbField="message" dbTable="reminder" BevelKind="bkNone" BevelOuter="bvLowered" BevelInner="bvRaised" Text="" ScrollBars="ssNone" MaxLength="0" HideSelection="True" CharCase="ecNormal" dbDefaultValue=""/>

<TdbButton dbOnMouseUp="" dbOnMouseMove="" dbOnMouseLeave="" dbOnMouseEnter="" dbOnMouseDown="" dbOnKeyUp="" dbOnKeyPress="" dbOnKeyDown="" dbOnClick="" Style="bsPushButton" Cursor="crDefault" MinWidth="0" MinHeight="0" MaxWidth="0" MaxHeight="0" BiDiMode="bdLeftToRight" Height="30" Width="96" Caption="Добавить" dbOnExit="" dbOnEnter="" dbSortAsc="True" dbCustomOrderBy="" dbSortField="" dbListFooters="" dbListFieldsNames="" dbListFields="" dbGeneralTable="reminder" ShowHint="False" Hint="" dbVisible="True" dbEnabled="True" TabStop="True" TabOrder="3" FontStyle="0" FontColor="-16777208" FontSize="8" FontName="Tahoma" dbAnchors="2211" Top="179" Left="181" Name="Button1" dbOnAfterClick="" WordWrap="False" ImageAlignment="iaLeft" CommandLinkHint="" Default="True" Cancel="False" dbCheckNotNull="True" dbCloseFormAfterSave="True" dbConfirmDelete="True" dbIconName="OK" dbReportFile="" dbSQL="" dbFormName="" dbResultControl="" dbListControls="DateTimePicker1,Memo1" dbReportOpenIn="rpoPreview" dbActionType="adbSaveRecord"/>

</frmRemider>

</main>

Размещено на Allbest.ru

...

Подобные документы

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.