asinteger; while not table

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

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

asinteger; while not table

SQL.Add('k.koleso = "'+ComboBox2.Text+'" and ');

if checkBox2.Checked then Query1.SQL.Add('k.korobka = "'+ComboBox3.Text+'" and ');

if checkBox3.Checked then Query1.SQL.Add('k.privod = "'+ComboBox4.Text+'" and ');

Query1.SQL.Add('a.marka=m.id_marka and a.kod_avto=k.kod_avto');

Query1.Open;

except

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

MessageDlg('Введены не все данные',mtWarning,[mbOk],0);

end;

procedure TFSearch.DBGrid1CellClick(Column: TColumn);

begin

if Query1.Active then begin

if dm1.avto.Locate('kod_avto',Query1.FieldByName('kod_avto').AsInteger,[loCaseInsensitive])

then fedit.showmodal;

end;

end.

А.9 Модуль формы менеджеров

unit sotr;

interface

uses

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

Dialogs, Grids, DBGrids, ExtCtrls, LMDControl, LMDBaseControl,

LMDBaseGraphicButton, DB, LMDCustomSpeedButton, LMDSpeedButton, StdCtrls,

Mask, DBTables, DBCtrls, ImgList;

type

TFsotr = class(TForm)

Panel1: TPanel;

DBGrid1: TDBGrid;

Panel2: TPanel;

pedit: TPanel;

Panel4: TPanel;

RadioGroup1: TRadioGroup;

Edit1: TEdit;

LMDSpeedButton1: TLMDSpeedButton;

Image1: TImage;

LMDSpeedButton2: TLMDSpeedButton;

LMDSpeedButton3: TLMDSpeedButton;

LMDSpeedButton4: TLMDSpeedButton;

LMDSpeedButton5: TLMDSpeedButton;

pnew: TPanel;

Image2: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

LMDSpeedButton6: TLMDSpeedButton;

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

LMDSpeedButton7: TLMDSpeedButton;

LMDSpeedButton8: TLMDSpeedButton;

LMDSpeedButton9: TLMDSpeedButton;

Image3: TImage;

Image4: TImage;

procedure LMDSpeedButton1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure LMDSpeedButton4Click(Sender: TObject);

procedure LMDSpeedButton5Click(Sender: TObject);

procedure LMDSpeedButton2Click(Sender: TObject);

procedure LMDSpeedButton7Click(Sender: TObject);

procedure LMDSpeedButton9Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure LMDSpeedButton8Click(Sender: TObject);

procedure LMDSpeedButton6Click(Sender: TObject);

procedure LMDSpeedButton3Click(Sender: TObject);

procedure Edit2KeyPress(Sender: TObject; var Key: Char);

procedure Edit3KeyPress(Sender: TObject; var Key: Char);

procedure Edit4KeyPress(Sender: TObject; var Key: Char);

procedure Edit5KeyPress(Sender: TObject; var Key: Char);

procedure Edit6KeyPress(Sender: TObject; var Key: Char);

procedure Edit7KeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Fsotr: TFsotr;

implementation

uses dm;

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

end;

gen_id:=n+1;

end;

procedure TFsotr.LMDSpeedButton1Click(Sender: TObject);

begin

if edit1.

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

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