Enabled:=not Label8

перейти к полному списку дипломных проектов

Ссылка на скачивания файла в формате .doc находится в конце странички

Enabled:=not Label8

AsString);

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

end;

procedure TFmain.FormCreate(Sender: TObject);

begin

path:=Application.ExeName;

end;

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

procedure TFmain.DBGrid1TitleClick(Column: TColumn);

begin

if Column.Title.Caption='Марка' then

dm1.avto.IndexName:='marka';

if Column.Title.Caption='Объём' then

dm1.avto.IndexName:='V';

if Column.Title.Caption='Тип кузова' then

dm1.avto.IndexName:='tip_kuz';

end;

procedure TFmain.N22Click(Sender: TObject);

begin

FSearch.showmodal;

end;

procedure TFmain.N23Click(Sender: TObject);

begin

FMarka.Showmodal;

end;

procedure TFmain.N17Click(Sender: TObject);

begin

Fabout.ShowModal;

end;

end.

А.8 Модуль формы поиска

unit search;

interface

uses

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

Dialogs, DBCtrls, StdCtrls, Mask, glLabel, ExtCtrls, Grids, DBGrids,

LMDCustomButton, LMDButton, DB, DBTables, RXDBCtrl;

type

TFSearch = class(TForm)

Panel3: TPanel;

glLabel2: TglLabel;

Label8: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

ComboBox1: TComboBox;

Panel4: TPanel;

glLabel3: TglLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

ComboBox2: TComboBox;

ComboBox3: TComboBox;

ComboBox4: TComboBox;

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

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

Panel1: TPanel;

DBLookupComboBox1: TDBLookupComboBox;

CheckBox4: TCheckBox;

CheckBox5: TCheckBox;

CheckBox6: TCheckBox;

CheckBox7: TCheckBox;

CheckBox8: TCheckBox;

CheckBox9: TCheckBox;

CheckBox10: TCheckBox;

CheckBox11: TCheckBox;

CheckBox12: TCheckBox;

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

CheckBox13: TCheckBox;

CheckBox14: TCheckBox;

CheckBox15: TCheckBox;

CheckBox16: TCheckBox;

CheckBox17: TCheckBox;

Query1: TQuery;

LMDButton1: TLMDButton;

DataSource1: TDataSource;

RxDBGrid1: TRxDBGrid;

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

procedure CheckBox9Click(Sender: TObject);

procedure CheckBox10Click(Sender: TObject);

procedure CheckBox11Click(Sender: TObject);

procedure CheckBox12Click(Sender: TObject);

procedure CheckBox4Click(Sender: TObject);

procedure CheckBox5Click(Sender: TObject);

procedure CheckBox6Click(Sender: TObject);

procedure CheckBox7Click(Sender: TObject);

procedure CheckBox8Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure CheckBox2Click(Sender: TObject);

procedure CheckBox3Click(Sender: TObject);

procedure LMDButton1Click(Sender: TObject);

procedure DBGrid1CellClick(Column: TColumn);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FSearch: TFSearch;

implementation

uses dm, edit;

{$R *.dfm}

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

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

begin

Action:=caFree;

end;

procedure TFSearch.CheckBox9Click(Sender: TObject);

begin

Label8.Enabled:=not Label8.Enabled;

DBLookupComboBox1.Enabled:=not DBLookupComboBox1.Enabled;

end;

procedure TFSearch.CheckBox10Click(Sender: TObject);

begin

Label12.Enabled:=not Label12.

скачать бесплатно АРМ менеджера в автосалоне A Motors

Содержание дипломной работы