Готовые ????????? ??????

Диплом  Автоматизированная система для ооо презентация и программа

Содержание:

Работа на Delphi


Последним звеном эволюции языков программирования стали визуальные среды разработки программ. Вы просто выбираете объект – компонент, перетаскиваете его на форму, и уже в процессе разработки программы видите то, что должно получиться в результате. Примерно также при редактировании текста в редакторе MS Word вы сразу видите то, то должно получиться при печати этого текста на лист бумаги. Среда разработки программ взяла на себя почти всю "черную" работу по созданию кода. Программирование перестало быть нудным и трудоемким, и превратилось в творческий процесс.
Delphi 7 наиболее стабильная версия языка программирования для Win32 – то есть 32-разрядных версий Windows. Основу Delphi составляет не только сам язык, но и RAD (Rapid Application Development) – среда быстрой разработки программ. Благодаря визуальному программированию, а также достаточно большой библиотеке визуальных компонентов, Delphi позволяет создавать программы наиболее быстро и эффективно, принимая на себя основную работу, и оставляя программисту творческий процесс. Разумеется, возможность быстрого создания профессиональных приложений для Windows делает Delphi – программистов востребованными во всех отраслях человеческой деятельности.

Кусок кода
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, Menus, jpeg, ExtCtrls;
type
TfMain = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
MaskEdit1: TMaskEdit;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;
Button2: TButton;
MaskEdit2: TMaskEdit;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Label9: TLabel;
Edit5: TEdit;
Edit6: TEdit;
Label10: TLabel;
Label11: TLabel;
MaskEdit3: TMaskEdit;
Label12: TLabel;
Label13: TLabel;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fMain: TfMain;
type
myIDSprav = record
TabN: String[10]; //табельный номер сотрудника
Podr: String[20]; //подразделение
Date: String[10]; //дата рождения
Datepost: String[10]; //дата поступления на работу
TelNum : String[15]; //номер телефона
Mobil : Boolean; //мобильник - да? Нет?
Imya : String[20]; //имя владельца телефона
Otchestvo : String[20]; //его отчество
Familiya : String[20]; //его фамилия
Oclad : String[10]; //его оклад
end; //record
var
sprav: array of myIDSprav; //объявляем динамический массив для нашей записи
implementation
uses Unit1, Unit2, Unit3;
{$R *.dfm}
{Процедура обновления ComboBox1}
procedure ChangeCombo;
var
i : Integer; //счетчик для цикла
begin
//когда массив пустой - выходим:
if Length(sprav) = 0 then Exit;
//если в массиве что-то есть, то сначала очистим ComboBox:
fMain.ComboBox1.Items.Clear;
//затем добавим в него данные о каждом сотруднике из массива:

Нет скриншотов в самой работе + удалена личная информация о студенте и фирме по которой делалось