Автор работы: Пользователь скрыл имя, 11 Марта 2012 в 11:47, курсовая работа
Өндірісте, ауыл шаруашылығы мен оқу орындарында, коммерциялық мекемелерде және тағыда басқада салаларда түрлі берілгендерді дайындау, оларды өңдеу, сақтау жиі кездеседі. Мысалы, жоғарғы оқу орындарында дайындалатын мәліметтер:
- түрлі бөлімдерде жұмыс істейтін адамдардың тізімі(фамилиясы, аты, білімі, адресі, үй телефоны, тағыда басқа.;
-факультеттер,олардың құрамындағы кафедралар мен кафедра қызметкерлерінің тізімдері;
- студенттер жөнінде мәліметтік тізімдер, тағы да басқа.
КІРІСПЕ......................................................................................................................3
І БӨЛІМ. БАҒДАРЛАМАЛАУ ОРТАСЫ ЖӘНЕ ТІЛДІҢ ОРТАСЫ ЖӘНЕ ТІЛДІҢ ЭЛЕМЕНТТЕРІНЕ ШОЛУ
1.1. Мәліметтер қоры................................................................................................5
1.2. Бағдарламалау тілін таңдау және оның ерекшеліктері..............................9
1.3. Delphi ортасында мәліметтер қорын құрастыру жолдары.......................20
1.4. Кестеде деректерді пайдалануда SQL-мен жұмыс.......................................28
ІІ БӨЛІМ. МӘЛІМЕТТЕР БАЗАСЫН DELPHI ОРТАСЫНДА ЖОБАЛАУ
2.1. DELPHI ортасында өңделетін процедуралар мен функцияларды сипаттау.....................................................................................................................35
2.2. Тапсырманың қойылымы..............................................................................36
ІІІ БӨЛІМ. ДИПЛОМДЫҚ ЖОБАНЫҢ ЭКОНОМИКАЛЫҚ ТИІМДІЛІГІН ЕСЕПТЕУ
3.1.Жобаны дайындау барысын есептеу.............................................................39
3.2.Материалдар, сатып алынатын өнімдер жартылай фабрикат өнімдеріне шығатын шығын мөлшерін есептеу....................................................................39
3.3. Негізгі еңбекақыны есептеу...........................................................................39
3. 4. Қосымша еңбекақыны есептеу.....................................................................40
3.5. Жүкқұжат шығындарды есептеу.................................................................40
3.6. Келісім баға бойынша жобаны есептеу........................................................41
ҚОРЫТЫНДЫ........................................................................................................42
ПАЙДАЛАНЫЛҒАН ӘДЕБИЕТТЕР..................................................................44
ҚОСЫМША..............................................................
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
{$R *.dfm}
end.
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, FileCtrl;
type
TForm7 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Edit1: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Button1: TButton;
Button2: TButton;
FontDialog1: TFontDialog;
Image1: TImage;
OpenDialog1: TOpenDialog;
Image2: TImage;
procedure Button2Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure Image1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
uses Ptel;
{$R *.dfm}
procedure TForm7.Button2Click(Sender: TObject);
begin
if edit4.text<>edit5.Text
then begin
showmessage('пороль сәйкес келмейді');
end
else begin
// Өңдеулерді сақтау
nastroiki.pass1:=edit4.text;
nastroiki.pass2:=edit5.text;
nastroiki.f1:=edit3.Text;
nastroiki.fonts:=fontdialog1.
assignfile(f1,currdir+'/
rewrite(f1);
write(f1,nastroiki);
closefile(f1);
form7.Close;
end;
end;
procedure TForm7.Image2Click(Sender: TObject);
begin
Opendialog1.Execute;
edit3.Text:=opendialog1.
end;
procedure TForm7.Image1Click(Sender: TObject);
begin
fontdialog1.Execute;
edit1.Text:=fontdialog1.Font.
end;
procedure TForm7.FormShow(Sender: TObject);
begin
// өңдеулерді шақырып, бетке енгіземіз
edit1.Text:=nastroiki.fonts.
edit3.Text:=Nastroiki.f1;
edit4.Text:=Nastroiki.pass1;
Edit5.Text:=Nastroiki.pass2;
end;
procedure TForm7.Button1Click(Sender: TObject);
begin
form7.Close;
end;
end.
3