Главная: Рефераты

Рефераты. АРМ мененджер автосалона "А-моторс"

 dm1.komplect.FieldByName('KOLESO').value:=ComboBox2.text;

 dm1.komplect.FieldByName('KOROBKA').value:=ComboBox3.text;

 dm1.komplect.FieldByName('PRIVOD').value:=ComboBox4.text;


 k2:=dm1.avto.fieldbyname('KOD_avto').Value;


    if (pic1<>'') then begin

       pole1_1:='';

       pole1:='';

       pole1:=dm1.avto.fieldbyname('FOTO_1').AsString;

       for y:=1 to length(pole1) do

       if pole1[y]='.' then pole1_1:=copy(pole1,1,y-1);


        st1:='';

        q1:='';

        for i:=length(pic1) downto 1 do

        if pic1[i]<>'.' then insert(pic1[i],q1,0) else break;

        st1:=ExtractFilePath(Application.Exename);

        ForceDirectories(st1+'FOTO');

        if dm1.avto.FieldByName('foto_1').AsString<>'' then

          DeleteFile(st1+'FOTO\'+dm1.avto.FieldByName('foto_1').AsString);

        if copyfileto(pchar(pic1),pchar(st1+'FOTO\'+pole1_1+ '.'+q1)) then

        else begin

           MessageBox(Handle,'Невозможно скопировать файл!','Внимание',MB_OK);

           exit;

        end;

        dm1.avto.FieldByName('foto_1').AsString:=pole1_1 + '.'+q1;

    end;


    if (pic2<>'') then begin

       pole2_2:='';

       pole2:='';

       pole2:=dm1.avto.fieldbyname('FOTO_2').AsString;

       for t:=1 to length(pole2) do

       if pole2[t]='.' then pole2_2:=copy(pole2,1,t-1);

      

        st2:='';

        q2:='';

        for u:=length(pic2) downto 1 do

        if pic2[u]<>'.' then insert(pic2[u],q2,0) else break;

        st2:=ExtractFilePath(Application.Exename);

        ForceDirectories(st2+'FOTO');

        if dm1.avto.FieldByName('foto_2').AsString<>'' then

          DeleteFile(st2+'FOTO\'+dm1.avto.FieldByName('foto_2').AsString);

Продолжение приложения А

        if copyfileto(pchar(pic2),pchar(st2+'FOTO\'+pole2_2+ '.'+q2)) then

        else begin

           MessageBox(Handle,'Невозможно скопировать файл!','Внимание',MB_OK);

           exit;

        end;

        dm1.avto.FieldByName('foto_2').AsString:=pole2_2 + '.'+q2;

    end;



  dm1.avto.Post;

 // dm1.komplect.Post;

end;


procedure TFedit.LMDSpeedButton8Click(Sender: TObject);

begin

OpenPictureDialog1.Execute;

pic1:=OpenPictureDialog1.FileName;

if pic1<>'' then Image4.Picture.LoadFromFile(pic1)

else  begin

MessageBox(Handle,'Фотография кузова не выбрана!','',MB_OK);

exit;

end;

end;


procedure TFedit.LMDSpeedButton9Click(Sender: TObject);

begin

OpenPictureDialog2.Execute;

pic2:=OpenPictureDialog2.FileName;

if pic2<>'' then Image5.Picture.LoadFromFile(pic2)

else  begin

MessageBox(Handle,'Фотография салона не выбрана!','',MB_OK);

exit;

end;

end;


procedure TFedit.FormActivate(Sender: TObject);

begin

if (dm1.avto.fieldbyname('FOTO_1').Value<>'') then

Image4.Picture.LoadFromFile(ExtractFilePath(Application.Exename)+'FOTO\'+dm1.avto.fieldbyname('FOTO_1').AsString)

else MessageBox(Handle,'Фотографии кузова НЕТ!','',MB_OK);

if (dm1.avto.fieldbyname('FOTO_2').Value<>'') then

Image5.Picture.LoadFromFile(ExtractFilePath(Application.Exename)+'FOTO\'+dm1.avto.fieldbyname('FOTO_2').AsString)

else MessageBox(Handle,'Фотографии салона НЕТ!','',MB_OK);


end;


procedure TFedit.DBEdit6KeyPress(Sender: TObject; var Key: Char);

begin

  case key of

  '0'..'9',#8: key:=key

    else key:=#0;

  end;

end;


procedure TFedit.DBEdit1KeyPress(Sender: TObject; var Key: Char);

begin

Продолжение приложения А

  case key of

  'A'..'Z','a'..'z','а'..'я','А'..'Я',#8: key:=key

    else key:=#0;

  end;

end;


procedure TFedit.DBEdit3KeyPress(Sender: TObject; var Key: Char);

begin

  case key of

  'A'..'Z','a'..'z','а'..'я','А'..'Я',#8: key:=key

    else key:=#0;

  end;

end;


end.

А.6 Модуль заставки

unit logo;


interface


uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, StdCtrls, ComCtrls, RxGIF;


type

  TFlogo = class(TForm)

    Timer1: TTimer;

    Image1: TImage;

    ProgressBar1: TProgressBar;

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure Timer1Timer(Sender: TObject);

    procedure FormActivate(Sender: TObject);

  private

    { 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;

end;


procedure TFlogo.Timer1Timer(Sender: TObject);

begin

  i:=i+1;

Продолжение приложения А

  ProgressBar1.Position:=i;

  if i=100 then begin

    Timer1.Enabled:=false;

    close;

  end;

end;


procedure TFlogo.FormActivate(Sender: TObject);

begin

  i:=0;

end;


end.

А.7 Модуль главной формы

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

    { Private declarations }

  public

    { Public declarations }

  end;


var

  Fmain: TFmain;

  path : string;


implementation


uses logo, dm, vladel, sotr, add, edit, del, query, search, marka, about;


{$R *.dfm}


function gen_id(table:TTable; var name:string):integer;

var n:integer;

begin

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;

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18
2012 © Все права защищены
При использовании материалов активная ссылка на источник обязательна.