14 - Приложение А (1094703), страница 2

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 2)

begin

if (Edit1.Text<>'') and

(Edit2.Text<>'') and

(Combobox1.Text<>'') and

(Combobox2.Text<>'') and

(Combobox3.Text<>'')

then

begin

if flag=true then ADOTable1.Insert

else ADOTable1.Edit;

ADOTable1.FieldValues['Количество']:=Edit1.Text;

ADOTable1.FieldValues['Дата заказа']:=Edit2.Text;

ADOTable1.FieldValues['Клиент']:=Combobox1.Text;

ADOTable1.FieldValues['Наименование услуги']:=Combobox2.Text;

ADOTable1.FieldValues['ФИО сотрудника']:=Combobox3.Text;

ADOTable1.Post();

end

else ShowMessage('Необходимо заполнить поля ввода');

end;

procedure TForm10.Button5Click(Sender: TObject);

begin

ADOTable1.Delete;

end;

procedure TForm10.ADOTable1BeforeDelete(DataSet: TDataSet);

var

Del:real;

begin

Del:=MessageDlg('Хотите удалить текущую запись в базе данных?', mtConfirmation, [mbYes,mbNo] , 0);

If Del<>mrYes

then begin

DataSet.Cancel();

Abort();

end;

end;

procedure TForm10.Button2Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Combobox1.Text:='';

Combobox2.Text:='';

Combobox3.Text:='';

end;

procedure TForm10.Button7Click(Sender: TObject);

begin

{Form5.ADOTable1.Open;

Form5.ADOTable1.First;

While not Form5.ADOTable1.Eof do

begin

if Form5.ADOTable1.FieldValues['Наименование услуги']=ADOTable1.FieldValues['Наименование услуги'] then

begin

Edit3.Text:=IntToStr(StrToInt(ADOTable1.FieldValues['Количество'])+StrToInt(Form5.ADOTable1.FieldValues['Стоимость']));

end

else

Form5.ADOTable1.Next;

end; }

end;

end.

unit Unit11;

interface

uses

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

Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls;

type

TForm11 = class(TForm)

ComboBox1: TComboBox;

ComboBox2: TComboBox;

Edit1: TEdit;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Button1: TButton;

ADOTable1: TADOTable;

DBNavigator1: TDBNavigator;

Label1: TLabel;

Button2: TButton;

procedure ComboBox1Change(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form11: TForm11;

vibor,strIndex1,strText1: string;

implementation

{$R *.dfm}

procedure TForm11.ComboBox1Change(Sender: TObject);

begin

Combobox2.Enabled:=false;

Edit1.Enabled:=false;

Button1.Enabled:=false;

Edit1.Text:='';

Combobox2.Items.Clear;

Combobox2.Text:='Выберите поле';

case ComboBox1.ItemIndex of

0:

begin

ComboBox2.Items.Add('Код клиента');

ComboBox2.Items.Add('Фирма');

ComboBox2.Items.Add('Контактное лицо');

ComboBox2.Items.Add('Телефон');

ComboBox2.Items.Add('Адрес');

ComboBox2.Items.Add('e-mail');

vibor:='client';

end;

1:

begin

ComboBox2.Items.Add('Код услуги');

ComboBox2.Items.Add('Наименование услуги');

ComboBox2.Items.Add('Стоимость');

ComboBox2.Items.Add('Ед измерения');

vibor:='uslugi';

end;

2:

begin

ComboBox2.Items.Add('Код заказа');

ComboBox2.Items.Add('Клиент');

ComboBox2.Items.Add('Наименование услуги');

ComboBox2.Items.Add('Количество');

ComboBox2.Items.Add('ФИО сотрудника');

ComboBox2.Items.Add('Дата заказа');

vibor:='zakaz';

end;

3:

begin

ComboBox2.Items.Add('Код сотрудника');

ComboBox2.Items.Add('ФИО сотрудника');

ComboBox2.Items.Add('Должность');

ComboBox2.Items.Add('Телефон');

ComboBox2.Items.Add('Адрес');

ComboBox2.Items.Add('e-mail');

vibor:='sotrud';

end;

4:

begin

ComboBox2.Items.Add('Должность');

ComboBox2.Items.Add('Фиксир з/п в час');

ComboBox2.Items.Add('Раб часы в день');

ComboBox2.Items.Add('Раб дни в неделе');

vibor:='dolzhn';

end;

5:

begin

ComboBox2.Items.Add('ФИО сотрудника');

ComboBox2.Items.Add('Причина вычета');

ComboBox2.Items.Add('Вычет');

vibor:='vichet';

end;

end;

Combobox2.Enabled:=true;

end;

procedure TForm11.ComboBox2Change(Sender: TObject);

begin

Edit1.Enabled:=true;

Button1.Enabled:=true;

Label1.Caption:='Введите значение';

end;

procedure TForm11.Button1Click(Sender: TObject);

begin

strIndex1 := ComboBox2.Text;

strText1 := Edit1.Text;

ADOTable1.Active:=false;

ADOTable1.TableName:=vibor;

DataSource1.DataSet:=ADOTable1;

ADOTable1.Active:=true;

if not AdoTable1.Locate(strIndex1, strText1, [loCaseInsensitive, loPartialKey]) then

begin

ADOTable1.Active:=false;

ShowMessage(strText1 + ' не найдено в ' + strIndex1);

end;

end;

procedure TForm11.Button2Click(Sender: TObject);

begin

Form11.Close;

end;

end.

126

Характеристики

Список файлов ВКР