{ Private declarations }
public
{ Public declarations }
end;
var
Flogo: TFlogo;
i : integer;
implementation
{$R *.dfm}
procedure TFlogo.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if i=100 then
Action:=caFree
else
Action := caNone;
procedure TFlogo.Timer1Timer(Sender: TObject);
i:=i+1;
ProgressBar1.Position:=i;
if i=100 then begin
Timer1.Enabled:=false;
close;
procedure TFlogo.FormActivate(Sender: TObject);
i:=0;
end.
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, Menus, Grids, DBGrids, Buttons, LMDSpeedButton,
StdCtrls, XPMan, LMDBaseGraphicButton, LMDCustomSpeedButton, LMDControl,
LMDBaseControl, DBCtrls, ImgList, LMDBaseGraphicControl,
LMDGraphicControl, LMDBaseMeter, LMDCustomProgress,
ExtCtrls, DBTables, DB, LMDLEDCustomLabel, LMDLEDLabel,IDGlobal;
type
TFmain = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N11: TMenuItem;
N10: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N81: TMenuItem;
N82: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
ColorDialog1: TColorDialog;
XPManifest1: TXPManifest;
ImageList1: TImageList;
Panel1: TPanel;
DBGrid2: TDBGrid;
DBGrid1: TDBGrid;
DBGrid3: TDBGrid;
Timer1: TTimer;
N7: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
Panel9: TPanel;
Panel6: TPanel;
Image3: TImage;
Image4: TImage;
Panel5: TPanel;
DBText1: TDBText;
DBText2: TDBText;
DBText3: TDBText;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
DBCheckBox1: TDBCheckBox;
DBCheckBox2: TDBCheckBox;
DBCheckBox3: TDBCheckBox;
DBCheckBox4: TDBCheckBox;
DBCheckBox5: TDBCheckBox;
DBCheckBox6: TDBCheckBox;
DBCheckBox7: TDBCheckBox;
DBCheckBox8: TDBCheckBox;
DBMemo1: TDBMemo;
DBMemo2: TDBMemo;
Panel2: TPanel;
RadioGroup1: TRadioGroup;
Panel7: TPanel;
Panel10: TPanel;
LMDSpeedButton3: TLMDSpeedButton;
LMDSpeedButton4: TLMDSpeedButton;
LMDSpeedButton5: TLMDSpeedButton;
LMDSpeedButton6: TLMDSpeedButton;
LMDSpeedButton7: TLMDSpeedButton;
LMDSpeedButton8: TLMDSpeedButton;
Edit1: TEdit;
LMDSpeedButton1: TLMDSpeedButton;
Label7: TLabel;
Label6: TLabel;
N21: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
procedure FormShow(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N81Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N82Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure N12Click(Sender: TObject);
procedure LMDSpeedButton1Click(Sender: TObject);
procedure LMDSpeedButton3Click(Sender: TObject);
procedure LMDSpeedButton4Click(Sender: TObject);
procedure LMDSpeedButton5Click(Sender: TObject);
procedure LMDSpeedButton6Click(Sender: TObject);
procedure LMDSpeedButton9Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure LMDSpeedButton10Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure LMDSpeedButton7Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
procedure N22Click(Sender: TObject);
procedure N23Click(Sender: TObject);
procedure N17Click(Sender: TObject);
private
Fmain: TFmain;
path : string;
uses logo, dm, vladel, sotr, add, edit, del, query, search, marka, about;
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 TFmain.FormShow(Sender: TObject);
flogo.showmodal;
flogo.Free;
Image3.Picture.LoadFromFile(ExtractFilePath(Application.Exename)+'FOTO\'+dm1.avto.fieldbyname('FOTO_1').AsString);
Image4.Picture.LoadFromFile(ExtractFilePath(Application.Exename)+'FOTO\'+dm1.avto.fieldbyname('FOTO_2').AsString);
procedure TFmain.N5Click(Sender: TObject);
procedure TFmain.N14Click(Sender: TObject);
ColorDialog1.Execute;
DBGrid1.Font.Color:=ColorDialog1.color;
procedure TFmain.N81Click(Sender: TObject);
DBGrid1.Font.Size:=10;
procedure TFmain.N15Click(Sender: TObject);
DBGrid1.Font.Size:=12;
procedure TFmain.N82Click(Sender: TObject);
DBGrid1.Font.Size:=8;
procedure TFmain.N8Click(Sender: TObject);
fvlad.showmodal;
procedure TFmain.N9Click(Sender: TObject);
fsotr.showmodal;
procedure TFmain.N11Click(Sender: TObject);
fadd.showmodal;
procedure TFmain.DBGrid1CellClick(Column: TColumn);
procedure TFmain.N12Click(Sender: TObject);
Fedit.showmodal;
procedure TFmain.LMDSpeedButton1Click(Sender: TObject);
if edit1.Text<>'' then begin
if RadioGroup1.ItemIndex=0 then
if dm1.avto.Locate('marka',edit1.Text,[loCaseInsensitive]) then
else MessageBox(Handle,'Нет автомобиля такой марки...','',MB_OK);
if RadioGroup1.ItemIndex=1 then
if dm1.avto.Locate('model',edit1.Text,[loCaseInsensitive]) then
else MessageBox(Handle,'Нет автомобиля такой модели...','',MB_OK);
if RadioGroup1.ItemIndex=2 then
if dm1.avto.Locate('gos_nom',edit1.Text,[loCaseInsensitive]) then
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18