123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273327432753276327732783279328032813282328332843285328632873288328932903291329232933294329532963297329832993300330133023303330433053306330733083309331033113312331333143315331633173318331933203321332233233324332533263327332833293330333133323333333433353336333733383339334033413342334333443345334633473348334933503351335233533354335533563357335833593360336133623363336433653366 |
- '------------------------------------------------------------------------------
- ' <auto-generated>
- ' Этот код создан программой.
- ' Исполняемая версия:4.0.30319.42000
- '
- ' Изменения в этом файле могут привести к неправильной работе и будут потеряны в случае
- ' повторной генерации кода.
- ' </auto-generated>
- '------------------------------------------------------------------------------
- Option Strict Off
- Option Explicit On
- '''<summary>
- '''Represents a strongly typed in-memory cache of data.
- '''</summary>
- <Global.System.Serializable(), _
- Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
- Global.System.ComponentModel.ToolboxItem(true), _
- Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
- Global.System.Xml.Serialization.XmlRootAttribute("BD_Fam_PostanogovDataSet"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
- Partial Public Class BD_Fam_PostanogovDataSet
- Inherits Global.System.Data.DataSet
-
- Private tableЛюди As ЛюдиDataTable
-
- Private tableСписок_вакансий As Список_вакансийDataTable
-
- Private tableСферы_деятельности As Сферы_деятельностиDataTable
-
- Private relationFK_Список_вакансий_Сферы_деятельности As Global.System.Data.DataRelation
-
- Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Sub New()
- MyBase.New
- Me.BeginInit
- Me.InitClass
- Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
- AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
- AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
- Me.EndInit
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
- MyBase.New(info, context, false)
- If (Me.IsBinarySerialized(info, context) = true) Then
- Me.InitVars(false)
- Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
- AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
- AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
- Return
- End If
- Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
- If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
- Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
- ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
- If (Not (ds.Tables("Люди")) Is Nothing) Then
- MyBase.Tables.Add(New ЛюдиDataTable(ds.Tables("Люди")))
- End If
- If (Not (ds.Tables("Список_вакансий")) Is Nothing) Then
- MyBase.Tables.Add(New Список_вакансийDataTable(ds.Tables("Список_вакансий")))
- End If
- If (Not (ds.Tables("Сферы_деятельности")) Is Nothing) Then
- MyBase.Tables.Add(New Сферы_деятельностиDataTable(ds.Tables("Сферы_деятельности")))
- End If
- Me.DataSetName = ds.DataSetName
- Me.Prefix = ds.Prefix
- Me.Namespace = ds.Namespace
- Me.Locale = ds.Locale
- Me.CaseSensitive = ds.CaseSensitive
- Me.EnforceConstraints = ds.EnforceConstraints
- Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
- Me.InitVars
- Else
- Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
- End If
- Me.GetSerializationData(info, context)
- Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
- AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
- AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property Люди() As ЛюдиDataTable
- Get
- Return Me.tableЛюди
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property Список_вакансий() As Список_вакансийDataTable
- Get
- Return Me.tableСписок_вакансий
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property Сферы_деятельности() As Сферы_деятельностиDataTable
- Get
- Return Me.tableСферы_деятельности
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.BrowsableAttribute(true), _
- Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
- Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
- Get
- Return Me._schemaSerializationMode
- End Get
- Set
- Me._schemaSerializationMode = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
- Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
- Get
- Return MyBase.Tables
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
- Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
- Get
- Return MyBase.Relations
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Sub InitializeDerivedDataSet()
- Me.BeginInit
- Me.InitClass
- Me.EndInit
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Overrides Function Clone() As Global.System.Data.DataSet
- Dim cln As BD_Fam_PostanogovDataSet = CType(MyBase.Clone,BD_Fam_PostanogovDataSet)
- cln.InitVars
- cln.SchemaSerializationMode = Me.SchemaSerializationMode
- Return cln
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Function ShouldSerializeTables() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Function ShouldSerializeRelations() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
- If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
- Me.Reset
- Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
- ds.ReadXml(reader)
- If (Not (ds.Tables("Люди")) Is Nothing) Then
- MyBase.Tables.Add(New ЛюдиDataTable(ds.Tables("Люди")))
- End If
- If (Not (ds.Tables("Список_вакансий")) Is Nothing) Then
- MyBase.Tables.Add(New Список_вакансийDataTable(ds.Tables("Список_вакансий")))
- End If
- If (Not (ds.Tables("Сферы_деятельности")) Is Nothing) Then
- MyBase.Tables.Add(New Сферы_деятельностиDataTable(ds.Tables("Сферы_деятельности")))
- End If
- Me.DataSetName = ds.DataSetName
- Me.Prefix = ds.Prefix
- Me.Namespace = ds.Namespace
- Me.Locale = ds.Locale
- Me.CaseSensitive = ds.CaseSensitive
- Me.EnforceConstraints = ds.EnforceConstraints
- Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
- Me.InitVars
- Else
- Me.ReadXml(reader)
- Me.InitVars
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
- Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
- Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
- stream.Position = 0
- Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Friend Overloads Sub InitVars()
- Me.InitVars(true)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Friend Overloads Sub InitVars(ByVal initTable As Boolean)
- Me.tableЛюди = CType(MyBase.Tables("Люди"),ЛюдиDataTable)
- If (initTable = true) Then
- If (Not (Me.tableЛюди) Is Nothing) Then
- Me.tableЛюди.InitVars
- End If
- End If
- Me.tableСписок_вакансий = CType(MyBase.Tables("Список_вакансий"),Список_вакансийDataTable)
- If (initTable = true) Then
- If (Not (Me.tableСписок_вакансий) Is Nothing) Then
- Me.tableСписок_вакансий.InitVars
- End If
- End If
- Me.tableСферы_деятельности = CType(MyBase.Tables("Сферы_деятельности"),Сферы_деятельностиDataTable)
- If (initTable = true) Then
- If (Not (Me.tableСферы_деятельности) Is Nothing) Then
- Me.tableСферы_деятельности.InitVars
- End If
- End If
- Me.relationFK_Список_вакансий_Сферы_деятельности = Me.Relations("FK_Список_вакансий_Сферы_деятельности")
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Private Sub InitClass()
- Me.DataSetName = "BD_Fam_PostanogovDataSet"
- Me.Prefix = ""
- Me.Namespace = "http://tempuri.org/BD_Fam_PostanogovDataSet.xsd"
- Me.EnforceConstraints = true
- Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
- Me.tableЛюди = New ЛюдиDataTable()
- MyBase.Tables.Add(Me.tableЛюди)
- Me.tableСписок_вакансий = New Список_вакансийDataTable()
- MyBase.Tables.Add(Me.tableСписок_вакансий)
- Me.tableСферы_деятельности = New Сферы_деятельностиDataTable()
- MyBase.Tables.Add(Me.tableСферы_деятельности)
- 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)
- Me.Relations.Add(Me.relationFK_Список_вакансий_Сферы_деятельности)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Private Function ShouldSerializeЛюди() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Private Function ShouldSerializeСписок_вакансий() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Private Function ShouldSerializeСферы_деятельности() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
- If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
- Me.InitVars
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
- Dim ds As BD_Fam_PostanogovDataSet = New BD_Fam_PostanogovDataSet()
- Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
- Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
- Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
- any.Namespace = ds.Namespace
- sequence.Items.Add(any)
- type.Particle = sequence
- Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
- If xs.Contains(dsSchema.TargetNamespace) Then
- Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
- Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
- Try
- Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
- dsSchema.Write(s1)
- Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
- Do While schemas.MoveNext
- schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
- s2.SetLength(0)
- schema.Write(s2)
- If (s1.Length = s2.Length) Then
- s1.Position = 0
- s2.Position = 0
-
- Do While ((s1.Position <> s1.Length) _
- AndAlso (s1.ReadByte = s2.ReadByte))
-
-
- Loop
- If (s1.Position = s1.Length) Then
- Return type
- End If
- End If
-
- Loop
- Finally
- If (Not (s1) Is Nothing) Then
- s1.Close
- End If
- If (Not (s2) Is Nothing) Then
- s2.Close
- End If
- End Try
- End If
- xs.Add(dsSchema)
- Return type
- End Function
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Delegate Sub ЛюдиRowChangeEventHandler(ByVal sender As Object, ByVal e As ЛюдиRowChangeEvent)
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Delegate Sub Список_вакансийRowChangeEventHandler(ByVal sender As Object, ByVal e As Список_вакансийRowChangeEvent)
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Delegate Sub Сферы_деятельностиRowChangeEventHandler(ByVal sender As Object, ByVal e As Сферы_деятельностиRowChangeEvent)
-
- '''<summary>
- '''Represents the strongly named DataTable class.
- '''</summary>
- <Global.System.Serializable(), _
- Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
- Partial Public Class ЛюдиDataTable
- Inherits Global.System.Data.TypedTableBase(Of ЛюдиRow)
-
- Private columnКод_клиента As Global.System.Data.DataColumn
-
- Private columnФИО As Global.System.Data.DataColumn
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Sub New()
- MyBase.New
- Me.TableName = "Люди"
- Me.BeginInit
- Me.InitClass
- Me.EndInit
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Friend Sub New(ByVal table As Global.System.Data.DataTable)
- MyBase.New
- Me.TableName = table.TableName
- If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
- Me.CaseSensitive = table.CaseSensitive
- End If
- If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
- Me.Locale = table.Locale
- End If
- If (table.Namespace <> table.DataSet.Namespace) Then
- Me.Namespace = table.Namespace
- End If
- Me.Prefix = table.Prefix
- Me.MinimumCapacity = table.MinimumCapacity
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
- MyBase.New(info, context)
- Me.InitVars
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public ReadOnly Property Код_клиентаColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnКод_клиента
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public ReadOnly Property ФИОColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnФИО
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Browsable(false)> _
- Public ReadOnly Property Count() As Integer
- Get
- Return Me.Rows.Count
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Default ReadOnly Property Item(ByVal index As Integer) As ЛюдиRow
- Get
- Return CType(Me.Rows(index),ЛюдиRow)
- End Get
- End Property
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Event ЛюдиRowChanging As ЛюдиRowChangeEventHandler
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Event ЛюдиRowChanged As ЛюдиRowChangeEventHandler
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Event ЛюдиRowDeleting As ЛюдиRowChangeEventHandler
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Event ЛюдиRowDeleted As ЛюдиRowChangeEventHandler
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Overloads Sub AddЛюдиRow(ByVal row As ЛюдиRow)
- Me.Rows.Add(row)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Overloads Function AddЛюдиRow(ByVal ФИО As String) As ЛюдиRow
- Dim rowЛюдиRow As ЛюдиRow = CType(Me.NewRow,ЛюдиRow)
- Dim columnValuesArray() As Object = New Object() {Nothing, ФИО}
- rowЛюдиRow.ItemArray = columnValuesArray
- Me.Rows.Add(rowЛюдиRow)
- Return rowЛюдиRow
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Function FindByКод_клиента(ByVal Код_клиента As Integer) As ЛюдиRow
- Return CType(Me.Rows.Find(New Object() {Код_клиента}),ЛюдиRow)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Overrides Function Clone() As Global.System.Data.DataTable
- Dim cln As ЛюдиDataTable = CType(MyBase.Clone,ЛюдиDataTable)
- cln.InitVars
- Return cln
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
- Return New ЛюдиDataTable()
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Friend Sub InitVars()
- Me.columnКод_клиента = MyBase.Columns("Код_клиента")
- Me.columnФИО = MyBase.Columns("ФИО")
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Private Sub InitClass()
- Me.columnКод_клиента = New Global.System.Data.DataColumn("Код_клиента", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnКод_клиента)
- Me.columnФИО = New Global.System.Data.DataColumn("ФИО", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnФИО)
- Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnКод_клиента}, true))
- Me.columnКод_клиента.AutoIncrement = true
- Me.columnКод_клиента.AutoIncrementSeed = -1
- Me.columnКод_клиента.AutoIncrementStep = -1
- Me.columnКод_клиента.AllowDBNull = false
- Me.columnКод_клиента.ReadOnly = true
- Me.columnКод_клиента.Unique = true
- Me.columnФИО.MaxLength = 100
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Function NewЛюдиRow() As ЛюдиRow
- Return CType(Me.NewRow,ЛюдиRow)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
- Return New ЛюдиRow(builder)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Function GetRowType() As Global.System.Type
- Return GetType(ЛюдиRow)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowChanged(e)
- If (Not (Me.ЛюдиRowChangedEvent) Is Nothing) Then
- RaiseEvent ЛюдиRowChanged(Me, New ЛюдиRowChangeEvent(CType(e.Row,ЛюдиRow), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowChanging(e)
- If (Not (Me.ЛюдиRowChangingEvent) Is Nothing) Then
- RaiseEvent ЛюдиRowChanging(Me, New ЛюдиRowChangeEvent(CType(e.Row,ЛюдиRow), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowDeleted(e)
- If (Not (Me.ЛюдиRowDeletedEvent) Is Nothing) Then
- RaiseEvent ЛюдиRowDeleted(Me, New ЛюдиRowChangeEvent(CType(e.Row,ЛюдиRow), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowDeleting(e)
- If (Not (Me.ЛюдиRowDeletingEvent) Is Nothing) Then
- RaiseEvent ЛюдиRowDeleting(Me, New ЛюдиRowChangeEvent(CType(e.Row,ЛюдиRow), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Sub RemoveЛюдиRow(ByVal row As ЛюдиRow)
- Me.Rows.Remove(row)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
- Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
- Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
- Dim ds As BD_Fam_PostanogovDataSet = New BD_Fam_PostanogovDataSet()
- Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
- any1.Namespace = "http://www.w3.org/2001/XMLSchema"
- any1.MinOccurs = New Decimal(0)
- any1.MaxOccurs = Decimal.MaxValue
- any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
- sequence.Items.Add(any1)
- Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
- any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
- any2.MinOccurs = New Decimal(1)
- any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
- sequence.Items.Add(any2)
- Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
- attribute1.Name = "namespace"
- attribute1.FixedValue = ds.Namespace
- type.Attributes.Add(attribute1)
- Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
- attribute2.Name = "tableTypeName"
- attribute2.FixedValue = "ЛюдиDataTable"
- type.Attributes.Add(attribute2)
- type.Particle = sequence
- Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
- If xs.Contains(dsSchema.TargetNamespace) Then
- Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
- Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
- Try
- Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
- dsSchema.Write(s1)
- Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
- Do While schemas.MoveNext
- schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
- s2.SetLength(0)
- schema.Write(s2)
- If (s1.Length = s2.Length) Then
- s1.Position = 0
- s2.Position = 0
-
- Do While ((s1.Position <> s1.Length) _
- AndAlso (s1.ReadByte = s2.ReadByte))
-
-
- Loop
- If (s1.Position = s1.Length) Then
- Return type
- End If
- End If
-
- Loop
- Finally
- If (Not (s1) Is Nothing) Then
- s1.Close
- End If
- If (Not (s2) Is Nothing) Then
- s2.Close
- End If
- End Try
- End If
- xs.Add(dsSchema)
- Return type
- End Function
- End Class
-
- '''<summary>
- '''Represents the strongly named DataTable class.
- '''</summary>
- <Global.System.Serializable(), _
- Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
- Partial Public Class Список_вакансийDataTable
- Inherits Global.System.Data.TypedTableBase(Of Список_вакансийRow)
-
- Private columnКод_сферы As Global.System.Data.DataColumn
-
- Private columnДолжность As Global.System.Data.DataColumn
-
- Private columnОклад As Global.System.Data.DataColumn
-
- Private columnТребования_к_соискателю As Global.System.Data.DataColumn
-
- Private columnРаботодатель As Global.System.Data.DataColumn
-
- Private columnКонтактный_номер As Global.System.Data.DataColumn
-
- Private columnКод_вакансии As Global.System.Data.DataColumn
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Sub New()
- MyBase.New
- Me.TableName = "Список_вакансий"
- Me.BeginInit
- Me.InitClass
- Me.EndInit
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Friend Sub New(ByVal table As Global.System.Data.DataTable)
- MyBase.New
- Me.TableName = table.TableName
- If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
- Me.CaseSensitive = table.CaseSensitive
- End If
- If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
- Me.Locale = table.Locale
- End If
- If (table.Namespace <> table.DataSet.Namespace) Then
- Me.Namespace = table.Namespace
- End If
- Me.Prefix = table.Prefix
- Me.MinimumCapacity = table.MinimumCapacity
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
- MyBase.New(info, context)
- Me.InitVars
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public ReadOnly Property Код_сферыColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnКод_сферы
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public ReadOnly Property ДолжностьColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnДолжность
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public ReadOnly Property ОкладColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnОклад
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public ReadOnly Property Требования_к_соискателюColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnТребования_к_соискателю
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public ReadOnly Property РаботодательColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnРаботодатель
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public ReadOnly Property Контактный_номерColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnКонтактный_номер
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public ReadOnly Property Код_вакансииColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnКод_вакансии
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Browsable(false)> _
- Public ReadOnly Property Count() As Integer
- Get
- Return Me.Rows.Count
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Default ReadOnly Property Item(ByVal index As Integer) As Список_вакансийRow
- Get
- Return CType(Me.Rows(index),Список_вакансийRow)
- End Get
- End Property
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Event Список_вакансийRowChanging As Список_вакансийRowChangeEventHandler
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Event Список_вакансийRowChanged As Список_вакансийRowChangeEventHandler
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Event Список_вакансийRowDeleting As Список_вакансийRowChangeEventHandler
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Event Список_вакансийRowDeleted As Список_вакансийRowChangeEventHandler
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Overloads Sub AddСписок_вакансийRow(ByVal row As Список_вакансийRow)
- Me.Rows.Add(row)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- 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
- Dim rowСписок_вакансийRow As Список_вакансийRow = CType(Me.NewRow,Список_вакансийRow)
- Dim columnValuesArray() As Object = New Object() {Nothing, Должность, Оклад, Требования_к_соискателю, Работодатель, Контактный_номер, Nothing}
- If (Not (parentСферы_деятельностиRowByFK_Список_вакансий_Сферы_деятельности) Is Nothing) Then
- columnValuesArray(0) = parentСферы_деятельностиRowByFK_Список_вакансий_Сферы_деятельности(0)
- End If
- rowСписок_вакансийRow.ItemArray = columnValuesArray
- Me.Rows.Add(rowСписок_вакансийRow)
- Return rowСписок_вакансийRow
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Function FindByКод_вакансии(ByVal Код_вакансии As Integer) As Список_вакансийRow
- Return CType(Me.Rows.Find(New Object() {Код_вакансии}),Список_вакансийRow)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Overrides Function Clone() As Global.System.Data.DataTable
- Dim cln As Список_вакансийDataTable = CType(MyBase.Clone,Список_вакансийDataTable)
- cln.InitVars
- Return cln
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
- Return New Список_вакансийDataTable()
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Friend Sub InitVars()
- Me.columnКод_сферы = MyBase.Columns("Код_сферы")
- Me.columnДолжность = MyBase.Columns("Должность")
- Me.columnОклад = MyBase.Columns("Оклад")
- Me.columnТребования_к_соискателю = MyBase.Columns("Требования_к_соискателю")
- Me.columnРаботодатель = MyBase.Columns("Работодатель")
- Me.columnКонтактный_номер = MyBase.Columns("Контактный_номер")
- Me.columnКод_вакансии = MyBase.Columns("Код_вакансии")
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Private Sub InitClass()
- Me.columnКод_сферы = New Global.System.Data.DataColumn("Код_сферы", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnКод_сферы)
- Me.columnДолжность = New Global.System.Data.DataColumn("Должность", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnДолжность)
- Me.columnОклад = New Global.System.Data.DataColumn("Оклад", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnОклад)
- Me.columnТребования_к_соискателю = New Global.System.Data.DataColumn("Требования_к_соискателю", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnТребования_к_соискателю)
- Me.columnРаботодатель = New Global.System.Data.DataColumn("Работодатель", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnРаботодатель)
- Me.columnКонтактный_номер = New Global.System.Data.DataColumn("Контактный_номер", GetType(Double), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnКонтактный_номер)
- Me.columnКод_вакансии = New Global.System.Data.DataColumn("Код_вакансии", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnКод_вакансии)
- Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnКод_вакансии}, true))
- Me.columnКод_сферы.AutoIncrementSeed = 1
- Me.columnДолжность.MaxLength = 100
- Me.columnТребования_к_соискателю.MaxLength = 100
- Me.columnРаботодатель.MaxLength = 100
- Me.columnКонтактный_номер.AllowDBNull = false
- Me.columnКод_вакансии.AutoIncrement = true
- Me.columnКод_вакансии.AutoIncrementSeed = -1
- Me.columnКод_вакансии.AutoIncrementStep = -1
- Me.columnКод_вакансии.AllowDBNull = false
- Me.columnКод_вакансии.ReadOnly = true
- Me.columnКод_вакансии.Unique = true
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Function NewСписок_вакансийRow() As Список_вакансийRow
- Return CType(Me.NewRow,Список_вакансийRow)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
- Return New Список_вакансийRow(builder)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Function GetRowType() As Global.System.Type
- Return GetType(Список_вакансийRow)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowChanged(e)
- If (Not (Me.Список_вакансийRowChangedEvent) Is Nothing) Then
- RaiseEvent Список_вакансийRowChanged(Me, New Список_вакансийRowChangeEvent(CType(e.Row,Список_вакансийRow), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowChanging(e)
- If (Not (Me.Список_вакансийRowChangingEvent) Is Nothing) Then
- RaiseEvent Список_вакансийRowChanging(Me, New Список_вакансийRowChangeEvent(CType(e.Row,Список_вакансийRow), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowDeleted(e)
- If (Not (Me.Список_вакансийRowDeletedEvent) Is Nothing) Then
- RaiseEvent Список_вакансийRowDeleted(Me, New Список_вакансийRowChangeEvent(CType(e.Row,Список_вакансийRow), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowDeleting(e)
- If (Not (Me.Список_вакансийRowDeletingEvent) Is Nothing) Then
- RaiseEvent Список_вакансийRowDeleting(Me, New Список_вакансийRowChangeEvent(CType(e.Row,Список_вакансийRow), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Sub RemoveСписок_вакансийRow(ByVal row As Список_вакансийRow)
- Me.Rows.Remove(row)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
- Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
- Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
- Dim ds As BD_Fam_PostanogovDataSet = New BD_Fam_PostanogovDataSet()
- Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
- any1.Namespace = "http://www.w3.org/2001/XMLSchema"
- any1.MinOccurs = New Decimal(0)
- any1.MaxOccurs = Decimal.MaxValue
- any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
- sequence.Items.Add(any1)
- Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
- any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
- any2.MinOccurs = New Decimal(1)
- any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
- sequence.Items.Add(any2)
- Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
- attribute1.Name = "namespace"
- attribute1.FixedValue = ds.Namespace
- type.Attributes.Add(attribute1)
- Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
- attribute2.Name = "tableTypeName"
- attribute2.FixedValue = "Список_вакансийDataTable"
- type.Attributes.Add(attribute2)
- type.Particle = sequence
- Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
- If xs.Contains(dsSchema.TargetNamespace) Then
- Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
- Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
- Try
- Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
- dsSchema.Write(s1)
- Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
- Do While schemas.MoveNext
- schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
- s2.SetLength(0)
- schema.Write(s2)
- If (s1.Length = s2.Length) Then
- s1.Position = 0
- s2.Position = 0
-
- Do While ((s1.Position <> s1.Length) _
- AndAlso (s1.ReadByte = s2.ReadByte))
-
-
- Loop
- If (s1.Position = s1.Length) Then
- Return type
- End If
- End If
-
- Loop
- Finally
- If (Not (s1) Is Nothing) Then
- s1.Close
- End If
- If (Not (s2) Is Nothing) Then
- s2.Close
- End If
- End Try
- End If
- xs.Add(dsSchema)
- Return type
- End Function
- End Class
-
- '''<summary>
- '''Represents the strongly named DataTable class.
- '''</summary>
- <Global.System.Serializable(), _
- Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
- Partial Public Class Сферы_деятельностиDataTable
- Inherits Global.System.Data.TypedTableBase(Of Сферы_деятельностиRow)
-
- Private columnКод_сферы As Global.System.Data.DataColumn
-
- Private columnСфера_деятельности As Global.System.Data.DataColumn
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Sub New()
- MyBase.New
- Me.TableName = "Сферы_деятельности"
- Me.BeginInit
- Me.InitClass
- Me.EndInit
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Friend Sub New(ByVal table As Global.System.Data.DataTable)
- MyBase.New
- Me.TableName = table.TableName
- If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
- Me.CaseSensitive = table.CaseSensitive
- End If
- If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
- Me.Locale = table.Locale
- End If
- If (table.Namespace <> table.DataSet.Namespace) Then
- Me.Namespace = table.Namespace
- End If
- Me.Prefix = table.Prefix
- Me.MinimumCapacity = table.MinimumCapacity
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
- MyBase.New(info, context)
- Me.InitVars
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public ReadOnly Property Код_сферыColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnКод_сферы
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public ReadOnly Property Сфера_деятельностиColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnСфера_деятельности
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Browsable(false)> _
- Public ReadOnly Property Count() As Integer
- Get
- Return Me.Rows.Count
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Default ReadOnly Property Item(ByVal index As Integer) As Сферы_деятельностиRow
- Get
- Return CType(Me.Rows(index),Сферы_деятельностиRow)
- End Get
- End Property
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Event Сферы_деятельностиRowChanging As Сферы_деятельностиRowChangeEventHandler
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Event Сферы_деятельностиRowChanged As Сферы_деятельностиRowChangeEventHandler
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Event Сферы_деятельностиRowDeleting As Сферы_деятельностиRowChangeEventHandler
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Event Сферы_деятельностиRowDeleted As Сферы_деятельностиRowChangeEventHandler
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Overloads Sub AddСферы_деятельностиRow(ByVal row As Сферы_деятельностиRow)
- Me.Rows.Add(row)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Overloads Function AddСферы_деятельностиRow(ByVal Сфера_деятельности As String) As Сферы_деятельностиRow
- Dim rowСферы_деятельностиRow As Сферы_деятельностиRow = CType(Me.NewRow,Сферы_деятельностиRow)
- Dim columnValuesArray() As Object = New Object() {Nothing, Сфера_деятельности}
- rowСферы_деятельностиRow.ItemArray = columnValuesArray
- Me.Rows.Add(rowСферы_деятельностиRow)
- Return rowСферы_деятельностиRow
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Function FindByКод_сферы(ByVal Код_сферы As Integer) As Сферы_деятельностиRow
- Return CType(Me.Rows.Find(New Object() {Код_сферы}),Сферы_деятельностиRow)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Overrides Function Clone() As Global.System.Data.DataTable
- Dim cln As Сферы_деятельностиDataTable = CType(MyBase.Clone,Сферы_деятельностиDataTable)
- cln.InitVars
- Return cln
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
- Return New Сферы_деятельностиDataTable()
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Friend Sub InitVars()
- Me.columnКод_сферы = MyBase.Columns("Код_сферы")
- Me.columnСфера_деятельности = MyBase.Columns("Сфера_деятельности")
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Private Sub InitClass()
- Me.columnКод_сферы = New Global.System.Data.DataColumn("Код_сферы", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnКод_сферы)
- Me.columnСфера_деятельности = New Global.System.Data.DataColumn("Сфера_деятельности", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnСфера_деятельности)
- Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnКод_сферы}, true))
- Me.columnКод_сферы.AutoIncrement = true
- Me.columnКод_сферы.AutoIncrementSeed = 1
- Me.columnКод_сферы.AllowDBNull = false
- Me.columnКод_сферы.ReadOnly = true
- Me.columnКод_сферы.Unique = true
- Me.columnСфера_деятельности.MaxLength = 100
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Function NewСферы_деятельностиRow() As Сферы_деятельностиRow
- Return CType(Me.NewRow,Сферы_деятельностиRow)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
- Return New Сферы_деятельностиRow(builder)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Function GetRowType() As Global.System.Type
- Return GetType(Сферы_деятельностиRow)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowChanged(e)
- If (Not (Me.Сферы_деятельностиRowChangedEvent) Is Nothing) Then
- RaiseEvent Сферы_деятельностиRowChanged(Me, New Сферы_деятельностиRowChangeEvent(CType(e.Row,Сферы_деятельностиRow), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowChanging(e)
- If (Not (Me.Сферы_деятельностиRowChangingEvent) Is Nothing) Then
- RaiseEvent Сферы_деятельностиRowChanging(Me, New Сферы_деятельностиRowChangeEvent(CType(e.Row,Сферы_деятельностиRow), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowDeleted(e)
- If (Not (Me.Сферы_деятельностиRowDeletedEvent) Is Nothing) Then
- RaiseEvent Сферы_деятельностиRowDeleted(Me, New Сферы_деятельностиRowChangeEvent(CType(e.Row,Сферы_деятельностиRow), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowDeleting(e)
- If (Not (Me.Сферы_деятельностиRowDeletingEvent) Is Nothing) Then
- RaiseEvent Сферы_деятельностиRowDeleting(Me, New Сферы_деятельностиRowChangeEvent(CType(e.Row,Сферы_деятельностиRow), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Sub RemoveСферы_деятельностиRow(ByVal row As Сферы_деятельностиRow)
- Me.Rows.Remove(row)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
- Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
- Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
- Dim ds As BD_Fam_PostanogovDataSet = New BD_Fam_PostanogovDataSet()
- Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
- any1.Namespace = "http://www.w3.org/2001/XMLSchema"
- any1.MinOccurs = New Decimal(0)
- any1.MaxOccurs = Decimal.MaxValue
- any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
- sequence.Items.Add(any1)
- Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
- any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
- any2.MinOccurs = New Decimal(1)
- any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
- sequence.Items.Add(any2)
- Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
- attribute1.Name = "namespace"
- attribute1.FixedValue = ds.Namespace
- type.Attributes.Add(attribute1)
- Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
- attribute2.Name = "tableTypeName"
- attribute2.FixedValue = "Сферы_деятельностиDataTable"
- type.Attributes.Add(attribute2)
- type.Particle = sequence
- Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
- If xs.Contains(dsSchema.TargetNamespace) Then
- Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
- Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
- Try
- Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
- dsSchema.Write(s1)
- Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
- Do While schemas.MoveNext
- schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
- s2.SetLength(0)
- schema.Write(s2)
- If (s1.Length = s2.Length) Then
- s1.Position = 0
- s2.Position = 0
-
- Do While ((s1.Position <> s1.Length) _
- AndAlso (s1.ReadByte = s2.ReadByte))
-
-
- Loop
- If (s1.Position = s1.Length) Then
- Return type
- End If
- End If
-
- Loop
- Finally
- If (Not (s1) Is Nothing) Then
- s1.Close
- End If
- If (Not (s2) Is Nothing) Then
- s2.Close
- End If
- End Try
- End If
- xs.Add(dsSchema)
- Return type
- End Function
- End Class
-
- '''<summary>
- '''Represents strongly named DataRow class.
- '''</summary>
- Partial Public Class ЛюдиRow
- Inherits Global.System.Data.DataRow
-
- Private tableЛюди As ЛюдиDataTable
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
- MyBase.New(rb)
- Me.tableЛюди = CType(Me.Table,ЛюдиDataTable)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Property Код_клиента() As Integer
- Get
- Return CType(Me(Me.tableЛюди.Код_клиентаColumn),Integer)
- End Get
- Set
- Me(Me.tableЛюди.Код_клиентаColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Property ФИО() As String
- Get
- Try
- Return CType(Me(Me.tableЛюди.ФИОColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("Значение для столбца 'ФИО' в таблице 'Люди' равно DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableЛюди.ФИОColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Function IsФИОNull() As Boolean
- Return Me.IsNull(Me.tableЛюди.ФИОColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Sub SetФИОNull()
- Me(Me.tableЛюди.ФИОColumn) = Global.System.Convert.DBNull
- End Sub
- End Class
-
- '''<summary>
- '''Represents strongly named DataRow class.
- '''</summary>
- Partial Public Class Список_вакансийRow
- Inherits Global.System.Data.DataRow
-
- Private tableСписок_вакансий As Список_вакансийDataTable
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
- MyBase.New(rb)
- Me.tableСписок_вакансий = CType(Me.Table,Список_вакансийDataTable)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Property Код_сферы() As Integer
- Get
- Try
- Return CType(Me(Me.tableСписок_вакансий.Код_сферыColumn),Integer)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("Значение для столбца 'Код_сферы' в таблице 'Список_вакансий' равно DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableСписок_вакансий.Код_сферыColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Property Должность() As String
- Get
- Try
- Return CType(Me(Me.tableСписок_вакансий.ДолжностьColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("Значение для столбца 'Должность' в таблице 'Список_вакансий' равно DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableСписок_вакансий.ДолжностьColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Property Оклад() As Integer
- Get
- Try
- Return CType(Me(Me.tableСписок_вакансий.ОкладColumn),Integer)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("Значение для столбца 'Оклад' в таблице 'Список_вакансий' равно DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableСписок_вакансий.ОкладColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Property Требования_к_соискателю() As String
- Get
- Try
- Return CType(Me(Me.tableСписок_вакансий.Требования_к_соискателюColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("Значение для столбца 'Требования_к_соискателю' в таблице 'Список_вакансий' равно "& _
- "DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableСписок_вакансий.Требования_к_соискателюColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Property Работодатель() As String
- Get
- Try
- Return CType(Me(Me.tableСписок_вакансий.РаботодательColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("Значение для столбца 'Работодатель' в таблице 'Список_вакансий' равно DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableСписок_вакансий.РаботодательColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Property Контактный_номер() As Double
- Get
- Return CType(Me(Me.tableСписок_вакансий.Контактный_номерColumn),Double)
- End Get
- Set
- Me(Me.tableСписок_вакансий.Контактный_номерColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Property Код_вакансии() As Integer
- Get
- Return CType(Me(Me.tableСписок_вакансий.Код_вакансииColumn),Integer)
- End Get
- Set
- Me(Me.tableСписок_вакансий.Код_вакансииColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Property Сферы_деятельностиRow() As Сферы_деятельностиRow
- Get
- Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Список_вакансий_Сферы_деятельности")),Сферы_деятельностиRow)
- End Get
- Set
- Me.SetParentRow(value, Me.Table.ParentRelations("FK_Список_вакансий_Сферы_деятельности"))
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Function IsКод_сферыNull() As Boolean
- Return Me.IsNull(Me.tableСписок_вакансий.Код_сферыColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Sub SetКод_сферыNull()
- Me(Me.tableСписок_вакансий.Код_сферыColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Function IsДолжностьNull() As Boolean
- Return Me.IsNull(Me.tableСписок_вакансий.ДолжностьColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Sub SetДолжностьNull()
- Me(Me.tableСписок_вакансий.ДолжностьColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Function IsОкладNull() As Boolean
- Return Me.IsNull(Me.tableСписок_вакансий.ОкладColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Sub SetОкладNull()
- Me(Me.tableСписок_вакансий.ОкладColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Function IsТребования_к_соискателюNull() As Boolean
- Return Me.IsNull(Me.tableСписок_вакансий.Требования_к_соискателюColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Sub SetТребования_к_соискателюNull()
- Me(Me.tableСписок_вакансий.Требования_к_соискателюColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Function IsРаботодательNull() As Boolean
- Return Me.IsNull(Me.tableСписок_вакансий.РаботодательColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Sub SetРаботодательNull()
- Me(Me.tableСписок_вакансий.РаботодательColumn) = Global.System.Convert.DBNull
- End Sub
- End Class
-
- '''<summary>
- '''Represents strongly named DataRow class.
- '''</summary>
- Partial Public Class Сферы_деятельностиRow
- Inherits Global.System.Data.DataRow
-
- Private tableСферы_деятельности As Сферы_деятельностиDataTable
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
- MyBase.New(rb)
- Me.tableСферы_деятельности = CType(Me.Table,Сферы_деятельностиDataTable)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Property Код_сферы() As Integer
- Get
- Return CType(Me(Me.tableСферы_деятельности.Код_сферыColumn),Integer)
- End Get
- Set
- Me(Me.tableСферы_деятельности.Код_сферыColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Property Сфера_деятельности() As String
- Get
- Try
- Return CType(Me(Me.tableСферы_деятельности.Сфера_деятельностиColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("Значение для столбца 'Сфера_деятельности' в таблице 'Сферы_деятельности' равно DB"& _
- "Null.", e)
- End Try
- End Get
- Set
- Me(Me.tableСферы_деятельности.Сфера_деятельностиColumn) = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Function IsСфера_деятельностиNull() As Boolean
- Return Me.IsNull(Me.tableСферы_деятельности.Сфера_деятельностиColumn)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Sub SetСфера_деятельностиNull()
- Me(Me.tableСферы_деятельности.Сфера_деятельностиColumn) = Global.System.Convert.DBNull
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Function GetСписок_вакансийRows() As Список_вакансийRow()
- If (Me.Table.ChildRelations("FK_Список_вакансий_Сферы_деятельности") Is Nothing) Then
- Return New Список_вакансийRow(-1) {}
- Else
- Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Список_вакансий_Сферы_деятельности")),Список_вакансийRow())
- End If
- End Function
- End Class
-
- '''<summary>
- '''Row event argument class
- '''</summary>
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Class ЛюдиRowChangeEvent
- Inherits Global.System.EventArgs
-
- Private eventRow As ЛюдиRow
-
- Private eventAction As Global.System.Data.DataRowAction
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Sub New(ByVal row As ЛюдиRow, ByVal action As Global.System.Data.DataRowAction)
- MyBase.New
- Me.eventRow = row
- Me.eventAction = action
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public ReadOnly Property Row() As ЛюдиRow
- Get
- Return Me.eventRow
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public ReadOnly Property Action() As Global.System.Data.DataRowAction
- Get
- Return Me.eventAction
- End Get
- End Property
- End Class
-
- '''<summary>
- '''Row event argument class
- '''</summary>
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Class Список_вакансийRowChangeEvent
- Inherits Global.System.EventArgs
-
- Private eventRow As Список_вакансийRow
-
- Private eventAction As Global.System.Data.DataRowAction
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Sub New(ByVal row As Список_вакансийRow, ByVal action As Global.System.Data.DataRowAction)
- MyBase.New
- Me.eventRow = row
- Me.eventAction = action
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public ReadOnly Property Row() As Список_вакансийRow
- Get
- Return Me.eventRow
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public ReadOnly Property Action() As Global.System.Data.DataRowAction
- Get
- Return Me.eventAction
- End Get
- End Property
- End Class
-
- '''<summary>
- '''Row event argument class
- '''</summary>
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Class Сферы_деятельностиRowChangeEvent
- Inherits Global.System.EventArgs
-
- Private eventRow As Сферы_деятельностиRow
-
- Private eventAction As Global.System.Data.DataRowAction
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Sub New(ByVal row As Сферы_деятельностиRow, ByVal action As Global.System.Data.DataRowAction)
- MyBase.New
- Me.eventRow = row
- Me.eventAction = action
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public ReadOnly Property Row() As Сферы_деятельностиRow
- Get
- Return Me.eventRow
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public ReadOnly Property Action() As Global.System.Data.DataRowAction
- Get
- Return Me.eventAction
- End Get
- End Property
- End Class
- End Class
- Namespace BD_Fam_PostanogovDataSetTableAdapters
-
- '''<summary>
- '''Represents the connection and commands used to retrieve and save data.
- '''</summary>
- <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
- Global.System.ComponentModel.ToolboxItem(true), _
- Global.System.ComponentModel.DataObjectAttribute(true), _
- Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
- ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Partial Public Class ЛюдиTableAdapter
- Inherits Global.System.ComponentModel.Component
-
- Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
-
- Private _connection As Global.System.Data.SqlClient.SqlConnection
-
- Private _transaction As Global.System.Data.SqlClient.SqlTransaction
-
- Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
-
- Private _clearBeforeFill As Boolean
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Sub New()
- MyBase.New
- Me.ClearBeforeFill = true
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
- Get
- If (Me._adapter Is Nothing) Then
- Me.InitAdapter
- End If
- Return Me._adapter
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
- Get
- If (Me._connection Is Nothing) Then
- Me.InitConnection
- End If
- Return Me._connection
- End Get
- Set
- Me._connection = value
- If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
- Me.Adapter.InsertCommand.Connection = value
- End If
- If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
- Me.Adapter.DeleteCommand.Connection = value
- End If
- If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
- Me.Adapter.UpdateCommand.Connection = value
- End If
- Dim i As Integer = 0
- Do While (i < Me.CommandCollection.Length)
- If (Not (Me.CommandCollection(i)) Is Nothing) Then
- CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
- End If
- i = (i + 1)
- Loop
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
- Get
- Return Me._transaction
- End Get
- Set
- Me._transaction = value
- Dim i As Integer = 0
- Do While (i < Me.CommandCollection.Length)
- Me.CommandCollection(i).Transaction = Me._transaction
- i = (i + 1)
- Loop
- If ((Not (Me.Adapter) Is Nothing) _
- AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
- Me.Adapter.DeleteCommand.Transaction = Me._transaction
- End If
- If ((Not (Me.Adapter) Is Nothing) _
- AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
- Me.Adapter.InsertCommand.Transaction = Me._transaction
- End If
- If ((Not (Me.Adapter) Is Nothing) _
- AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
- Me.Adapter.UpdateCommand.Transaction = Me._transaction
- End If
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
- Get
- If (Me._commandCollection Is Nothing) Then
- Me.InitCommandCollection
- End If
- Return Me._commandCollection
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Property ClearBeforeFill() As Boolean
- Get
- Return Me._clearBeforeFill
- End Get
- Set
- Me._clearBeforeFill = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Private Sub InitAdapter()
- Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
- Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
- tableMapping.SourceTable = "Table"
- tableMapping.DataSetTable = "Люди"
- tableMapping.ColumnMappings.Add("Код_клиента", "Код_клиента")
- tableMapping.ColumnMappings.Add("ФИО", "ФИО")
- Me._adapter.TableMappings.Add(tableMapping)
- Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
- Me._adapter.DeleteCommand.Connection = Me.Connection
- Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Люди] WHERE (([Код_клиента] = @Original_Код_клиента) AND ((@Is"& _
- "Null_ФИО = 1 AND [ФИО] IS NULL) OR ([ФИО] = @Original_ФИО)))"
- Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
- Me._adapter.InsertCommand.Connection = Me.Connection
- Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Люди] ([ФИО]) VALUES (@ФИО);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Код_клиента, ФИО FROM Люд"& _
- "и WHERE (Код_клиента = SCOPE_IDENTITY())"
- Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
- 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, "", "", ""))
- Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
- Me._adapter.UpdateCommand.Connection = Me.Connection
- Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Люди] SET [ФИО] = @ФИО WHERE (([Код_клиента] = @Original_Код_клиент"& _
- "а) AND ((@IsNull_ФИО = 1 AND [ФИО] IS NULL) OR ([ФИО] = @Original_ФИО)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELEC"& _
- "T Код_клиента, ФИО FROM Люди WHERE (Код_клиента = @Код_клиента)"
- Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Private Sub InitConnection()
- Me._connection = New Global.System.Data.SqlClient.SqlConnection()
- Me._connection.ConnectionString = Global.Example.My.MySettings.Default.BD_Fam_PostanogovConnectionString
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Private Sub InitCommandCollection()
- Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
- Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
- Me._commandCollection(0).Connection = Me.Connection
- Me._commandCollection(0).CommandText = "SELECT Код_клиента, ФИО FROM dbo.Люди"
- Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
- Public Overloads Overridable Function Fill(ByVal dataTable As BD_Fam_PostanogovDataSet.ЛюдиDataTable) As Integer
- Me.Adapter.SelectCommand = Me.CommandCollection(0)
- If (Me.ClearBeforeFill = true) Then
- dataTable.Clear
- End If
- Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
- Return returnValue
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
- Public Overloads Overridable Function GetData() As BD_Fam_PostanogovDataSet.ЛюдиDataTable
- Me.Adapter.SelectCommand = Me.CommandCollection(0)
- Dim dataTable As BD_Fam_PostanogovDataSet.ЛюдиDataTable = New BD_Fam_PostanogovDataSet.ЛюдиDataTable()
- Me.Adapter.Fill(dataTable)
- Return dataTable
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Public Overloads Overridable Function Update(ByVal dataTable As BD_Fam_PostanogovDataSet.ЛюдиDataTable) As Integer
- Return Me.Adapter.Update(dataTable)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Public Overloads Overridable Function Update(ByVal dataSet As BD_Fam_PostanogovDataSet) As Integer
- Return Me.Adapter.Update(dataSet, "Люди")
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
- Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
- Return Me.Adapter.Update(dataRows)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
- Public Overloads Overridable Function Delete(ByVal Original_Код_клиента As Integer, ByVal Original_ФИО As String) As Integer
- Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Код_клиента,Integer)
- If (Original_ФИО Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ФИО,String)
- End If
- Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
- If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
- <> Global.System.Data.ConnectionState.Open) Then
- Me.Adapter.DeleteCommand.Connection.Open
- End If
- Try
- Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
- Return returnValue
- Finally
- If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
- Me.Adapter.DeleteCommand.Connection.Close
- End If
- End Try
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
- Public Overloads Overridable Function Insert(ByVal ФИО As String) As Integer
- If (ФИО Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(0).Value = CType(ФИО,String)
- End If
- Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
- If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
- <> Global.System.Data.ConnectionState.Open) Then
- Me.Adapter.InsertCommand.Connection.Open
- End If
- Try
- Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
- Return returnValue
- Finally
- If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
- Me.Adapter.InsertCommand.Connection.Close
- End If
- End Try
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
- Public Overloads Overridable Function Update(ByVal ФИО As String, ByVal Original_Код_клиента As Integer, ByVal Original_ФИО As String, ByVal Код_клиента As Integer) As Integer
- If (ФИО Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ФИО,String)
- End If
- Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_Код_клиента,Integer)
- If (Original_ФИО Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(2).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(2).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_ФИО,String)
- End If
- Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Код_клиента,Integer)
- Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
- If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
- <> Global.System.Data.ConnectionState.Open) Then
- Me.Adapter.UpdateCommand.Connection.Open
- End If
- Try
- Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
- Return returnValue
- Finally
- If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
- Me.Adapter.UpdateCommand.Connection.Close
- End If
- End Try
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
- Public Overloads Overridable Function Update(ByVal ФИО As String, ByVal Original_Код_клиента As Integer, ByVal Original_ФИО As String) As Integer
- Return Me.Update(ФИО, Original_Код_клиента, Original_ФИО, Original_Код_клиента)
- End Function
- End Class
-
- '''<summary>
- '''Represents the connection and commands used to retrieve and save data.
- '''</summary>
- <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
- Global.System.ComponentModel.ToolboxItem(true), _
- Global.System.ComponentModel.DataObjectAttribute(true), _
- Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
- ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Partial Public Class Список_вакансийTableAdapter
- Inherits Global.System.ComponentModel.Component
-
- Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
-
- Private _connection As Global.System.Data.SqlClient.SqlConnection
-
- Private _transaction As Global.System.Data.SqlClient.SqlTransaction
-
- Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
-
- Private _clearBeforeFill As Boolean
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Sub New()
- MyBase.New
- Me.ClearBeforeFill = true
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
- Get
- If (Me._adapter Is Nothing) Then
- Me.InitAdapter
- End If
- Return Me._adapter
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
- Get
- If (Me._connection Is Nothing) Then
- Me.InitConnection
- End If
- Return Me._connection
- End Get
- Set
- Me._connection = value
- If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
- Me.Adapter.InsertCommand.Connection = value
- End If
- If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
- Me.Adapter.DeleteCommand.Connection = value
- End If
- If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
- Me.Adapter.UpdateCommand.Connection = value
- End If
- Dim i As Integer = 0
- Do While (i < Me.CommandCollection.Length)
- If (Not (Me.CommandCollection(i)) Is Nothing) Then
- CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
- End If
- i = (i + 1)
- Loop
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
- Get
- Return Me._transaction
- End Get
- Set
- Me._transaction = value
- Dim i As Integer = 0
- Do While (i < Me.CommandCollection.Length)
- Me.CommandCollection(i).Transaction = Me._transaction
- i = (i + 1)
- Loop
- If ((Not (Me.Adapter) Is Nothing) _
- AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
- Me.Adapter.DeleteCommand.Transaction = Me._transaction
- End If
- If ((Not (Me.Adapter) Is Nothing) _
- AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
- Me.Adapter.InsertCommand.Transaction = Me._transaction
- End If
- If ((Not (Me.Adapter) Is Nothing) _
- AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
- Me.Adapter.UpdateCommand.Transaction = Me._transaction
- End If
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
- Get
- If (Me._commandCollection Is Nothing) Then
- Me.InitCommandCollection
- End If
- Return Me._commandCollection
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Property ClearBeforeFill() As Boolean
- Get
- Return Me._clearBeforeFill
- End Get
- Set
- Me._clearBeforeFill = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Private Sub InitAdapter()
- Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
- Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
- tableMapping.SourceTable = "Table"
- tableMapping.DataSetTable = "Список_вакансий"
- tableMapping.ColumnMappings.Add("Код_сферы", "Код_сферы")
- tableMapping.ColumnMappings.Add("Должность", "Должность")
- tableMapping.ColumnMappings.Add("Оклад", "Оклад")
- tableMapping.ColumnMappings.Add("Требования_к_соискателю", "Требования_к_соискателю")
- tableMapping.ColumnMappings.Add("Работодатель", "Работодатель")
- tableMapping.ColumnMappings.Add("Контактный_номер", "Контактный_номер")
- tableMapping.ColumnMappings.Add("Код_вакансии", "Код_вакансии")
- Me._adapter.TableMappings.Add(tableMapping)
- Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
- Me._adapter.DeleteCommand.Connection = Me.Connection
- Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Список_вакансий] WHERE (((@IsNull_Код_сферы = 1 AND [Код_сферы"& _
- "] IS NULL) OR ([Код_сферы] = @Original_Код_сферы)) AND ((@IsNull_Должность = 1 A"& _
- "ND [Должность] IS NULL) OR ([Должность] = @Original_Должность)) AND ((@IsNull_Ок"& _
- "лад = 1 AND [Оклад] IS NULL) OR ([Оклад] = @Original_Оклад)) AND ((@IsNull_Требо"& _
- "вания_к_соискателю = 1 AND [Требования_к_соискателю] IS NULL) OR ([Требования_к_"& _
- "соискателю] = @Original_Требования_к_соискателю)) AND ((@IsNull_Работодатель = 1"& _
- " AND [Работодатель] IS NULL) OR ([Работодатель] = @Original_Работодатель)) AND ("& _
- "[Контактный_номер] = @Original_Контактный_номер) AND ([Код_вакансии] = @Original"& _
- "_Код_вакансии))"
- Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
- Me._adapter.InsertCommand.Connection = Me.Connection
- Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Список_вакансий] ([Код_сферы], [Должность], [Оклад], [Требован"& _
- "ия_к_соискателю], [Работодатель], [Контактный_номер]) VALUES (@Код_сферы, @Должн"& _
- "ость, @Оклад, @Требования_к_соискателю, @Работодатель, @Контактный_номер);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELE"& _
- "CT Код_сферы, Должность, Оклад, Требования_к_соискателю, Работодатель, Контактны"& _
- "й_номер, Код_вакансии FROM Список_вакансий WHERE (Код_вакансии = SCOPE_IDENTITY("& _
- "))"
- Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
- Me._adapter.UpdateCommand.Connection = Me.Connection
- Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Список_вакансий] SET [Код_сферы] = @Код_сферы, [Должность] = @Должн"& _
- "ость, [Оклад] = @Оклад, [Требования_к_соискателю] = @Требования_к_соискателю, [Р"& _
- "аботодатель] = @Работодатель, [Контактный_номер] = @Контактный_номер WHERE (((@I"& _
- "sNull_Код_сферы = 1 AND [Код_сферы] IS NULL) OR ([Код_сферы] = @Original_Код_сфе"& _
- "ры)) AND ((@IsNull_Должность = 1 AND [Должность] IS NULL) OR ([Должность] = @Ori"& _
- "ginal_Должность)) AND ((@IsNull_Оклад = 1 AND [Оклад] IS NULL) OR ([Оклад] = @Or"& _
- "iginal_Оклад)) AND ((@IsNull_Требования_к_соискателю = 1 AND [Требования_к_соиск"& _
- "ателю] IS NULL) OR ([Требования_к_соискателю] = @Original_Требования_к_соискател"& _
- "ю)) AND ((@IsNull_Работодатель = 1 AND [Работодатель] IS NULL) OR ([Работодатель"& _
- "] = @Original_Работодатель)) AND ([Контактный_номер] = @Original_Контактный_номе"& _
- "р) AND ([Код_вакансии] = @Original_Код_вакансии));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Код_сферы, Должность,"& _
- " Оклад, Требования_к_соискателю, Работодатель, Контактный_номер, Код_вакансии FR"& _
- "OM Список_вакансий WHERE (Код_вакансии = @Код_вакансии)"
- Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Private Sub InitConnection()
- Me._connection = New Global.System.Data.SqlClient.SqlConnection()
- Me._connection.ConnectionString = Global.Example.My.MySettings.Default.BD_Fam_PostanogovConnectionString
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Private Sub InitCommandCollection()
- Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
- Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
- Me._commandCollection(0).Connection = Me.Connection
- Me._commandCollection(0).CommandText = "SELECT Код_сферы, Должность, Оклад, Требования_к_соискателю, Работодатель, Контак"& _
- "тный_номер, Код_вакансии FROM dbo.Список_вакансий"
- Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
- Public Overloads Overridable Function Fill(ByVal dataTable As BD_Fam_PostanogovDataSet.Список_вакансийDataTable) As Integer
- Me.Adapter.SelectCommand = Me.CommandCollection(0)
- If (Me.ClearBeforeFill = true) Then
- dataTable.Clear
- End If
- Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
- Return returnValue
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
- Public Overloads Overridable Function GetData() As BD_Fam_PostanogovDataSet.Список_вакансийDataTable
- Me.Adapter.SelectCommand = Me.CommandCollection(0)
- Dim dataTable As BD_Fam_PostanogovDataSet.Список_вакансийDataTable = New BD_Fam_PostanogovDataSet.Список_вакансийDataTable()
- Me.Adapter.Fill(dataTable)
- Return dataTable
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Public Overloads Overridable Function Update(ByVal dataTable As BD_Fam_PostanogovDataSet.Список_вакансийDataTable) As Integer
- Return Me.Adapter.Update(dataTable)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Public Overloads Overridable Function Update(ByVal dataSet As BD_Fam_PostanogovDataSet) As Integer
- Return Me.Adapter.Update(dataSet, "Список_вакансий")
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
- Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
- Return Me.Adapter.Update(dataRows)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
- 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
- If (Original_Код_сферы.HasValue = true) Then
- Me.Adapter.DeleteCommand.Parameters(0).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Код_сферы.Value,Integer)
- Else
- Me.Adapter.DeleteCommand.Parameters(0).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(1).Value = Global.System.DBNull.Value
- End If
- If (Original_Должность Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Должность,String)
- End If
- If (Original_Оклад.HasValue = true) Then
- Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Оклад.Value,Integer)
- Else
- Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value
- End If
- If (Original_Требования_к_соискателю Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_Требования_к_соискателю,String)
- End If
- If (Original_Работодатель Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_Работодатель,String)
- End If
- Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Контактный_номер,Double)
- Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_Код_вакансии,Integer)
- Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
- If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
- <> Global.System.Data.ConnectionState.Open) Then
- Me.Adapter.DeleteCommand.Connection.Open
- End If
- Try
- Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
- Return returnValue
- Finally
- If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
- Me.Adapter.DeleteCommand.Connection.Close
- End If
- End Try
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
- 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
- If (Код_сферы.HasValue = true) Then
- Me.Adapter.InsertCommand.Parameters(0).Value = CType(Код_сферы.Value,Integer)
- Else
- Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
- End If
- If (Должность Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(1).Value = CType(Должность,String)
- End If
- If (Оклад.HasValue = true) Then
- Me.Adapter.InsertCommand.Parameters(2).Value = CType(Оклад.Value,Integer)
- Else
- Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
- End If
- If (Требования_к_соискателю Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(3).Value = CType(Требования_к_соискателю,String)
- End If
- If (Работодатель Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(4).Value = CType(Работодатель,String)
- End If
- Me.Adapter.InsertCommand.Parameters(5).Value = CType(Контактный_номер,Double)
- Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
- If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
- <> Global.System.Data.ConnectionState.Open) Then
- Me.Adapter.InsertCommand.Connection.Open
- End If
- Try
- Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
- Return returnValue
- Finally
- If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
- Me.Adapter.InsertCommand.Connection.Close
- End If
- End Try
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
- 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
- If (Код_сферы.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Код_сферы.Value,Integer)
- Else
- Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
- End If
- If (Должность Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Должность,String)
- End If
- If (Оклад.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Оклад.Value,Integer)
- Else
- Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
- End If
- If (Требования_к_соискателю Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Требования_к_соискателю,String)
- End If
- If (Работодатель Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Работодатель,String)
- End If
- Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Контактный_номер,Double)
- If (Original_Код_сферы.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(6).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_Код_сферы.Value,Integer)
- Else
- Me.Adapter.UpdateCommand.Parameters(6).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
- End If
- If (Original_Должность Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Должность,String)
- End If
- If (Original_Оклад.HasValue = true) Then
- Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_Оклад.Value,Integer)
- Else
- Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
- End If
- If (Original_Требования_к_соискателю Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_Требования_к_соискателю,String)
- End If
- If (Original_Работодатель Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_Работодатель,String)
- End If
- Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_Контактный_номер,Double)
- Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Код_вакансии,Integer)
- Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Код_вакансии,Integer)
- Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
- If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
- <> Global.System.Data.ConnectionState.Open) Then
- Me.Adapter.UpdateCommand.Connection.Open
- End If
- Try
- Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
- Return returnValue
- Finally
- If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
- Me.Adapter.UpdateCommand.Connection.Close
- End If
- End Try
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
- 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
- Return Me.Update(Код_сферы, Должность, Оклад, Требования_к_соискателю, Работодатель, Контактный_номер, Original_Код_сферы, Original_Должность, Original_Оклад, Original_Требования_к_соискателю, Original_Работодатель, Original_Контактный_номер, Original_Код_вакансии, Original_Код_вакансии)
- End Function
- End Class
-
- '''<summary>
- '''Represents the connection and commands used to retrieve and save data.
- '''</summary>
- <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
- Global.System.ComponentModel.ToolboxItem(true), _
- Global.System.ComponentModel.DataObjectAttribute(true), _
- Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
- ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Partial Public Class Сферы_деятельностиTableAdapter
- Inherits Global.System.ComponentModel.Component
-
- Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
-
- Private _connection As Global.System.Data.SqlClient.SqlConnection
-
- Private _transaction As Global.System.Data.SqlClient.SqlTransaction
-
- Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
-
- Private _clearBeforeFill As Boolean
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Sub New()
- MyBase.New
- Me.ClearBeforeFill = true
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
- Get
- If (Me._adapter Is Nothing) Then
- Me.InitAdapter
- End If
- Return Me._adapter
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
- Get
- If (Me._connection Is Nothing) Then
- Me.InitConnection
- End If
- Return Me._connection
- End Get
- Set
- Me._connection = value
- If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
- Me.Adapter.InsertCommand.Connection = value
- End If
- If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
- Me.Adapter.DeleteCommand.Connection = value
- End If
- If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
- Me.Adapter.UpdateCommand.Connection = value
- End If
- Dim i As Integer = 0
- Do While (i < Me.CommandCollection.Length)
- If (Not (Me.CommandCollection(i)) Is Nothing) Then
- CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
- End If
- i = (i + 1)
- Loop
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
- Get
- Return Me._transaction
- End Get
- Set
- Me._transaction = value
- Dim i As Integer = 0
- Do While (i < Me.CommandCollection.Length)
- Me.CommandCollection(i).Transaction = Me._transaction
- i = (i + 1)
- Loop
- If ((Not (Me.Adapter) Is Nothing) _
- AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
- Me.Adapter.DeleteCommand.Transaction = Me._transaction
- End If
- If ((Not (Me.Adapter) Is Nothing) _
- AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
- Me.Adapter.InsertCommand.Transaction = Me._transaction
- End If
- If ((Not (Me.Adapter) Is Nothing) _
- AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
- Me.Adapter.UpdateCommand.Transaction = Me._transaction
- End If
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
- Get
- If (Me._commandCollection Is Nothing) Then
- Me.InitCommandCollection
- End If
- Return Me._commandCollection
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Property ClearBeforeFill() As Boolean
- Get
- Return Me._clearBeforeFill
- End Get
- Set
- Me._clearBeforeFill = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Private Sub InitAdapter()
- Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
- Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
- tableMapping.SourceTable = "Table"
- tableMapping.DataSetTable = "Сферы_деятельности"
- tableMapping.ColumnMappings.Add("Код_сферы", "Код_сферы")
- tableMapping.ColumnMappings.Add("Сфера_деятельности", "Сфера_деятельности")
- Me._adapter.TableMappings.Add(tableMapping)
- Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
- Me._adapter.DeleteCommand.Connection = Me.Connection
- Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Сферы_деятельности] WHERE (([Код_сферы] = @Original_Код_сферы)"& _
- " AND ((@IsNull_Сфера_деятельности = 1 AND [Сфера_деятельности] IS NULL) OR ([Сфе"& _
- "ра_деятельности] = @Original_Сфера_деятельности)))"
- Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
- Me._adapter.InsertCommand.Connection = Me.Connection
- Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Сферы_деятельности] ([Сфера_деятельности]) VALUES (@Сфера_деят"& _
- "ельности);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Код_сферы, Сфера_деятельности FROM Сферы_деятельности WHERE ("& _
- "Код_сферы = SCOPE_IDENTITY())"
- Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
- 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, "", "", ""))
- Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
- Me._adapter.UpdateCommand.Connection = Me.Connection
- Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Сферы_деятельности] SET [Сфера_деятельности] = @Сфера_деятельности "& _
- "WHERE (([Код_сферы] = @Original_Код_сферы) AND ((@IsNull_Сфера_деятельности = 1 "& _
- "AND [Сфера_деятельности] IS NULL) OR ([Сфера_деятельности] = @Original_Сфера_дея"& _
- "тельности)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Код_сферы, Сфера_деятельности FROM Сферы_деятельности WHER"& _
- "E (Код_сферы = @Код_сферы)"
- Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- 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, "", "", ""))
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Private Sub InitConnection()
- Me._connection = New Global.System.Data.SqlClient.SqlConnection()
- Me._connection.ConnectionString = Global.Example.My.MySettings.Default.BD_Fam_PostanogovConnectionString
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Private Sub InitCommandCollection()
- Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
- Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
- Me._commandCollection(0).Connection = Me.Connection
- Me._commandCollection(0).CommandText = "SELECT Код_сферы, Сфера_деятельности FROM dbo.Сферы_деятельности"
- Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
- Public Overloads Overridable Function Fill(ByVal dataTable As BD_Fam_PostanogovDataSet.Сферы_деятельностиDataTable) As Integer
- Me.Adapter.SelectCommand = Me.CommandCollection(0)
- If (Me.ClearBeforeFill = true) Then
- dataTable.Clear
- End If
- Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
- Return returnValue
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
- Public Overloads Overridable Function GetData() As BD_Fam_PostanogovDataSet.Сферы_деятельностиDataTable
- Me.Adapter.SelectCommand = Me.CommandCollection(0)
- Dim dataTable As BD_Fam_PostanogovDataSet.Сферы_деятельностиDataTable = New BD_Fam_PostanogovDataSet.Сферы_деятельностиDataTable()
- Me.Adapter.Fill(dataTable)
- Return dataTable
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Public Overloads Overridable Function Update(ByVal dataTable As BD_Fam_PostanogovDataSet.Сферы_деятельностиDataTable) As Integer
- Return Me.Adapter.Update(dataTable)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Public Overloads Overridable Function Update(ByVal dataSet As BD_Fam_PostanogovDataSet) As Integer
- Return Me.Adapter.Update(dataSet, "Сферы_деятельности")
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
- Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
- Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
- Return Me.Adapter.Update(dataRows)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
- Public Overloads Overridable Function Delete(ByVal Original_Код_сферы As Integer, ByVal Original_Сфера_деятельности As String) As Integer
- Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Код_сферы,Integer)
- If (Original_Сфера_деятельности Is Nothing) Then
- Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
- Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
- Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Сфера_деятельности,String)
- End If
- Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
- If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
- <> Global.System.Data.ConnectionState.Open) Then
- Me.Adapter.DeleteCommand.Connection.Open
- End If
- Try
- Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
- Return returnValue
- Finally
- If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
- Me.Adapter.DeleteCommand.Connection.Close
- End If
- End Try
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
- Public Overloads Overridable Function Insert(ByVal Сфера_деятельности As String) As Integer
- If (Сфера_деятельности Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(0).Value = CType(Сфера_деятельности,String)
- End If
- Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
- If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
- <> Global.System.Data.ConnectionState.Open) Then
- Me.Adapter.InsertCommand.Connection.Open
- End If
- Try
- Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
- Return returnValue
- Finally
- If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
- Me.Adapter.InsertCommand.Connection.Close
- End If
- End Try
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
- Public Overloads Overridable Function Update(ByVal Сфера_деятельности As String, ByVal Original_Код_сферы As Integer, ByVal Original_Сфера_деятельности As String, ByVal Код_сферы As Integer) As Integer
- If (Сфера_деятельности Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Сфера_деятельности,String)
- End If
- Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_Код_сферы,Integer)
- If (Original_Сфера_деятельности Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(2).Value = CType(1,Object)
- Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(2).Value = CType(0,Object)
- Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_Сфера_деятельности,String)
- End If
- Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Код_сферы,Integer)
- Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
- If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
- <> Global.System.Data.ConnectionState.Open) Then
- Me.Adapter.UpdateCommand.Connection.Open
- End If
- Try
- Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
- Return returnValue
- Finally
- If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
- Me.Adapter.UpdateCommand.Connection.Close
- End If
- End Try
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
- Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
- Public Overloads Overridable Function Update(ByVal Сфера_деятельности As String, ByVal Original_Код_сферы As Integer, ByVal Original_Сфера_деятельности As String) As Integer
- Return Me.Update(Сфера_деятельности, Original_Код_сферы, Original_Сфера_деятельности, Original_Код_сферы)
- End Function
- End Class
-
- '''<summary>
- '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
- '''</summary>
- <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
- Global.System.ComponentModel.ToolboxItem(true), _
- Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerDesigner, Microsoft.VSD"& _
- "esigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapterManager")> _
- Partial Public Class TableAdapterManager
- Inherits Global.System.ComponentModel.Component
-
- Private _updateOrder As UpdateOrderOption
-
- Private _людиTableAdapter As ЛюдиTableAdapter
-
- Private _список_вакансийTableAdapter As Список_вакансийTableAdapter
-
- Private _сферы_деятельностиTableAdapter As Сферы_деятельностиTableAdapter
-
- Private _backupDataSetBeforeUpdate As Boolean
-
- Private _connection As Global.System.Data.IDbConnection
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Property UpdateOrder() As UpdateOrderOption
- Get
- Return Me._updateOrder
- End Get
- Set
- Me._updateOrder = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
- "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
- "a", "System.Drawing.Design.UITypeEditor")> _
- Public Property ЛюдиTableAdapter() As ЛюдиTableAdapter
- Get
- Return Me._людиTableAdapter
- End Get
- Set
- Me._людиTableAdapter = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
- "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
- "a", "System.Drawing.Design.UITypeEditor")> _
- Public Property Список_вакансийTableAdapter() As Список_вакансийTableAdapter
- Get
- Return Me._список_вакансийTableAdapter
- End Get
- Set
- Me._список_вакансийTableAdapter = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
- "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
- "a", "System.Drawing.Design.UITypeEditor")> _
- Public Property Сферы_деятельностиTableAdapter() As Сферы_деятельностиTableAdapter
- Get
- Return Me._сферы_деятельностиTableAdapter
- End Get
- Set
- Me._сферы_деятельностиTableAdapter = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Property BackupDataSetBeforeUpdate() As Boolean
- Get
- Return Me._backupDataSetBeforeUpdate
- End Get
- Set
- Me._backupDataSetBeforeUpdate = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Browsable(false)> _
- Public Property Connection() As Global.System.Data.IDbConnection
- Get
- If (Not (Me._connection) Is Nothing) Then
- Return Me._connection
- End If
- If ((Not (Me._людиTableAdapter) Is Nothing) _
- AndAlso (Not (Me._людиTableAdapter.Connection) Is Nothing)) Then
- Return Me._людиTableAdapter.Connection
- End If
- If ((Not (Me._список_вакансийTableAdapter) Is Nothing) _
- AndAlso (Not (Me._список_вакансийTableAdapter.Connection) Is Nothing)) Then
- Return Me._список_вакансийTableAdapter.Connection
- End If
- If ((Not (Me._сферы_деятельностиTableAdapter) Is Nothing) _
- AndAlso (Not (Me._сферы_деятельностиTableAdapter.Connection) Is Nothing)) Then
- Return Me._сферы_деятельностиTableAdapter.Connection
- End If
- Return Nothing
- End Get
- Set
- Me._connection = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
- Global.System.ComponentModel.Browsable(false)> _
- Public ReadOnly Property TableAdapterInstanceCount() As Integer
- Get
- Dim count As Integer = 0
- If (Not (Me._людиTableAdapter) Is Nothing) Then
- count = (count + 1)
- End If
- If (Not (Me._список_вакансийTableAdapter) Is Nothing) Then
- count = (count + 1)
- End If
- If (Not (Me._сферы_деятельностиTableAdapter) Is Nothing) Then
- count = (count + 1)
- End If
- Return count
- End Get
- End Property
-
- '''<summary>
- '''Update rows in top-down order.
- '''</summary>
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- 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
- Dim result As Integer = 0
- If (Not (Me._сферы_деятельностиTableAdapter) Is Nothing) Then
- Dim updatedRows() As Global.System.Data.DataRow = dataSet.Сферы_деятельности.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
- updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
- If ((Not (updatedRows) Is Nothing) _
- AndAlso (0 < updatedRows.Length)) Then
- result = (result + Me._сферы_деятельностиTableAdapter.Update(updatedRows))
- allChangedRows.AddRange(updatedRows)
- End If
- End If
- If (Not (Me._список_вакансийTableAdapter) Is Nothing) Then
- Dim updatedRows() As Global.System.Data.DataRow = dataSet.Список_вакансий.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
- updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
- If ((Not (updatedRows) Is Nothing) _
- AndAlso (0 < updatedRows.Length)) Then
- result = (result + Me._список_вакансийTableAdapter.Update(updatedRows))
- allChangedRows.AddRange(updatedRows)
- End If
- End If
- If (Not (Me._людиTableAdapter) Is Nothing) Then
- Dim updatedRows() As Global.System.Data.DataRow = dataSet.Люди.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
- updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
- If ((Not (updatedRows) Is Nothing) _
- AndAlso (0 < updatedRows.Length)) Then
- result = (result + Me._людиTableAdapter.Update(updatedRows))
- allChangedRows.AddRange(updatedRows)
- End If
- End If
- Return result
- End Function
-
- '''<summary>
- '''Insert rows in top-down order.
- '''</summary>
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Private Function UpdateInsertedRows(ByVal dataSet As BD_Fam_PostanogovDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
- Dim result As Integer = 0
- If (Not (Me._сферы_деятельностиTableAdapter) Is Nothing) Then
- Dim addedRows() As Global.System.Data.DataRow = dataSet.Сферы_деятельности.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
- If ((Not (addedRows) Is Nothing) _
- AndAlso (0 < addedRows.Length)) Then
- result = (result + Me._сферы_деятельностиTableAdapter.Update(addedRows))
- allAddedRows.AddRange(addedRows)
- End If
- End If
- If (Not (Me._список_вакансийTableAdapter) Is Nothing) Then
- Dim addedRows() As Global.System.Data.DataRow = dataSet.Список_вакансий.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
- If ((Not (addedRows) Is Nothing) _
- AndAlso (0 < addedRows.Length)) Then
- result = (result + Me._список_вакансийTableAdapter.Update(addedRows))
- allAddedRows.AddRange(addedRows)
- End If
- End If
- If (Not (Me._людиTableAdapter) Is Nothing) Then
- Dim addedRows() As Global.System.Data.DataRow = dataSet.Люди.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
- If ((Not (addedRows) Is Nothing) _
- AndAlso (0 < addedRows.Length)) Then
- result = (result + Me._людиTableAdapter.Update(addedRows))
- allAddedRows.AddRange(addedRows)
- End If
- End If
- Return result
- End Function
-
- '''<summary>
- '''Delete rows in bottom-up order.
- '''</summary>
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Private Function UpdateDeletedRows(ByVal dataSet As BD_Fam_PostanogovDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
- Dim result As Integer = 0
- If (Not (Me._людиTableAdapter) Is Nothing) Then
- Dim deletedRows() As Global.System.Data.DataRow = dataSet.Люди.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
- If ((Not (deletedRows) Is Nothing) _
- AndAlso (0 < deletedRows.Length)) Then
- result = (result + Me._людиTableAdapter.Update(deletedRows))
- allChangedRows.AddRange(deletedRows)
- End If
- End If
- If (Not (Me._список_вакансийTableAdapter) Is Nothing) Then
- Dim deletedRows() As Global.System.Data.DataRow = dataSet.Список_вакансий.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
- If ((Not (deletedRows) Is Nothing) _
- AndAlso (0 < deletedRows.Length)) Then
- result = (result + Me._список_вакансийTableAdapter.Update(deletedRows))
- allChangedRows.AddRange(deletedRows)
- End If
- End If
- If (Not (Me._сферы_деятельностиTableAdapter) Is Nothing) Then
- Dim deletedRows() As Global.System.Data.DataRow = dataSet.Сферы_деятельности.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
- If ((Not (deletedRows) Is Nothing) _
- AndAlso (0 < deletedRows.Length)) Then
- result = (result + Me._сферы_деятельностиTableAdapter.Update(deletedRows))
- allChangedRows.AddRange(deletedRows)
- End If
- End If
- Return result
- End Function
-
- '''<summary>
- '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
- '''</summary>
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- 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()
- If ((updatedRows Is Nothing) _
- OrElse (updatedRows.Length < 1)) Then
- Return updatedRows
- End If
- If ((allAddedRows Is Nothing) _
- OrElse (allAddedRows.Count < 1)) Then
- Return updatedRows
- End If
- Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
- Dim i As Integer = 0
- Do While (i < updatedRows.Length)
- Dim row As Global.System.Data.DataRow = updatedRows(i)
- If (allAddedRows.Contains(row) = false) Then
- realUpdatedRows.Add(row)
- End If
- i = (i + 1)
- Loop
- Return realUpdatedRows.ToArray
- End Function
-
- '''<summary>
- '''Update all changes to the dataset.
- '''</summary>
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Overridable Function UpdateAll(ByVal dataSet As BD_Fam_PostanogovDataSet) As Integer
- If (dataSet Is Nothing) Then
- Throw New Global.System.ArgumentNullException("dataSet")
- End If
- If (dataSet.HasChanges = false) Then
- Return 0
- End If
- If ((Not (Me._людиTableAdapter) Is Nothing) _
- AndAlso (Me.MatchTableAdapterConnection(Me._людиTableAdapter.Connection) = false)) Then
- Throw New Global.System.ArgumentException("Все адаптеры таблицы, управляемые диспетчером адаптера таблицы TableAdapterManage"& _
- "r, должны использовать одинаковую строку подключения.")
- End If
- If ((Not (Me._список_вакансийTableAdapter) Is Nothing) _
- AndAlso (Me.MatchTableAdapterConnection(Me._список_вакансийTableAdapter.Connection) = false)) Then
- Throw New Global.System.ArgumentException("Все адаптеры таблицы, управляемые диспетчером адаптера таблицы TableAdapterManage"& _
- "r, должны использовать одинаковую строку подключения.")
- End If
- If ((Not (Me._сферы_деятельностиTableAdapter) Is Nothing) _
- AndAlso (Me.MatchTableAdapterConnection(Me._сферы_деятельностиTableAdapter.Connection) = false)) Then
- Throw New Global.System.ArgumentException("Все адаптеры таблицы, управляемые диспетчером адаптера таблицы TableAdapterManage"& _
- "r, должны использовать одинаковую строку подключения.")
- End If
- Dim workConnection As Global.System.Data.IDbConnection = Me.Connection
- If (workConnection Is Nothing) Then
- Throw New Global.System.ApplicationException("TableAdapterManager не содержит сведений о подключении. Укажите для каждого адапт"& _
- "ера таблицы TableAdapterManager допустимый экземпляр адаптера таблицы.")
- End If
- Dim workConnOpened As Boolean = false
- If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _
- = Global.System.Data.ConnectionState.Broken) Then
- workConnection.Close
- End If
- If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then
- workConnection.Open
- workConnOpened = true
- End If
- Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction
- If (workTransaction Is Nothing) Then
- Throw New Global.System.ApplicationException("Не удается начать транзакцию. Текущее соединение данных не поддерживает транзакци"& _
- "и или текущее состояние не позволяет начать транзакцию.")
- End If
- Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
- Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
- 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)()
- 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)()
- Dim result As Integer = 0
- Dim backupDataSet As Global.System.Data.DataSet = Nothing
- If Me.BackupDataSetBeforeUpdate Then
- backupDataSet = New Global.System.Data.DataSet()
- backupDataSet.Merge(dataSet)
- End If
- Try
- '---- Prepare for update -----------
- '
- If (Not (Me._людиTableAdapter) Is Nothing) Then
- revertConnections.Add(Me._людиTableAdapter, Me._людиTableAdapter.Connection)
- Me._людиTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
- Me._людиTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
- If Me._людиTableAdapter.Adapter.AcceptChangesDuringUpdate Then
- Me._людиTableAdapter.Adapter.AcceptChangesDuringUpdate = false
- adaptersWithAcceptChangesDuringUpdate.Add(Me._людиTableAdapter.Adapter)
- End If
- End If
- If (Not (Me._список_вакансийTableAdapter) Is Nothing) Then
- revertConnections.Add(Me._список_вакансийTableAdapter, Me._список_вакансийTableAdapter.Connection)
- Me._список_вакансийTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
- Me._список_вакансийTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
- If Me._список_вакансийTableAdapter.Adapter.AcceptChangesDuringUpdate Then
- Me._список_вакансийTableAdapter.Adapter.AcceptChangesDuringUpdate = false
- adaptersWithAcceptChangesDuringUpdate.Add(Me._список_вакансийTableAdapter.Adapter)
- End If
- End If
- If (Not (Me._сферы_деятельностиTableAdapter) Is Nothing) Then
- revertConnections.Add(Me._сферы_деятельностиTableAdapter, Me._сферы_деятельностиTableAdapter.Connection)
- Me._сферы_деятельностиTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
- Me._сферы_деятельностиTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
- If Me._сферы_деятельностиTableAdapter.Adapter.AcceptChangesDuringUpdate Then
- Me._сферы_деятельностиTableAdapter.Adapter.AcceptChangesDuringUpdate = false
- adaptersWithAcceptChangesDuringUpdate.Add(Me._сферы_деятельностиTableAdapter.Adapter)
- End If
- End If
- '
- '---- Perform updates -----------
- '
- If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then
- result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
- result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
- Else
- result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
- result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
- End If
- result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows))
- '
- '---- Commit updates -----------
- '
- workTransaction.Commit
- If (0 < allAddedRows.Count) Then
- Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
- allAddedRows.CopyTo(rows)
- Dim i As Integer = 0
- Do While (i < rows.Length)
- Dim row As Global.System.Data.DataRow = rows(i)
- row.AcceptChanges
- i = (i + 1)
- Loop
- End If
- If (0 < allChangedRows.Count) Then
- Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow
- allChangedRows.CopyTo(rows)
- Dim i As Integer = 0
- Do While (i < rows.Length)
- Dim row As Global.System.Data.DataRow = rows(i)
- row.AcceptChanges
- i = (i + 1)
- Loop
- End If
- Catch ex As Global.System.Exception
- workTransaction.Rollback
- '---- Restore the dataset -----------
- If Me.BackupDataSetBeforeUpdate Then
- Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing))
- dataSet.Clear
- dataSet.Merge(backupDataSet)
- Else
- If (0 < allAddedRows.Count) Then
- Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
- allAddedRows.CopyTo(rows)
- Dim i As Integer = 0
- Do While (i < rows.Length)
- Dim row As Global.System.Data.DataRow = rows(i)
- row.AcceptChanges
- row.SetAdded
- i = (i + 1)
- Loop
- End If
- End If
- Throw ex
- Finally
- If workConnOpened Then
- workConnection.Close
- End If
- If (Not (Me._людиTableAdapter) Is Nothing) Then
- Me._людиTableAdapter.Connection = CType(revertConnections(Me._людиTableAdapter),Global.System.Data.SqlClient.SqlConnection)
- Me._людиTableAdapter.Transaction = Nothing
- End If
- If (Not (Me._список_вакансийTableAdapter) Is Nothing) Then
- Me._список_вакансийTableAdapter.Connection = CType(revertConnections(Me._список_вакансийTableAdapter),Global.System.Data.SqlClient.SqlConnection)
- Me._список_вакансийTableAdapter.Transaction = Nothing
- End If
- If (Not (Me._сферы_деятельностиTableAdapter) Is Nothing) Then
- Me._сферы_деятельностиTableAdapter.Connection = CType(revertConnections(Me._сферы_деятельностиTableAdapter),Global.System.Data.SqlClient.SqlConnection)
- Me._сферы_деятельностиTableAdapter.Transaction = Nothing
- End If
- If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then
- Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter
- adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters)
- Dim i As Integer = 0
- Do While (i < adapters.Length)
- Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i)
- adapter.AcceptChangesDuringUpdate = true
- i = (i + 1)
- Loop
- End If
- End Try
- Return result
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
- Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst))
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean
- If (Not (Me._connection) Is Nothing) Then
- Return true
- End If
- If ((Me.Connection Is Nothing) _
- OrElse (inputConnection Is Nothing)) Then
- Return true
- End If
- If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then
- Return true
- End If
- Return false
- End Function
-
- '''<summary>
- '''Update Order Option
- '''</summary>
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Public Enum UpdateOrderOption
-
- InsertUpdateDelete = 0
-
- UpdateInsertDelete = 1
- End Enum
-
- '''<summary>
- '''Used to sort self-referenced table's rows
- '''</summary>
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Private Class SelfReferenceComparer
- Inherits Object
- Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow)
-
- Private _relation As Global.System.Data.DataRelation
-
- Private _childFirst As Integer
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
- MyBase.New
- Me._relation = relation
- If childFirst Then
- Me._childFirst = -1
- Else
- Me._childFirst = 1
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow
- Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing))
- Dim root As Global.System.Data.DataRow = row
- distance = 0
- 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)()
- traversedRows(row) = row
- Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
- Do While ((Not (parent) Is Nothing) _
- AndAlso (traversedRows.ContainsKey(parent) = false))
- distance = (distance + 1)
- root = parent
- traversedRows(parent) = parent
- parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
- Loop
- If (distance = 0) Then
- traversedRows.Clear
- traversedRows(row) = row
- parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
- Do While ((Not (parent) Is Nothing) _
- AndAlso (traversedRows.ContainsKey(parent) = false))
- distance = (distance + 1)
- root = parent
- traversedRows(parent) = parent
- parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
- Loop
- End If
- Return root
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
- 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
- If Object.ReferenceEquals(row1, row2) Then
- Return 0
- End If
- If (row1 Is Nothing) Then
- Return -1
- End If
- If (row2 Is Nothing) Then
- Return 1
- End If
- Dim distance1 As Integer = 0
- Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1)
- Dim distance2 As Integer = 0
- Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2)
- If Object.ReferenceEquals(root1, root2) Then
- Return (Me._childFirst * distance1.CompareTo(distance2))
- Else
- Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _
- AndAlso (Not (root2.Table) Is Nothing)))
- If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then
- Return -1
- Else
- Return 1
- End If
- End If
- End Function
- End Class
- End Class
- End Namespace
|