Программа предназначена для того, чтобы облегчить рутинный труд менеджера автосалона, тратящего ежедневно массу времени на бумажную работу.
У данного приложения удобный интерфейс, рассчитанный на не подготовительного пользователя.
Рекомендуется использовать программу на более мощных персональных компьютерах, согласно требованиям к аппаратному программному обеспечению.
1. Епанешников А.М., Епанешников В.А. «Delphi 4 Среда разработки». Учебное пособие М: Диалог – Мифи, 1999г.- 304с.
2. Культин Н. “Программирование на Object Pascal» СПБ: БХВ – Санкт-Петербург, 1999г. 480с.
3. Фаронов В.В., Шумаков П.В. «DELPHI 4 Руководство разработки баз данных”, М: Нолидж, 1999г., 560с.
4. Шумаков П.В. «DELPHI 3 и разработка приложений баз данных” М: Нолидж, 1998г., 704с
5. Драхведидзе М.Г., Марков Е.П. . «DELPHI 4 среда визуального программирования” СП8:BHV –Санкт – Петербург, 1999г.,352с.
6. Фаронов В.В. Delphi 4. Учебный курс. - Москва, 1998
7. Валерий Фаронов Профессиональная работа в Delphi 6 Москва 2002
8. Том Сван Delphi 4 Библия разработчика Москва 1998
9. Деви Хакер Delphi 5 Руководство разработчика. (электронный вариант в формате pdf) 16. Delphi 6 Учебный курс (электронный вариант в формате CHM)
10. Иллюстрированный самоучитель по Delphi 6 (электронный вариант в формате HTML) 18. Delphi 6 и технология COM Москва 2002
11. БорисовЕ.Ф..“Основы экономической теории”,
12. Сергеев И.В.“Экономика предприятия”
13. Райзберг Б.А., Лозовский Л.Ш., Стародубцев Е.Б. “Современный экономический словарь”
14. Скала В.И. “Охрана труда и техника безопасности”, – Алматы: «LEM», 2002. –276с
15. “Охрана труда ” -М.;1989
unit about;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, RxGIF, ExtCtrls;
type
TFAbout = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FAbout: TFAbout;
implementation
{$R *.dfm}
procedure TFAbout.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end.
unit add;
Dialogs, Buttons, glLabel, DBTables,ExtCtrls, glBevel, StdCtrls, RxGIF,
DBCtrls, LMDControl, LMDBaseControl, LMDBaseGraphicButton,
LMDCustomSpeedButton, LMDSpeedButton, ExtDlgs,IDGlobal, ToolEdit, Mask,
LMDCustomControl, LMDCustomPanel, LMDCustomBevelPanel,
LMDBaseEdit, LMDCustomEdit, LMDCustomBrowseEdit, LMDCustomFileEdit,
LMDFileOpenEdit, jpeg;
TFadd = class(TForm)
Panel1: TPanel;
glLabel1: TglLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Panel2: TPanel;
Panel3: TPanel;
glLabel2: TglLabel;
glLabel3: TglLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
ComboBox1: TComboBox;
Edit12: TEdit;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
CheckBox8: TCheckBox;
Edit13: TEdit;
ComboBox2: TComboBox;
Label15: TLabel;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
Label16: TLabel;
Label17: TLabel;
Memo1: TMemo;
Label18: TLabel;
Label19: TLabel;
Memo2: TMemo;
Image2: TImage;
Panel4: TPanel;
Panel5: TPanel;
LMDSpeedButton1: TLMDSpeedButton;
LMDSpeedButton2: TLMDSpeedButton;
LMDSpeedButton3: TLMDSpeedButton;
Label20: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
Image3: TImage;
glLabel4: TglLabel;
LMDSpeedButton4: TLMDSpeedButton;
LMDSpeedButton5: TLMDSpeedButton;
OpenPictureDialog2: TOpenPictureDialog;
Image4: TImage;
Image5: TImage;
glLabel5: TglLabel;
Label21: TLabel;
Label22: TLabel;
Edit14: TEdit;
DateEdit1: TDateEdit;
OpenPictureDialog1: TOpenPictureDialog;
DBLookupComboBox2: TDBLookupComboBox;
procedure LMDSpeedButton4Click(Sender: TObject);
procedure LMDSpeedButton5Click(Sender: TObject);
procedure LMDSpeedButton2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure LMDSpeedButton3Click(Sender: TObject);
procedure LMDSpeedButton1Click(Sender: TObject);
procedure OpenPictureDialog1CanClose(Sender: TObject;
var CanClose: Boolean);
procedure Edit6KeyPress(Sender: TObject; var Key: Char);
procedure Edit7KeyPress(Sender: TObject; var Key: Char);
procedure Edit13KeyPress(Sender: TObject; var Key: Char);
procedure Edit14KeyPress(Sender: TObject; var Key: Char);
procedure DBLookupComboBox2Click(Sender: TObject);
Fadd: TFadd;
pic1,pic2:string;
uses dm;
function gen_id(table:TTable; var name:string):integer;
var n:integer;
table.First;
n:=table.FieldByName(name).asinteger;
while not table.Eof do begin
if table.FieldByName(name).Value>n then
n:=table.FieldByName(name).Value;
table.Next;
gen_id:=n+1;
procedure TFadd.LMDSpeedButton4Click(Sender: TObject);
OpenPictureDialog1.Execute;
pic1:=OpenPictureDialog1.FileName;
if pic1<>'' then Image4.Picture.LoadFromFile(pic1)
else begin
MessageBox(Handle,'Фотография кузова не выбрана!','',MB_OK);
exit;
procedure TFadd.LMDSpeedButton5Click(Sender: TObject);
pic2:=OpenPictureDialog1.FileName;
if pic2<>'' then Image5.Picture.LoadFromFile(pic2)
MessageBox(Handle,'Фотография салона не выбрана!','',MB_OK);
procedure TFadd.LMDSpeedButton2Click(Sender: TObject);
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
edit9.Text:='';
edit10.Text:='';
edit11.Text:='';
edit12.Text:='';
edit13.Text:='';
edit14.Text:='';
CheckBox1.Checked:=false;
CheckBox2.Checked:=false;
CheckBox3.Checked:=false;
CheckBox4.Checked:=false;
CheckBox5.Checked:=false;
CheckBox6.Checked:=false;
CheckBox7.Checked:=false;
CheckBox8.Checked:=false;
Memo1.Clear;
Memo2.Clear;
procedure TFadd.FormCreate(Sender: TObject);
// dm1.vlad.Close;
// dm1.vlad.Open;
procedure TFadd.LMDSpeedButton3Click(Sender: TObject);
close;
procedure TFadd.FormClose(Sender: TObject; var Action: TCloseAction);
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18