BD_Fam_PostanogovDataSet.Designer.vb 216 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273327432753276327732783279328032813282328332843285328632873288328932903291329232933294329532963297329832993300330133023303330433053306330733083309331033113312331333143315331633173318331933203321332233233324332533263327332833293330333133323333333433353336333733383339334033413342334333443345334633473348334933503351335233533354335533563357335833593360336133623363336433653366
  1. '------------------------------------------------------------------------------
  2. ' <auto-generated>
  3. ' Этот код создан программой.
  4. ' Исполняемая версия:4.0.30319.42000
  5. '
  6. ' Изменения в этом файле могут привести к неправильной работе и будут потеряны в случае
  7. ' повторной генерации кода.
  8. ' </auto-generated>
  9. '------------------------------------------------------------------------------
  10. Option Strict Off
  11. Option Explicit On
  12. '''<summary>
  13. '''Represents a strongly typed in-memory cache of data.
  14. '''</summary>
  15. <Global.System.Serializable(), _
  16. Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
  17. Global.System.ComponentModel.ToolboxItem(true), _
  18. Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
  19. Global.System.Xml.Serialization.XmlRootAttribute("BD_Fam_PostanogovDataSet"), _
  20. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
  21. Partial Public Class BD_Fam_PostanogovDataSet
  22. Inherits Global.System.Data.DataSet
  23. Private tableЛюди As ЛюдиDataTable
  24. Private tableСписок_вакансий As Список_вакансийDataTable
  25. Private tableСферы_деятельности As Сферы_деятельностиDataTable
  26. Private relationFK_Список_вакансий_Сферы_деятельности As Global.System.Data.DataRelation
  27. Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
  28. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  29. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  30. Public Sub New()
  31. MyBase.New
  32. Me.BeginInit
  33. Me.InitClass
  34. Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
  35. AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
  36. AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
  37. Me.EndInit
  38. End Sub
  39. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  40. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  41. Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
  42. MyBase.New(info, context, false)
  43. If (Me.IsBinarySerialized(info, context) = true) Then
  44. Me.InitVars(false)
  45. Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
  46. AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
  47. AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
  48. Return
  49. End If
  50. Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
  51. If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
  52. Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
  53. ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
  54. If (Not (ds.Tables("Люди")) Is Nothing) Then
  55. MyBase.Tables.Add(New ЛюдиDataTable(ds.Tables("Люди")))
  56. End If
  57. If (Not (ds.Tables("Список_вакансий")) Is Nothing) Then
  58. MyBase.Tables.Add(New Список_вакансийDataTable(ds.Tables("Список_вакансий")))
  59. End If
  60. If (Not (ds.Tables("Сферы_деятельности")) Is Nothing) Then
  61. MyBase.Tables.Add(New Сферы_деятельностиDataTable(ds.Tables("Сферы_деятельности")))
  62. End If
  63. Me.DataSetName = ds.DataSetName
  64. Me.Prefix = ds.Prefix
  65. Me.Namespace = ds.Namespace
  66. Me.Locale = ds.Locale
  67. Me.CaseSensitive = ds.CaseSensitive
  68. Me.EnforceConstraints = ds.EnforceConstraints
  69. Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
  70. Me.InitVars
  71. Else
  72. Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
  73. End If
  74. Me.GetSerializationData(info, context)
  75. Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
  76. AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
  77. AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
  78. End Sub
  79. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  80. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  81. Global.System.ComponentModel.Browsable(false), _
  82. Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
  83. Public ReadOnly Property Люди() As ЛюдиDataTable
  84. Get
  85. Return Me.tableЛюди
  86. End Get
  87. End Property
  88. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  89. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  90. Global.System.ComponentModel.Browsable(false), _
  91. Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
  92. Public ReadOnly Property Список_вакансий() As Список_вакансийDataTable
  93. Get
  94. Return Me.tableСписок_вакансий
  95. End Get
  96. End Property
  97. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  98. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  99. Global.System.ComponentModel.Browsable(false), _
  100. Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
  101. Public ReadOnly Property Сферы_деятельности() As Сферы_деятельностиDataTable
  102. Get
  103. Return Me.tableСферы_деятельности
  104. End Get
  105. End Property
  106. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  107. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  108. Global.System.ComponentModel.BrowsableAttribute(true), _
  109. Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
  110. Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
  111. Get
  112. Return Me._schemaSerializationMode
  113. End Get
  114. Set
  115. Me._schemaSerializationMode = value
  116. End Set
  117. End Property
  118. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  119. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  120. Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
  121. Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
  122. Get
  123. Return MyBase.Tables
  124. End Get
  125. End Property
  126. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  127. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  128. Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
  129. Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
  130. Get
  131. Return MyBase.Relations
  132. End Get
  133. End Property
  134. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  135. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  136. Protected Overrides Sub InitializeDerivedDataSet()
  137. Me.BeginInit
  138. Me.InitClass
  139. Me.EndInit
  140. End Sub
  141. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  142. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  143. Public Overrides Function Clone() As Global.System.Data.DataSet
  144. Dim cln As BD_Fam_PostanogovDataSet = CType(MyBase.Clone,BD_Fam_PostanogovDataSet)
  145. cln.InitVars
  146. cln.SchemaSerializationMode = Me.SchemaSerializationMode
  147. Return cln
  148. End Function
  149. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  150. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  151. Protected Overrides Function ShouldSerializeTables() As Boolean
  152. Return false
  153. End Function
  154. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  155. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  156. Protected Overrides Function ShouldSerializeRelations() As Boolean
  157. Return false
  158. End Function
  159. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  160. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  161. Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
  162. If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
  163. Me.Reset
  164. Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
  165. ds.ReadXml(reader)
  166. If (Not (ds.Tables("Люди")) Is Nothing) Then
  167. MyBase.Tables.Add(New ЛюдиDataTable(ds.Tables("Люди")))
  168. End If
  169. If (Not (ds.Tables("Список_вакансий")) Is Nothing) Then
  170. MyBase.Tables.Add(New Список_вакансийDataTable(ds.Tables("Список_вакансий")))
  171. End If
  172. If (Not (ds.Tables("Сферы_деятельности")) Is Nothing) Then
  173. MyBase.Tables.Add(New Сферы_деятельностиDataTable(ds.Tables("Сферы_деятельности")))
  174. End If
  175. Me.DataSetName = ds.DataSetName
  176. Me.Prefix = ds.Prefix
  177. Me.Namespace = ds.Namespace
  178. Me.Locale = ds.Locale
  179. Me.CaseSensitive = ds.CaseSensitive
  180. Me.EnforceConstraints = ds.EnforceConstraints
  181. Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
  182. Me.InitVars
  183. Else
  184. Me.ReadXml(reader)
  185. Me.InitVars
  186. End If
  187. End Sub
  188. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  189. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  190. Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
  191. Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
  192. Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
  193. stream.Position = 0
  194. Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
  195. End Function
  196. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  197. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  198. Friend Overloads Sub InitVars()
  199. Me.InitVars(true)
  200. End Sub
  201. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  202. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  203. Friend Overloads Sub InitVars(ByVal initTable As Boolean)
  204. Me.tableЛюди = CType(MyBase.Tables("Люди"),ЛюдиDataTable)
  205. If (initTable = true) Then
  206. If (Not (Me.tableЛюди) Is Nothing) Then
  207. Me.tableЛюди.InitVars
  208. End If
  209. End If
  210. Me.tableСписок_вакансий = CType(MyBase.Tables("Список_вакансий"),Список_вакансийDataTable)
  211. If (initTable = true) Then
  212. If (Not (Me.tableСписок_вакансий) Is Nothing) Then
  213. Me.tableСписок_вакансий.InitVars
  214. End If
  215. End If
  216. Me.tableСферы_деятельности = CType(MyBase.Tables("Сферы_деятельности"),Сферы_деятельностиDataTable)
  217. If (initTable = true) Then
  218. If (Not (Me.tableСферы_деятельности) Is Nothing) Then
  219. Me.tableСферы_деятельности.InitVars
  220. End If
  221. End If
  222. Me.relationFK_Список_вакансий_Сферы_деятельности = Me.Relations("FK_Список_вакансий_Сферы_деятельности")
  223. End Sub
  224. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  225. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  226. Private Sub InitClass()
  227. Me.DataSetName = "BD_Fam_PostanogovDataSet"
  228. Me.Prefix = ""
  229. Me.Namespace = "http://tempuri.org/BD_Fam_PostanogovDataSet.xsd"
  230. Me.EnforceConstraints = true
  231. Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
  232. Me.tableЛюди = New ЛюдиDataTable()
  233. MyBase.Tables.Add(Me.tableЛюди)
  234. Me.tableСписок_вакансий = New Список_вакансийDataTable()
  235. MyBase.Tables.Add(Me.tableСписок_вакансий)
  236. Me.tableСферы_деятельности = New Сферы_деятельностиDataTable()
  237. MyBase.Tables.Add(Me.tableСферы_деятельности)
  238. Me.relationFK_Список_вакансий_Сферы_деятельности = New Global.System.Data.DataRelation("FK_Список_вакансий_Сферы_деятельности", New Global.System.Data.DataColumn() {Me.tableСферы_деятельности.Код_сферыColumn}, New Global.System.Data.DataColumn() {Me.tableСписок_вакансий.Код_сферыColumn}, false)
  239. Me.Relations.Add(Me.relationFK_Список_вакансий_Сферы_деятельности)
  240. End Sub
  241. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  242. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  243. Private Function ShouldSerializeЛюди() As Boolean
  244. Return false
  245. End Function
  246. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  247. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  248. Private Function ShouldSerializeСписок_вакансий() As Boolean
  249. Return false
  250. End Function
  251. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  252. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  253. Private Function ShouldSerializeСферы_деятельности() As Boolean
  254. Return false
  255. End Function
  256. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  257. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  258. Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
  259. If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
  260. Me.InitVars
  261. End If
  262. End Sub
  263. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  264. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  265. Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
  266. Dim ds As BD_Fam_PostanogovDataSet = New BD_Fam_PostanogovDataSet()
  267. Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
  268. Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
  269. Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
  270. any.Namespace = ds.Namespace
  271. sequence.Items.Add(any)
  272. type.Particle = sequence
  273. Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
  274. If xs.Contains(dsSchema.TargetNamespace) Then
  275. Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
  276. Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
  277. Try
  278. Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
  279. dsSchema.Write(s1)
  280. Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
  281. Do While schemas.MoveNext
  282. schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
  283. s2.SetLength(0)
  284. schema.Write(s2)
  285. If (s1.Length = s2.Length) Then
  286. s1.Position = 0
  287. s2.Position = 0
  288. Do While ((s1.Position <> s1.Length) _
  289. AndAlso (s1.ReadByte = s2.ReadByte))
  290. Loop
  291. If (s1.Position = s1.Length) Then
  292. Return type
  293. End If
  294. End If
  295. Loop
  296. Finally
  297. If (Not (s1) Is Nothing) Then
  298. s1.Close
  299. End If
  300. If (Not (s2) Is Nothing) Then
  301. s2.Close
  302. End If
  303. End Try
  304. End If
  305. xs.Add(dsSchema)
  306. Return type
  307. End Function
  308. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  309. Public Delegate Sub ЛюдиRowChangeEventHandler(ByVal sender As Object, ByVal e As ЛюдиRowChangeEvent)
  310. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  311. Public Delegate Sub Список_вакансийRowChangeEventHandler(ByVal sender As Object, ByVal e As Список_вакансийRowChangeEvent)
  312. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  313. Public Delegate Sub Сферы_деятельностиRowChangeEventHandler(ByVal sender As Object, ByVal e As Сферы_деятельностиRowChangeEvent)
  314. '''<summary>
  315. '''Represents the strongly named DataTable class.
  316. '''</summary>
  317. <Global.System.Serializable(), _
  318. Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
  319. Partial Public Class ЛюдиDataTable
  320. Inherits Global.System.Data.TypedTableBase(Of ЛюдиRow)
  321. Private columnКод_клиента As Global.System.Data.DataColumn
  322. Private columnФИО As Global.System.Data.DataColumn
  323. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  324. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  325. Public Sub New()
  326. MyBase.New
  327. Me.TableName = "Люди"
  328. Me.BeginInit
  329. Me.InitClass
  330. Me.EndInit
  331. End Sub
  332. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  333. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  334. Friend Sub New(ByVal table As Global.System.Data.DataTable)
  335. MyBase.New
  336. Me.TableName = table.TableName
  337. If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
  338. Me.CaseSensitive = table.CaseSensitive
  339. End If
  340. If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
  341. Me.Locale = table.Locale
  342. End If
  343. If (table.Namespace <> table.DataSet.Namespace) Then
  344. Me.Namespace = table.Namespace
  345. End If
  346. Me.Prefix = table.Prefix
  347. Me.MinimumCapacity = table.MinimumCapacity
  348. End Sub
  349. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  350. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  351. Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
  352. MyBase.New(info, context)
  353. Me.InitVars
  354. End Sub
  355. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  356. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  357. Public ReadOnly Property Код_клиентаColumn() As Global.System.Data.DataColumn
  358. Get
  359. Return Me.columnКод_клиента
  360. End Get
  361. End Property
  362. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  363. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  364. Public ReadOnly Property ФИОColumn() As Global.System.Data.DataColumn
  365. Get
  366. Return Me.columnФИО
  367. End Get
  368. End Property
  369. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  370. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  371. Global.System.ComponentModel.Browsable(false)> _
  372. Public ReadOnly Property Count() As Integer
  373. Get
  374. Return Me.Rows.Count
  375. End Get
  376. End Property
  377. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  378. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  379. Public Default ReadOnly Property Item(ByVal index As Integer) As ЛюдиRow
  380. Get
  381. Return CType(Me.Rows(index),ЛюдиRow)
  382. End Get
  383. End Property
  384. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  385. Public Event ЛюдиRowChanging As ЛюдиRowChangeEventHandler
  386. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  387. Public Event ЛюдиRowChanged As ЛюдиRowChangeEventHandler
  388. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  389. Public Event ЛюдиRowDeleting As ЛюдиRowChangeEventHandler
  390. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  391. Public Event ЛюдиRowDeleted As ЛюдиRowChangeEventHandler
  392. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  393. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  394. Public Overloads Sub AddЛюдиRow(ByVal row As ЛюдиRow)
  395. Me.Rows.Add(row)
  396. End Sub
  397. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  398. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  399. Public Overloads Function AddЛюдиRow(ByVal ФИО As String) As ЛюдиRow
  400. Dim rowЛюдиRow As ЛюдиRow = CType(Me.NewRow,ЛюдиRow)
  401. Dim columnValuesArray() As Object = New Object() {Nothing, ФИО}
  402. rowЛюдиRow.ItemArray = columnValuesArray
  403. Me.Rows.Add(rowЛюдиRow)
  404. Return rowЛюдиRow
  405. End Function
  406. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  407. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  408. Public Function FindByКод_клиента(ByVal Код_клиента As Integer) As ЛюдиRow
  409. Return CType(Me.Rows.Find(New Object() {Код_клиента}),ЛюдиRow)
  410. End Function
  411. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  412. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  413. Public Overrides Function Clone() As Global.System.Data.DataTable
  414. Dim cln As ЛюдиDataTable = CType(MyBase.Clone,ЛюдиDataTable)
  415. cln.InitVars
  416. Return cln
  417. End Function
  418. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  419. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  420. Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
  421. Return New ЛюдиDataTable()
  422. End Function
  423. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  424. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  425. Friend Sub InitVars()
  426. Me.columnКод_клиента = MyBase.Columns("Код_клиента")
  427. Me.columnФИО = MyBase.Columns("ФИО")
  428. End Sub
  429. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  430. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  431. Private Sub InitClass()
  432. Me.columnКод_клиента = New Global.System.Data.DataColumn("Код_клиента", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
  433. MyBase.Columns.Add(Me.columnКод_клиента)
  434. Me.columnФИО = New Global.System.Data.DataColumn("ФИО", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  435. MyBase.Columns.Add(Me.columnФИО)
  436. Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnКод_клиента}, true))
  437. Me.columnКод_клиента.AutoIncrement = true
  438. Me.columnКод_клиента.AutoIncrementSeed = -1
  439. Me.columnКод_клиента.AutoIncrementStep = -1
  440. Me.columnКод_клиента.AllowDBNull = false
  441. Me.columnКод_клиента.ReadOnly = true
  442. Me.columnКод_клиента.Unique = true
  443. Me.columnФИО.MaxLength = 100
  444. End Sub
  445. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  446. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  447. Public Function NewЛюдиRow() As ЛюдиRow
  448. Return CType(Me.NewRow,ЛюдиRow)
  449. End Function
  450. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  451. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  452. Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
  453. Return New ЛюдиRow(builder)
  454. End Function
  455. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  456. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  457. Protected Overrides Function GetRowType() As Global.System.Type
  458. Return GetType(ЛюдиRow)
  459. End Function
  460. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  461. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  462. Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
  463. MyBase.OnRowChanged(e)
  464. If (Not (Me.ЛюдиRowChangedEvent) Is Nothing) Then
  465. RaiseEvent ЛюдиRowChanged(Me, New ЛюдиRowChangeEvent(CType(e.Row,ЛюдиRow), e.Action))
  466. End If
  467. End Sub
  468. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  469. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  470. Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
  471. MyBase.OnRowChanging(e)
  472. If (Not (Me.ЛюдиRowChangingEvent) Is Nothing) Then
  473. RaiseEvent ЛюдиRowChanging(Me, New ЛюдиRowChangeEvent(CType(e.Row,ЛюдиRow), e.Action))
  474. End If
  475. End Sub
  476. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  477. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  478. Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
  479. MyBase.OnRowDeleted(e)
  480. If (Not (Me.ЛюдиRowDeletedEvent) Is Nothing) Then
  481. RaiseEvent ЛюдиRowDeleted(Me, New ЛюдиRowChangeEvent(CType(e.Row,ЛюдиRow), e.Action))
  482. End If
  483. End Sub
  484. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  485. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  486. Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
  487. MyBase.OnRowDeleting(e)
  488. If (Not (Me.ЛюдиRowDeletingEvent) Is Nothing) Then
  489. RaiseEvent ЛюдиRowDeleting(Me, New ЛюдиRowChangeEvent(CType(e.Row,ЛюдиRow), e.Action))
  490. End If
  491. End Sub
  492. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  493. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  494. Public Sub RemoveЛюдиRow(ByVal row As ЛюдиRow)
  495. Me.Rows.Remove(row)
  496. End Sub
  497. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  498. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  499. Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
  500. Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
  501. Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
  502. Dim ds As BD_Fam_PostanogovDataSet = New BD_Fam_PostanogovDataSet()
  503. Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
  504. any1.Namespace = "http://www.w3.org/2001/XMLSchema"
  505. any1.MinOccurs = New Decimal(0)
  506. any1.MaxOccurs = Decimal.MaxValue
  507. any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
  508. sequence.Items.Add(any1)
  509. Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
  510. any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
  511. any2.MinOccurs = New Decimal(1)
  512. any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
  513. sequence.Items.Add(any2)
  514. Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
  515. attribute1.Name = "namespace"
  516. attribute1.FixedValue = ds.Namespace
  517. type.Attributes.Add(attribute1)
  518. Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
  519. attribute2.Name = "tableTypeName"
  520. attribute2.FixedValue = "ЛюдиDataTable"
  521. type.Attributes.Add(attribute2)
  522. type.Particle = sequence
  523. Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
  524. If xs.Contains(dsSchema.TargetNamespace) Then
  525. Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
  526. Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
  527. Try
  528. Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
  529. dsSchema.Write(s1)
  530. Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
  531. Do While schemas.MoveNext
  532. schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
  533. s2.SetLength(0)
  534. schema.Write(s2)
  535. If (s1.Length = s2.Length) Then
  536. s1.Position = 0
  537. s2.Position = 0
  538. Do While ((s1.Position <> s1.Length) _
  539. AndAlso (s1.ReadByte = s2.ReadByte))
  540. Loop
  541. If (s1.Position = s1.Length) Then
  542. Return type
  543. End If
  544. End If
  545. Loop
  546. Finally
  547. If (Not (s1) Is Nothing) Then
  548. s1.Close
  549. End If
  550. If (Not (s2) Is Nothing) Then
  551. s2.Close
  552. End If
  553. End Try
  554. End If
  555. xs.Add(dsSchema)
  556. Return type
  557. End Function
  558. End Class
  559. '''<summary>
  560. '''Represents the strongly named DataTable class.
  561. '''</summary>
  562. <Global.System.Serializable(), _
  563. Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
  564. Partial Public Class Список_вакансийDataTable
  565. Inherits Global.System.Data.TypedTableBase(Of Список_вакансийRow)
  566. Private columnКод_сферы As Global.System.Data.DataColumn
  567. Private columnДолжность As Global.System.Data.DataColumn
  568. Private columnОклад As Global.System.Data.DataColumn
  569. Private columnТребования_к_соискателю As Global.System.Data.DataColumn
  570. Private columnРаботодатель As Global.System.Data.DataColumn
  571. Private columnКонтактный_номер As Global.System.Data.DataColumn
  572. Private columnКод_вакансии As Global.System.Data.DataColumn
  573. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  574. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  575. Public Sub New()
  576. MyBase.New
  577. Me.TableName = "Список_вакансий"
  578. Me.BeginInit
  579. Me.InitClass
  580. Me.EndInit
  581. End Sub
  582. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  583. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  584. Friend Sub New(ByVal table As Global.System.Data.DataTable)
  585. MyBase.New
  586. Me.TableName = table.TableName
  587. If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
  588. Me.CaseSensitive = table.CaseSensitive
  589. End If
  590. If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
  591. Me.Locale = table.Locale
  592. End If
  593. If (table.Namespace <> table.DataSet.Namespace) Then
  594. Me.Namespace = table.Namespace
  595. End If
  596. Me.Prefix = table.Prefix
  597. Me.MinimumCapacity = table.MinimumCapacity
  598. End Sub
  599. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  600. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  601. Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
  602. MyBase.New(info, context)
  603. Me.InitVars
  604. End Sub
  605. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  606. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  607. Public ReadOnly Property Код_сферыColumn() As Global.System.Data.DataColumn
  608. Get
  609. Return Me.columnКод_сферы
  610. End Get
  611. End Property
  612. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  613. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  614. Public ReadOnly Property ДолжностьColumn() As Global.System.Data.DataColumn
  615. Get
  616. Return Me.columnДолжность
  617. End Get
  618. End Property
  619. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  620. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  621. Public ReadOnly Property ОкладColumn() As Global.System.Data.DataColumn
  622. Get
  623. Return Me.columnОклад
  624. End Get
  625. End Property
  626. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  627. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  628. Public ReadOnly Property Требования_к_соискателюColumn() As Global.System.Data.DataColumn
  629. Get
  630. Return Me.columnТребования_к_соискателю
  631. End Get
  632. End Property
  633. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  634. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  635. Public ReadOnly Property РаботодательColumn() As Global.System.Data.DataColumn
  636. Get
  637. Return Me.columnРаботодатель
  638. End Get
  639. End Property
  640. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  641. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  642. Public ReadOnly Property Контактный_номерColumn() As Global.System.Data.DataColumn
  643. Get
  644. Return Me.columnКонтактный_номер
  645. End Get
  646. End Property
  647. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  648. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  649. Public ReadOnly Property Код_вакансииColumn() As Global.System.Data.DataColumn
  650. Get
  651. Return Me.columnКод_вакансии
  652. End Get
  653. End Property
  654. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  655. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  656. Global.System.ComponentModel.Browsable(false)> _
  657. Public ReadOnly Property Count() As Integer
  658. Get
  659. Return Me.Rows.Count
  660. End Get
  661. End Property
  662. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  663. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  664. Public Default ReadOnly Property Item(ByVal index As Integer) As Список_вакансийRow
  665. Get
  666. Return CType(Me.Rows(index),Список_вакансийRow)
  667. End Get
  668. End Property
  669. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  670. Public Event Список_вакансийRowChanging As Список_вакансийRowChangeEventHandler
  671. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  672. Public Event Список_вакансийRowChanged As Список_вакансийRowChangeEventHandler
  673. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  674. Public Event Список_вакансийRowDeleting As Список_вакансийRowChangeEventHandler
  675. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  676. Public Event Список_вакансийRowDeleted As Список_вакансийRowChangeEventHandler
  677. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  678. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  679. Public Overloads Sub AddСписок_вакансийRow(ByVal row As Список_вакансийRow)
  680. Me.Rows.Add(row)
  681. End Sub
  682. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  683. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  684. Public Overloads Function AddСписок_вакансийRow(ByVal parentСферы_деятельностиRowByFK_Список_вакансий_Сферы_деятельности As Сферы_деятельностиRow, ByVal Должность As String, ByVal Оклад As Integer, ByVal Требования_к_соискателю As String, ByVal Работодатель As String, ByVal Контактный_номер As Double) As Список_вакансийRow
  685. Dim rowСписок_вакансийRow As Список_вакансийRow = CType(Me.NewRow,Список_вакансийRow)
  686. Dim columnValuesArray() As Object = New Object() {Nothing, Должность, Оклад, Требования_к_соискателю, Работодатель, Контактный_номер, Nothing}
  687. If (Not (parentСферы_деятельностиRowByFK_Список_вакансий_Сферы_деятельности) Is Nothing) Then
  688. columnValuesArray(0) = parentСферы_деятельностиRowByFK_Список_вакансий_Сферы_деятельности(0)
  689. End If
  690. rowСписок_вакансийRow.ItemArray = columnValuesArray
  691. Me.Rows.Add(rowСписок_вакансийRow)
  692. Return rowСписок_вакансийRow
  693. End Function
  694. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  695. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  696. Public Function FindByКод_вакансии(ByVal Код_вакансии As Integer) As Список_вакансийRow
  697. Return CType(Me.Rows.Find(New Object() {Код_вакансии}),Список_вакансийRow)
  698. End Function
  699. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  700. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  701. Public Overrides Function Clone() As Global.System.Data.DataTable
  702. Dim cln As Список_вакансийDataTable = CType(MyBase.Clone,Список_вакансийDataTable)
  703. cln.InitVars
  704. Return cln
  705. End Function
  706. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  707. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  708. Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
  709. Return New Список_вакансийDataTable()
  710. End Function
  711. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  712. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  713. Friend Sub InitVars()
  714. Me.columnКод_сферы = MyBase.Columns("Код_сферы")
  715. Me.columnДолжность = MyBase.Columns("Должность")
  716. Me.columnОклад = MyBase.Columns("Оклад")
  717. Me.columnТребования_к_соискателю = MyBase.Columns("Требования_к_соискателю")
  718. Me.columnРаботодатель = MyBase.Columns("Работодатель")
  719. Me.columnКонтактный_номер = MyBase.Columns("Контактный_номер")
  720. Me.columnКод_вакансии = MyBase.Columns("Код_вакансии")
  721. End Sub
  722. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  723. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  724. Private Sub InitClass()
  725. Me.columnКод_сферы = New Global.System.Data.DataColumn("Код_сферы", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
  726. MyBase.Columns.Add(Me.columnКод_сферы)
  727. Me.columnДолжность = New Global.System.Data.DataColumn("Должность", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  728. MyBase.Columns.Add(Me.columnДолжность)
  729. Me.columnОклад = New Global.System.Data.DataColumn("Оклад", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
  730. MyBase.Columns.Add(Me.columnОклад)
  731. Me.columnТребования_к_соискателю = New Global.System.Data.DataColumn("Требования_к_соискателю", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  732. MyBase.Columns.Add(Me.columnТребования_к_соискателю)
  733. Me.columnРаботодатель = New Global.System.Data.DataColumn("Работодатель", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  734. MyBase.Columns.Add(Me.columnРаботодатель)
  735. Me.columnКонтактный_номер = New Global.System.Data.DataColumn("Контактный_номер", GetType(Double), Nothing, Global.System.Data.MappingType.Element)
  736. MyBase.Columns.Add(Me.columnКонтактный_номер)
  737. Me.columnКод_вакансии = New Global.System.Data.DataColumn("Код_вакансии", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
  738. MyBase.Columns.Add(Me.columnКод_вакансии)
  739. Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnКод_вакансии}, true))
  740. Me.columnКод_сферы.AutoIncrementSeed = 1
  741. Me.columnДолжность.MaxLength = 100
  742. Me.columnТребования_к_соискателю.MaxLength = 100
  743. Me.columnРаботодатель.MaxLength = 100
  744. Me.columnКонтактный_номер.AllowDBNull = false
  745. Me.columnКод_вакансии.AutoIncrement = true
  746. Me.columnКод_вакансии.AutoIncrementSeed = -1
  747. Me.columnКод_вакансии.AutoIncrementStep = -1
  748. Me.columnКод_вакансии.AllowDBNull = false
  749. Me.columnКод_вакансии.ReadOnly = true
  750. Me.columnКод_вакансии.Unique = true
  751. End Sub
  752. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  753. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  754. Public Function NewСписок_вакансийRow() As Список_вакансийRow
  755. Return CType(Me.NewRow,Список_вакансийRow)
  756. End Function
  757. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  758. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  759. Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
  760. Return New Список_вакансийRow(builder)
  761. End Function
  762. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  763. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  764. Protected Overrides Function GetRowType() As Global.System.Type
  765. Return GetType(Список_вакансийRow)
  766. End Function
  767. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  768. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  769. Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
  770. MyBase.OnRowChanged(e)
  771. If (Not (Me.Список_вакансийRowChangedEvent) Is Nothing) Then
  772. RaiseEvent Список_вакансийRowChanged(Me, New Список_вакансийRowChangeEvent(CType(e.Row,Список_вакансийRow), e.Action))
  773. End If
  774. End Sub
  775. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  776. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  777. Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
  778. MyBase.OnRowChanging(e)
  779. If (Not (Me.Список_вакансийRowChangingEvent) Is Nothing) Then
  780. RaiseEvent Список_вакансийRowChanging(Me, New Список_вакансийRowChangeEvent(CType(e.Row,Список_вакансийRow), e.Action))
  781. End If
  782. End Sub
  783. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  784. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  785. Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
  786. MyBase.OnRowDeleted(e)
  787. If (Not (Me.Список_вакансийRowDeletedEvent) Is Nothing) Then
  788. RaiseEvent Список_вакансийRowDeleted(Me, New Список_вакансийRowChangeEvent(CType(e.Row,Список_вакансийRow), e.Action))
  789. End If
  790. End Sub
  791. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  792. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  793. Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
  794. MyBase.OnRowDeleting(e)
  795. If (Not (Me.Список_вакансийRowDeletingEvent) Is Nothing) Then
  796. RaiseEvent Список_вакансийRowDeleting(Me, New Список_вакансийRowChangeEvent(CType(e.Row,Список_вакансийRow), e.Action))
  797. End If
  798. End Sub
  799. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  800. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  801. Public Sub RemoveСписок_вакансийRow(ByVal row As Список_вакансийRow)
  802. Me.Rows.Remove(row)
  803. End Sub
  804. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  805. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  806. Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
  807. Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
  808. Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
  809. Dim ds As BD_Fam_PostanogovDataSet = New BD_Fam_PostanogovDataSet()
  810. Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
  811. any1.Namespace = "http://www.w3.org/2001/XMLSchema"
  812. any1.MinOccurs = New Decimal(0)
  813. any1.MaxOccurs = Decimal.MaxValue
  814. any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
  815. sequence.Items.Add(any1)
  816. Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
  817. any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
  818. any2.MinOccurs = New Decimal(1)
  819. any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
  820. sequence.Items.Add(any2)
  821. Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
  822. attribute1.Name = "namespace"
  823. attribute1.FixedValue = ds.Namespace
  824. type.Attributes.Add(attribute1)
  825. Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
  826. attribute2.Name = "tableTypeName"
  827. attribute2.FixedValue = "Список_вакансийDataTable"
  828. type.Attributes.Add(attribute2)
  829. type.Particle = sequence
  830. Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
  831. If xs.Contains(dsSchema.TargetNamespace) Then
  832. Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
  833. Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
  834. Try
  835. Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
  836. dsSchema.Write(s1)
  837. Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
  838. Do While schemas.MoveNext
  839. schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
  840. s2.SetLength(0)
  841. schema.Write(s2)
  842. If (s1.Length = s2.Length) Then
  843. s1.Position = 0
  844. s2.Position = 0
  845. Do While ((s1.Position <> s1.Length) _
  846. AndAlso (s1.ReadByte = s2.ReadByte))
  847. Loop
  848. If (s1.Position = s1.Length) Then
  849. Return type
  850. End If
  851. End If
  852. Loop
  853. Finally
  854. If (Not (s1) Is Nothing) Then
  855. s1.Close
  856. End If
  857. If (Not (s2) Is Nothing) Then
  858. s2.Close
  859. End If
  860. End Try
  861. End If
  862. xs.Add(dsSchema)
  863. Return type
  864. End Function
  865. End Class
  866. '''<summary>
  867. '''Represents the strongly named DataTable class.
  868. '''</summary>
  869. <Global.System.Serializable(), _
  870. Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
  871. Partial Public Class Сферы_деятельностиDataTable
  872. Inherits Global.System.Data.TypedTableBase(Of Сферы_деятельностиRow)
  873. Private columnКод_сферы As Global.System.Data.DataColumn
  874. Private columnСфера_деятельности As Global.System.Data.DataColumn
  875. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  876. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  877. Public Sub New()
  878. MyBase.New
  879. Me.TableName = "Сферы_деятельности"
  880. Me.BeginInit
  881. Me.InitClass
  882. Me.EndInit
  883. End Sub
  884. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  885. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  886. Friend Sub New(ByVal table As Global.System.Data.DataTable)
  887. MyBase.New
  888. Me.TableName = table.TableName
  889. If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
  890. Me.CaseSensitive = table.CaseSensitive
  891. End If
  892. If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
  893. Me.Locale = table.Locale
  894. End If
  895. If (table.Namespace <> table.DataSet.Namespace) Then
  896. Me.Namespace = table.Namespace
  897. End If
  898. Me.Prefix = table.Prefix
  899. Me.MinimumCapacity = table.MinimumCapacity
  900. End Sub
  901. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  902. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  903. Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
  904. MyBase.New(info, context)
  905. Me.InitVars
  906. End Sub
  907. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  908. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  909. Public ReadOnly Property Код_сферыColumn() As Global.System.Data.DataColumn
  910. Get
  911. Return Me.columnКод_сферы
  912. End Get
  913. End Property
  914. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  915. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  916. Public ReadOnly Property Сфера_деятельностиColumn() As Global.System.Data.DataColumn
  917. Get
  918. Return Me.columnСфера_деятельности
  919. End Get
  920. End Property
  921. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  922. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  923. Global.System.ComponentModel.Browsable(false)> _
  924. Public ReadOnly Property Count() As Integer
  925. Get
  926. Return Me.Rows.Count
  927. End Get
  928. End Property
  929. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  930. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  931. Public Default ReadOnly Property Item(ByVal index As Integer) As Сферы_деятельностиRow
  932. Get
  933. Return CType(Me.Rows(index),Сферы_деятельностиRow)
  934. End Get
  935. End Property
  936. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  937. Public Event Сферы_деятельностиRowChanging As Сферы_деятельностиRowChangeEventHandler
  938. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  939. Public Event Сферы_деятельностиRowChanged As Сферы_деятельностиRowChangeEventHandler
  940. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  941. Public Event Сферы_деятельностиRowDeleting As Сферы_деятельностиRowChangeEventHandler
  942. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  943. Public Event Сферы_деятельностиRowDeleted As Сферы_деятельностиRowChangeEventHandler
  944. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  945. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  946. Public Overloads Sub AddСферы_деятельностиRow(ByVal row As Сферы_деятельностиRow)
  947. Me.Rows.Add(row)
  948. End Sub
  949. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  950. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  951. Public Overloads Function AddСферы_деятельностиRow(ByVal Сфера_деятельности As String) As Сферы_деятельностиRow
  952. Dim rowСферы_деятельностиRow As Сферы_деятельностиRow = CType(Me.NewRow,Сферы_деятельностиRow)
  953. Dim columnValuesArray() As Object = New Object() {Nothing, Сфера_деятельности}
  954. rowСферы_деятельностиRow.ItemArray = columnValuesArray
  955. Me.Rows.Add(rowСферы_деятельностиRow)
  956. Return rowСферы_деятельностиRow
  957. End Function
  958. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  959. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  960. Public Function FindByКод_сферы(ByVal Код_сферы As Integer) As Сферы_деятельностиRow
  961. Return CType(Me.Rows.Find(New Object() {Код_сферы}),Сферы_деятельностиRow)
  962. End Function
  963. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  964. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  965. Public Overrides Function Clone() As Global.System.Data.DataTable
  966. Dim cln As Сферы_деятельностиDataTable = CType(MyBase.Clone,Сферы_деятельностиDataTable)
  967. cln.InitVars
  968. Return cln
  969. End Function
  970. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  971. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  972. Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
  973. Return New Сферы_деятельностиDataTable()
  974. End Function
  975. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  976. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  977. Friend Sub InitVars()
  978. Me.columnКод_сферы = MyBase.Columns("Код_сферы")
  979. Me.columnСфера_деятельности = MyBase.Columns("Сфера_деятельности")
  980. End Sub
  981. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  982. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  983. Private Sub InitClass()
  984. Me.columnКод_сферы = New Global.System.Data.DataColumn("Код_сферы", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
  985. MyBase.Columns.Add(Me.columnКод_сферы)
  986. Me.columnСфера_деятельности = New Global.System.Data.DataColumn("Сфера_деятельности", GetType(String), Nothing, Global.System.Data.MappingType.Element)
  987. MyBase.Columns.Add(Me.columnСфера_деятельности)
  988. Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnКод_сферы}, true))
  989. Me.columnКод_сферы.AutoIncrement = true
  990. Me.columnКод_сферы.AutoIncrementSeed = 1
  991. Me.columnКод_сферы.AllowDBNull = false
  992. Me.columnКод_сферы.ReadOnly = true
  993. Me.columnКод_сферы.Unique = true
  994. Me.columnСфера_деятельности.MaxLength = 100
  995. End Sub
  996. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  997. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  998. Public Function NewСферы_деятельностиRow() As Сферы_деятельностиRow
  999. Return CType(Me.NewRow,Сферы_деятельностиRow)
  1000. End Function
  1001. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1002. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1003. Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
  1004. Return New Сферы_деятельностиRow(builder)
  1005. End Function
  1006. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1007. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1008. Protected Overrides Function GetRowType() As Global.System.Type
  1009. Return GetType(Сферы_деятельностиRow)
  1010. End Function
  1011. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1012. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1013. Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
  1014. MyBase.OnRowChanged(e)
  1015. If (Not (Me.Сферы_деятельностиRowChangedEvent) Is Nothing) Then
  1016. RaiseEvent Сферы_деятельностиRowChanged(Me, New Сферы_деятельностиRowChangeEvent(CType(e.Row,Сферы_деятельностиRow), e.Action))
  1017. End If
  1018. End Sub
  1019. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1020. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1021. Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
  1022. MyBase.OnRowChanging(e)
  1023. If (Not (Me.Сферы_деятельностиRowChangingEvent) Is Nothing) Then
  1024. RaiseEvent Сферы_деятельностиRowChanging(Me, New Сферы_деятельностиRowChangeEvent(CType(e.Row,Сферы_деятельностиRow), e.Action))
  1025. End If
  1026. End Sub
  1027. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1028. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1029. Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
  1030. MyBase.OnRowDeleted(e)
  1031. If (Not (Me.Сферы_деятельностиRowDeletedEvent) Is Nothing) Then
  1032. RaiseEvent Сферы_деятельностиRowDeleted(Me, New Сферы_деятельностиRowChangeEvent(CType(e.Row,Сферы_деятельностиRow), e.Action))
  1033. End If
  1034. End Sub
  1035. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1036. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1037. Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
  1038. MyBase.OnRowDeleting(e)
  1039. If (Not (Me.Сферы_деятельностиRowDeletingEvent) Is Nothing) Then
  1040. RaiseEvent Сферы_деятельностиRowDeleting(Me, New Сферы_деятельностиRowChangeEvent(CType(e.Row,Сферы_деятельностиRow), e.Action))
  1041. End If
  1042. End Sub
  1043. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1044. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1045. Public Sub RemoveСферы_деятельностиRow(ByVal row As Сферы_деятельностиRow)
  1046. Me.Rows.Remove(row)
  1047. End Sub
  1048. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1049. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1050. Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
  1051. Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
  1052. Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
  1053. Dim ds As BD_Fam_PostanogovDataSet = New BD_Fam_PostanogovDataSet()
  1054. Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
  1055. any1.Namespace = "http://www.w3.org/2001/XMLSchema"
  1056. any1.MinOccurs = New Decimal(0)
  1057. any1.MaxOccurs = Decimal.MaxValue
  1058. any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
  1059. sequence.Items.Add(any1)
  1060. Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
  1061. any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
  1062. any2.MinOccurs = New Decimal(1)
  1063. any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
  1064. sequence.Items.Add(any2)
  1065. Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
  1066. attribute1.Name = "namespace"
  1067. attribute1.FixedValue = ds.Namespace
  1068. type.Attributes.Add(attribute1)
  1069. Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
  1070. attribute2.Name = "tableTypeName"
  1071. attribute2.FixedValue = "Сферы_деятельностиDataTable"
  1072. type.Attributes.Add(attribute2)
  1073. type.Particle = sequence
  1074. Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
  1075. If xs.Contains(dsSchema.TargetNamespace) Then
  1076. Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
  1077. Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
  1078. Try
  1079. Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
  1080. dsSchema.Write(s1)
  1081. Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
  1082. Do While schemas.MoveNext
  1083. schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
  1084. s2.SetLength(0)
  1085. schema.Write(s2)
  1086. If (s1.Length = s2.Length) Then
  1087. s1.Position = 0
  1088. s2.Position = 0
  1089. Do While ((s1.Position <> s1.Length) _
  1090. AndAlso (s1.ReadByte = s2.ReadByte))
  1091. Loop
  1092. If (s1.Position = s1.Length) Then
  1093. Return type
  1094. End If
  1095. End If
  1096. Loop
  1097. Finally
  1098. If (Not (s1) Is Nothing) Then
  1099. s1.Close
  1100. End If
  1101. If (Not (s2) Is Nothing) Then
  1102. s2.Close
  1103. End If
  1104. End Try
  1105. End If
  1106. xs.Add(dsSchema)
  1107. Return type
  1108. End Function
  1109. End Class
  1110. '''<summary>
  1111. '''Represents strongly named DataRow class.
  1112. '''</summary>
  1113. Partial Public Class ЛюдиRow
  1114. Inherits Global.System.Data.DataRow
  1115. Private tableЛюди As ЛюдиDataTable
  1116. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1117. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1118. Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
  1119. MyBase.New(rb)
  1120. Me.tableЛюди = CType(Me.Table,ЛюдиDataTable)
  1121. End Sub
  1122. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1123. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1124. Public Property Код_клиента() As Integer
  1125. Get
  1126. Return CType(Me(Me.tableЛюди.Код_клиентаColumn),Integer)
  1127. End Get
  1128. Set
  1129. Me(Me.tableЛюди.Код_клиентаColumn) = value
  1130. End Set
  1131. End Property
  1132. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1133. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1134. Public Property ФИО() As String
  1135. Get
  1136. Try
  1137. Return CType(Me(Me.tableЛюди.ФИОColumn),String)
  1138. Catch e As Global.System.InvalidCastException
  1139. Throw New Global.System.Data.StrongTypingException("Значение для столбца 'ФИО' в таблице 'Люди' равно DBNull.", e)
  1140. End Try
  1141. End Get
  1142. Set
  1143. Me(Me.tableЛюди.ФИОColumn) = value
  1144. End Set
  1145. End Property
  1146. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1147. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1148. Public Function IsФИОNull() As Boolean
  1149. Return Me.IsNull(Me.tableЛюди.ФИОColumn)
  1150. End Function
  1151. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1152. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1153. Public Sub SetФИОNull()
  1154. Me(Me.tableЛюди.ФИОColumn) = Global.System.Convert.DBNull
  1155. End Sub
  1156. End Class
  1157. '''<summary>
  1158. '''Represents strongly named DataRow class.
  1159. '''</summary>
  1160. Partial Public Class Список_вакансийRow
  1161. Inherits Global.System.Data.DataRow
  1162. Private tableСписок_вакансий As Список_вакансийDataTable
  1163. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1164. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1165. Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
  1166. MyBase.New(rb)
  1167. Me.tableСписок_вакансий = CType(Me.Table,Список_вакансийDataTable)
  1168. End Sub
  1169. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1170. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1171. Public Property Код_сферы() As Integer
  1172. Get
  1173. Try
  1174. Return CType(Me(Me.tableСписок_вакансий.Код_сферыColumn),Integer)
  1175. Catch e As Global.System.InvalidCastException
  1176. Throw New Global.System.Data.StrongTypingException("Значение для столбца 'Код_сферы' в таблице 'Список_вакансий' равно DBNull.", e)
  1177. End Try
  1178. End Get
  1179. Set
  1180. Me(Me.tableСписок_вакансий.Код_сферыColumn) = value
  1181. End Set
  1182. End Property
  1183. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1184. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1185. Public Property Должность() As String
  1186. Get
  1187. Try
  1188. Return CType(Me(Me.tableСписок_вакансий.ДолжностьColumn),String)
  1189. Catch e As Global.System.InvalidCastException
  1190. Throw New Global.System.Data.StrongTypingException("Значение для столбца 'Должность' в таблице 'Список_вакансий' равно DBNull.", e)
  1191. End Try
  1192. End Get
  1193. Set
  1194. Me(Me.tableСписок_вакансий.ДолжностьColumn) = value
  1195. End Set
  1196. End Property
  1197. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1198. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1199. Public Property Оклад() As Integer
  1200. Get
  1201. Try
  1202. Return CType(Me(Me.tableСписок_вакансий.ОкладColumn),Integer)
  1203. Catch e As Global.System.InvalidCastException
  1204. Throw New Global.System.Data.StrongTypingException("Значение для столбца 'Оклад' в таблице 'Список_вакансий' равно DBNull.", e)
  1205. End Try
  1206. End Get
  1207. Set
  1208. Me(Me.tableСписок_вакансий.ОкладColumn) = value
  1209. End Set
  1210. End Property
  1211. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1212. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1213. Public Property Требования_к_соискателю() As String
  1214. Get
  1215. Try
  1216. Return CType(Me(Me.tableСписок_вакансий.Требования_к_соискателюColumn),String)
  1217. Catch e As Global.System.InvalidCastException
  1218. Throw New Global.System.Data.StrongTypingException("Значение для столбца 'Требования_к_соискателю' в таблице 'Список_вакансий' равно "& _
  1219. "DBNull.", e)
  1220. End Try
  1221. End Get
  1222. Set
  1223. Me(Me.tableСписок_вакансий.Требования_к_соискателюColumn) = value
  1224. End Set
  1225. End Property
  1226. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1227. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1228. Public Property Работодатель() As String
  1229. Get
  1230. Try
  1231. Return CType(Me(Me.tableСписок_вакансий.РаботодательColumn),String)
  1232. Catch e As Global.System.InvalidCastException
  1233. Throw New Global.System.Data.StrongTypingException("Значение для столбца 'Работодатель' в таблице 'Список_вакансий' равно DBNull.", e)
  1234. End Try
  1235. End Get
  1236. Set
  1237. Me(Me.tableСписок_вакансий.РаботодательColumn) = value
  1238. End Set
  1239. End Property
  1240. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1241. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1242. Public Property Контактный_номер() As Double
  1243. Get
  1244. Return CType(Me(Me.tableСписок_вакансий.Контактный_номерColumn),Double)
  1245. End Get
  1246. Set
  1247. Me(Me.tableСписок_вакансий.Контактный_номерColumn) = value
  1248. End Set
  1249. End Property
  1250. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1251. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1252. Public Property Код_вакансии() As Integer
  1253. Get
  1254. Return CType(Me(Me.tableСписок_вакансий.Код_вакансииColumn),Integer)
  1255. End Get
  1256. Set
  1257. Me(Me.tableСписок_вакансий.Код_вакансииColumn) = value
  1258. End Set
  1259. End Property
  1260. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1261. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1262. Public Property Сферы_деятельностиRow() As Сферы_деятельностиRow
  1263. Get
  1264. Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Список_вакансий_Сферы_деятельности")),Сферы_деятельностиRow)
  1265. End Get
  1266. Set
  1267. Me.SetParentRow(value, Me.Table.ParentRelations("FK_Список_вакансий_Сферы_деятельности"))
  1268. End Set
  1269. End Property
  1270. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1271. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1272. Public Function IsКод_сферыNull() As Boolean
  1273. Return Me.IsNull(Me.tableСписок_вакансий.Код_сферыColumn)
  1274. End Function
  1275. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1276. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1277. Public Sub SetКод_сферыNull()
  1278. Me(Me.tableСписок_вакансий.Код_сферыColumn) = Global.System.Convert.DBNull
  1279. End Sub
  1280. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1281. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1282. Public Function IsДолжностьNull() As Boolean
  1283. Return Me.IsNull(Me.tableСписок_вакансий.ДолжностьColumn)
  1284. End Function
  1285. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1286. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1287. Public Sub SetДолжностьNull()
  1288. Me(Me.tableСписок_вакансий.ДолжностьColumn) = Global.System.Convert.DBNull
  1289. End Sub
  1290. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1291. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1292. Public Function IsОкладNull() As Boolean
  1293. Return Me.IsNull(Me.tableСписок_вакансий.ОкладColumn)
  1294. End Function
  1295. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1296. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1297. Public Sub SetОкладNull()
  1298. Me(Me.tableСписок_вакансий.ОкладColumn) = Global.System.Convert.DBNull
  1299. End Sub
  1300. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1301. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1302. Public Function IsТребования_к_соискателюNull() As Boolean
  1303. Return Me.IsNull(Me.tableСписок_вакансий.Требования_к_соискателюColumn)
  1304. End Function
  1305. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1306. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1307. Public Sub SetТребования_к_соискателюNull()
  1308. Me(Me.tableСписок_вакансий.Требования_к_соискателюColumn) = Global.System.Convert.DBNull
  1309. End Sub
  1310. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1311. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1312. Public Function IsРаботодательNull() As Boolean
  1313. Return Me.IsNull(Me.tableСписок_вакансий.РаботодательColumn)
  1314. End Function
  1315. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1316. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1317. Public Sub SetРаботодательNull()
  1318. Me(Me.tableСписок_вакансий.РаботодательColumn) = Global.System.Convert.DBNull
  1319. End Sub
  1320. End Class
  1321. '''<summary>
  1322. '''Represents strongly named DataRow class.
  1323. '''</summary>
  1324. Partial Public Class Сферы_деятельностиRow
  1325. Inherits Global.System.Data.DataRow
  1326. Private tableСферы_деятельности As Сферы_деятельностиDataTable
  1327. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1328. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1329. Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
  1330. MyBase.New(rb)
  1331. Me.tableСферы_деятельности = CType(Me.Table,Сферы_деятельностиDataTable)
  1332. End Sub
  1333. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1334. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1335. Public Property Код_сферы() As Integer
  1336. Get
  1337. Return CType(Me(Me.tableСферы_деятельности.Код_сферыColumn),Integer)
  1338. End Get
  1339. Set
  1340. Me(Me.tableСферы_деятельности.Код_сферыColumn) = value
  1341. End Set
  1342. End Property
  1343. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1344. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1345. Public Property Сфера_деятельности() As String
  1346. Get
  1347. Try
  1348. Return CType(Me(Me.tableСферы_деятельности.Сфера_деятельностиColumn),String)
  1349. Catch e As Global.System.InvalidCastException
  1350. Throw New Global.System.Data.StrongTypingException("Значение для столбца 'Сфера_деятельности' в таблице 'Сферы_деятельности' равно DB"& _
  1351. "Null.", e)
  1352. End Try
  1353. End Get
  1354. Set
  1355. Me(Me.tableСферы_деятельности.Сфера_деятельностиColumn) = value
  1356. End Set
  1357. End Property
  1358. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1359. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1360. Public Function IsСфера_деятельностиNull() As Boolean
  1361. Return Me.IsNull(Me.tableСферы_деятельности.Сфера_деятельностиColumn)
  1362. End Function
  1363. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1364. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1365. Public Sub SetСфера_деятельностиNull()
  1366. Me(Me.tableСферы_деятельности.Сфера_деятельностиColumn) = Global.System.Convert.DBNull
  1367. End Sub
  1368. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1369. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1370. Public Function GetСписок_вакансийRows() As Список_вакансийRow()
  1371. If (Me.Table.ChildRelations("FK_Список_вакансий_Сферы_деятельности") Is Nothing) Then
  1372. Return New Список_вакансийRow(-1) {}
  1373. Else
  1374. Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Список_вакансий_Сферы_деятельности")),Список_вакансийRow())
  1375. End If
  1376. End Function
  1377. End Class
  1378. '''<summary>
  1379. '''Row event argument class
  1380. '''</summary>
  1381. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1382. Public Class ЛюдиRowChangeEvent
  1383. Inherits Global.System.EventArgs
  1384. Private eventRow As ЛюдиRow
  1385. Private eventAction As Global.System.Data.DataRowAction
  1386. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1387. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1388. Public Sub New(ByVal row As ЛюдиRow, ByVal action As Global.System.Data.DataRowAction)
  1389. MyBase.New
  1390. Me.eventRow = row
  1391. Me.eventAction = action
  1392. End Sub
  1393. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1394. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1395. Public ReadOnly Property Row() As ЛюдиRow
  1396. Get
  1397. Return Me.eventRow
  1398. End Get
  1399. End Property
  1400. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1401. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1402. Public ReadOnly Property Action() As Global.System.Data.DataRowAction
  1403. Get
  1404. Return Me.eventAction
  1405. End Get
  1406. End Property
  1407. End Class
  1408. '''<summary>
  1409. '''Row event argument class
  1410. '''</summary>
  1411. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1412. Public Class Список_вакансийRowChangeEvent
  1413. Inherits Global.System.EventArgs
  1414. Private eventRow As Список_вакансийRow
  1415. Private eventAction As Global.System.Data.DataRowAction
  1416. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1417. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1418. Public Sub New(ByVal row As Список_вакансийRow, ByVal action As Global.System.Data.DataRowAction)
  1419. MyBase.New
  1420. Me.eventRow = row
  1421. Me.eventAction = action
  1422. End Sub
  1423. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1424. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1425. Public ReadOnly Property Row() As Список_вакансийRow
  1426. Get
  1427. Return Me.eventRow
  1428. End Get
  1429. End Property
  1430. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1431. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1432. Public ReadOnly Property Action() As Global.System.Data.DataRowAction
  1433. Get
  1434. Return Me.eventAction
  1435. End Get
  1436. End Property
  1437. End Class
  1438. '''<summary>
  1439. '''Row event argument class
  1440. '''</summary>
  1441. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1442. Public Class Сферы_деятельностиRowChangeEvent
  1443. Inherits Global.System.EventArgs
  1444. Private eventRow As Сферы_деятельностиRow
  1445. Private eventAction As Global.System.Data.DataRowAction
  1446. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1447. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1448. Public Sub New(ByVal row As Сферы_деятельностиRow, ByVal action As Global.System.Data.DataRowAction)
  1449. MyBase.New
  1450. Me.eventRow = row
  1451. Me.eventAction = action
  1452. End Sub
  1453. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1454. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1455. Public ReadOnly Property Row() As Сферы_деятельностиRow
  1456. Get
  1457. Return Me.eventRow
  1458. End Get
  1459. End Property
  1460. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1461. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1462. Public ReadOnly Property Action() As Global.System.Data.DataRowAction
  1463. Get
  1464. Return Me.eventAction
  1465. End Get
  1466. End Property
  1467. End Class
  1468. End Class
  1469. Namespace BD_Fam_PostanogovDataSetTableAdapters
  1470. '''<summary>
  1471. '''Represents the connection and commands used to retrieve and save data.
  1472. '''</summary>
  1473. <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
  1474. Global.System.ComponentModel.ToolboxItem(true), _
  1475. Global.System.ComponentModel.DataObjectAttribute(true), _
  1476. Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
  1477. ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
  1478. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  1479. Partial Public Class ЛюдиTableAdapter
  1480. Inherits Global.System.ComponentModel.Component
  1481. Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
  1482. Private _connection As Global.System.Data.SqlClient.SqlConnection
  1483. Private _transaction As Global.System.Data.SqlClient.SqlTransaction
  1484. Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
  1485. Private _clearBeforeFill As Boolean
  1486. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1487. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1488. Public Sub New()
  1489. MyBase.New
  1490. Me.ClearBeforeFill = true
  1491. End Sub
  1492. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1493. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1494. Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
  1495. Get
  1496. If (Me._adapter Is Nothing) Then
  1497. Me.InitAdapter
  1498. End If
  1499. Return Me._adapter
  1500. End Get
  1501. End Property
  1502. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1503. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1504. Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
  1505. Get
  1506. If (Me._connection Is Nothing) Then
  1507. Me.InitConnection
  1508. End If
  1509. Return Me._connection
  1510. End Get
  1511. Set
  1512. Me._connection = value
  1513. If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
  1514. Me.Adapter.InsertCommand.Connection = value
  1515. End If
  1516. If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
  1517. Me.Adapter.DeleteCommand.Connection = value
  1518. End If
  1519. If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
  1520. Me.Adapter.UpdateCommand.Connection = value
  1521. End If
  1522. Dim i As Integer = 0
  1523. Do While (i < Me.CommandCollection.Length)
  1524. If (Not (Me.CommandCollection(i)) Is Nothing) Then
  1525. CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
  1526. End If
  1527. i = (i + 1)
  1528. Loop
  1529. End Set
  1530. End Property
  1531. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1532. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1533. Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
  1534. Get
  1535. Return Me._transaction
  1536. End Get
  1537. Set
  1538. Me._transaction = value
  1539. Dim i As Integer = 0
  1540. Do While (i < Me.CommandCollection.Length)
  1541. Me.CommandCollection(i).Transaction = Me._transaction
  1542. i = (i + 1)
  1543. Loop
  1544. If ((Not (Me.Adapter) Is Nothing) _
  1545. AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
  1546. Me.Adapter.DeleteCommand.Transaction = Me._transaction
  1547. End If
  1548. If ((Not (Me.Adapter) Is Nothing) _
  1549. AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
  1550. Me.Adapter.InsertCommand.Transaction = Me._transaction
  1551. End If
  1552. If ((Not (Me.Adapter) Is Nothing) _
  1553. AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
  1554. Me.Adapter.UpdateCommand.Transaction = Me._transaction
  1555. End If
  1556. End Set
  1557. End Property
  1558. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1559. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1560. Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
  1561. Get
  1562. If (Me._commandCollection Is Nothing) Then
  1563. Me.InitCommandCollection
  1564. End If
  1565. Return Me._commandCollection
  1566. End Get
  1567. End Property
  1568. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1569. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1570. Public Property ClearBeforeFill() As Boolean
  1571. Get
  1572. Return Me._clearBeforeFill
  1573. End Get
  1574. Set
  1575. Me._clearBeforeFill = value
  1576. End Set
  1577. End Property
  1578. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1579. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1580. Private Sub InitAdapter()
  1581. Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
  1582. Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
  1583. tableMapping.SourceTable = "Table"
  1584. tableMapping.DataSetTable = "Люди"
  1585. tableMapping.ColumnMappings.Add("Код_клиента", "Код_клиента")
  1586. tableMapping.ColumnMappings.Add("ФИО", "ФИО")
  1587. Me._adapter.TableMappings.Add(tableMapping)
  1588. Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
  1589. Me._adapter.DeleteCommand.Connection = Me.Connection
  1590. Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Люди] WHERE (([Код_клиента] = @Original_Код_клиента) AND ((@Is"& _
  1591. "Null_ФИО = 1 AND [ФИО] IS NULL) OR ([ФИО] = @Original_ФИО)))"
  1592. Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
  1593. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Код_клиента", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Код_клиента", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1594. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ФИО", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ФИО", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1595. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ФИО", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ФИО", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1596. Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
  1597. Me._adapter.InsertCommand.Connection = Me.Connection
  1598. Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Люди] ([ФИО]) VALUES (@ФИО);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Код_клиента, ФИО FROM Люд"& _
  1599. "и WHERE (Код_клиента = SCOPE_IDENTITY())"
  1600. Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
  1601. Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ФИО", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ФИО", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1602. Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
  1603. Me._adapter.UpdateCommand.Connection = Me.Connection
  1604. Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Люди] SET [ФИО] = @ФИО WHERE (([Код_клиента] = @Original_Код_клиент"& _
  1605. "а) AND ((@IsNull_ФИО = 1 AND [ФИО] IS NULL) OR ([ФИО] = @Original_ФИО)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELEC"& _
  1606. "T Код_клиента, ФИО FROM Люди WHERE (Код_клиента = @Код_клиента)"
  1607. Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
  1608. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ФИО", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ФИО", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1609. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Код_клиента", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Код_клиента", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1610. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ФИО", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ФИО", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1611. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ФИО", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ФИО", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1612. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Код_клиента", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Код_клиента", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1613. End Sub
  1614. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1615. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1616. Private Sub InitConnection()
  1617. Me._connection = New Global.System.Data.SqlClient.SqlConnection()
  1618. Me._connection.ConnectionString = Global.Example.My.MySettings.Default.BD_Fam_PostanogovConnectionString
  1619. End Sub
  1620. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1621. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1622. Private Sub InitCommandCollection()
  1623. Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
  1624. Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
  1625. Me._commandCollection(0).Connection = Me.Connection
  1626. Me._commandCollection(0).CommandText = "SELECT Код_клиента, ФИО FROM dbo.Люди"
  1627. Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
  1628. End Sub
  1629. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1630. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  1631. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  1632. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
  1633. Public Overloads Overridable Function Fill(ByVal dataTable As BD_Fam_PostanogovDataSet.ЛюдиDataTable) As Integer
  1634. Me.Adapter.SelectCommand = Me.CommandCollection(0)
  1635. If (Me.ClearBeforeFill = true) Then
  1636. dataTable.Clear
  1637. End If
  1638. Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
  1639. Return returnValue
  1640. End Function
  1641. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1642. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  1643. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  1644. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
  1645. Public Overloads Overridable Function GetData() As BD_Fam_PostanogovDataSet.ЛюдиDataTable
  1646. Me.Adapter.SelectCommand = Me.CommandCollection(0)
  1647. Dim dataTable As BD_Fam_PostanogovDataSet.ЛюдиDataTable = New BD_Fam_PostanogovDataSet.ЛюдиDataTable()
  1648. Me.Adapter.Fill(dataTable)
  1649. Return dataTable
  1650. End Function
  1651. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1652. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  1653. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  1654. Public Overloads Overridable Function Update(ByVal dataTable As BD_Fam_PostanogovDataSet.ЛюдиDataTable) As Integer
  1655. Return Me.Adapter.Update(dataTable)
  1656. End Function
  1657. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1658. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  1659. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  1660. Public Overloads Overridable Function Update(ByVal dataSet As BD_Fam_PostanogovDataSet) As Integer
  1661. Return Me.Adapter.Update(dataSet, "Люди")
  1662. End Function
  1663. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1664. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  1665. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  1666. Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
  1667. Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
  1668. End Function
  1669. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1670. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  1671. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  1672. Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
  1673. Return Me.Adapter.Update(dataRows)
  1674. End Function
  1675. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1676. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  1677. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  1678. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
  1679. Public Overloads Overridable Function Delete(ByVal Original_Код_клиента As Integer, ByVal Original_ФИО As String) As Integer
  1680. Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Код_клиента,Integer)
  1681. If (Original_ФИО Is Nothing) Then
  1682. Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
  1683. Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
  1684. Else
  1685. Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
  1686. Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ФИО,String)
  1687. End If
  1688. Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
  1689. If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
  1690. <> Global.System.Data.ConnectionState.Open) Then
  1691. Me.Adapter.DeleteCommand.Connection.Open
  1692. End If
  1693. Try
  1694. Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
  1695. Return returnValue
  1696. Finally
  1697. If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
  1698. Me.Adapter.DeleteCommand.Connection.Close
  1699. End If
  1700. End Try
  1701. End Function
  1702. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1703. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  1704. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  1705. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
  1706. Public Overloads Overridable Function Insert(ByVal ФИО As String) As Integer
  1707. If (ФИО Is Nothing) Then
  1708. Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
  1709. Else
  1710. Me.Adapter.InsertCommand.Parameters(0).Value = CType(ФИО,String)
  1711. End If
  1712. Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
  1713. If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
  1714. <> Global.System.Data.ConnectionState.Open) Then
  1715. Me.Adapter.InsertCommand.Connection.Open
  1716. End If
  1717. Try
  1718. Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
  1719. Return returnValue
  1720. Finally
  1721. If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
  1722. Me.Adapter.InsertCommand.Connection.Close
  1723. End If
  1724. End Try
  1725. End Function
  1726. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1727. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  1728. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  1729. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
  1730. Public Overloads Overridable Function Update(ByVal ФИО As String, ByVal Original_Код_клиента As Integer, ByVal Original_ФИО As String, ByVal Код_клиента As Integer) As Integer
  1731. If (ФИО Is Nothing) Then
  1732. Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
  1733. Else
  1734. Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ФИО,String)
  1735. End If
  1736. Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_Код_клиента,Integer)
  1737. If (Original_ФИО Is Nothing) Then
  1738. Me.Adapter.UpdateCommand.Parameters(2).Value = CType(1,Object)
  1739. Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
  1740. Else
  1741. Me.Adapter.UpdateCommand.Parameters(2).Value = CType(0,Object)
  1742. Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_ФИО,String)
  1743. End If
  1744. Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Код_клиента,Integer)
  1745. Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
  1746. If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
  1747. <> Global.System.Data.ConnectionState.Open) Then
  1748. Me.Adapter.UpdateCommand.Connection.Open
  1749. End If
  1750. Try
  1751. Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
  1752. Return returnValue
  1753. Finally
  1754. If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
  1755. Me.Adapter.UpdateCommand.Connection.Close
  1756. End If
  1757. End Try
  1758. End Function
  1759. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1760. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  1761. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  1762. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
  1763. Public Overloads Overridable Function Update(ByVal ФИО As String, ByVal Original_Код_клиента As Integer, ByVal Original_ФИО As String) As Integer
  1764. Return Me.Update(ФИО, Original_Код_клиента, Original_ФИО, Original_Код_клиента)
  1765. End Function
  1766. End Class
  1767. '''<summary>
  1768. '''Represents the connection and commands used to retrieve and save data.
  1769. '''</summary>
  1770. <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
  1771. Global.System.ComponentModel.ToolboxItem(true), _
  1772. Global.System.ComponentModel.DataObjectAttribute(true), _
  1773. Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
  1774. ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
  1775. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  1776. Partial Public Class Список_вакансийTableAdapter
  1777. Inherits Global.System.ComponentModel.Component
  1778. Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
  1779. Private _connection As Global.System.Data.SqlClient.SqlConnection
  1780. Private _transaction As Global.System.Data.SqlClient.SqlTransaction
  1781. Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
  1782. Private _clearBeforeFill As Boolean
  1783. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1784. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1785. Public Sub New()
  1786. MyBase.New
  1787. Me.ClearBeforeFill = true
  1788. End Sub
  1789. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1790. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1791. Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
  1792. Get
  1793. If (Me._adapter Is Nothing) Then
  1794. Me.InitAdapter
  1795. End If
  1796. Return Me._adapter
  1797. End Get
  1798. End Property
  1799. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1800. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1801. Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
  1802. Get
  1803. If (Me._connection Is Nothing) Then
  1804. Me.InitConnection
  1805. End If
  1806. Return Me._connection
  1807. End Get
  1808. Set
  1809. Me._connection = value
  1810. If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
  1811. Me.Adapter.InsertCommand.Connection = value
  1812. End If
  1813. If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
  1814. Me.Adapter.DeleteCommand.Connection = value
  1815. End If
  1816. If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
  1817. Me.Adapter.UpdateCommand.Connection = value
  1818. End If
  1819. Dim i As Integer = 0
  1820. Do While (i < Me.CommandCollection.Length)
  1821. If (Not (Me.CommandCollection(i)) Is Nothing) Then
  1822. CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
  1823. End If
  1824. i = (i + 1)
  1825. Loop
  1826. End Set
  1827. End Property
  1828. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1829. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1830. Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
  1831. Get
  1832. Return Me._transaction
  1833. End Get
  1834. Set
  1835. Me._transaction = value
  1836. Dim i As Integer = 0
  1837. Do While (i < Me.CommandCollection.Length)
  1838. Me.CommandCollection(i).Transaction = Me._transaction
  1839. i = (i + 1)
  1840. Loop
  1841. If ((Not (Me.Adapter) Is Nothing) _
  1842. AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
  1843. Me.Adapter.DeleteCommand.Transaction = Me._transaction
  1844. End If
  1845. If ((Not (Me.Adapter) Is Nothing) _
  1846. AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
  1847. Me.Adapter.InsertCommand.Transaction = Me._transaction
  1848. End If
  1849. If ((Not (Me.Adapter) Is Nothing) _
  1850. AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
  1851. Me.Adapter.UpdateCommand.Transaction = Me._transaction
  1852. End If
  1853. End Set
  1854. End Property
  1855. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1856. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1857. Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
  1858. Get
  1859. If (Me._commandCollection Is Nothing) Then
  1860. Me.InitCommandCollection
  1861. End If
  1862. Return Me._commandCollection
  1863. End Get
  1864. End Property
  1865. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1866. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1867. Public Property ClearBeforeFill() As Boolean
  1868. Get
  1869. Return Me._clearBeforeFill
  1870. End Get
  1871. Set
  1872. Me._clearBeforeFill = value
  1873. End Set
  1874. End Property
  1875. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1876. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1877. Private Sub InitAdapter()
  1878. Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
  1879. Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
  1880. tableMapping.SourceTable = "Table"
  1881. tableMapping.DataSetTable = "Список_вакансий"
  1882. tableMapping.ColumnMappings.Add("Код_сферы", "Код_сферы")
  1883. tableMapping.ColumnMappings.Add("Должность", "Должность")
  1884. tableMapping.ColumnMappings.Add("Оклад", "Оклад")
  1885. tableMapping.ColumnMappings.Add("Требования_к_соискателю", "Требования_к_соискателю")
  1886. tableMapping.ColumnMappings.Add("Работодатель", "Работодатель")
  1887. tableMapping.ColumnMappings.Add("Контактный_номер", "Контактный_номер")
  1888. tableMapping.ColumnMappings.Add("Код_вакансии", "Код_вакансии")
  1889. Me._adapter.TableMappings.Add(tableMapping)
  1890. Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
  1891. Me._adapter.DeleteCommand.Connection = Me.Connection
  1892. Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Список_вакансий] WHERE (((@IsNull_Код_сферы = 1 AND [Код_сферы"& _
  1893. "] IS NULL) OR ([Код_сферы] = @Original_Код_сферы)) AND ((@IsNull_Должность = 1 A"& _
  1894. "ND [Должность] IS NULL) OR ([Должность] = @Original_Должность)) AND ((@IsNull_Ок"& _
  1895. "лад = 1 AND [Оклад] IS NULL) OR ([Оклад] = @Original_Оклад)) AND ((@IsNull_Требо"& _
  1896. "вания_к_соискателю = 1 AND [Требования_к_соискателю] IS NULL) OR ([Требования_к_"& _
  1897. "соискателю] = @Original_Требования_к_соискателю)) AND ((@IsNull_Работодатель = 1"& _
  1898. " AND [Работодатель] IS NULL) OR ([Работодатель] = @Original_Работодатель)) AND ("& _
  1899. "[Контактный_номер] = @Original_Контактный_номер) AND ([Код_вакансии] = @Original"& _
  1900. "_Код_вакансии))"
  1901. Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
  1902. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Код_сферы", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Код_сферы", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1903. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Код_сферы", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Код_сферы", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1904. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Должность", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Должность", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1905. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Должность", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Должность", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1906. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Оклад", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Оклад", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1907. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Оклад", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Оклад", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1908. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Требования_к_соискателю", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Требования_к_соискателю", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1909. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Требования_к_соискателю", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Требования_к_соискателю", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1910. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Работодатель", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Работодатель", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1911. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Работодатель", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Работодатель", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1912. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Контактный_номер", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Контактный_номер", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1913. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Код_вакансии", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Код_вакансии", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1914. Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
  1915. Me._adapter.InsertCommand.Connection = Me.Connection
  1916. Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Список_вакансий] ([Код_сферы], [Должность], [Оклад], [Требован"& _
  1917. "ия_к_соискателю], [Работодатель], [Контактный_номер]) VALUES (@Код_сферы, @Должн"& _
  1918. "ость, @Оклад, @Требования_к_соискателю, @Работодатель, @Контактный_номер);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELE"& _
  1919. "CT Код_сферы, Должность, Оклад, Требования_к_соискателю, Работодатель, Контактны"& _
  1920. "й_номер, Код_вакансии FROM Список_вакансий WHERE (Код_вакансии = SCOPE_IDENTITY("& _
  1921. "))"
  1922. Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
  1923. Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Код_сферы", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Код_сферы", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1924. Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Должность", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Должность", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1925. Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Оклад", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Оклад", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1926. Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Требования_к_соискателю", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Требования_к_соискателю", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1927. Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Работодатель", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Работодатель", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1928. Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Контактный_номер", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Контактный_номер", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1929. Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
  1930. Me._adapter.UpdateCommand.Connection = Me.Connection
  1931. Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Список_вакансий] SET [Код_сферы] = @Код_сферы, [Должность] = @Должн"& _
  1932. "ость, [Оклад] = @Оклад, [Требования_к_соискателю] = @Требования_к_соискателю, [Р"& _
  1933. "аботодатель] = @Работодатель, [Контактный_номер] = @Контактный_номер WHERE (((@I"& _
  1934. "sNull_Код_сферы = 1 AND [Код_сферы] IS NULL) OR ([Код_сферы] = @Original_Код_сфе"& _
  1935. "ры)) AND ((@IsNull_Должность = 1 AND [Должность] IS NULL) OR ([Должность] = @Ori"& _
  1936. "ginal_Должность)) AND ((@IsNull_Оклад = 1 AND [Оклад] IS NULL) OR ([Оклад] = @Or"& _
  1937. "iginal_Оклад)) AND ((@IsNull_Требования_к_соискателю = 1 AND [Требования_к_соиск"& _
  1938. "ателю] IS NULL) OR ([Требования_к_соискателю] = @Original_Требования_к_соискател"& _
  1939. "ю)) AND ((@IsNull_Работодатель = 1 AND [Работодатель] IS NULL) OR ([Работодатель"& _
  1940. "] = @Original_Работодатель)) AND ([Контактный_номер] = @Original_Контактный_номе"& _
  1941. "р) AND ([Код_вакансии] = @Original_Код_вакансии));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Код_сферы, Должность,"& _
  1942. " Оклад, Требования_к_соискателю, Работодатель, Контактный_номер, Код_вакансии FR"& _
  1943. "OM Список_вакансий WHERE (Код_вакансии = @Код_вакансии)"
  1944. Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
  1945. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Код_сферы", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Код_сферы", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1946. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Должность", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Должность", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1947. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Оклад", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Оклад", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1948. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Требования_к_соискателю", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Требования_к_соискателю", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1949. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Работодатель", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Работодатель", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1950. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Контактный_номер", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Контактный_номер", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1951. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Код_сферы", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Код_сферы", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1952. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Код_сферы", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Код_сферы", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1953. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Должность", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Должность", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1954. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Должность", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Должность", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1955. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Оклад", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Оклад", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1956. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Оклад", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Оклад", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1957. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Требования_к_соискателю", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Требования_к_соискателю", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1958. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Требования_к_соискателю", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Требования_к_соискателю", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1959. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Работодатель", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Работодатель", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  1960. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Работодатель", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Работодатель", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1961. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Контактный_номер", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Контактный_номер", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1962. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Код_вакансии", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Код_вакансии", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  1963. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Код_вакансии", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Код_вакансии", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  1964. End Sub
  1965. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1966. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1967. Private Sub InitConnection()
  1968. Me._connection = New Global.System.Data.SqlClient.SqlConnection()
  1969. Me._connection.ConnectionString = Global.Example.My.MySettings.Default.BD_Fam_PostanogovConnectionString
  1970. End Sub
  1971. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1972. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  1973. Private Sub InitCommandCollection()
  1974. Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
  1975. Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
  1976. Me._commandCollection(0).Connection = Me.Connection
  1977. Me._commandCollection(0).CommandText = "SELECT Код_сферы, Должность, Оклад, Требования_к_соискателю, Работодатель, Контак"& _
  1978. "тный_номер, Код_вакансии FROM dbo.Список_вакансий"
  1979. Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
  1980. End Sub
  1981. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1982. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  1983. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  1984. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
  1985. Public Overloads Overridable Function Fill(ByVal dataTable As BD_Fam_PostanogovDataSet.Список_вакансийDataTable) As Integer
  1986. Me.Adapter.SelectCommand = Me.CommandCollection(0)
  1987. If (Me.ClearBeforeFill = true) Then
  1988. dataTable.Clear
  1989. End If
  1990. Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
  1991. Return returnValue
  1992. End Function
  1993. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  1994. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  1995. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  1996. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
  1997. Public Overloads Overridable Function GetData() As BD_Fam_PostanogovDataSet.Список_вакансийDataTable
  1998. Me.Adapter.SelectCommand = Me.CommandCollection(0)
  1999. Dim dataTable As BD_Fam_PostanogovDataSet.Список_вакансийDataTable = New BD_Fam_PostanogovDataSet.Список_вакансийDataTable()
  2000. Me.Adapter.Fill(dataTable)
  2001. Return dataTable
  2002. End Function
  2003. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2004. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  2005. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  2006. Public Overloads Overridable Function Update(ByVal dataTable As BD_Fam_PostanogovDataSet.Список_вакансийDataTable) As Integer
  2007. Return Me.Adapter.Update(dataTable)
  2008. End Function
  2009. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2010. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  2011. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  2012. Public Overloads Overridable Function Update(ByVal dataSet As BD_Fam_PostanogovDataSet) As Integer
  2013. Return Me.Adapter.Update(dataSet, "Список_вакансий")
  2014. End Function
  2015. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2016. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  2017. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  2018. Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
  2019. Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
  2020. End Function
  2021. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2022. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  2023. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  2024. Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
  2025. Return Me.Adapter.Update(dataRows)
  2026. End Function
  2027. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2028. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  2029. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2030. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
  2031. Public Overloads Overridable Function Delete(ByVal Original_Код_сферы As Global.System.Nullable(Of Integer), ByVal Original_Должность As String, ByVal Original_Оклад As Global.System.Nullable(Of Integer), ByVal Original_Требования_к_соискателю As String, ByVal Original_Работодатель As String, ByVal Original_Контактный_номер As Double, ByVal Original_Код_вакансии As Integer) As Integer
  2032. If (Original_Код_сферы.HasValue = true) Then
  2033. Me.Adapter.DeleteCommand.Parameters(0).Value = CType(0,Object)
  2034. Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Код_сферы.Value,Integer)
  2035. Else
  2036. Me.Adapter.DeleteCommand.Parameters(0).Value = CType(1,Object)
  2037. Me.Adapter.DeleteCommand.Parameters(1).Value = Global.System.DBNull.Value
  2038. End If
  2039. If (Original_Должность Is Nothing) Then
  2040. Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object)
  2041. Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value
  2042. Else
  2043. Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object)
  2044. Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Должность,String)
  2045. End If
  2046. If (Original_Оклад.HasValue = true) Then
  2047. Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object)
  2048. Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Оклад.Value,Integer)
  2049. Else
  2050. Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object)
  2051. Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value
  2052. End If
  2053. If (Original_Требования_к_соискателю Is Nothing) Then
  2054. Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object)
  2055. Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value
  2056. Else
  2057. Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object)
  2058. Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_Требования_к_соискателю,String)
  2059. End If
  2060. If (Original_Работодатель Is Nothing) Then
  2061. Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object)
  2062. Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value
  2063. Else
  2064. Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object)
  2065. Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_Работодатель,String)
  2066. End If
  2067. Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Контактный_номер,Double)
  2068. Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_Код_вакансии,Integer)
  2069. Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
  2070. If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
  2071. <> Global.System.Data.ConnectionState.Open) Then
  2072. Me.Adapter.DeleteCommand.Connection.Open
  2073. End If
  2074. Try
  2075. Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
  2076. Return returnValue
  2077. Finally
  2078. If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
  2079. Me.Adapter.DeleteCommand.Connection.Close
  2080. End If
  2081. End Try
  2082. End Function
  2083. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2084. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  2085. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2086. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
  2087. Public Overloads Overridable Function Insert(ByVal Код_сферы As Global.System.Nullable(Of Integer), ByVal Должность As String, ByVal Оклад As Global.System.Nullable(Of Integer), ByVal Требования_к_соискателю As String, ByVal Работодатель As String, ByVal Контактный_номер As Double) As Integer
  2088. If (Код_сферы.HasValue = true) Then
  2089. Me.Adapter.InsertCommand.Parameters(0).Value = CType(Код_сферы.Value,Integer)
  2090. Else
  2091. Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
  2092. End If
  2093. If (Должность Is Nothing) Then
  2094. Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
  2095. Else
  2096. Me.Adapter.InsertCommand.Parameters(1).Value = CType(Должность,String)
  2097. End If
  2098. If (Оклад.HasValue = true) Then
  2099. Me.Adapter.InsertCommand.Parameters(2).Value = CType(Оклад.Value,Integer)
  2100. Else
  2101. Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
  2102. End If
  2103. If (Требования_к_соискателю Is Nothing) Then
  2104. Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
  2105. Else
  2106. Me.Adapter.InsertCommand.Parameters(3).Value = CType(Требования_к_соискателю,String)
  2107. End If
  2108. If (Работодатель Is Nothing) Then
  2109. Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
  2110. Else
  2111. Me.Adapter.InsertCommand.Parameters(4).Value = CType(Работодатель,String)
  2112. End If
  2113. Me.Adapter.InsertCommand.Parameters(5).Value = CType(Контактный_номер,Double)
  2114. Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
  2115. If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
  2116. <> Global.System.Data.ConnectionState.Open) Then
  2117. Me.Adapter.InsertCommand.Connection.Open
  2118. End If
  2119. Try
  2120. Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
  2121. Return returnValue
  2122. Finally
  2123. If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
  2124. Me.Adapter.InsertCommand.Connection.Close
  2125. End If
  2126. End Try
  2127. End Function
  2128. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2129. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  2130. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2131. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
  2132. Public Overloads Overridable Function Update(ByVal Код_сферы As Global.System.Nullable(Of Integer), ByVal Должность As String, ByVal Оклад As Global.System.Nullable(Of Integer), ByVal Требования_к_соискателю As String, ByVal Работодатель As String, ByVal Контактный_номер As Double, ByVal Original_Код_сферы As Global.System.Nullable(Of Integer), ByVal Original_Должность As String, ByVal Original_Оклад As Global.System.Nullable(Of Integer), ByVal Original_Требования_к_соискателю As String, ByVal Original_Работодатель As String, ByVal Original_Контактный_номер As Double, ByVal Original_Код_вакансии As Integer, ByVal Код_вакансии As Integer) As Integer
  2133. If (Код_сферы.HasValue = true) Then
  2134. Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Код_сферы.Value,Integer)
  2135. Else
  2136. Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
  2137. End If
  2138. If (Должность Is Nothing) Then
  2139. Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
  2140. Else
  2141. Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Должность,String)
  2142. End If
  2143. If (Оклад.HasValue = true) Then
  2144. Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Оклад.Value,Integer)
  2145. Else
  2146. Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
  2147. End If
  2148. If (Требования_к_соискателю Is Nothing) Then
  2149. Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
  2150. Else
  2151. Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Требования_к_соискателю,String)
  2152. End If
  2153. If (Работодатель Is Nothing) Then
  2154. Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
  2155. Else
  2156. Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Работодатель,String)
  2157. End If
  2158. Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Контактный_номер,Double)
  2159. If (Original_Код_сферы.HasValue = true) Then
  2160. Me.Adapter.UpdateCommand.Parameters(6).Value = CType(0,Object)
  2161. Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_Код_сферы.Value,Integer)
  2162. Else
  2163. Me.Adapter.UpdateCommand.Parameters(6).Value = CType(1,Object)
  2164. Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
  2165. End If
  2166. If (Original_Должность Is Nothing) Then
  2167. Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object)
  2168. Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
  2169. Else
  2170. Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object)
  2171. Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Должность,String)
  2172. End If
  2173. If (Original_Оклад.HasValue = true) Then
  2174. Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object)
  2175. Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_Оклад.Value,Integer)
  2176. Else
  2177. Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object)
  2178. Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
  2179. End If
  2180. If (Original_Требования_к_соискателю Is Nothing) Then
  2181. Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)
  2182. Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
  2183. Else
  2184. Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)
  2185. Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_Требования_к_соискателю,String)
  2186. End If
  2187. If (Original_Работодатель Is Nothing) Then
  2188. Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
  2189. Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
  2190. Else
  2191. Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
  2192. Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_Работодатель,String)
  2193. End If
  2194. Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_Контактный_номер,Double)
  2195. Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Код_вакансии,Integer)
  2196. Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Код_вакансии,Integer)
  2197. Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
  2198. If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
  2199. <> Global.System.Data.ConnectionState.Open) Then
  2200. Me.Adapter.UpdateCommand.Connection.Open
  2201. End If
  2202. Try
  2203. Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
  2204. Return returnValue
  2205. Finally
  2206. If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
  2207. Me.Adapter.UpdateCommand.Connection.Close
  2208. End If
  2209. End Try
  2210. End Function
  2211. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2212. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  2213. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2214. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
  2215. Public Overloads Overridable Function Update(ByVal Код_сферы As Global.System.Nullable(Of Integer), ByVal Должность As String, ByVal Оклад As Global.System.Nullable(Of Integer), ByVal Требования_к_соискателю As String, ByVal Работодатель As String, ByVal Контактный_номер As Double, ByVal Original_Код_сферы As Global.System.Nullable(Of Integer), ByVal Original_Должность As String, ByVal Original_Оклад As Global.System.Nullable(Of Integer), ByVal Original_Требования_к_соискателю As String, ByVal Original_Работодатель As String, ByVal Original_Контактный_номер As Double, ByVal Original_Код_вакансии As Integer) As Integer
  2216. Return Me.Update(Код_сферы, Должность, Оклад, Требования_к_соискателю, Работодатель, Контактный_номер, Original_Код_сферы, Original_Должность, Original_Оклад, Original_Требования_к_соискателю, Original_Работодатель, Original_Контактный_номер, Original_Код_вакансии, Original_Код_вакансии)
  2217. End Function
  2218. End Class
  2219. '''<summary>
  2220. '''Represents the connection and commands used to retrieve and save data.
  2221. '''</summary>
  2222. <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
  2223. Global.System.ComponentModel.ToolboxItem(true), _
  2224. Global.System.ComponentModel.DataObjectAttribute(true), _
  2225. Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
  2226. ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
  2227. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  2228. Partial Public Class Сферы_деятельностиTableAdapter
  2229. Inherits Global.System.ComponentModel.Component
  2230. Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
  2231. Private _connection As Global.System.Data.SqlClient.SqlConnection
  2232. Private _transaction As Global.System.Data.SqlClient.SqlTransaction
  2233. Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
  2234. Private _clearBeforeFill As Boolean
  2235. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2236. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  2237. Public Sub New()
  2238. MyBase.New
  2239. Me.ClearBeforeFill = true
  2240. End Sub
  2241. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2242. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  2243. Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
  2244. Get
  2245. If (Me._adapter Is Nothing) Then
  2246. Me.InitAdapter
  2247. End If
  2248. Return Me._adapter
  2249. End Get
  2250. End Property
  2251. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2252. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  2253. Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
  2254. Get
  2255. If (Me._connection Is Nothing) Then
  2256. Me.InitConnection
  2257. End If
  2258. Return Me._connection
  2259. End Get
  2260. Set
  2261. Me._connection = value
  2262. If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
  2263. Me.Adapter.InsertCommand.Connection = value
  2264. End If
  2265. If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
  2266. Me.Adapter.DeleteCommand.Connection = value
  2267. End If
  2268. If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
  2269. Me.Adapter.UpdateCommand.Connection = value
  2270. End If
  2271. Dim i As Integer = 0
  2272. Do While (i < Me.CommandCollection.Length)
  2273. If (Not (Me.CommandCollection(i)) Is Nothing) Then
  2274. CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
  2275. End If
  2276. i = (i + 1)
  2277. Loop
  2278. End Set
  2279. End Property
  2280. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2281. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  2282. Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
  2283. Get
  2284. Return Me._transaction
  2285. End Get
  2286. Set
  2287. Me._transaction = value
  2288. Dim i As Integer = 0
  2289. Do While (i < Me.CommandCollection.Length)
  2290. Me.CommandCollection(i).Transaction = Me._transaction
  2291. i = (i + 1)
  2292. Loop
  2293. If ((Not (Me.Adapter) Is Nothing) _
  2294. AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
  2295. Me.Adapter.DeleteCommand.Transaction = Me._transaction
  2296. End If
  2297. If ((Not (Me.Adapter) Is Nothing) _
  2298. AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
  2299. Me.Adapter.InsertCommand.Transaction = Me._transaction
  2300. End If
  2301. If ((Not (Me.Adapter) Is Nothing) _
  2302. AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
  2303. Me.Adapter.UpdateCommand.Transaction = Me._transaction
  2304. End If
  2305. End Set
  2306. End Property
  2307. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2308. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  2309. Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
  2310. Get
  2311. If (Me._commandCollection Is Nothing) Then
  2312. Me.InitCommandCollection
  2313. End If
  2314. Return Me._commandCollection
  2315. End Get
  2316. End Property
  2317. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2318. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  2319. Public Property ClearBeforeFill() As Boolean
  2320. Get
  2321. Return Me._clearBeforeFill
  2322. End Get
  2323. Set
  2324. Me._clearBeforeFill = value
  2325. End Set
  2326. End Property
  2327. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2328. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  2329. Private Sub InitAdapter()
  2330. Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
  2331. Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
  2332. tableMapping.SourceTable = "Table"
  2333. tableMapping.DataSetTable = "Сферы_деятельности"
  2334. tableMapping.ColumnMappings.Add("Код_сферы", "Код_сферы")
  2335. tableMapping.ColumnMappings.Add("Сфера_деятельности", "Сфера_деятельности")
  2336. Me._adapter.TableMappings.Add(tableMapping)
  2337. Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
  2338. Me._adapter.DeleteCommand.Connection = Me.Connection
  2339. Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Сферы_деятельности] WHERE (([Код_сферы] = @Original_Код_сферы)"& _
  2340. " AND ((@IsNull_Сфера_деятельности = 1 AND [Сфера_деятельности] IS NULL) OR ([Сфе"& _
  2341. "ра_деятельности] = @Original_Сфера_деятельности)))"
  2342. Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
  2343. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Код_сферы", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Код_сферы", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  2344. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Сфера_деятельности", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Сфера_деятельности", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  2345. Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Сфера_деятельности", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Сфера_деятельности", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  2346. Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
  2347. Me._adapter.InsertCommand.Connection = Me.Connection
  2348. Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Сферы_деятельности] ([Сфера_деятельности]) VALUES (@Сфера_деят"& _
  2349. "ельности);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Код_сферы, Сфера_деятельности FROM Сферы_деятельности WHERE ("& _
  2350. "Код_сферы = SCOPE_IDENTITY())"
  2351. Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
  2352. Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Сфера_деятельности", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Сфера_деятельности", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  2353. Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
  2354. Me._adapter.UpdateCommand.Connection = Me.Connection
  2355. Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Сферы_деятельности] SET [Сфера_деятельности] = @Сфера_деятельности "& _
  2356. "WHERE (([Код_сферы] = @Original_Код_сферы) AND ((@IsNull_Сфера_деятельности = 1 "& _
  2357. "AND [Сфера_деятельности] IS NULL) OR ([Сфера_деятельности] = @Original_Сфера_дея"& _
  2358. "тельности)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Код_сферы, Сфера_деятельности FROM Сферы_деятельности WHER"& _
  2359. "E (Код_сферы = @Код_сферы)"
  2360. Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
  2361. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Сфера_деятельности", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Сфера_деятельности", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  2362. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Код_сферы", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Код_сферы", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  2363. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Сфера_деятельности", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Сфера_деятельности", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
  2364. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Сфера_деятельности", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Сфера_деятельности", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
  2365. Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Код_сферы", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Код_сферы", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
  2366. End Sub
  2367. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2368. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  2369. Private Sub InitConnection()
  2370. Me._connection = New Global.System.Data.SqlClient.SqlConnection()
  2371. Me._connection.ConnectionString = Global.Example.My.MySettings.Default.BD_Fam_PostanogovConnectionString
  2372. End Sub
  2373. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2374. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  2375. Private Sub InitCommandCollection()
  2376. Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
  2377. Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
  2378. Me._commandCollection(0).Connection = Me.Connection
  2379. Me._commandCollection(0).CommandText = "SELECT Код_сферы, Сфера_деятельности FROM dbo.Сферы_деятельности"
  2380. Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
  2381. End Sub
  2382. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2383. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  2384. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2385. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
  2386. Public Overloads Overridable Function Fill(ByVal dataTable As BD_Fam_PostanogovDataSet.Сферы_деятельностиDataTable) As Integer
  2387. Me.Adapter.SelectCommand = Me.CommandCollection(0)
  2388. If (Me.ClearBeforeFill = true) Then
  2389. dataTable.Clear
  2390. End If
  2391. Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
  2392. Return returnValue
  2393. End Function
  2394. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2395. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  2396. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2397. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
  2398. Public Overloads Overridable Function GetData() As BD_Fam_PostanogovDataSet.Сферы_деятельностиDataTable
  2399. Me.Adapter.SelectCommand = Me.CommandCollection(0)
  2400. Dim dataTable As BD_Fam_PostanogovDataSet.Сферы_деятельностиDataTable = New BD_Fam_PostanogovDataSet.Сферы_деятельностиDataTable()
  2401. Me.Adapter.Fill(dataTable)
  2402. Return dataTable
  2403. End Function
  2404. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2405. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  2406. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  2407. Public Overloads Overridable Function Update(ByVal dataTable As BD_Fam_PostanogovDataSet.Сферы_деятельностиDataTable) As Integer
  2408. Return Me.Adapter.Update(dataTable)
  2409. End Function
  2410. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2411. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  2412. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  2413. Public Overloads Overridable Function Update(ByVal dataSet As BD_Fam_PostanogovDataSet) As Integer
  2414. Return Me.Adapter.Update(dataSet, "Сферы_деятельности")
  2415. End Function
  2416. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2417. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  2418. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  2419. Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
  2420. Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
  2421. End Function
  2422. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2423. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  2424. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
  2425. Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
  2426. Return Me.Adapter.Update(dataRows)
  2427. End Function
  2428. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2429. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  2430. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2431. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
  2432. Public Overloads Overridable Function Delete(ByVal Original_Код_сферы As Integer, ByVal Original_Сфера_деятельности As String) As Integer
  2433. Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Код_сферы,Integer)
  2434. If (Original_Сфера_деятельности Is Nothing) Then
  2435. Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
  2436. Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
  2437. Else
  2438. Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
  2439. Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Сфера_деятельности,String)
  2440. End If
  2441. Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
  2442. If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
  2443. <> Global.System.Data.ConnectionState.Open) Then
  2444. Me.Adapter.DeleteCommand.Connection.Open
  2445. End If
  2446. Try
  2447. Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
  2448. Return returnValue
  2449. Finally
  2450. If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
  2451. Me.Adapter.DeleteCommand.Connection.Close
  2452. End If
  2453. End Try
  2454. End Function
  2455. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2456. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  2457. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2458. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
  2459. Public Overloads Overridable Function Insert(ByVal Сфера_деятельности As String) As Integer
  2460. If (Сфера_деятельности Is Nothing) Then
  2461. Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
  2462. Else
  2463. Me.Adapter.InsertCommand.Parameters(0).Value = CType(Сфера_деятельности,String)
  2464. End If
  2465. Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
  2466. If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
  2467. <> Global.System.Data.ConnectionState.Open) Then
  2468. Me.Adapter.InsertCommand.Connection.Open
  2469. End If
  2470. Try
  2471. Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
  2472. Return returnValue
  2473. Finally
  2474. If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
  2475. Me.Adapter.InsertCommand.Connection.Close
  2476. End If
  2477. End Try
  2478. End Function
  2479. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2480. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  2481. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2482. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
  2483. Public Overloads Overridable Function Update(ByVal Сфера_деятельности As String, ByVal Original_Код_сферы As Integer, ByVal Original_Сфера_деятельности As String, ByVal Код_сферы As Integer) As Integer
  2484. If (Сфера_деятельности Is Nothing) Then
  2485. Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
  2486. Else
  2487. Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Сфера_деятельности,String)
  2488. End If
  2489. Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_Код_сферы,Integer)
  2490. If (Original_Сфера_деятельности Is Nothing) Then
  2491. Me.Adapter.UpdateCommand.Parameters(2).Value = CType(1,Object)
  2492. Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
  2493. Else
  2494. Me.Adapter.UpdateCommand.Parameters(2).Value = CType(0,Object)
  2495. Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_Сфера_деятельности,String)
  2496. End If
  2497. Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Код_сферы,Integer)
  2498. Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
  2499. If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
  2500. <> Global.System.Data.ConnectionState.Open) Then
  2501. Me.Adapter.UpdateCommand.Connection.Open
  2502. End If
  2503. Try
  2504. Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
  2505. Return returnValue
  2506. Finally
  2507. If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
  2508. Me.Adapter.UpdateCommand.Connection.Close
  2509. End If
  2510. End Try
  2511. End Function
  2512. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2513. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  2514. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
  2515. Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
  2516. Public Overloads Overridable Function Update(ByVal Сфера_деятельности As String, ByVal Original_Код_сферы As Integer, ByVal Original_Сфера_деятельности As String) As Integer
  2517. Return Me.Update(Сфера_деятельности, Original_Код_сферы, Original_Сфера_деятельности, Original_Код_сферы)
  2518. End Function
  2519. End Class
  2520. '''<summary>
  2521. '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
  2522. '''</summary>
  2523. <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
  2524. Global.System.ComponentModel.ToolboxItem(true), _
  2525. Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerDesigner, Microsoft.VSD"& _
  2526. "esigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
  2527. Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapterManager")> _
  2528. Partial Public Class TableAdapterManager
  2529. Inherits Global.System.ComponentModel.Component
  2530. Private _updateOrder As UpdateOrderOption
  2531. Private _людиTableAdapter As ЛюдиTableAdapter
  2532. Private _список_вакансийTableAdapter As Список_вакансийTableAdapter
  2533. Private _сферы_деятельностиTableAdapter As Сферы_деятельностиTableAdapter
  2534. Private _backupDataSetBeforeUpdate As Boolean
  2535. Private _connection As Global.System.Data.IDbConnection
  2536. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2537. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  2538. Public Property UpdateOrder() As UpdateOrderOption
  2539. Get
  2540. Return Me._updateOrder
  2541. End Get
  2542. Set
  2543. Me._updateOrder = value
  2544. End Set
  2545. End Property
  2546. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2547. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  2548. Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
  2549. "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
  2550. "a", "System.Drawing.Design.UITypeEditor")> _
  2551. Public Property ЛюдиTableAdapter() As ЛюдиTableAdapter
  2552. Get
  2553. Return Me._людиTableAdapter
  2554. End Get
  2555. Set
  2556. Me._людиTableAdapter = value
  2557. End Set
  2558. End Property
  2559. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2560. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  2561. Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
  2562. "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
  2563. "a", "System.Drawing.Design.UITypeEditor")> _
  2564. Public Property Список_вакансийTableAdapter() As Список_вакансийTableAdapter
  2565. Get
  2566. Return Me._список_вакансийTableAdapter
  2567. End Get
  2568. Set
  2569. Me._список_вакансийTableAdapter = value
  2570. End Set
  2571. End Property
  2572. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2573. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  2574. Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
  2575. "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
  2576. "a", "System.Drawing.Design.UITypeEditor")> _
  2577. Public Property Сферы_деятельностиTableAdapter() As Сферы_деятельностиTableAdapter
  2578. Get
  2579. Return Me._сферы_деятельностиTableAdapter
  2580. End Get
  2581. Set
  2582. Me._сферы_деятельностиTableAdapter = value
  2583. End Set
  2584. End Property
  2585. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2586. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  2587. Public Property BackupDataSetBeforeUpdate() As Boolean
  2588. Get
  2589. Return Me._backupDataSetBeforeUpdate
  2590. End Get
  2591. Set
  2592. Me._backupDataSetBeforeUpdate = value
  2593. End Set
  2594. End Property
  2595. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2596. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  2597. Global.System.ComponentModel.Browsable(false)> _
  2598. Public Property Connection() As Global.System.Data.IDbConnection
  2599. Get
  2600. If (Not (Me._connection) Is Nothing) Then
  2601. Return Me._connection
  2602. End If
  2603. If ((Not (Me._людиTableAdapter) Is Nothing) _
  2604. AndAlso (Not (Me._людиTableAdapter.Connection) Is Nothing)) Then
  2605. Return Me._людиTableAdapter.Connection
  2606. End If
  2607. If ((Not (Me._список_вакансийTableAdapter) Is Nothing) _
  2608. AndAlso (Not (Me._список_вакансийTableAdapter.Connection) Is Nothing)) Then
  2609. Return Me._список_вакансийTableAdapter.Connection
  2610. End If
  2611. If ((Not (Me._сферы_деятельностиTableAdapter) Is Nothing) _
  2612. AndAlso (Not (Me._сферы_деятельностиTableAdapter.Connection) Is Nothing)) Then
  2613. Return Me._сферы_деятельностиTableAdapter.Connection
  2614. End If
  2615. Return Nothing
  2616. End Get
  2617. Set
  2618. Me._connection = value
  2619. End Set
  2620. End Property
  2621. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2622. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
  2623. Global.System.ComponentModel.Browsable(false)> _
  2624. Public ReadOnly Property TableAdapterInstanceCount() As Integer
  2625. Get
  2626. Dim count As Integer = 0
  2627. If (Not (Me._людиTableAdapter) Is Nothing) Then
  2628. count = (count + 1)
  2629. End If
  2630. If (Not (Me._список_вакансийTableAdapter) Is Nothing) Then
  2631. count = (count + 1)
  2632. End If
  2633. If (Not (Me._сферы_деятельностиTableAdapter) Is Nothing) Then
  2634. count = (count + 1)
  2635. End If
  2636. Return count
  2637. End Get
  2638. End Property
  2639. '''<summary>
  2640. '''Update rows in top-down order.
  2641. '''</summary>
  2642. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2643. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  2644. Private Function UpdateUpdatedRows(ByVal dataSet As BD_Fam_PostanogovDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
  2645. Dim result As Integer = 0
  2646. If (Not (Me._сферы_деятельностиTableAdapter) Is Nothing) Then
  2647. Dim updatedRows() As Global.System.Data.DataRow = dataSet.Сферы_деятельности.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
  2648. updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
  2649. If ((Not (updatedRows) Is Nothing) _
  2650. AndAlso (0 < updatedRows.Length)) Then
  2651. result = (result + Me._сферы_деятельностиTableAdapter.Update(updatedRows))
  2652. allChangedRows.AddRange(updatedRows)
  2653. End If
  2654. End If
  2655. If (Not (Me._список_вакансийTableAdapter) Is Nothing) Then
  2656. Dim updatedRows() As Global.System.Data.DataRow = dataSet.Список_вакансий.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
  2657. updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
  2658. If ((Not (updatedRows) Is Nothing) _
  2659. AndAlso (0 < updatedRows.Length)) Then
  2660. result = (result + Me._список_вакансийTableAdapter.Update(updatedRows))
  2661. allChangedRows.AddRange(updatedRows)
  2662. End If
  2663. End If
  2664. If (Not (Me._людиTableAdapter) Is Nothing) Then
  2665. Dim updatedRows() As Global.System.Data.DataRow = dataSet.Люди.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
  2666. updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
  2667. If ((Not (updatedRows) Is Nothing) _
  2668. AndAlso (0 < updatedRows.Length)) Then
  2669. result = (result + Me._людиTableAdapter.Update(updatedRows))
  2670. allChangedRows.AddRange(updatedRows)
  2671. End If
  2672. End If
  2673. Return result
  2674. End Function
  2675. '''<summary>
  2676. '''Insert rows in top-down order.
  2677. '''</summary>
  2678. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2679. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  2680. Private Function UpdateInsertedRows(ByVal dataSet As BD_Fam_PostanogovDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
  2681. Dim result As Integer = 0
  2682. If (Not (Me._сферы_деятельностиTableAdapter) Is Nothing) Then
  2683. Dim addedRows() As Global.System.Data.DataRow = dataSet.Сферы_деятельности.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
  2684. If ((Not (addedRows) Is Nothing) _
  2685. AndAlso (0 < addedRows.Length)) Then
  2686. result = (result + Me._сферы_деятельностиTableAdapter.Update(addedRows))
  2687. allAddedRows.AddRange(addedRows)
  2688. End If
  2689. End If
  2690. If (Not (Me._список_вакансийTableAdapter) Is Nothing) Then
  2691. Dim addedRows() As Global.System.Data.DataRow = dataSet.Список_вакансий.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
  2692. If ((Not (addedRows) Is Nothing) _
  2693. AndAlso (0 < addedRows.Length)) Then
  2694. result = (result + Me._список_вакансийTableAdapter.Update(addedRows))
  2695. allAddedRows.AddRange(addedRows)
  2696. End If
  2697. End If
  2698. If (Not (Me._людиTableAdapter) Is Nothing) Then
  2699. Dim addedRows() As Global.System.Data.DataRow = dataSet.Люди.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
  2700. If ((Not (addedRows) Is Nothing) _
  2701. AndAlso (0 < addedRows.Length)) Then
  2702. result = (result + Me._людиTableAdapter.Update(addedRows))
  2703. allAddedRows.AddRange(addedRows)
  2704. End If
  2705. End If
  2706. Return result
  2707. End Function
  2708. '''<summary>
  2709. '''Delete rows in bottom-up order.
  2710. '''</summary>
  2711. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2712. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  2713. Private Function UpdateDeletedRows(ByVal dataSet As BD_Fam_PostanogovDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
  2714. Dim result As Integer = 0
  2715. If (Not (Me._людиTableAdapter) Is Nothing) Then
  2716. Dim deletedRows() As Global.System.Data.DataRow = dataSet.Люди.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
  2717. If ((Not (deletedRows) Is Nothing) _
  2718. AndAlso (0 < deletedRows.Length)) Then
  2719. result = (result + Me._людиTableAdapter.Update(deletedRows))
  2720. allChangedRows.AddRange(deletedRows)
  2721. End If
  2722. End If
  2723. If (Not (Me._список_вакансийTableAdapter) Is Nothing) Then
  2724. Dim deletedRows() As Global.System.Data.DataRow = dataSet.Список_вакансий.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
  2725. If ((Not (deletedRows) Is Nothing) _
  2726. AndAlso (0 < deletedRows.Length)) Then
  2727. result = (result + Me._список_вакансийTableAdapter.Update(deletedRows))
  2728. allChangedRows.AddRange(deletedRows)
  2729. End If
  2730. End If
  2731. If (Not (Me._сферы_деятельностиTableAdapter) Is Nothing) Then
  2732. Dim deletedRows() As Global.System.Data.DataRow = dataSet.Сферы_деятельности.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
  2733. If ((Not (deletedRows) Is Nothing) _
  2734. AndAlso (0 < deletedRows.Length)) Then
  2735. result = (result + Me._сферы_деятельностиTableAdapter.Update(deletedRows))
  2736. allChangedRows.AddRange(deletedRows)
  2737. End If
  2738. End If
  2739. Return result
  2740. End Function
  2741. '''<summary>
  2742. '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
  2743. '''</summary>
  2744. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2745. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  2746. Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow()
  2747. If ((updatedRows Is Nothing) _
  2748. OrElse (updatedRows.Length < 1)) Then
  2749. Return updatedRows
  2750. End If
  2751. If ((allAddedRows Is Nothing) _
  2752. OrElse (allAddedRows.Count < 1)) Then
  2753. Return updatedRows
  2754. End If
  2755. Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
  2756. Dim i As Integer = 0
  2757. Do While (i < updatedRows.Length)
  2758. Dim row As Global.System.Data.DataRow = updatedRows(i)
  2759. If (allAddedRows.Contains(row) = false) Then
  2760. realUpdatedRows.Add(row)
  2761. End If
  2762. i = (i + 1)
  2763. Loop
  2764. Return realUpdatedRows.ToArray
  2765. End Function
  2766. '''<summary>
  2767. '''Update all changes to the dataset.
  2768. '''</summary>
  2769. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2770. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  2771. Public Overridable Function UpdateAll(ByVal dataSet As BD_Fam_PostanogovDataSet) As Integer
  2772. If (dataSet Is Nothing) Then
  2773. Throw New Global.System.ArgumentNullException("dataSet")
  2774. End If
  2775. If (dataSet.HasChanges = false) Then
  2776. Return 0
  2777. End If
  2778. If ((Not (Me._людиTableAdapter) Is Nothing) _
  2779. AndAlso (Me.MatchTableAdapterConnection(Me._людиTableAdapter.Connection) = false)) Then
  2780. Throw New Global.System.ArgumentException("Все адаптеры таблицы, управляемые диспетчером адаптера таблицы TableAdapterManage"& _
  2781. "r, должны использовать одинаковую строку подключения.")
  2782. End If
  2783. If ((Not (Me._список_вакансийTableAdapter) Is Nothing) _
  2784. AndAlso (Me.MatchTableAdapterConnection(Me._список_вакансийTableAdapter.Connection) = false)) Then
  2785. Throw New Global.System.ArgumentException("Все адаптеры таблицы, управляемые диспетчером адаптера таблицы TableAdapterManage"& _
  2786. "r, должны использовать одинаковую строку подключения.")
  2787. End If
  2788. If ((Not (Me._сферы_деятельностиTableAdapter) Is Nothing) _
  2789. AndAlso (Me.MatchTableAdapterConnection(Me._сферы_деятельностиTableAdapter.Connection) = false)) Then
  2790. Throw New Global.System.ArgumentException("Все адаптеры таблицы, управляемые диспетчером адаптера таблицы TableAdapterManage"& _
  2791. "r, должны использовать одинаковую строку подключения.")
  2792. End If
  2793. Dim workConnection As Global.System.Data.IDbConnection = Me.Connection
  2794. If (workConnection Is Nothing) Then
  2795. Throw New Global.System.ApplicationException("TableAdapterManager не содержит сведений о подключении. Укажите для каждого адапт"& _
  2796. "ера таблицы TableAdapterManager допустимый экземпляр адаптера таблицы.")
  2797. End If
  2798. Dim workConnOpened As Boolean = false
  2799. If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _
  2800. = Global.System.Data.ConnectionState.Broken) Then
  2801. workConnection.Close
  2802. End If
  2803. If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then
  2804. workConnection.Open
  2805. workConnOpened = true
  2806. End If
  2807. Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction
  2808. If (workTransaction Is Nothing) Then
  2809. Throw New Global.System.ApplicationException("Не удается начать транзакцию. Текущее соединение данных не поддерживает транзакци"& _
  2810. "и или текущее состояние не позволяет начать транзакцию.")
  2811. End If
  2812. Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
  2813. Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
  2814. Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)()
  2815. Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)()
  2816. Dim result As Integer = 0
  2817. Dim backupDataSet As Global.System.Data.DataSet = Nothing
  2818. If Me.BackupDataSetBeforeUpdate Then
  2819. backupDataSet = New Global.System.Data.DataSet()
  2820. backupDataSet.Merge(dataSet)
  2821. End If
  2822. Try
  2823. '---- Prepare for update -----------
  2824. '
  2825. If (Not (Me._людиTableAdapter) Is Nothing) Then
  2826. revertConnections.Add(Me._людиTableAdapter, Me._людиTableAdapter.Connection)
  2827. Me._людиTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
  2828. Me._людиTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
  2829. If Me._людиTableAdapter.Adapter.AcceptChangesDuringUpdate Then
  2830. Me._людиTableAdapter.Adapter.AcceptChangesDuringUpdate = false
  2831. adaptersWithAcceptChangesDuringUpdate.Add(Me._людиTableAdapter.Adapter)
  2832. End If
  2833. End If
  2834. If (Not (Me._список_вакансийTableAdapter) Is Nothing) Then
  2835. revertConnections.Add(Me._список_вакансийTableAdapter, Me._список_вакансийTableAdapter.Connection)
  2836. Me._список_вакансийTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
  2837. Me._список_вакансийTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
  2838. If Me._список_вакансийTableAdapter.Adapter.AcceptChangesDuringUpdate Then
  2839. Me._список_вакансийTableAdapter.Adapter.AcceptChangesDuringUpdate = false
  2840. adaptersWithAcceptChangesDuringUpdate.Add(Me._список_вакансийTableAdapter.Adapter)
  2841. End If
  2842. End If
  2843. If (Not (Me._сферы_деятельностиTableAdapter) Is Nothing) Then
  2844. revertConnections.Add(Me._сферы_деятельностиTableAdapter, Me._сферы_деятельностиTableAdapter.Connection)
  2845. Me._сферы_деятельностиTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
  2846. Me._сферы_деятельностиTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
  2847. If Me._сферы_деятельностиTableAdapter.Adapter.AcceptChangesDuringUpdate Then
  2848. Me._сферы_деятельностиTableAdapter.Adapter.AcceptChangesDuringUpdate = false
  2849. adaptersWithAcceptChangesDuringUpdate.Add(Me._сферы_деятельностиTableAdapter.Adapter)
  2850. End If
  2851. End If
  2852. '
  2853. '---- Perform updates -----------
  2854. '
  2855. If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then
  2856. result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
  2857. result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
  2858. Else
  2859. result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
  2860. result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
  2861. End If
  2862. result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows))
  2863. '
  2864. '---- Commit updates -----------
  2865. '
  2866. workTransaction.Commit
  2867. If (0 < allAddedRows.Count) Then
  2868. Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
  2869. allAddedRows.CopyTo(rows)
  2870. Dim i As Integer = 0
  2871. Do While (i < rows.Length)
  2872. Dim row As Global.System.Data.DataRow = rows(i)
  2873. row.AcceptChanges
  2874. i = (i + 1)
  2875. Loop
  2876. End If
  2877. If (0 < allChangedRows.Count) Then
  2878. Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow
  2879. allChangedRows.CopyTo(rows)
  2880. Dim i As Integer = 0
  2881. Do While (i < rows.Length)
  2882. Dim row As Global.System.Data.DataRow = rows(i)
  2883. row.AcceptChanges
  2884. i = (i + 1)
  2885. Loop
  2886. End If
  2887. Catch ex As Global.System.Exception
  2888. workTransaction.Rollback
  2889. '---- Restore the dataset -----------
  2890. If Me.BackupDataSetBeforeUpdate Then
  2891. Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing))
  2892. dataSet.Clear
  2893. dataSet.Merge(backupDataSet)
  2894. Else
  2895. If (0 < allAddedRows.Count) Then
  2896. Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
  2897. allAddedRows.CopyTo(rows)
  2898. Dim i As Integer = 0
  2899. Do While (i < rows.Length)
  2900. Dim row As Global.System.Data.DataRow = rows(i)
  2901. row.AcceptChanges
  2902. row.SetAdded
  2903. i = (i + 1)
  2904. Loop
  2905. End If
  2906. End If
  2907. Throw ex
  2908. Finally
  2909. If workConnOpened Then
  2910. workConnection.Close
  2911. End If
  2912. If (Not (Me._людиTableAdapter) Is Nothing) Then
  2913. Me._людиTableAdapter.Connection = CType(revertConnections(Me._людиTableAdapter),Global.System.Data.SqlClient.SqlConnection)
  2914. Me._людиTableAdapter.Transaction = Nothing
  2915. End If
  2916. If (Not (Me._список_вакансийTableAdapter) Is Nothing) Then
  2917. Me._список_вакансийTableAdapter.Connection = CType(revertConnections(Me._список_вакансийTableAdapter),Global.System.Data.SqlClient.SqlConnection)
  2918. Me._список_вакансийTableAdapter.Transaction = Nothing
  2919. End If
  2920. If (Not (Me._сферы_деятельностиTableAdapter) Is Nothing) Then
  2921. Me._сферы_деятельностиTableAdapter.Connection = CType(revertConnections(Me._сферы_деятельностиTableAdapter),Global.System.Data.SqlClient.SqlConnection)
  2922. Me._сферы_деятельностиTableAdapter.Transaction = Nothing
  2923. End If
  2924. If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then
  2925. Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter
  2926. adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters)
  2927. Dim i As Integer = 0
  2928. Do While (i < adapters.Length)
  2929. Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i)
  2930. adapter.AcceptChangesDuringUpdate = true
  2931. i = (i + 1)
  2932. Loop
  2933. End If
  2934. End Try
  2935. Return result
  2936. End Function
  2937. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2938. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  2939. Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
  2940. Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst))
  2941. End Sub
  2942. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2943. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  2944. Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean
  2945. If (Not (Me._connection) Is Nothing) Then
  2946. Return true
  2947. End If
  2948. If ((Me.Connection Is Nothing) _
  2949. OrElse (inputConnection Is Nothing)) Then
  2950. Return true
  2951. End If
  2952. If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then
  2953. Return true
  2954. End If
  2955. Return false
  2956. End Function
  2957. '''<summary>
  2958. '''Update Order Option
  2959. '''</summary>
  2960. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  2961. Public Enum UpdateOrderOption
  2962. InsertUpdateDelete = 0
  2963. UpdateInsertDelete = 1
  2964. End Enum
  2965. '''<summary>
  2966. '''Used to sort self-referenced table's rows
  2967. '''</summary>
  2968. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  2969. Private Class SelfReferenceComparer
  2970. Inherits Object
  2971. Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow)
  2972. Private _relation As Global.System.Data.DataRelation
  2973. Private _childFirst As Integer
  2974. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2975. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  2976. Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
  2977. MyBase.New
  2978. Me._relation = relation
  2979. If childFirst Then
  2980. Me._childFirst = -1
  2981. Else
  2982. Me._childFirst = 1
  2983. End If
  2984. End Sub
  2985. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  2986. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  2987. Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow
  2988. Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing))
  2989. Dim root As Global.System.Data.DataRow = row
  2990. distance = 0
  2991. Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)()
  2992. traversedRows(row) = row
  2993. Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
  2994. Do While ((Not (parent) Is Nothing) _
  2995. AndAlso (traversedRows.ContainsKey(parent) = false))
  2996. distance = (distance + 1)
  2997. root = parent
  2998. traversedRows(parent) = parent
  2999. parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
  3000. Loop
  3001. If (distance = 0) Then
  3002. traversedRows.Clear
  3003. traversedRows(row) = row
  3004. parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
  3005. Do While ((Not (parent) Is Nothing) _
  3006. AndAlso (traversedRows.ContainsKey(parent) = false))
  3007. distance = (distance + 1)
  3008. root = parent
  3009. traversedRows(parent) = parent
  3010. parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
  3011. Loop
  3012. End If
  3013. Return root
  3014. End Function
  3015. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
  3016. Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
  3017. Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare
  3018. If Object.ReferenceEquals(row1, row2) Then
  3019. Return 0
  3020. End If
  3021. If (row1 Is Nothing) Then
  3022. Return -1
  3023. End If
  3024. If (row2 Is Nothing) Then
  3025. Return 1
  3026. End If
  3027. Dim distance1 As Integer = 0
  3028. Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1)
  3029. Dim distance2 As Integer = 0
  3030. Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2)
  3031. If Object.ReferenceEquals(root1, root2) Then
  3032. Return (Me._childFirst * distance1.CompareTo(distance2))
  3033. Else
  3034. Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _
  3035. AndAlso (Not (root2.Table) Is Nothing)))
  3036. If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then
  3037. Return -1
  3038. Else
  3039. Return 1
  3040. End If
  3041. End If
  3042. End Function
  3043. End Class
  3044. End Class
  3045. End Namespace