Автор: Пользователь скрыл имя, 28 Апреля 2012 в 19:41, курсовая работа
Программалар, деректерді архивтеуге арналған жетекші программа,Интернетте жұмыс істеуге арналған жасаушы немесе Windows-тың операциондық жүйесі болса да бір немесе бірнеше программалау тілінде жазылган. Қазіргі таңда программа құру үшін кеңінен қолданылатын 400 дей программалау тілі бар және бұдан басқа қазіргі кезде ұмытылып кеткен мыңнан астам түрі бар. Программалау тілі кілтті сөздердің жіне әртүрлі көмекші сөздердің көмегімен алгаритімді сипаттауға мүмкіндік береді. Кілтті сөздерді (олар бұйрықтар немесе операторлар деп аталады) қолдана отырып программист берілген тапсырманы шешу үшін компьютер орындайтын іс-әрекетттің дәлме-дәл ретін анықтай алады. Міне сондай тілдердің бірі Delphi 7. Delphi 7. программалау тілі жайлы тоқтала кетсек...
Кіріспе………………………………………………………………………..3
1.Delphi-дің қолданылуы мен тағайындалуы
1.1Программаның терезесіні сипатталуы............................................................9
1.2 Компоненттердің қасиеттерінің орналастырылуы......................................12
1.3 Программаның скриншоты............................................................................13
1.4 Есепті құру.......................................................................................................10
2.Деректер қоры (ДҚ)
2.1 Деректер қоры деген не?..................................................................................8
2.2 Компонентердің қасиетіне бөлгіш орнату.................................................14
2.3 Компоненттердің өлшемін өзгерту................................................................15
3.Жұмысқа анықтама.........................................................................18
Қорытынды..........................................................................................................19
Пайдаланылған әдебиеттер тізім .....................................................................20
Программаның листингісі...........................................................................21
then begin
Rewrite(db);// создадим файл
ShowMessage( 'Файл базы данных создан!')
end
else Application.Terminate;//
end;
end;
Edit1.Enabled :=True;
Button1.Enabled:=True;
end;
//нажатие клавиши в поле Температура
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9',#8:; //цифры и клавиша <Backspaсe>
#13: // клавиша <Enter>
if Length(Edit1.Text) <> 0
then Button1.SetFocus;
',','.': begin //десятичная точка
Key:=DecimalSeparator;
if Pos(DecimalSeparator,Edit1.
then Key :=Char(0);
end;
'-': if Length (Edit1.Text) <> 0
then Key:=Char(0);
else Key:=Char(0); // остальные символы запрещены
end;
end;
// щелчок на кнопке Добавить
procedure TForm1.Button1Click(Sender: TObject);
begin
if Length(Edit1.Text)=0
then ShowMessage( 'Надо ввести температуру.')
else begin
writeln (db,
FormatDateTime('dd/mm/yy',
MonthCalendar1.Date),
' ',Edit1.Text);
Edit1.Text :='';
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CloseFile(db);//закрыть файл
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
end.
2.Программаның қосымшасы (листинг)
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls, xmldom, XMLIntf, msxmldom, XMLDoc,
Buttons;
type
TForm1 = class(TForm)
map: TImage;
imgNight: TImage;
imgDay: TImage;
Label1: TLabel;
ScrollBox1: TScrollBox;
XMLDocument1: TXMLDocument;
Panel1: TPanel;
LabelDay: TLabel;
LabelNight: TLabel;
LabelGorod: TLabel;
procedure FormCreate(Sender: TObject);
procedure EditEnter(Sender: TObject);
procedure EditKeyPress(Sender: TObject; var Key: Char);
procedure EditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure EditMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure EditExit(Sender: TObject);
procedure mapMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
procedure CreatePanel(sGorod: String; iDay, iNight: Integer;
Color: TColor; Index: Integer);
public
end;
var
Form1 : TForm1;
sPathProgram : String; //Путь к программе
implementation
{$R *.dfm}
(*============================
Процедура формирующая панель с данными о погоде *)
procedure TForm1.CreatePanel(sGorod: String; iDay, iNight: Integer; Color: TColor; Index: Integer);
var
Panel : TPanel; //Панель
lGorod : TLabel; //Надпись с назанием города
img : TImage; //Картинка (День, Ночь)
edTmp : TEdit; //Поля ввода температуры
btn : TButton; //Кнопка закрепления данных
s : String;
begin
//Создаем Панель
Panel := TPanel.Create(Form1);
Panel.Color := Color;
with Panel do
begin
Parent := ScrollBox1;
Align := alTop;
BorderStyle := bsNone;
BevelOuter := bvNone;
BevelInner := bvNone;
Height := 100;
Tag := Index;
end;
//Создаем Надпись с названием города
lGorod := TLabel.Create(Form1);
with lGorod do
begin
Parent := Panel;
Name := 'lGorod' + IntToStr(Index);
Font.Name := 'Tahoma';
Font.Style := [fsBold];
Transparent := True;
Caption := sGorod;
Left := (Panel.Width - lGorod.Width) div 2;
Top := 8;
end;
//Создаем картинки День и Ночь
img := TImage.Create(Form1);
with img do
begin
Parent := Panel;
Transparent := True;
Picture := imgDay.Picture;
Left := 16;
Top := 27;
end;
img := TImage.Create(Form1);
with img do
begin
Parent := Panel;
Transparent := True;
Picture := imgNight.Picture;
Left := 16;
Top := 60;
end;
//Создание 1 поля для ввода температуры
edTmp := TEdit.Create(Form1);
if iDay > 0 then
s := '+' + IntToStr(iDay)
else
s := IntToStr(iDay);
s := s + ' °С';
edTmp.Color := Color;
with edTmp do
begin
Parent := Panel;
Name
:= 'ed' + IntToStr(Index * 2);
Tag
:= Index * 2;
MaxLength := 4;
BorderStyle := bsNone;
TabStop := False;
Left := 56;
Top := 36;
Width := 70;
Text := s;
OnEnter := EditEnter;
OnExit := EditExit;
OnKeyDown := EditKeyDown;
OnKeyPress := EditKeyPress;
OnMouseDown := EditMouseDown;
end;
//Создание кнопки подтверждения
btn := TButton.Create(Form1);
with btn do
begin
Parent := Panel;
Name
:= 'btn' + IntToStr(Index * 2);
Tag
:= Index * 2;
Cursor := crHandPoint;
Width := 175;
Height := 20;
Left := edTmp.Left + edTmp.Width + 2;
Top := edTmp.Top - 2;
Caption := 'Установить значения';
Visible := False;
end;
//Создание 2 поля для ввода температуры
edTmp := TEdit.Create(Form1);
if iNight > 0 then
s := '+' + IntToStr(iNight)
else
s := IntToStr(iNight);
s := s + ' °С';
edTmp.Color := Color;
with edTmp do
begin
Parent := Panel;
Name := 'ed' + IntToStr(Index * 2 + 1); (*!*)
Tag
:= Index * 2 + 1;
MaxLength := 4;
BorderStyle := bsNone;
TabStop := False;
Left := 56;
Top := 66;
Width := 70;
Text := s;
OnEnter := EditEnter;
OnExit := EditExit;
OnKeyDown := EditKeyDown;
OnKeyPress := EditKeyPress;
OnMouseDown := EditMouseDown;
end;
//Создание кнопки подтверждения
btn := TButton.Create(Form1);
with btn do
begin
Parent := Panel;
Name
:= 'btn' + IntToStr(Index * 2 + 1);
Tag
:= Index * 2 + 1;
Cursor := crHandPoint;
Width := 175;
Height := 20;
Left := edTmp.Left + edTmp.Width + 2;
Top := edTmp.Top - 2;
Caption := 'Усановить значения';
Visible := False;
end;
end;
(*============================
Событие создания формы *)
procedure TForm1.FormCreate(Sender: TObject);
var
i, iDay, iNight : Integer;
Node : IXMLNode;
sGorod : String;
Rgn : HRGN;
begin
//Настройки панели с выводом погоды
Panel1.DoubleBuffered := True;
Rgn := CreateRoundRectRgn(0, 0, Panel1.Width, Panel1.Height, 15, 15);
SetWindowRgn(Panel1.Handle, Rgn, True);
//Определяем путь к программе
sPathProgram := ExtractFilePath(Application.
//Отключаем документ
XMLDocument1.Active := False;
//Проверка существования файла с данными
if not FileExists(sPathProgram + 'data.xml') then
begin
Application.MessageBox('Файл с данными отсутствует!' +
'Дальнейшая работа невозможна!
'Ошибка', MB_OK or MB_ICONERROR);
exit;
end;
//Загружаем документ и активируем его
XMLDocument1.LoadFromFile(
XMLDocument1.Active := True;
//Считываем данные о погоде
Node := XMLDocument1.DocumentElement;
for i := 0 to Node.ChildNodes.Count - 1 do
begin
sGorod :=
Node.ChildNodes[i].Attributes[
iDay
:= Node.ChildNodes[i].Attributes[