Лістинг програми відділ кадрів

\\\\головна програма\\\\

HIDE WINDOW all

CLEAR ALL

DO menu1.mpr

\\\головне меню\\\\\

SET SYSMENU TO

SET SYSMENU AUTOMATIC

DEFINE PAD _21k04swkq OF _MSYSMENU PROMPT "File" COLOR SCHEME 3;

KEY ALT+F, ""

DEFINE PAD _21k04swkr OF _MSYSMENU PROMPT "Forms" COLOR SCHEME 3;

KEY ALT+F, ""

DEFINE PAD _21k04swks OF _MSYSMENU PROMPT "Reports" COLOR SCHEME 3;

KEY ALT+R, ""

DEFINE PAD _21k04swkt OF _MSYSMENU PROMPT "About" COLOR SCHEME 3;

KEY ALT+A, ""

ON PAD _21k04swkq OF _MSYSMENU ACTIVATE POPUP file

ON PAD _21k04swkr OF _MSYSMENU ACTIVATE POPUP forms

ON PAD _21k04swks OF _MSYSMENU ACTIVATE POPUP reports

ON PAD _21k04swkt OF _MSYSMENU ACTIVATE POPUP newitem

DEFINE POPUP file MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF file PROMPT "Exit"

ON SELECTION BAR 1 OF file set sysmenu to default

 

DEFINE POPUP forms MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF forms PROMPT "Kadri"

DEFINE BAR 2 OF forms PROMPT "Education"

DEFINE BAR 3 OF forms PROMPT "Department"

DEFINE BAR 4 OF forms PROMPT "Kadri_Education"

DEFINE BAR 5 OF forms PROMPT "Kadri_Department"

ON SELECTION BAR 1 OF forms do form form_main.scx

ON SELECTION BAR 2 OF forms do form form_edu.scx

ON SELECTION BAR 3 OF forms do form form_dep.scx

ON SELECTION BAR 4 OF forms do form main_edu.scx

ON SELECTION BAR 5 OF forms do form main_dep.scx

DEFINE POPUP reports MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF reports PROMPT "Kadri_education"

DEFINE BAR 2 OF reports PROMPT "Kadri_department"

ON SELECTION BAR 1 OF reports report form main_edu.frx preview

ON SELECTION BAR 2 OF reports report form main_dep.frx preview

DEFINE POPUP newitem MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF newitem PROMPT "Author"

ON SELECTION BAR 1 OF newitem do form author.scx

REPORT FORM main_dep.frx preview

\\\\інформація про автора\\\\\\\\\

Left = 0

Width = 0

Height = 0

DataSource =.NULL.

Name = "Dataenvironment"

Caption = "Про автора"

Name = "Form1"

Height = 24

Left = 108

Top = 36

Width = 180

Name = "Label1"

Height = 24

Left = 140

Top = 60

Width = 108

Name = "Label2" Picture = fox.bmp

Height = 230

Left = 15

Top = 11

Width = 58

Name = "Image1"

Caption = "Курсовой проект ст гр 4АС-05"

_Caption = "Кульчицкого О.В."

Left = 168

Height = 25

Width = 73

Caption = "Ок"

Name = "Command1"

Left = 168

Height = 25

Width = 73

Caption = "Ок"

Name = "Command1"

PROCEDURE Click

_screen.ActiveForm.release()

ENDPROC

Left = 139

Width = 520

Height = 200

DataSource =.NULL.

Name = "Dataenvironment" Left = 10

Height = 90

Width = 90

Alias = "main"

Database = otdel_kadr.dbc

CursorSource = "main"

Name = "Cursor1 ControlSource = "main.indf_nom"

Height = 23

Left = 75

TabIndex = 2

Top = 13

Width = 81

Name = "txtIndf_nom"

WordWrap =.T.

BackStyle = 0

Caption = "Indf_nom"

Left = 15

Top = 13

Width = 52

TabIndex = 1

Name = "lblIndf_nom"

ControlSource = "main.name"

Height = 23

Left = 224

MaxLength = 10

TabIndex = 4

Top = 18

Width = 81

Name = "txtName" WordWrap =.T.

BackStyle = 0

Caption = "Name"

Left = 182

Top = 18

Width = 34

TabIndex = 3

Name = "lblName" ControlSource = "main.surname"

Height = 23

Left = 75

MaxLength = 15

TabIndex = 6

Top = 49

Width = 115

Name = "txtSurname" ControlSource = "main.mstorozden"

Height = 23

Left = 81

MaxLength = 35

TabIndex = 10

Top = 93

Width = 253

Name = "txtMstorozden" WordWrap =.T.

BackStyle = 0

Caption = "Mstorozden"

Left = 10

Top = 93

Width = 63

TabIndex = 9

Name = "lblMstorozden" ControlSource = "main.grazdanstv"

Height = 23

Left = 80

MaxLength = 13

TabIndex = 12

Top = 134

Width = 101

Name = "txtGrazdanstv" PROCEDURE Click

thisform.command2.Enabled=.T.

IF BOF()=.F.

SKIP -1

ELSE

thisform.command1.Enabled=.F.

ENDIF

_screen.ActiveForm.refresh()

ENDPROC PROCEDURE Click

thisform.command1.Enabled=.T.

IF EOF()=.F.

SKIP 1

ELSE

thisform.command2.Enabled=.F.

ENDIF

_screen.ActiveForm.refresh()

ENDPROC Left = 368

Height = 25

Width = 97

Caption = "Редактировать"

Name = "Command5" PROCEDURE Click

delete

ENDPROC

Left = 181

Height = 25

Width = 73

Caption = "Добавить"

Name = "Command3" PROCEDURE Click

APPEND BLANK

ENDPROC Left = 274

Height = 25

Width = 73

Caption = "Удалить"

Name = "Command4" Left = 0

Width = 0

Height = 0

Visible =.F.

TabStop =.F.

DataSource =.NULL.

Name = "Dataenvironment" BufferModeOverride = 5

Order = "wizard_1"

Database = otdel_kadr.dbc

CursorSource = "main"

Name = "CURSOR1" BufferModeOverride = 5

Database = otdel_kadr.dbc

CursorSource = "education"

Name = "CURSOR2" Height = 404

ScrollBars = 3

DoCreate =.T.

ShowTips =.T.

Caption = "MAIN"

Name = "form1"

layoutsty.Shape1.Name = "Shape1"

layoutsty.Shape2.Name = "Shape2"

layoutsty.Shape3.Name = "Shape3"

layoutsty.Shape4.Name = "Shape4"

layoutsty.Left = 4005

layoutsty.Visible =.F.

layoutsty.Name = "layoutsty"

Shape1.Name = "Shape1"

label1.Caption = "MAIN"

label1.Width = 70

label1.Name = "label1"

Shape2.Top = 345

Shape2.Name = "Shape2" Left = 21

Width = 105

Visible =.T.

Name = "INDF_NOM1"

Shape1.Width = 105

Shape1.Name = "Shape1"

label1.AutoSize =.T.

label1.Caption = "Indf_nom:"

label1.Width = 57

label1.Name = "label1"

Text1.Alignment = 1

Text1.ControlSource = "main.indf_nom"

Text1.Format = ""

Text1.InputMask = "9,999,999,999"

Text1.ReadOnly =.F.

Text1.Width = 99

Text1.Name = "Text1" Left = 129

Width = 102

Visible =.T.

Name = "NAME1"

Shape1.Width = 102

Shape1.Name = "Shape1"

label1.AutoSize =.T.

label1.Caption = "Name:"

label1.Width = 39

label1.Name = "label1"

Text1.ControlSource = "main.name"

Text1.Format = ""

Text1.InputMask = "XXXXXXXXXX"

Text1.ReadOnly =.F.

Text1.Width = 96

Text1.Name = "Text1" Comment = ""

Tag = ""

Left = 5

ReadOnly =.F.

RecordSource = "education"

RecordSourceType = 1

Top = 189

Visible =.T.

Width = 570

Name = "Grid1"

Column1.ControlSource = "education.education"

Column1.Width = 109

Column1.ReadOnly =.F.

Column1.Visible =.T.

Column1.Name = "Column1"

Column2.ControlSource = "education.specialn"

Column2.Width = 144

Column2.ReadOnly =.F.

Column2.Visible =.T.

Column2.Name = "Column2"

Column3.ControlSource = "education.languages"

Column3.Width = 74

Column3.ReadOnly =.F.

Column3.Visible =.T.

Column3.Name = "Column3"

Column4.ControlSource = "education.ych_stepen"

Column4.Width = 109

Column4.ReadOnly =.F.

Column4.Visible =.T.

Column4.Name = "Column4"

Column5.ControlSource = "education.trudi"

Column5.Width = 179

Column5.ReadOnly =.F.

Column5.Visible =.T.

Column5.Name = "Column5"

Column6.ControlSource = "education.vipoln_rab"

Column6.Width = 214

Column6.ReadOnly =.F.

Column6.Visible =.T.

Column6.Name = "Column6" Left = 33

Visible =.T.

oldtalk = OFF

viewkey = ("")

parentkey =

viewtype = 3

gridalias = education

topfile =.T.

endfile =.T.

addmode =.F.

nworkarea = 1

oldsetdelete = OFF

oldreprocess = 0

oldmultilocks = ON

oldsetfields = OFF

previewmode =.F.

previewinit =.T.

usedataenv =.F.

editmode =.F.

gridref = GRID1

oldbuffering = 1

Name = "BUTTONSET1"

cmdPrev.Enabled =.F.

cmdPrev.Name = "cmdPrev"

cmdNext.Enabled =.F.

cmdNext.Name = "cmdNext"

cmdTop.Enabled =.F.

cmdTop.Name = "cmdTop"

cmdEnd.Enabled =.F.

cmdEnd.Name = "cmdEnd"

cmdFind.Enabled =.T.

cmdFind.Name = "cmdFind"

cmdPrint.Enabled =.T.

cmdPrint.Name = "cmdPrint"

cmdExit.Enabled =.T.

cmdExit.Name = "cmdExit"

cmdAdd.Picture = (HOME()+"WIZARDS\WIZBMPS\WZNEW.BMP")

cmdAdd.DownPicture =..\..\..\..\..\program files\microsoft visual foxpro 9\wizards\wizbmps\wznew.bmp

cmdAdd.Enabled =.T.

cmdAdd.Name = "cmdAdd"

cmdDelete.Enabled =.F.

cmdDelete.Name = "cmdDelete"

cmdEdit.Picture = (HOME()+"WIZARDS\WIZBMPS\WZEDIT.BMP")

cmdEdit.DownPicture =..\..\..\..\..\program files\microsoft visual foxpro 9\wizards\wizbmps\wzedit.bmp

cmdEdit.Enabled =.F.

cmdEdit.Name = "cmdEdit" Left = 33

Visible =.T.

oldtalk = OFF

viewkey = ("")

parentkey =

viewtype = 3

gridalias = department

topfile =.T.

endfile =.T.

addmode =.F.

nworkarea = 1

oldsetdelete = OFF

oldreprocess = 0

oldmultilocks = ON

oldsetfields = OFF

previewmode =.F.

previewinit =.T.

usedataenv =.F.

editmode =.F.

gridref = GRID1

oldbuffering = 1

Name = "BUTTONSET1"

cmdPrev.Enabled =.F.

cmdPrev.Name = "cmdPrev"

cmdNext.Enabled =.F.

cmdNext.Name = "cmdNext"

cmdTop.Enabled =.F.

cmdTop.Name = "cmdTop"

cmdEnd.Enabled =.F.

cmdEnd.Name = "cmdEnd"

cmdFind.Enabled =.T.

cmdFind.Name = "cmdFind"

cmdPrint.Enabled =.T.

cmdPrint.Name = "cmdPrint"

cmdExit.Enabled =.T.

cmdExit.Name = "cmdExit"

cmdAdd.Picture = (HOME()+"WIZARDS\WIZBMPS\WZNEW.BMP")

cmdAdd.DownPicture =..\..\..\..\..\program files\microsoft visual foxpro 9\wizards\wizbmps\wznew.bmp

cmdAdd.Enabled =.T.

cmdAdd.Name = "cmdAdd"

cmdDelete.Enabled =.F.

cmdDelete.Name = "cmdDelete"

cmdEdit.Picture = (HOME()+"WIZARDS\WIZBMPS\WZEDIT.BMP")

cmdEdit.DownPicture =..\..\..\..\..\program files\microsoft visual foxpro 9\wizards\wizbmps\wzedit.bmp

cmdEdit.Enabled =.F.

cmdEdit.Name = "cmdEdit"

Додаток В