Контрольный пример работы приложения

Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Финансовый университет при Правительстве РФ

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

Пример_1.docx

Скачиваний:

Добавлен:

01.07.2025

Размер:

791 Кб

Скачать

☆

<<< < Предыдущая 1 2 3 4 56 / 66

Контрольный пример работы приложения

Работа с программой начинается с вывода главной формы и активизации системы меню.

Рисунок 22. Вид главной формы после запуска программы

Для просмотра заявок, нужно открыть пункт меню Заказы, выбрать Окна\Двери.

Рисунок 23. Просмотр заявок

Для добавления новой заявки, нужно нажать кнопку добавить, и в открывшейся форме добавить данные о новой заявке.

Рисунок 24. Добавить заявку

Далее нужно внести данные о заказанных изделиях, нажать кнопку Сохранить.

Рисунок 25. Данные о заказанных изделиях

Заключение

В результате проделанной работы было автоматизировано рабочее место менеджера по работе с клиентами. В ходе проектирования автоматизации комплекса задач построена инфологическая модель и дано ее описание. Далее дана характеристика и описание входной и результативной информации, а также описана их структура. Построена даталогическая модель базы данных. Разработан сценарий диалога (дерево вызова модулей). При разработке структуры диалога была спроектирована работа с первичными документами, со справочниками и отчетами. Разработан дружественный, проработанный интерфейс с использованием многочисленных справочников.

Список литературы

В.Гофман, А.Хомоненко ”Delphi 7” 2008г.
Вейцман В.М. Автоматизированная разработка корпоративных информационных систем: Учебное пособие.-Яр.:МУБиНТ,2003.-163с.,ил.
http://www.BankReferatov.ru - Уроки по разработке БД в Delphi
http://www.Computers.plib.ru - Иллюстрированный самоучитель по Delphi 7
http://www.snkey.net/books/delphi - Самоучитель по БД в Delphi

Приложения

Листинг программы

Unit1

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit7, Unit8, unit9, unit10, unit12, unit13, unit15, unit17, unit18, unit19, unit20, unit22, unit23, unit24, unit25, unit26, unit27, unit28, unit29 ;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

begin

Form20.Show;

DM.Table1.Active := True;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

form22.Show;

Table2.Active := True;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Table4.Active := True;

form23.Show;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Table5.Active := True;

form24.show;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Table6.Active := True;

form25.show;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

Table7.Active := True;

form26.show;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

DM.Table1.Active := True;

dm.Table9.Active := True;

dbGrid9.Visible := True;

Table1.Active := True;

dbGrid10.Visible := True;

Table2.Active := True;

Table3.Active := true;

Table4.Active := true;

Table5.Active := true;

Table6.Active := false;

Table7.Active := true;

dbGrid11.Visible := false;

label3.Caption := 'Заявка №';

dbtext2.Visible := true;

DBText3.Visible:=true;

label2.Visible:=true;

label2.Caption := 'Заказ окон';

label7.Visible:=true;

label8.Visible:=true;

label8.Caption := 'Окна';

label9.Visible:=false;

button4.Visible:=false;

button9.Visible:= true;

button8.Visible:= true;

button2.Visible:= true;

button3.Visible:= true;

button5.Visible:= true;

button6.Visible:= true;

button7.Visible:= true;

button15.Visible:= true;

button16.Visible:= true;

button10.Visible:= true;

button17.Visible:= true;

button18.Visible:= true;

button19.Visible:= true;

button20.Visible:= true;

button21.Visible:= true;

button23.Visible:= true;

button24.Visible:= true;

button22.Visible:= false;

button25.Visible:= false;

button26.Visible:= false;

button27.Visible:= false;

button28.Visible:= false;

button29.Visible:= false;

button30.Visible:= false;

Edit1.Visible:=true;

radiogroup1.Visible:=true;

radiobutton1.Visible:=true;

radiobutton2.Visible:=true;

radiobutton3.Visible:=true;

radiobutton4.Visible:=true;

button11.Visible:= true;

dbcheckbox1.Visible:=true;

button12.Visible:=true;

button13.Visible:=false;

button14.Visible:=true;

image2.Visible:=true;

dm.Table9.Last;

button1.Visible:=true;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

DBGrid11.Top:=216;

DM.Table1.Active := True;

dm.Table9.Active := True;

dbGrid9.Visible := True;

Table1.Active := false;

dbGrid10.Visible := false;

Table2.Active := True;

Table3.Active := true;

Table4.Active := true;

Table5.Active := true;

Table6.Active := true;

Table7.Active := true;

Table9.Active := True;

dbGrid11.Visible := True;

Table12.Active := false;

label3.Caption := 'Заявка №';

dbtext2.Visible := true;

DBText3.Visible:=true;

label2.Visible:=true;

label7.Visible:=true;

label2.Caption := 'Заказ дверей';

label8.Visible:=true;

label8.Caption := 'Двери';

label9.Visible:=false;

button4.Visible:=true;

button9.Visible:= true;

button8.Visible:= true;

button2.Visible:= true;

button3.Visible:= true;

button5.Visible:= true;

button6.Visible:= true;

button7.Visible:= true;

button15.Visible:= true;

button16.Visible:= true;

button10.Visible:= true;

button17.Visible:= false;

button18.Visible:= false;

button19.Visible:= false;

button20.Visible:= false;

button21.Visible:= false;

button23.Visible:= false;

button24.Visible:= false;

button22.Visible:= true;

button25.Visible:= true;

button26.Visible:= true;

button27.Visible:= true;

button28.Visible:= true;

button29.Visible:= true;

button30.Visible:= true;

button22.top:= 299;

button25.top:= 299;

button26.top:= 299;

button27.top:= 299;

button28.top:= 299;

button29.top:= 299;

button30.top:= 299;

Edit1.Visible:=true;

radiogroup1.Visible:=true;

radiobutton1.Visible:=true;

radiobutton2.Visible:=true;

radiobutton3.Visible:=true;

radiobutton4.Visible:=true;

dbcheckbox1.Visible:=true;

button13.Visible:=true;

button12.Visible:=false;

button11.Visible:=false;

button14.Visible:=true;

dm.Table9.Last;

button4.Top:= 299;

button1.Visible:=true;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

dbgrid10.Visible:=true;

dbgrid11.Visible:=true;

label2.Caption:= '';

label8.Caption := 'Окна';

label9.Visible:=true;

DBGrid11.Top:=352;

button12.Visible:=false;

button13.Visible:=false;

button11.Visible:=true;

button4.Visible:=true;

button4.Top:= 435;

button17.Visible:= true;

button18.Visible:= true;

button19.Visible:= true;

button20.Visible:= true;

button21.Visible:= true;

button23.Visible:= true;

button24.Visible:= true;

button22.Visible:= true;

button25.Visible:= true;

button26.Visible:= true;

button27.Visible:= true;

button28.Visible:= true;

button29.Visible:= true;

button30.Visible:= true;

button22.top:= 435;

button25.top:= 435;

button26.top:= 435;

button27.top:= 435;

button28.top:= 435;

button29.top:= 435;

button30.top:= 435;

Table9.Active := true;

Table1.Active := true;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

dm.Table9.First;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

dm.Table9.Prior;

end;

procedure TForm1.Button4Click(Sender: TObject);

var

z:string[10];

begin

z:=form1.dbtext2.caption;

Form3.Query1.Close;

Form3.Query1.SQL.Clear;

Form3.Query1.SQL.Add('select');

Form3.Query1.SQL.Add('fyrnityra.izg_fyr, zayav_dv.vis_dv, zayav_dv.shir_dv, zayav_dv.vis_stek, tip_otk.Tip_otkr, pan.tolsh, stek.Stek, kontr_v_zayav.kod_kontr_v_zayav, kontragent.naim, kontr_v_zayav.Data_seg, kontr_v_zayav.Data_vip_zak, izg_prof.Prof, zayav_dv.stoim_dv');

Form3.Query1.SQL.Add('from fyrnityra, tip_otk, pan, stek, kontragent, kontr_v_zayav, zayav_dv, izg_prof ');

Form3.Query1.SQL.Add ('where');

Form3.Query1.SQL.Add ('fyrnityra.kod_fyr=zayav_dv.kod_f and pan.kod_pan=zayav_dv.kod_pan and stek.kod_stek=zayav_dv.kod_st');

Form3.Query1.SQL.Add ('and kontragent.kod_kontr=kontr_v_zayav.kod_kontr and kontr_v_zayav.kod_kontr_v_zayav=zayav_dv.kod_kontr_v_zayav and zayav_dv.kod_prof = izg_prof.kod_izg_prof');

Form3.Query1.SQL.Add('and zayav_dv.kod_kontr_v_zayav="'+z+'"');

Form3.Query1.SQL.Add('and tip_otk.kod_otkr=zayav_dv.kod_otk');

Form3.Query1.open;

form3.quickrep1.preview;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

dm.Table9.Next;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

dm.Table9.Last;

end;

procedure TForm1.FormCreate(Sender: TObject);

var

today: TDateTime;

begin

today:= Now;

form1.label4.Caption := datetostr(today);

Table1.DatabaseName:=getcurrentdir;

Table2.DatabaseName:=getcurrentdir;

Table3.DatabaseName:=getcurrentdir;

Table4.DatabaseName:=getcurrentdir;

Table5.DatabaseName:=getcurrentdir;

Table6.DatabaseName:=getcurrentdir;

Table7.DatabaseName:=getcurrentdir;

Table8.DatabaseName:=getcurrentdir;

Table9.DatabaseName:=getcurrentdir;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

Form8.show;

Form8.dbEdit1.Text:= '';

DM.Table9.Insert;

end;

procedure TForm1.Button8Click(Sender: TObject);

var

lo: TLocateOptions;

begin

lo:=[];

dbgrid10.Visible:=true;

dbgrid11.Visible:=true;

label2.Caption:= '';

label8.Caption:= 'Окна';

label9.Visible:=true;

DBGrid11.Top:=352;

button12.Visible:=false;

button13.Visible:=false;

button11.Visible:=true;

button4.Visible:=true;

button4.Top:= 435;

button17.Visible:= true;

button18.Visible:= true;

button19.Visible:= true;

button20.Visible:= true;

button21.Visible:= true;

button23.Visible:= true;

button24.Visible:= true;

button22.Visible:= true;

button25.Visible:= true;

button26.Visible:= true;

button27.Visible:= true;

button28.Visible:= true;

button29.Visible:= true;

button30.Visible:= true;

button22.top:= 435;

button25.top:= 435;

button26.top:= 435;

button27.top:= 435;

button28.top:= 435;

button29.top:= 435;

button30.top:= 435;

Table9.Active := true;

Table1.Active := true;

if (radiobutton1.Checked) and (length(Form1.Edit1.Text)> 0) then

begin

lo:=lo+[loCaseInsensitive];

dm.table9.Locate('kod_kontr_v_zayav',edit1.Text,lo);

end;

if (radiobutton2.Checked) and (length(Form1.Edit1.Text)> 0) then

begin

dm.table9.Filtered:=false;

lo:=lo+[loPartialKey];

dm.table1.Locate('kontr',edit1.Text,lo);

dm.table9.Filter:= 'Kod_kontr = ' + #39 + Form1.DBText1.Caption + #39;

dm.table9.Filtered:=true;

end;

if (radiobutton3.Checked) and (length(Form1.Edit1.Text)> 0)then

begin

dm.table9.Filtered:=false;

dm.table9.Filter:= 'Data_seg = ' + #39 + Form1.Edit1.Text + #39;

dm.table9.Filtered:=true;

end;

if (radiobutton1.Checked=false) and (radiobutton2.Checked=false) and (radiobutton3.Checked=false) and (radiobutton4.Checked=false) then

ShowMessage ('Выберите параметр фильтра!');

if Form1.Edit1.Text='' then

ShowMessage ('Ведите искомое значение!'+ 'Ошибка!');

end;

procedure TForm1.RadioButton4Click(Sender: TObject);

begin

edit1.Text:= '';

dm.table9.Filtered:=false;

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

Form7.show;

dm.Table1.open;

Form7.dbEdit1.Text:= '';

Form7.dbEdit2.Text:='';

Form7.dbEdit3.Text:= '';

Form7.dbEdit4.Text:='';

Form7.dbEdit5.Text:= '';

Form7.dbEdit6.Text:='';

Form7.dbEdit7.Text:= '';

dm.Table1.Insert;

end;

procedure TForm1.Button10Click(Sender: TObject);

begin

form27.Show;

end;

procedure TForm1.Table9Stoim_dvChange(Sender: TField);

begin

label5.Caption:= '';

end;

procedure TForm1.Table9KodzayavdvChange(Sender: TField);

begin

label5.Caption:= '';

end;

procedure TForm1.Button11Click(Sender: TObject);

var

z:string[10];

begin

z:=form1.dbtext2.caption;

Form9.Query1.Close;

Form9.Query1.SQL.Clear;

Form9.Query1.SQL.Add('select');

Form9.Query1.SQL.Add('fyrnityra.izg_fyr,zayav_okno.kolvo_sek,zayav_okno.vis_ram,zayav_okno.sir_ram,zayav_okno.shir_stv,tip_otk.Tip_otkr,stek.Stek,kontr_v_zayav.kod_kontr_v_zayav,kontragent.naim,kontr_v_zayav.Data_seg,kontr_v_zayav.Data_vip_zak,izg_prof.Prof,zayav_okno.stoim_ok');

Form9.Query1.SQL.Add('from');

Form9.Query1.SQL.Add('fyrnityra,zayav_okno, tip_otk, stek, kontragent, kontr_v_zayav, izg_prof ');

Form9.Query1.SQL.Add('where');

Form9.Query1.SQL.Add('fyrnityra.kod_fyr=zayav_okno.kod_f and stek.kod_stek=zayav_okno.kod_stek');

Form9.Query1.SQL.Add('and kontragent.kod_kontr=kontr_v_zayav.kod_kontr and kontr_v_zayav.kod_kontr_v_zayav=zayav_okno.kod_kontr_v_zayav and zayav_okno.kod_izg_prof = izg_prof.kod_izg_prof');

Form9.Query1.SQL.Add('and zayav_okno.kod_kontr_v_zayav="'+z+'"');

Form9.Query1.SQL.Add('and tip_otk.kod_otkr=zayav_okno.kod_tip_otk');

Form9.Query1.open;

form9.quickrep1.preview;

end;

procedure TForm1.N18Click(Sender: TObject);

var

seg: TDateTime;

begin

seg:= Now;

Form4.Query1.Close;

Form4.Query1.SQL.Clear;

Form4.Query1.SQL.Add('select');

Form4.Query1.SQL.Add('fyrnityra.izg_fyr, zayav_dv.vis_dv, zayav_dv.shir_dv, zayav_dv.vis_stek, tip_otk.Tip_otkr, pan.tolsh, stek.Stek,kontr_v_zayav.kod_kontr_v_zayav, kontragent.kontr, kontr_v_zayav.Data_seg, kontr_v_zayav.Data_vip_zak, izg_prof.Prof, zayav_dv.stoim_dv');

Form4.Query1.SQL.Add('from fyrnityra, tip_otk, pan, stek, kontragent, kontr_v_zayav, zayav_dv, izg_prof ');

Form4.Query1.SQL.Add('where');

Form4.Query1.SQL.Add('fyrnityra.kod_fyr=zayav_dv.kod_f and pan.kod_pan=zayav_dv.kod_pan and stek.kod_stek=zayav_dv.kod_st and tip_otk.kod_otkr=zayav_dv.kod_otk');

Form4.Query1.SQL.Add('and kontragent.kod_kontr=kontr_v_zayav.kod_kontr and kontr_v_zayav.kod_kontr_v_zayav=zayav_dv.kod_kontr_v_zayav and zayav_dv.kod_prof = izg_prof.kod_izg_prof');

Form4.Query1.SQL.Add('and kontr_v_zayav.Data_seg="'+FormatDateTime('dd/mm/yyyy',seg)+'"');

Form4.Query1.open;

Form4.quickrep1.preview;

end;

procedure TForm1.N19Click(Sender: TObject);

begin

Form5.show;

end;

procedure TForm1.N16Click(Sender: TObject);

var

seg:TDateTime;

begin

seg:= Now;

Form10.Query1.Close;

Form10.Query1.SQL.Clear;

Form10.Query1.SQL.Add('select fyrnityra.izg_fyr,zayav_okno.kolvo_sek');

Form10.Query1.SQL.Add(',zayav_okno.vis_ram,zayav_okno.sir_ram,zayav_okno.shir_stv,tip_otk.Tip_otkr,stek.Stek,kontr_v_zayav.kod_kontr_v_zayav,kontragent.kontr,kontr_v_zayav.Data_seg,kontr_v_zayav.Data_vip_zak');

Form10.Query1.SQL.Add(',izg_prof.Prof,zayav_okno.stoim_ok');

Form10.Query1.SQL.Add('from fyrnityra, tip_otk, stek, kontragent, kontr_v_zayav, zayav_okno, izg_prof ');

Form10.Query1.SQL.Add('where');

Form10.Query1.SQL.Add('fyrnityra.kod_fyr=zayav_okno.kod_f and stek.kod_stek=zayav_okno.kod_stek');

Form10.Query1.SQL.Add('and kontragent.kod_kontr=kontr_v_zayav.kod_kontr and kontr_v_zayav.kod_kontr_v_zayav=zayav_okno.kod_kontr_v_zayav and zayav_okno.kod_izg_prof = izg_prof.kod_izg_prof');

Form10.Query1.SQL.Add('and tip_otk.kod_otkr=zayav_okno.kod_tip_otk');

Form10.Query1.SQL.Add('and kontr_v_zayav.Data_seg="'+FormatDateTime('dd/mm/yyyy',seg)+'"');

Form10.Query1.open;

Form10.quickrep1.preview;

end;

procedure TForm1.N17Click(Sender: TObject);

begin

Form12.show;

end;

procedure TForm1.N20Click(Sender: TObject);

begin

form13.Show;

dm.Table1.Active:= true;

end;

procedure TForm1.N21Click(Sender: TObject);

begin

form15.show;

dm.Table1.Active:= true;

end;

procedure TForm1.N22Click(Sender: TObject);

begin

Form17.Query1.Close;

Form17.Query1.SQL.Clear;

Form17.Query1.SQL.Add('select fyrnityra.izg_fyr,zayav_okno.kolvo_sek');

Form17.Query1.SQL.Add(',zayav_okno.vis_ram,zayav_okno.sir_ram,zayav_okno.shir_stv,tip_otk.Tip_otkr,stek.Stek,kontr_v_zayav.kod_kontr_v_zayav,kontragent.kontr,kontr_v_zayav.Data_seg,kontr_v_zayav.Data_vip_zak, izg_prof.Prof,zayav_okno.stoim_ok');

Form17.Query1.SQL.Add('from fyrnityra,tip_otk, stek, kontragent, kontr_v_zayav, zayav_okno, izg_prof ');

Form17.Query1.SQL.Add('where');

Form17.Query1.SQL.Add('fyrnityra.kod_fyr=zayav_okno.kod_f and stek.kod_stek=zayav_okno.kod_stek');

Form17.Query1.SQL.Add('and kontragent.kod_kontr=kontr_v_zayav.kod_kontr and kontr_v_zayav.kod_kontr_v_zayav=zayav_okno.kod_kontr_v_zayav and zayav_okno.kod_izg_prof = izg_prof.kod_izg_prof');

Form17.Query1.SQL.Add('and tip_otk.kod_otkr=zayav_okno.kod_tip_otk');

Form17.Query1.SQL.Add('and kontr_v_zayav.V = true ');

Form17.Query1.open;

Form17.quickrep1.preview;

end;

procedure TForm1.N23Click(Sender: TObject);

begin

Form18.Query1.Close;

Form18.Query1.SQL.Clear;

Form18.Query1.SQL.Add('select');

Form18.Query1.SQL.Add('fyrnityra.izg_fyr, zayav_dv.vis_dv, zayav_dv.shir_dv, zayav_dv.vis_stek, tip_otk.Tip_otkr, pan.tolsh, stek.Stek,kontr_v_zayav.kod_kontr_v_zayav, kontragent.kontr, kontr_v_zayav.Data_seg, kontr_v_zayav.Data_vip_zak, izg_prof.Prof, zayav_dv.stoim_dv');

Form18.Query1.SQL.Add('from fyrnityra, tip_otk, pan, stek, kontragent, kontr_v_zayav, zayav_dv, izg_prof ');

Form18.Query1.SQL.Add('where');

Form18.Query1.SQL.Add('fyrnityra.kod_fyr=zayav_dv.kod_f and pan.kod_pan=zayav_dv.kod_pan and stek.kod_stek=zayav_dv.kod_st and tip_otk.kod_otkr=zayav_dv.kod_otk');

Form18.Query1.SQL.Add('and kontragent.kod_kontr=kontr_v_zayav.kod_kontr and kontr_v_zayav.kod_kontr_v_zayav=zayav_dv.kod_kontr_v_zayav and zayav_dv.kod_prof = izg_prof.kod_izg_prof');

Form18.Query1.SQL.Add('and kontr_v_zayav.V = true');

Form18.Query1.open;

Form18.quickrep1.preview;

end;

procedure TForm1.Button12Click(Sender: TObject);

begin

dbgrid10.Visible:=false;

dbgrid11.Visible:=true;

table9.Active:=true;

label2.Visible:=true;

label2.Caption:= 'Заказ дверей';

button13.Visible:=true;

button12.Visible:=false;

button11.Visible:=false;

button4.Visible:=true;

DBGrid11.Top:=216;

label8.Visible:=true;

label8.Caption := 'Двери';

label9.Visible:=false;

button17.Visible:= false;

button18.Visible:= false;

button19.Visible:= false;

button20.Visible:= false;

button21.Visible:= false;

button23.Visible:= false;

button24.Visible:= false;

button22.Visible:= true;

button25.Visible:= true;

button26.Visible:= true;

button27.Visible:= true;

button28.Visible:= true;

button29.Visible:= true;

button30.Visible:= true;

button22.top:= 299;

button25.top:= 299;

button26.top:= 299;

button27.top:= 299;

button28.top:= 299;

button29.top:= 299;

button30.top:= 299;

button4.top:= 299;

end;

procedure TForm1.Button13Click(Sender: TObject);

begin

dbgrid11.Visible:=false;

dbgrid10.Visible:=true;

table1.Active:=true;

table9.Active:=false;

label2.Caption:= 'Заказ окон';

button13.Visible:=false;

button12.Visible:=true;

button11.Visible:=true;

button4.Visible:=false;

end;

procedure TForm1.N25Click(Sender: TObject);

begin

If (DataSource1.State = dsEdit) or (DataSource1.State = dsInsert) then Table1.Post;

If (dm.DataSource1.State=dsEdit) or (dm.DataSource1.State=dsInsert) then dm.Table1.Post;

If (dm.DataSource9.State =dsEdit) or (dm.DataSource9.State =dsInsert) then dm.Table9.Post;

If (DataSource2.State = dsEdit) or (DataSource2.State = dsInsert) then Table2.Post;

If (DataSource3.State = dsEdit) or (DataSource3.State = dsInsert) then Table3.Post;

If (DataSource4.State = dsEdit) or (DataSource4.State = dsInsert) then Table4.Post;

If (DataSource5.State = dsEdit) or (DataSource5.State = dsInsert) then Table5.Post;

If (DataSource6.State = dsEdit) or (DataSource6.State = dsInsert) then Table6.Post;

If (DataSource7.State = dsEdit) or (DataSource7.State = dsInsert) then Table7.Post;

If (DataSource8.State = dsEdit) or (DataSource8.State = dsInsert) then Table8.Post;

If (DataSource9.State = dsEdit) or (DataSource9.State = dsInsert) then Table9.Post;

If (DataSource10.State = dsEdit) or (DataSource10.State = dsInsert) then Table10.Post;

If (DataSource11.State = dsEdit) or (DataSource11.State = dsInsert) then Table11.Post;

end;

procedure TForm1.N26Click(Sender: TObject);

begin

beep;

case messagedlg('Вы дейcтвительно хотите выйти?',mtinformation, mbokcancel,0)

idok:application.Terminate;

idcancel:abort;

end;

<<< < Предыдущая 1 2 3 4 56 / 66

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

#
01.07.20257 Мб17Применение ЭММ и моделей при написании ВКР.doc
#
24.03.2016401 Кб16ПРИМЕР 1.doc
#
01.05.2025303 Кб2Пример 3.3.1 - из учебника -Орлова-Половников....docx
#
13.03.2015490 Кб69Пример САвЭ КР.pdf
#
24.03.201647 Кб278Пример составление ТЗ.docx
#
01.07.2025791 Кб1Пример_1.docx
#
01.07.2025888 Кб2Пример_2.doc
#
01.07.20251 Мб2Пример_3.docx
#
25.11.2018222 Кб12Пример_курсовой_2.doc
#
01.03.202594 Кб3ПРИМЕРНЫЕ ЗАДАЧИ.doc
#
13.03.201593 Кб12Примеры биб. записей.doc