Разработка программного модуля для формирования плана изготовления продукции на предприятии
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
0+ALLTRIM(str_dce)=stroki+"anda.izd_bd=?ALLTRIM(str_izd) and a.obozn_dce=?ALLTRIM(str_dce)"LEN(ALLTRIM(str_izd))0 and LEN(ALLTRIM(str_zak))<8=STRO+", заказ" +ALLTRIM(str_zak)=stroki+" and b.zakaz like %"+ALLTRIM(str_zak)+"%"FORM plan2868CURSOR plan_2868 (izd c(20), izd_dce c(50), zakaz c(8), srok c(5),komp c(8), kom_g c(8), sur_name c(50), dat_cor d(8), kol_ist N(4), id_dce n(7))
=CURSORSETPROP(Buffering, 2, plan_2868)CURSOR p_ist_2868 (izd c(20), izd_dce c(50), zakaz c(8), srok c(5),komp c(8), kom_g c(8), sur_name c(20), dat_cor d(8), kol_ist N(4), id_dce n(7))
PUBLIC istoria, nado_izm_izm=0=.f..Caption=stro.combo1.List(1)=Изделие, заказ.combo1.List(2)=Заказ, изделие.combo1.DisplayValue=Изделие, заказ
thisform.grid1.RecordSource=plan_2868.grid1.column1.Width=120.grid1.column1.header1.caption=Изделие.grid1.column1.header1.fontbold=.t..grid1.column1.header1.backcolor=RGB(192,192,192).grid1.column1.header1.forecolor=RGB(0,0,128).grid1.column2.Width=180.grid1.column2.header1.caption=Обозн. изделия.grid1.column2.header1.fontbold=.t..grid1.column2.header1.backcolor=RGB(192,192,192).grid1.column2.header1.forecolor=RGB(0,0,128).grid1.column3.Width=75.grid1.column3.header1.caption=Заказ.grid1.column3.header1.fontbold=.t..grid1.column3.header1.backcolor=RGB(192,192,192).grid1.column3.header1.forecolor=RGB(0,0,128).grid1.column4.Width=80.grid1.column4.header1.caption=Срок выполн..grid1.column4.header1.fontbold=.t..grid1.column4.header1.backcolor=RGB(192,192,192).grid1.column4.header1.forecolor=RGB(0,0,128).grid1.column5.Width=57.grid1.column5.header1.caption=Комплект.grid1.column5.header1.fontbold=.t..grid1.column5.header1.backcolor=RGB(192,192,192).grid1.column5.header1.forecolor=RGB(0,0,128).grid1.column6.Width=70.grid1.column6.header1.caption=Комп.в году.grid1.column6.header1.fontbold=.t..grid1.column6.header1.backcolor=RGB(192,192,192).grid1.column6.header1.forecolor=RGB(0,0,128).grid1.column7.Width=100.grid1.column7.header1.caption=Пользователь.grid1.column7.header1.fontbold=.t..grid1.column7.header1.backcolor=RGB(192,192,192).grid1.column7.header1.forecolor=RGB(0,0,128).grid1.column8.Width=80.grid1.column8.header1.caption=Дата кор..grid1.column8.header1.fontbold=.t..grid1.column8.header1.backcolor=RGB(192,192,192).grid1.column8.header1.forecolor=RGB(0,0,128).grid2.visible=.f..grid1.Refresh.grid2.visible=.f..grid2.RecordSource=p_ist_2868.grid2.RefreshgnActivate = 0
WAIT Подождите, идет обновление данных WINDOW nowait
IF istoria=.f.IN plan_2868( nom_conn, " select a.id_dce, a.izd_bd, a.obozn_dce, b.zakaz,b.ms, "+;
" b.dat_vip, b.kt_god, b.surname, b.datecor "+;
" from v_iz a inner join plan_868 b on b.id_dce=a.id_dce "+;
" where (substring(b.dat_vip,4,2)+substring(b.dat_vip,1,2))=(select max(substring(dat_vip,4,2)+substring(dat_vip,1,2)) from plan_868 "+;
" where id_dce=a.id_dce and zakaz=b.zakaz and tipzap=0) and b.tipzap=0 "+stroki, cur)TOP IN cur( nom_conn, " select * from plan_868 where id_dce=?cur.id_dce and zakaz=?cur.zakaz and tipzap=0", kol)=alltrim(str(val(substr(cur.ms,3,6))))ALLTRIM(SUBSTR(cur.kt_god,1,2))==00= +alltrim(str(val(substr(cur.kt_god,3,6))))=alltrim(substr(cur.kt_god,1,2))+ +alltrim(str(val(substr(cur.kt_god,3,6))))INTO plan_2868 VALUES (cur.izd_bd, cur.obozn_dce, cur.zakaz, cur.dat_vip, ms2, ktg, cur.surname, cur.datecor,RECCOUNT(kol),cur.id_dce).label3.Caption=str(RECCOUNT(plan_2868)).label5.Caption=План.command2.Click.combo1.InteractiveChangeclear=role(868_write)t3==1 OR rl_ow==1.command3.Enabled=.t..command4.Enabled=.t..command5.Enabled=.t..command3.Enabled=.f..command4.Enabled=.f..command5.Enabled=.f.RECCOUNT(plan_2868)==0.command5.Enabled=.F..command4.Enabled=.F..command2.Enabled=.F.=ALLTRIM(thisform.text3.Value)
strok=SUBSTR(strok,1,3)+SUBSTR(strok,6,2)
0ANDLEN(ALLTRIM(set_zakaz))=8(nom_conn,"selecta.id_dce,a.izd_bd,a.obozn_dce,b.zakaz,b.ms,"+;">IF nom_dce>0 AND LEN(ALLTRIM(set_zakaz))=8( nom_conn, " select a.id_dce, a.izd_bd, a.obozn_dce, b.zakaz,b.ms, "+;
" b.dat_vip, b.kt_god, b.surname, b.datecor "+;
" from v_iz a inner join plan_868 b on b.id_dce=a.id_dce "+;
0_god=VAL(ALLTRIM(thisform.text5.Value))_cor=DATE()= VAL(ALLTRIM(thisform.text4.Value))k_god>=kompl(nom_conn, " select pr_plan from v_iz where id_dce=?nom_dce","cc_dce")cc_dce.pr_plan=1 OR cc_dce.pr_plan=0=00+PADL(ALLTRIM(STR(kompl)),5,0)_god=00+PADL(ALLTRIM(STR(k_god)),5,0)cc_dce.pr_plan=2=SUBSTR(strok,4,2)+PADL(ALLTRIM(STR(kompl)),5,0)_god=SUBSTR(strok,4,2)+Padl(ALLTRIM(STR(k_god)),5,0)(nom_conn, " insert into plan_868 "+;">" where b.tipzap=0 and b.zakaz=?set_zakaz and b.id_dce=?nom_dce and b.dat_vip=?strok", cur_est)RECCOUNT(cur_est)=0LEN(ALLTRIM(thisform.text4.Value))>0_god=VAL(ALLTRIM(thisform.text5.Value))_cor=DATE()= VAL(ALLTRIM(thisform.text4.Value))k_god>=kompl(nom_conn, " select pr_plan from v_iz where id_dce=?nom_dce","cc_dce")cc_dce.pr_plan=1 OR cc_dce.pr_plan=0=00+PADL(ALLTRIM(STR(kompl)),5,0)_god=00+PADL(ALLTRIM(STR(k_god)),5,0)cc_dce.pr_plan=2=SUBSTR(strok,4,2)+PADL(ALLTRIM(STR(kompl)),5,0)_god=SUBSTR(strok,4,2)+Padl(ALLTRIM(STR(k_god)),5,0)(nom_conn, " insert into plan_868 "+;
"values (?set_zakaz,?nom_dce,?kompl,?strok,?k_god,0,?m.t_user,?data_cor)")
zap=MESSAGEBOX(Документ добавлен в базу данных! добавить еще один документ?,4+32+0,Запрос на продолжение добавления)
IF zap==6.command1.Click.Init=1_dce22=nom_dce=ALLTRIM(thisform.text2.Value)
thisform.Release(Комплектов в год должно быть больше, чем в месяц!)
endif(Введите комплект!,0+16,)
endif(Запись с таким изделием, заказом и сроком выполнения существует в базе данных. Измените какое-либо значение указанных полей!,0+16,)(Вы не правильно ввели изделие или заказ,0+16,)
0LEN(ALLTRIM(thisform.text5.value))>0LEN(ALLTRIM(thisform.text8.value))==0=00+padl(alltrim(str(val(thisform.text4.value))),5,0)_g=00+padl(alltrim(str(val(thisform.text5.value))),5,0)=ALLTRIM(thisform.text8.value)+padl(alltrim(str(val(thisform.text4.value))),5,0)_g=ALLTRIM(thisform.text11.value)+padl(alltrim(str(val(thisform.text5.value))),5,0)">endifLEN(ALLTRIM(thisform.text4.value))>0LEN(ALLTRIM(thisform.text5.value))>0LEN(ALLTRIM(thisform.text8.value))==0=00+padl(alltrim(str(val(thisform.text4.value))),5,0)_g=00+padl(alltrim(str(val(thisform.text5.value))),5,0)=ALLTRIM(thisform.text8.value)+padl(alltrim(str(val(thisform.text4.value))),5,0)_g=ALLTRIM(thisform.text11.value)+padl(alltrim(str(val(thisform.text5.value))),5,0)
endifVAL(kom_g)>=VAL(kom)
d=DATE()istoria=.f.(nom_conn, " update plan_868 set surname=?m.t_user, datecor=?d,"+;
" kt_god=?kom_g, ms=?kom "+;
" where id_dce=?plan_2868.id_dce and zakaz=?plan_2868.zakaz and dat_vip=?plan_2868.srok ")(nom_conn, " update plan_868 set surname=?m.t_user, datecor=?d,"+;
" kt_god=?kom_g, ms=?kom "+;
" where id_dce=?p_ist_2868.id_dce and zakaz=?p_ist_2868.zakaz and dat_vip=?p_ist_2868.srok ")
endif=MESSAGEBOX(Запись изменена в базе данных!,0+64,)
IF f==1.Release
MESSAGEBOX(Число комплектов в году не должно быть больше, чем в месяц,0+16,"")(Заполните комплектов в году!,0+16,"")
endif(Введите комплект!&#