commit f05270cf1d05b3aa5fe29fd7e34468fdf093e63d Author: rasz Date: Fri Nov 19 22:41:52 2021 -0300 first commit diff --git a/README.md b/README.md new file mode 100644 index 0000000..ff01375 --- /dev/null +++ b/README.md @@ -0,0 +1,4 @@ +# VB.Net project meant for an exam +# Authors F. Raszeja + +for archival purposes only diff --git a/SetupProjeto/SetupProjeto.vdproj b/SetupProjeto/SetupProjeto.vdproj new file mode 100755 index 0000000..6a82fbb --- /dev/null +++ b/SetupProjeto/SetupProjeto.vdproj @@ -0,0 +1,842 @@ +"DeployProject" +{ +"VSVersion" = "3:800" +"ProjectType" = "8:{978C614F-708E-4E1A-B201-565925725DBA}" +"IsWebType" = "8:FALSE" +"ProjectName" = "8:SetupProjeto" +"LanguageId" = "3:1046" +"CodePage" = "3:1252" +"UILanguageId" = "3:1046" +"SccProjectName" = "8:" +"SccLocalPath" = "8:" +"SccAuxPath" = "8:" +"SccProvider" = "8:" + "Hierarchy" + { + "Entry" + { + "MsmKey" = "8:_415645A50CD34C87B66667C0A84FD115" + "OwnerKey" = "8:_UNDEFINED" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_460438CC8504A10D686A43FFFA0A5CA2" + "OwnerKey" = "8:_415645A50CD34C87B66667C0A84FD115" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_E032A105295B4B948E8DCE691E313693" + "OwnerKey" = "8:_UNDEFINED" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_FEDB68861B20403DB3A35F78AAE9D194" + "OwnerKey" = "8:_UNDEFINED" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_460438CC8504A10D686A43FFFA0A5CA2" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_415645A50CD34C87B66667C0A84FD115" + "MsmSig" = "8:_UNDEFINED" + } + } + "Configurations" + { + "Debug" + { + "DisplayName" = "8:Debug" + "IsDebugOnly" = "11:TRUE" + "IsReleaseOnly" = "11:FALSE" + "OutputFilename" = "8:Debug\\SetupProjeto.msi" + "PackageFilesAs" = "3:2" + "PackageFileSize" = "3:-2147483648" + "CabType" = "3:1" + "Compression" = "3:2" + "SignOutput" = "11:FALSE" + "CertificateFile" = "8:" + "PrivateKeyFile" = "8:" + "TimeStampServer" = "8:" + "InstallerBootstrapper" = "3:2" + } + "Release" + { + "DisplayName" = "8:Release" + "IsDebugOnly" = "11:FALSE" + "IsReleaseOnly" = "11:TRUE" + "OutputFilename" = "8:Release\\SetupProjeto.msi" + "PackageFilesAs" = "3:2" + "PackageFileSize" = "3:-2147483648" + "CabType" = "3:1" + "Compression" = "3:2" + "SignOutput" = "11:FALSE" + "CertificateFile" = "8:" + "PrivateKeyFile" = "8:" + "TimeStampServer" = "8:" + "InstallerBootstrapper" = "3:2" + } + } + "Deployable" + { + "CustomAction" + { + } + "DefaultFeature" + { + "Name" = "8:DefaultFeature" + "Title" = "8:" + "Description" = "8:" + } + "ExternalPersistence" + { + "LaunchCondition" + { + "{A06ECF26-33A3-4562-8140-9B0E340D4F24}:_FE43D7B393DE43B5B1042E0F36443591" + { + "Name" = "8:.NET Framework" + "Message" = "8:[VSDNETMSG]" + "FrameworkVersion" = "8:.NETFramework,Version=v4.6.1" + "AllowLaterVersions" = "11:FALSE" + "InstallUrl" = "8:http://go.microsoft.com/fwlink/?LinkId=671728" + } + } + } + "File" + { + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_460438CC8504A10D686A43FFFA0A5CA2" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:System.Net.Http, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" + "ScatterAssemblies" + { + "_460438CC8504A10D686A43FFFA0A5CA2" + { + "Name" = "8:System.Net.Http.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:System.Net.Http.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_1AEEF1E233EC4AE9864040BB290EDE09" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{1FB2D0AE-D3B9-43D4-B9DD-F88EC61E35DE}:_E032A105295B4B948E8DCE691E313693" + { + "SourcePath" = "8:..\\projetoAvaliacao05\\Banco de Dados\\bdProtocolo.accdb" + "TargetName" = "8:bdProtocolo.accdb" + "Tag" = "8:" + "Folder" = "8:_EA92413DAF854B6788CA1B5459645134" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:FALSE" + "IsolateTo" = "8:" + } + "{1FB2D0AE-D3B9-43D4-B9DD-F88EC61E35DE}:_FEDB68861B20403DB3A35F78AAE9D194" + { + "SourcePath" = "8:..\\projetoAvaliacao05\\PDF\\Avalicao.pdf" + "TargetName" = "8:Avalicao.pdf" + "Tag" = "8:" + "Folder" = "8:_753723DF216E449DBE0A8475DBABF231" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:FALSE" + "IsolateTo" = "8:" + } + } + "FileType" + { + } + "Folder" + { + "{3C67513D-01DD-4637-8A68-80971EB9504F}:_1AEEF1E233EC4AE9864040BB290EDE09" + { + "DefaultLocation" = "8:C:\\projeto" + "Name" = "8:#1925" + "AlwaysCreate" = "11:FALSE" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Property" = "8:TARGETDIR" + "Folders" + { + "{9EF0B969-E518-4E46-987F-47570745A589}:_753723DF216E449DBE0A8475DBABF231" + { + "Name" = "8:PDF" + "AlwaysCreate" = "11:FALSE" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Property" = "8:_63B8F0203D30420FBA975841616DD706" + "Folders" + { + } + } + "{9EF0B969-E518-4E46-987F-47570745A589}:_EA92413DAF854B6788CA1B5459645134" + { + "Name" = "8:Banco de Dados" + "AlwaysCreate" = "11:FALSE" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Property" = "8:_57C97C6660154197B6F7AC209F408F34" + "Folders" + { + } + } + } + } + "{1525181F-901A-416C-8A58-119130FE478E}:_9C1E4D0057FA40909229F67B797316DA" + { + "Name" = "8:#1916" + "AlwaysCreate" = "11:FALSE" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Property" = "8:DesktopFolder" + "Folders" + { + } + } + "{1525181F-901A-416C-8A58-119130FE478E}:_D9A82A6DC7E2402F8AA9D8CB1164784A" + { + "Name" = "8:#1919" + "AlwaysCreate" = "11:FALSE" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Property" = "8:ProgramMenuFolder" + "Folders" + { + } + } + } + "LaunchCondition" + { + } + "Locator" + { + } + "MsiBootstrapper" + { + "LangId" = "3:1046" + "RequiresElevation" = "11:FALSE" + } + "Product" + { + "Name" = "8:Microsoft Visual Studio" + "ProductName" = "8:SetupProjeto" + "ProductCode" = "8:{14B86743-0148-4DE0-A2DF-168EA1920F57}" + "PackageCode" = "8:{7577922E-585B-445D-B777-705BAB1F5FDA}" + "UpgradeCode" = "8:{02EDA68B-12F8-4EDA-B620-27C61F5707AA}" + "AspNetVersion" = "8:4.0.30319.0" + "RestartWWWService" = "11:FALSE" + "RemovePreviousVersions" = "11:FALSE" + "DetectNewerInstalledVersion" = "11:TRUE" + "InstallAllUsers" = "11:FALSE" + "ProductVersion" = "8:1.0.0" + "Manufacturer" = "8:Default Company Name" + "ARPHELPTELEPHONE" = "8:" + "ARPHELPLINK" = "8:" + "Title" = "8:SetupProjeto" + "Subject" = "8:" + "ARPCONTACT" = "8:Default Company Name" + "Keywords" = "8:" + "ARPCOMMENTS" = "8:" + "ARPURLINFOABOUT" = "8:" + "ARPPRODUCTICON" = "8:" + "ARPIconIndex" = "3:0" + "SearchPath" = "8:" + "UseSystemSearchPath" = "11:TRUE" + "TargetPlatform" = "3:0" + "PreBuildEvent" = "8:" + "PostBuildEvent" = "8:" + "RunPostBuildEvent" = "3:0" + } + "Registry" + { + "HKLM" + { + "Keys" + { + "{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_DB048A0CCDC0432FA3C6555C50EB1A7C" + { + "Name" = "8:Software" + "Condition" = "8:" + "AlwaysCreate" = "11:FALSE" + "DeleteAtUninstall" = "11:FALSE" + "Transitive" = "11:FALSE" + "Keys" + { + "{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_A50E69738BD34C2C83A35D8180CFE8DB" + { + "Name" = "8:[Manufacturer]" + "Condition" = "8:" + "AlwaysCreate" = "11:FALSE" + "DeleteAtUninstall" = "11:FALSE" + "Transitive" = "11:FALSE" + "Keys" + { + } + "Values" + { + } + } + } + "Values" + { + } + } + } + } + "HKCU" + { + "Keys" + { + "{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_581D4EDBF46844DA9922BAED6AC52620" + { + "Name" = "8:Software" + "Condition" = "8:" + "AlwaysCreate" = "11:FALSE" + "DeleteAtUninstall" = "11:FALSE" + "Transitive" = "11:FALSE" + "Keys" + { + "{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_A188525B6A48445A84296FA6CB3C45BB" + { + "Name" = "8:[Manufacturer]" + "Condition" = "8:" + "AlwaysCreate" = "11:FALSE" + "DeleteAtUninstall" = "11:FALSE" + "Transitive" = "11:FALSE" + "Keys" + { + } + "Values" + { + } + } + } + "Values" + { + } + } + } + } + "HKCR" + { + "Keys" + { + } + } + "HKU" + { + "Keys" + { + } + } + "HKPU" + { + "Keys" + { + } + } + } + "Sequences" + { + } + "Shortcut" + { + } + "UserInterface" + { + "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_0CDA4EE0EB1546D9B53A0185DBDF397E" + { + "Name" = "8:#1900" + "Sequence" = "3:2" + "Attributes" = "3:1" + "Dialogs" + { + "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_2121F2B2DF874F54930D99C0822CE164" + { + "Sequence" = "3:300" + "DisplayName" = "8:Confirmar Instalação" + "UseDynamicProperties" = "11:TRUE" + "IsDependency" = "11:FALSE" + "SourcePath" = "8:\\VsdAdminConfirmDlg.wid" + "Properties" + { + "BannerBitmap" + { + "Name" = "8:BannerBitmap" + "DisplayName" = "8:#1001" + "Description" = "8:#1101" + "Type" = "3:8" + "ContextData" = "8:Bitmap" + "Attributes" = "3:4" + "Setting" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + } + } + "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_5D4AAA6DB6A54B95A252C90D5E884E5B" + { + "Sequence" = "3:100" + "DisplayName" = "8:Bem-vindo" + "UseDynamicProperties" = "11:TRUE" + "IsDependency" = "11:FALSE" + "SourcePath" = "8:\\VsdAdminWelcomeDlg.wid" + "Properties" + { + "BannerBitmap" + { + "Name" = "8:BannerBitmap" + "DisplayName" = "8:#1001" + "Description" = "8:#1101" + "Type" = "3:8" + "ContextData" = "8:Bitmap" + "Attributes" = "3:4" + "Setting" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + "CopyrightWarning" + { + "Name" = "8:CopyrightWarning" + "DisplayName" = "8:#1002" + "Description" = "8:#1102" + "Type" = "3:3" + "ContextData" = "8:" + "Attributes" = "3:0" + "Setting" = "3:1" + "Value" = "8:#1202" + "DefaultValue" = "8:#1202" + "UsePlugInResources" = "11:TRUE" + } + "Welcome" + { + "Name" = "8:Welcome" + "DisplayName" = "8:#1003" + "Description" = "8:#1103" + "Type" = "3:3" + "ContextData" = "8:" + "Attributes" = "3:0" + "Setting" = "3:1" + "Value" = "8:#1203" + "DefaultValue" = "8:#1203" + "UsePlugInResources" = "11:TRUE" + } + } + } + "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_B789FEBDE7F14A05857EED75ED63C44F" + { + "Sequence" = "3:200" + "DisplayName" = "8:Pasta de Instalação" + "UseDynamicProperties" = "11:TRUE" + "IsDependency" = "11:FALSE" + "SourcePath" = "8:\\VsdAdminFolderDlg.wid" + "Properties" + { + "BannerBitmap" + { + "Name" = "8:BannerBitmap" + "DisplayName" = "8:#1001" + "Description" = "8:#1101" + "Type" = "3:8" + "ContextData" = "8:Bitmap" + "Attributes" = "3:4" + "Setting" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + } + } + } + } + "{2479F3F5-0309-486D-8047-8187E2CE5BA0}:_267F845A19624AA7A639D52CD3266BF0" + { + "UseDynamicProperties" = "11:FALSE" + "IsDependency" = "11:FALSE" + "SourcePath" = "8:\\VsdUserInterface.wim" + } + "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_3B5D492F52D9420DAC8500DCC76EAD52" + { + "Name" = "8:#1900" + "Sequence" = "3:1" + "Attributes" = "3:1" + "Dialogs" + { + "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_1CAB111CF9134D15B5D25AC0642D90E9" + { + "Sequence" = "3:100" + "DisplayName" = "8:Bem-vindo" + "UseDynamicProperties" = "11:TRUE" + "IsDependency" = "11:FALSE" + "SourcePath" = "8:\\VsdWelcomeDlg.wid" + "Properties" + { + "BannerBitmap" + { + "Name" = "8:BannerBitmap" + "DisplayName" = "8:#1001" + "Description" = "8:#1101" + "Type" = "3:8" + "ContextData" = "8:Bitmap" + "Attributes" = "3:4" + "Setting" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + "CopyrightWarning" + { + "Name" = "8:CopyrightWarning" + "DisplayName" = "8:#1002" + "Description" = "8:#1102" + "Type" = "3:3" + "ContextData" = "8:" + "Attributes" = "3:0" + "Setting" = "3:1" + "Value" = "8:#1202" + "DefaultValue" = "8:#1202" + "UsePlugInResources" = "11:TRUE" + } + "Welcome" + { + "Name" = "8:Welcome" + "DisplayName" = "8:#1003" + "Description" = "8:#1103" + "Type" = "3:3" + "ContextData" = "8:" + "Attributes" = "3:0" + "Setting" = "3:1" + "Value" = "8:#1203" + "DefaultValue" = "8:#1203" + "UsePlugInResources" = "11:TRUE" + } + } + } + "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_6C5778040714496E88706699BF087693" + { + "Sequence" = "3:200" + "DisplayName" = "8:Pasta de Instalação" + "UseDynamicProperties" = "11:TRUE" + "IsDependency" = "11:FALSE" + "SourcePath" = "8:\\VsdFolderDlg.wid" + "Properties" + { + "BannerBitmap" + { + "Name" = "8:BannerBitmap" + "DisplayName" = "8:#1001" + "Description" = "8:#1101" + "Type" = "3:8" + "ContextData" = "8:Bitmap" + "Attributes" = "3:4" + "Setting" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + "InstallAllUsersVisible" + { + "Name" = "8:InstallAllUsersVisible" + "DisplayName" = "8:#1059" + "Description" = "8:#1159" + "Type" = "3:5" + "ContextData" = "8:1;True=1;False=0" + "Attributes" = "3:0" + "Setting" = "3:0" + "Value" = "3:1" + "DefaultValue" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + } + } + "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_FA1A4FCA93BF4AEEBFA726B68EFA750A" + { + "Sequence" = "3:300" + "DisplayName" = "8:Confirmar Instalação" + "UseDynamicProperties" = "11:TRUE" + "IsDependency" = "11:FALSE" + "SourcePath" = "8:\\VsdConfirmDlg.wid" + "Properties" + { + "BannerBitmap" + { + "Name" = "8:BannerBitmap" + "DisplayName" = "8:#1001" + "Description" = "8:#1101" + "Type" = "3:8" + "ContextData" = "8:Bitmap" + "Attributes" = "3:4" + "Setting" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + } + } + } + } + "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_564EEA08C3414BBBA3BCA4B7B2DE1B22" + { + "Name" = "8:#1902" + "Sequence" = "3:1" + "Attributes" = "3:3" + "Dialogs" + { + "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_D510E30CB78F4E20AEB94EB239E02B32" + { + "Sequence" = "3:100" + "DisplayName" = "8:Concluído" + "UseDynamicProperties" = "11:TRUE" + "IsDependency" = "11:FALSE" + "SourcePath" = "8:\\VsdFinishedDlg.wid" + "Properties" + { + "BannerBitmap" + { + "Name" = "8:BannerBitmap" + "DisplayName" = "8:#1001" + "Description" = "8:#1101" + "Type" = "3:8" + "ContextData" = "8:Bitmap" + "Attributes" = "3:4" + "Setting" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + "UpdateText" + { + "Name" = "8:UpdateText" + "DisplayName" = "8:#1058" + "Description" = "8:#1158" + "Type" = "3:15" + "ContextData" = "8:" + "Attributes" = "3:0" + "Setting" = "3:1" + "Value" = "8:#1258" + "DefaultValue" = "8:#1258" + "UsePlugInResources" = "11:TRUE" + } + } + } + } + } + "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_57B27AB32A0A46B9A417155B4828D7A2" + { + "Name" = "8:#1902" + "Sequence" = "3:2" + "Attributes" = "3:3" + "Dialogs" + { + "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_C4C8F80F3ED44718A3397E66566A1690" + { + "Sequence" = "3:100" + "DisplayName" = "8:Concluído" + "UseDynamicProperties" = "11:TRUE" + "IsDependency" = "11:FALSE" + "SourcePath" = "8:\\VsdAdminFinishedDlg.wid" + "Properties" + { + "BannerBitmap" + { + "Name" = "8:BannerBitmap" + "DisplayName" = "8:#1001" + "Description" = "8:#1101" + "Type" = "3:8" + "ContextData" = "8:Bitmap" + "Attributes" = "3:4" + "Setting" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + } + } + } + } + "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_5A13F12E4B034B9B9B909BB1FAC53CD6" + { + "Name" = "8:#1901" + "Sequence" = "3:1" + "Attributes" = "3:2" + "Dialogs" + { + "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_E4608DB71178481B86AF42B4F706D97D" + { + "Sequence" = "3:100" + "DisplayName" = "8:Progresso" + "UseDynamicProperties" = "11:TRUE" + "IsDependency" = "11:FALSE" + "SourcePath" = "8:\\VsdProgressDlg.wid" + "Properties" + { + "BannerBitmap" + { + "Name" = "8:BannerBitmap" + "DisplayName" = "8:#1001" + "Description" = "8:#1101" + "Type" = "3:8" + "ContextData" = "8:Bitmap" + "Attributes" = "3:4" + "Setting" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + "ShowProgress" + { + "Name" = "8:ShowProgress" + "DisplayName" = "8:#1009" + "Description" = "8:#1109" + "Type" = "3:5" + "ContextData" = "8:1;True=1;False=0" + "Attributes" = "3:0" + "Setting" = "3:0" + "Value" = "3:1" + "DefaultValue" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + } + } + } + } + "{2479F3F5-0309-486D-8047-8187E2CE5BA0}:_8238F68BD809413AAB5F0DFCE6577539" + { + "UseDynamicProperties" = "11:FALSE" + "IsDependency" = "11:FALSE" + "SourcePath" = "8:\\VsdBasicDialogs.wim" + } + "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_D20AB307777E46A287864BCF89C19FE5" + { + "Name" = "8:#1901" + "Sequence" = "3:2" + "Attributes" = "3:2" + "Dialogs" + { + "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_7A14D1E1ED724DEB890CF952F27874EC" + { + "Sequence" = "3:100" + "DisplayName" = "8:Progresso" + "UseDynamicProperties" = "11:TRUE" + "IsDependency" = "11:FALSE" + "SourcePath" = "8:\\VsdAdminProgressDlg.wid" + "Properties" + { + "BannerBitmap" + { + "Name" = "8:BannerBitmap" + "DisplayName" = "8:#1001" + "Description" = "8:#1101" + "Type" = "3:8" + "ContextData" = "8:Bitmap" + "Attributes" = "3:4" + "Setting" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + "ShowProgress" + { + "Name" = "8:ShowProgress" + "DisplayName" = "8:#1009" + "Description" = "8:#1109" + "Type" = "3:5" + "ContextData" = "8:1;True=1;False=0" + "Attributes" = "3:0" + "Setting" = "3:0" + "Value" = "3:1" + "DefaultValue" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + } + } + } + } + } + "MergeModule" + { + } + "ProjectOutput" + { + "{5259A561-127C-4D43-A0A1-72F10C7B3BF8}:_415645A50CD34C87B66667C0A84FD115" + { + "SourcePath" = "8:..\\projetoAvaliacao05\\obj\\Release\\projetoAvaliacao05.exe" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_1AEEF1E233EC4AE9864040BB290EDE09" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:FALSE" + "IsolateTo" = "8:" + "ProjectOutputGroupRegister" = "3:1" + "OutputConfiguration" = "8:" + "OutputGroupCanonicalName" = "8:Built" + "OutputProjectGuid" = "8:{529BB0BD-DAA8-432F-9686-46B116279EEC}" + "ShowKeyOutput" = "11:TRUE" + "ExcludeFilters" + { + } + } + "{5259A561-127C-4D43-A0A1-72F10C7B3BF8}:_93F02EA45B1544A2BD8B8B82107DD557" + { + "SourcePath" = "8:" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_1AEEF1E233EC4AE9864040BB290EDE09" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:FALSE" + "IsolateTo" = "8:" + "ProjectOutputGroupRegister" = "3:1" + "OutputConfiguration" = "8:" + "OutputGroupCanonicalName" = "8:LocalizedResourceDlls" + "OutputProjectGuid" = "8:{529BB0BD-DAA8-432F-9686-46B116279EEC}" + "ShowKeyOutput" = "11:TRUE" + "ExcludeFilters" + { + } + } + } + } +} diff --git a/projetoAvaliacao05.sln b/projetoAvaliacao05.sln new file mode 100755 index 0000000..4c6e9bb --- /dev/null +++ b/projetoAvaliacao05.sln @@ -0,0 +1,29 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio 15 +VisualStudioVersion = 15.0.27428.2005 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "projetoAvaliacao05", "projetoAvaliacao05\projetoAvaliacao05.vbproj", "{529BB0BD-DAA8-432F-9686-46B116279EEC}" +EndProject +Project("{54435603-DBB4-11D2-8724-00A0C9A8B90C}") = "SetupProjeto", "SetupProjeto\SetupProjeto.vdproj", "{A91B0EBA-AB95-476A-849C-D97F4EF140F7}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {529BB0BD-DAA8-432F-9686-46B116279EEC}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {529BB0BD-DAA8-432F-9686-46B116279EEC}.Debug|Any CPU.Build.0 = Debug|Any CPU + {529BB0BD-DAA8-432F-9686-46B116279EEC}.Release|Any CPU.ActiveCfg = Release|Any CPU + {529BB0BD-DAA8-432F-9686-46B116279EEC}.Release|Any CPU.Build.0 = Release|Any CPU + {A91B0EBA-AB95-476A-849C-D97F4EF140F7}.Debug|Any CPU.ActiveCfg = Debug + {A91B0EBA-AB95-476A-849C-D97F4EF140F7}.Release|Any CPU.ActiveCfg = Release + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + SolutionGuid = {FC44EE0D-F7AA-4EAB-A8A2-D538E9C0741B} + EndGlobalSection +EndGlobal diff --git a/projetoAvaliacao05/App.config b/projetoAvaliacao05/App.config new file mode 100755 index 0000000..3d3db63 --- /dev/null +++ b/projetoAvaliacao05/App.config @@ -0,0 +1,13 @@ + + + + + + + + + + + \ No newline at end of file diff --git a/projetoAvaliacao05/Banco de Dados/bdProtocolo.accdb b/projetoAvaliacao05/Banco de Dados/bdProtocolo.accdb new file mode 100755 index 0000000..f3f9b21 Binary files /dev/null and b/projetoAvaliacao05/Banco de Dados/bdProtocolo.accdb differ diff --git a/projetoAvaliacao05/Banco de Dados/bdProtocoloDataSet.Designer.vb b/projetoAvaliacao05/Banco de Dados/bdProtocoloDataSet.Designer.vb new file mode 100755 index 0000000..12acb02 --- /dev/null +++ b/projetoAvaliacao05/Banco de Dados/bdProtocoloDataSet.Designer.vb @@ -0,0 +1,6081 @@ +'------------------------------------------------------------------------------ +' +' O código foi gerado por uma ferramenta. +' Versão de Tempo de Execução:4.0.30319.42000 +' +' As alterações ao arquivo poderão causar comportamento incorreto e serão perdidas se +' o código for gerado novamente. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class bdProtocoloDataSet + Inherits Global.System.Data.DataSet + + Private tableidFuncionario As idFuncionarioDataTable + + Private tabletb_Cliente As tb_ClienteDataTable + + Private tabletb_Protocolo As tb_ProtocoloDataTable + + Private tabletb_Setor As tb_SetorDataTable + + Private tabletb_Usuario As tb_UsuarioDataTable + + Private tabletbServico As tbServicoDataTable + + Private relationtb_Clientetb_Protocolo As Global.System.Data.DataRelation + + Private relationtb_Setortb_Protocolo As Global.System.Data.DataRelation + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + 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 + + _ + 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("idFuncionario")) Is Nothing) Then + MyBase.Tables.Add(New idFuncionarioDataTable(ds.Tables("idFuncionario"))) + End If + If (Not (ds.Tables("tb_Cliente")) Is Nothing) Then + MyBase.Tables.Add(New tb_ClienteDataTable(ds.Tables("tb_Cliente"))) + End If + If (Not (ds.Tables("tb_Protocolo")) Is Nothing) Then + MyBase.Tables.Add(New tb_ProtocoloDataTable(ds.Tables("tb_Protocolo"))) + End If + If (Not (ds.Tables("tb_Setor")) Is Nothing) Then + MyBase.Tables.Add(New tb_SetorDataTable(ds.Tables("tb_Setor"))) + End If + If (Not (ds.Tables("tb_Usuario")) Is Nothing) Then + MyBase.Tables.Add(New tb_UsuarioDataTable(ds.Tables("tb_Usuario"))) + End If + If (Not (ds.Tables("tbServico")) Is Nothing) Then + MyBase.Tables.Add(New tbServicoDataTable(ds.Tables("tbServico"))) + 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 + + _ + Public ReadOnly Property idFuncionario() As idFuncionarioDataTable + Get + Return Me.tableidFuncionario + End Get + End Property + + _ + Public ReadOnly Property tb_Cliente() As tb_ClienteDataTable + Get + Return Me.tabletb_Cliente + End Get + End Property + + _ + Public ReadOnly Property tb_Protocolo() As tb_ProtocoloDataTable + Get + Return Me.tabletb_Protocolo + End Get + End Property + + _ + Public ReadOnly Property tb_Setor() As tb_SetorDataTable + Get + Return Me.tabletb_Setor + End Get + End Property + + _ + Public ReadOnly Property tb_Usuario() As tb_UsuarioDataTable + Get + Return Me.tabletb_Usuario + End Get + End Property + + _ + Public ReadOnly Property tbServico() As tbServicoDataTable + Get + Return Me.tabletbServico + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As bdProtocoloDataSet = CType(MyBase.Clone,bdProtocoloDataSet) + cln.InitVars + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return false + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return false + End Function + + _ + 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("idFuncionario")) Is Nothing) Then + MyBase.Tables.Add(New idFuncionarioDataTable(ds.Tables("idFuncionario"))) + End If + If (Not (ds.Tables("tb_Cliente")) Is Nothing) Then + MyBase.Tables.Add(New tb_ClienteDataTable(ds.Tables("tb_Cliente"))) + End If + If (Not (ds.Tables("tb_Protocolo")) Is Nothing) Then + MyBase.Tables.Add(New tb_ProtocoloDataTable(ds.Tables("tb_Protocolo"))) + End If + If (Not (ds.Tables("tb_Setor")) Is Nothing) Then + MyBase.Tables.Add(New tb_SetorDataTable(ds.Tables("tb_Setor"))) + End If + If (Not (ds.Tables("tb_Usuario")) Is Nothing) Then + MyBase.Tables.Add(New tb_UsuarioDataTable(ds.Tables("tb_Usuario"))) + End If + If (Not (ds.Tables("tbServico")) Is Nothing) Then + MyBase.Tables.Add(New tbServicoDataTable(ds.Tables("tbServico"))) + 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 + + _ + 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 + + _ + Friend Overloads Sub InitVars() + Me.InitVars(true) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tableidFuncionario = CType(MyBase.Tables("idFuncionario"),idFuncionarioDataTable) + If (initTable = true) Then + If (Not (Me.tableidFuncionario) Is Nothing) Then + Me.tableidFuncionario.InitVars + End If + End If + Me.tabletb_Cliente = CType(MyBase.Tables("tb_Cliente"),tb_ClienteDataTable) + If (initTable = true) Then + If (Not (Me.tabletb_Cliente) Is Nothing) Then + Me.tabletb_Cliente.InitVars + End If + End If + Me.tabletb_Protocolo = CType(MyBase.Tables("tb_Protocolo"),tb_ProtocoloDataTable) + If (initTable = true) Then + If (Not (Me.tabletb_Protocolo) Is Nothing) Then + Me.tabletb_Protocolo.InitVars + End If + End If + Me.tabletb_Setor = CType(MyBase.Tables("tb_Setor"),tb_SetorDataTable) + If (initTable = true) Then + If (Not (Me.tabletb_Setor) Is Nothing) Then + Me.tabletb_Setor.InitVars + End If + End If + Me.tabletb_Usuario = CType(MyBase.Tables("tb_Usuario"),tb_UsuarioDataTable) + If (initTable = true) Then + If (Not (Me.tabletb_Usuario) Is Nothing) Then + Me.tabletb_Usuario.InitVars + End If + End If + Me.tabletbServico = CType(MyBase.Tables("tbServico"),tbServicoDataTable) + If (initTable = true) Then + If (Not (Me.tabletbServico) Is Nothing) Then + Me.tabletbServico.InitVars + End If + End If + Me.relationtb_Clientetb_Protocolo = Me.Relations("tb_Clientetb_Protocolo") + Me.relationtb_Setortb_Protocolo = Me.Relations("tb_Setortb_Protocolo") + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "bdProtocoloDataSet" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/bdProtocoloDataSet.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableidFuncionario = New idFuncionarioDataTable() + MyBase.Tables.Add(Me.tableidFuncionario) + Me.tabletb_Cliente = New tb_ClienteDataTable() + MyBase.Tables.Add(Me.tabletb_Cliente) + Me.tabletb_Protocolo = New tb_ProtocoloDataTable() + MyBase.Tables.Add(Me.tabletb_Protocolo) + Me.tabletb_Setor = New tb_SetorDataTable() + MyBase.Tables.Add(Me.tabletb_Setor) + Me.tabletb_Usuario = New tb_UsuarioDataTable() + MyBase.Tables.Add(Me.tabletb_Usuario) + Me.tabletbServico = New tbServicoDataTable() + MyBase.Tables.Add(Me.tabletbServico) + Me.relationtb_Clientetb_Protocolo = New Global.System.Data.DataRelation("tb_Clientetb_Protocolo", New Global.System.Data.DataColumn() {Me.tabletb_Cliente.cod_ClienteColumn}, New Global.System.Data.DataColumn() {Me.tabletb_Protocolo.idClienteColumn}, false) + Me.Relations.Add(Me.relationtb_Clientetb_Protocolo) + Me.relationtb_Setortb_Protocolo = New Global.System.Data.DataRelation("tb_Setortb_Protocolo", New Global.System.Data.DataColumn() {Me.tabletb_Setor.cod_SetorColumn}, New Global.System.Data.DataColumn() {Me.tabletb_Protocolo.idSetorColumn}, false) + Me.Relations.Add(Me.relationtb_Setortb_Protocolo) + End Sub + + _ + Private Function ShouldSerializeidFuncionario() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetb_Cliente() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetb_Protocolo() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetb_Setor() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetb_Usuario() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbServico() As Boolean + Return false + End Function + + _ + 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 + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As bdProtocoloDataSet = New bdProtocoloDataSet() + 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 + + _ + Public Delegate Sub idFuncionarioRowChangeEventHandler(ByVal sender As Object, ByVal e As idFuncionarioRowChangeEvent) + + _ + Public Delegate Sub tb_ClienteRowChangeEventHandler(ByVal sender As Object, ByVal e As tb_ClienteRowChangeEvent) + + _ + Public Delegate Sub tb_ProtocoloRowChangeEventHandler(ByVal sender As Object, ByVal e As tb_ProtocoloRowChangeEvent) + + _ + Public Delegate Sub tb_SetorRowChangeEventHandler(ByVal sender As Object, ByVal e As tb_SetorRowChangeEvent) + + _ + Public Delegate Sub tb_UsuarioRowChangeEventHandler(ByVal sender As Object, ByVal e As tb_UsuarioRowChangeEvent) + + _ + Public Delegate Sub tbServicoRowChangeEventHandler(ByVal sender As Object, ByVal e As tbServicoRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class idFuncionarioDataTable + Inherits Global.System.Data.TypedTableBase(Of idFuncionarioRow) + + Private columnidFuncionario As Global.System.Data.DataColumn + + Private columnnomeFuncionario As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "idFuncionario" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + 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 + + _ + 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 + + _ + Public ReadOnly Property idFuncionarioColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidFuncionario + End Get + End Property + + _ + Public ReadOnly Property nomeFuncionarioColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeFuncionario + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As idFuncionarioRow + Get + Return CType(Me.Rows(index),idFuncionarioRow) + End Get + End Property + + _ + Public Event idFuncionarioRowChanging As idFuncionarioRowChangeEventHandler + + _ + Public Event idFuncionarioRowChanged As idFuncionarioRowChangeEventHandler + + _ + Public Event idFuncionarioRowDeleting As idFuncionarioRowChangeEventHandler + + _ + Public Event idFuncionarioRowDeleted As idFuncionarioRowChangeEventHandler + + _ + Public Overloads Sub AddidFuncionarioRow(ByVal row As idFuncionarioRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddidFuncionarioRow(ByVal nomeFuncionario As String) As idFuncionarioRow + Dim rowidFuncionarioRow As idFuncionarioRow = CType(Me.NewRow,idFuncionarioRow) + Dim columnValuesArray() As Object = New Object() {Nothing, nomeFuncionario} + rowidFuncionarioRow.ItemArray = columnValuesArray + Me.Rows.Add(rowidFuncionarioRow) + Return rowidFuncionarioRow + End Function + + _ + Public Function FindByidFuncionario(ByVal idFuncionario As Integer) As idFuncionarioRow + Return CType(Me.Rows.Find(New Object() {idFuncionario}),idFuncionarioRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As idFuncionarioDataTable = CType(MyBase.Clone,idFuncionarioDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New idFuncionarioDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnidFuncionario = MyBase.Columns("idFuncionario") + Me.columnnomeFuncionario = MyBase.Columns("nomeFuncionario") + End Sub + + _ + Private Sub InitClass() + Me.columnidFuncionario = New Global.System.Data.DataColumn("idFuncionario", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidFuncionario) + Me.columnnomeFuncionario = New Global.System.Data.DataColumn("nomeFuncionario", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeFuncionario) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnidFuncionario}, true)) + Me.columnidFuncionario.AutoIncrement = true + Me.columnidFuncionario.AutoIncrementSeed = -1 + Me.columnidFuncionario.AutoIncrementStep = -1 + Me.columnidFuncionario.AllowDBNull = false + Me.columnidFuncionario.Unique = true + Me.columnnomeFuncionario.MaxLength = 255 + End Sub + + _ + Public Function NewidFuncionarioRow() As idFuncionarioRow + Return CType(Me.NewRow,idFuncionarioRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New idFuncionarioRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(idFuncionarioRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.idFuncionarioRowChangedEvent) Is Nothing) Then + RaiseEvent idFuncionarioRowChanged(Me, New idFuncionarioRowChangeEvent(CType(e.Row,idFuncionarioRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.idFuncionarioRowChangingEvent) Is Nothing) Then + RaiseEvent idFuncionarioRowChanging(Me, New idFuncionarioRowChangeEvent(CType(e.Row,idFuncionarioRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.idFuncionarioRowDeletedEvent) Is Nothing) Then + RaiseEvent idFuncionarioRowDeleted(Me, New idFuncionarioRowChangeEvent(CType(e.Row,idFuncionarioRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.idFuncionarioRowDeletingEvent) Is Nothing) Then + RaiseEvent idFuncionarioRowDeleting(Me, New idFuncionarioRowChangeEvent(CType(e.Row,idFuncionarioRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveidFuncionarioRow(ByVal row As idFuncionarioRow) + Me.Rows.Remove(row) + End Sub + + _ + 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 bdProtocoloDataSet = New bdProtocoloDataSet() + 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 = "idFuncionarioDataTable" + 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 + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tb_ClienteDataTable + Inherits Global.System.Data.TypedTableBase(Of tb_ClienteRow) + + Private columncod_Cliente As Global.System.Data.DataColumn + + Private columnnome_Cliente As Global.System.Data.DataColumn + + Private columncpf_Cliente As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tb_Cliente" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + 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 + + _ + 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 + + _ + Public ReadOnly Property cod_ClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columncod_Cliente + End Get + End Property + + _ + Public ReadOnly Property nome_ClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnome_Cliente + End Get + End Property + + _ + Public ReadOnly Property cpf_ClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columncpf_Cliente + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tb_ClienteRow + Get + Return CType(Me.Rows(index),tb_ClienteRow) + End Get + End Property + + _ + Public Event tb_ClienteRowChanging As tb_ClienteRowChangeEventHandler + + _ + Public Event tb_ClienteRowChanged As tb_ClienteRowChangeEventHandler + + _ + Public Event tb_ClienteRowDeleting As tb_ClienteRowChangeEventHandler + + _ + Public Event tb_ClienteRowDeleted As tb_ClienteRowChangeEventHandler + + _ + Public Overloads Sub Addtb_ClienteRow(ByVal row As tb_ClienteRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtb_ClienteRow(ByVal nome_Cliente As String, ByVal cpf_Cliente As String) As tb_ClienteRow + Dim rowtb_ClienteRow As tb_ClienteRow = CType(Me.NewRow,tb_ClienteRow) + Dim columnValuesArray() As Object = New Object() {Nothing, nome_Cliente, cpf_Cliente} + rowtb_ClienteRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtb_ClienteRow) + Return rowtb_ClienteRow + End Function + + _ + Public Function FindBycod_Cliente(ByVal cod_Cliente As Integer) As tb_ClienteRow + Return CType(Me.Rows.Find(New Object() {cod_Cliente}),tb_ClienteRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tb_ClienteDataTable = CType(MyBase.Clone,tb_ClienteDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tb_ClienteDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columncod_Cliente = MyBase.Columns("cod_Cliente") + Me.columnnome_Cliente = MyBase.Columns("nome_Cliente") + Me.columncpf_Cliente = MyBase.Columns("cpf_Cliente") + End Sub + + _ + Private Sub InitClass() + Me.columncod_Cliente = New Global.System.Data.DataColumn("cod_Cliente", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncod_Cliente) + Me.columnnome_Cliente = New Global.System.Data.DataColumn("nome_Cliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnome_Cliente) + Me.columncpf_Cliente = New Global.System.Data.DataColumn("cpf_Cliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncpf_Cliente) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncod_Cliente}, true)) + Me.columncod_Cliente.AutoIncrement = true + Me.columncod_Cliente.AutoIncrementSeed = -1 + Me.columncod_Cliente.AutoIncrementStep = -1 + Me.columncod_Cliente.AllowDBNull = false + Me.columncod_Cliente.Unique = true + Me.columnnome_Cliente.MaxLength = 255 + Me.columncpf_Cliente.MaxLength = 255 + End Sub + + _ + Public Function Newtb_ClienteRow() As tb_ClienteRow + Return CType(Me.NewRow,tb_ClienteRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tb_ClienteRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tb_ClienteRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tb_ClienteRowChangedEvent) Is Nothing) Then + RaiseEvent tb_ClienteRowChanged(Me, New tb_ClienteRowChangeEvent(CType(e.Row,tb_ClienteRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tb_ClienteRowChangingEvent) Is Nothing) Then + RaiseEvent tb_ClienteRowChanging(Me, New tb_ClienteRowChangeEvent(CType(e.Row,tb_ClienteRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tb_ClienteRowDeletedEvent) Is Nothing) Then + RaiseEvent tb_ClienteRowDeleted(Me, New tb_ClienteRowChangeEvent(CType(e.Row,tb_ClienteRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tb_ClienteRowDeletingEvent) Is Nothing) Then + RaiseEvent tb_ClienteRowDeleting(Me, New tb_ClienteRowChangeEvent(CType(e.Row,tb_ClienteRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetb_ClienteRow(ByVal row As tb_ClienteRow) + Me.Rows.Remove(row) + End Sub + + _ + 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 bdProtocoloDataSet = New bdProtocoloDataSet() + 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 = "tb_ClienteDataTable" + 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 + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tb_ProtocoloDataTable + Inherits Global.System.Data.TypedTableBase(Of tb_ProtocoloRow) + + Private columnidProtocolo As Global.System.Data.DataColumn + + Private columndataAbertura As Global.System.Data.DataColumn + + Private columnidCliente As Global.System.Data.DataColumn + + Private columnidSetor As Global.System.Data.DataColumn + + Private columnidServico As Global.System.Data.DataColumn + + Private columndescricaoServico As Global.System.Data.DataColumn + + Private columnstatusServico As Global.System.Data.DataColumn + + Private columndataFechamento As Global.System.Data.DataColumn + + Private columnidFuncionario As Global.System.Data.DataColumn + + Private columndescricaoFechamento As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tb_Protocolo" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + 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 + + _ + 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 + + _ + Public ReadOnly Property idProtocoloColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidProtocolo + End Get + End Property + + _ + Public ReadOnly Property dataAberturaColumn() As Global.System.Data.DataColumn + Get + Return Me.columndataAbertura + End Get + End Property + + _ + Public ReadOnly Property idClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidCliente + End Get + End Property + + _ + Public ReadOnly Property idSetorColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidSetor + End Get + End Property + + _ + Public ReadOnly Property idServicoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidServico + End Get + End Property + + _ + Public ReadOnly Property descricaoServicoColumn() As Global.System.Data.DataColumn + Get + Return Me.columndescricaoServico + End Get + End Property + + _ + Public ReadOnly Property statusServicoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnstatusServico + End Get + End Property + + _ + Public ReadOnly Property dataFechamentoColumn() As Global.System.Data.DataColumn + Get + Return Me.columndataFechamento + End Get + End Property + + _ + Public ReadOnly Property idFuncionarioColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidFuncionario + End Get + End Property + + _ + Public ReadOnly Property descricaoFechamentoColumn() As Global.System.Data.DataColumn + Get + Return Me.columndescricaoFechamento + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tb_ProtocoloRow + Get + Return CType(Me.Rows(index),tb_ProtocoloRow) + End Get + End Property + + _ + Public Event tb_ProtocoloRowChanging As tb_ProtocoloRowChangeEventHandler + + _ + Public Event tb_ProtocoloRowChanged As tb_ProtocoloRowChangeEventHandler + + _ + Public Event tb_ProtocoloRowDeleting As tb_ProtocoloRowChangeEventHandler + + _ + Public Event tb_ProtocoloRowDeleted As tb_ProtocoloRowChangeEventHandler + + _ + Public Overloads Sub Addtb_ProtocoloRow(ByVal row As tb_ProtocoloRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtb_ProtocoloRow(ByVal dataAbertura As Date, ByVal parenttb_ClienteRowBytb_Clientetb_Protocolo As tb_ClienteRow, ByVal parenttb_SetorRowBytb_Setortb_Protocolo As tb_SetorRow, ByVal idServico As Integer, ByVal descricaoServico As String, ByVal statusServico As String, ByVal dataFechamento As Date, ByVal idFuncionario As Integer, ByVal descricaoFechamento As String) As tb_ProtocoloRow + Dim rowtb_ProtocoloRow As tb_ProtocoloRow = CType(Me.NewRow,tb_ProtocoloRow) + Dim columnValuesArray() As Object = New Object() {Nothing, dataAbertura, Nothing, Nothing, idServico, descricaoServico, statusServico, dataFechamento, idFuncionario, descricaoFechamento} + If (Not (parenttb_ClienteRowBytb_Clientetb_Protocolo) Is Nothing) Then + columnValuesArray(2) = parenttb_ClienteRowBytb_Clientetb_Protocolo(0) + End If + If (Not (parenttb_SetorRowBytb_Setortb_Protocolo) Is Nothing) Then + columnValuesArray(3) = parenttb_SetorRowBytb_Setortb_Protocolo(0) + End If + rowtb_ProtocoloRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtb_ProtocoloRow) + Return rowtb_ProtocoloRow + End Function + + _ + Public Function FindByidProtocolo(ByVal idProtocolo As Integer) As tb_ProtocoloRow + Return CType(Me.Rows.Find(New Object() {idProtocolo}),tb_ProtocoloRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tb_ProtocoloDataTable = CType(MyBase.Clone,tb_ProtocoloDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tb_ProtocoloDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnidProtocolo = MyBase.Columns("idProtocolo") + Me.columndataAbertura = MyBase.Columns("dataAbertura") + Me.columnidCliente = MyBase.Columns("idCliente") + Me.columnidSetor = MyBase.Columns("idSetor") + Me.columnidServico = MyBase.Columns("idServico") + Me.columndescricaoServico = MyBase.Columns("descricaoServico") + Me.columnstatusServico = MyBase.Columns("statusServico") + Me.columndataFechamento = MyBase.Columns("dataFechamento") + Me.columnidFuncionario = MyBase.Columns("idFuncionario") + Me.columndescricaoFechamento = MyBase.Columns("descricaoFechamento") + End Sub + + _ + Private Sub InitClass() + Me.columnidProtocolo = New Global.System.Data.DataColumn("idProtocolo", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidProtocolo) + Me.columndataAbertura = New Global.System.Data.DataColumn("dataAbertura", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columndataAbertura) + Me.columnidCliente = New Global.System.Data.DataColumn("idCliente", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidCliente) + Me.columnidSetor = New Global.System.Data.DataColumn("idSetor", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidSetor) + Me.columnidServico = New Global.System.Data.DataColumn("idServico", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidServico) + Me.columndescricaoServico = New Global.System.Data.DataColumn("descricaoServico", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columndescricaoServico) + Me.columnstatusServico = New Global.System.Data.DataColumn("statusServico", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnstatusServico) + Me.columndataFechamento = New Global.System.Data.DataColumn("dataFechamento", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columndataFechamento) + Me.columnidFuncionario = New Global.System.Data.DataColumn("idFuncionario", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidFuncionario) + Me.columndescricaoFechamento = New Global.System.Data.DataColumn("descricaoFechamento", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columndescricaoFechamento) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnidProtocolo}, true)) + Me.columnidProtocolo.AutoIncrement = true + Me.columnidProtocolo.AutoIncrementSeed = -1 + Me.columnidProtocolo.AutoIncrementStep = -1 + Me.columnidProtocolo.AllowDBNull = false + Me.columnidProtocolo.Unique = true + Me.columndescricaoServico.MaxLength = 536870910 + Me.columnstatusServico.MaxLength = 536870910 + Me.columndescricaoFechamento.MaxLength = 536870910 + End Sub + + _ + Public Function Newtb_ProtocoloRow() As tb_ProtocoloRow + Return CType(Me.NewRow,tb_ProtocoloRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tb_ProtocoloRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tb_ProtocoloRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tb_ProtocoloRowChangedEvent) Is Nothing) Then + RaiseEvent tb_ProtocoloRowChanged(Me, New tb_ProtocoloRowChangeEvent(CType(e.Row,tb_ProtocoloRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tb_ProtocoloRowChangingEvent) Is Nothing) Then + RaiseEvent tb_ProtocoloRowChanging(Me, New tb_ProtocoloRowChangeEvent(CType(e.Row,tb_ProtocoloRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tb_ProtocoloRowDeletedEvent) Is Nothing) Then + RaiseEvent tb_ProtocoloRowDeleted(Me, New tb_ProtocoloRowChangeEvent(CType(e.Row,tb_ProtocoloRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tb_ProtocoloRowDeletingEvent) Is Nothing) Then + RaiseEvent tb_ProtocoloRowDeleting(Me, New tb_ProtocoloRowChangeEvent(CType(e.Row,tb_ProtocoloRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetb_ProtocoloRow(ByVal row As tb_ProtocoloRow) + Me.Rows.Remove(row) + End Sub + + _ + 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 bdProtocoloDataSet = New bdProtocoloDataSet() + 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 = "tb_ProtocoloDataTable" + 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 + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tb_SetorDataTable + Inherits Global.System.Data.TypedTableBase(Of tb_SetorRow) + + Private columncod_Setor As Global.System.Data.DataColumn + + Private columnnome_Setor As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tb_Setor" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + 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 + + _ + 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 + + _ + Public ReadOnly Property cod_SetorColumn() As Global.System.Data.DataColumn + Get + Return Me.columncod_Setor + End Get + End Property + + _ + Public ReadOnly Property nome_SetorColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnome_Setor + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tb_SetorRow + Get + Return CType(Me.Rows(index),tb_SetorRow) + End Get + End Property + + _ + Public Event tb_SetorRowChanging As tb_SetorRowChangeEventHandler + + _ + Public Event tb_SetorRowChanged As tb_SetorRowChangeEventHandler + + _ + Public Event tb_SetorRowDeleting As tb_SetorRowChangeEventHandler + + _ + Public Event tb_SetorRowDeleted As tb_SetorRowChangeEventHandler + + _ + Public Overloads Sub Addtb_SetorRow(ByVal row As tb_SetorRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtb_SetorRow(ByVal nome_Setor As String) As tb_SetorRow + Dim rowtb_SetorRow As tb_SetorRow = CType(Me.NewRow,tb_SetorRow) + Dim columnValuesArray() As Object = New Object() {Nothing, nome_Setor} + rowtb_SetorRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtb_SetorRow) + Return rowtb_SetorRow + End Function + + _ + Public Function FindBycod_Setor(ByVal cod_Setor As Integer) As tb_SetorRow + Return CType(Me.Rows.Find(New Object() {cod_Setor}),tb_SetorRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tb_SetorDataTable = CType(MyBase.Clone,tb_SetorDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tb_SetorDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columncod_Setor = MyBase.Columns("cod_Setor") + Me.columnnome_Setor = MyBase.Columns("nome_Setor") + End Sub + + _ + Private Sub InitClass() + Me.columncod_Setor = New Global.System.Data.DataColumn("cod_Setor", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncod_Setor) + Me.columnnome_Setor = New Global.System.Data.DataColumn("nome_Setor", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnome_Setor) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncod_Setor}, true)) + Me.columncod_Setor.AutoIncrement = true + Me.columncod_Setor.AutoIncrementSeed = -1 + Me.columncod_Setor.AutoIncrementStep = -1 + Me.columncod_Setor.AllowDBNull = false + Me.columncod_Setor.Unique = true + Me.columnnome_Setor.MaxLength = 255 + End Sub + + _ + Public Function Newtb_SetorRow() As tb_SetorRow + Return CType(Me.NewRow,tb_SetorRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tb_SetorRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tb_SetorRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tb_SetorRowChangedEvent) Is Nothing) Then + RaiseEvent tb_SetorRowChanged(Me, New tb_SetorRowChangeEvent(CType(e.Row,tb_SetorRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tb_SetorRowChangingEvent) Is Nothing) Then + RaiseEvent tb_SetorRowChanging(Me, New tb_SetorRowChangeEvent(CType(e.Row,tb_SetorRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tb_SetorRowDeletedEvent) Is Nothing) Then + RaiseEvent tb_SetorRowDeleted(Me, New tb_SetorRowChangeEvent(CType(e.Row,tb_SetorRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tb_SetorRowDeletingEvent) Is Nothing) Then + RaiseEvent tb_SetorRowDeleting(Me, New tb_SetorRowChangeEvent(CType(e.Row,tb_SetorRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetb_SetorRow(ByVal row As tb_SetorRow) + Me.Rows.Remove(row) + End Sub + + _ + 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 bdProtocoloDataSet = New bdProtocoloDataSet() + 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 = "tb_SetorDataTable" + 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 + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tb_UsuarioDataTable + Inherits Global.System.Data.TypedTableBase(Of tb_UsuarioRow) + + Private columnCódigo As Global.System.Data.DataColumn + + Private columnusuario As Global.System.Data.DataColumn + + Private columnsenha As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tb_Usuario" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + 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 + + _ + 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 + + _ + Public ReadOnly Property CódigoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCódigo + End Get + End Property + + _ + Public ReadOnly Property usuarioColumn() As Global.System.Data.DataColumn + Get + Return Me.columnusuario + End Get + End Property + + _ + Public ReadOnly Property senhaColumn() As Global.System.Data.DataColumn + Get + Return Me.columnsenha + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tb_UsuarioRow + Get + Return CType(Me.Rows(index),tb_UsuarioRow) + End Get + End Property + + _ + Public Event tb_UsuarioRowChanging As tb_UsuarioRowChangeEventHandler + + _ + Public Event tb_UsuarioRowChanged As tb_UsuarioRowChangeEventHandler + + _ + Public Event tb_UsuarioRowDeleting As tb_UsuarioRowChangeEventHandler + + _ + Public Event tb_UsuarioRowDeleted As tb_UsuarioRowChangeEventHandler + + _ + Public Overloads Sub Addtb_UsuarioRow(ByVal row As tb_UsuarioRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtb_UsuarioRow(ByVal usuario As String, ByVal senha As String) As tb_UsuarioRow + Dim rowtb_UsuarioRow As tb_UsuarioRow = CType(Me.NewRow,tb_UsuarioRow) + Dim columnValuesArray() As Object = New Object() {Nothing, usuario, senha} + rowtb_UsuarioRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtb_UsuarioRow) + Return rowtb_UsuarioRow + End Function + + _ + Public Function FindByCódigo(ByVal Código As Integer) As tb_UsuarioRow + Return CType(Me.Rows.Find(New Object() {Código}),tb_UsuarioRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tb_UsuarioDataTable = CType(MyBase.Clone,tb_UsuarioDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tb_UsuarioDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnCódigo = MyBase.Columns("Código") + Me.columnusuario = MyBase.Columns("usuario") + Me.columnsenha = MyBase.Columns("senha") + End Sub + + _ + Private Sub InitClass() + Me.columnCódigo = New Global.System.Data.DataColumn("Código", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCódigo) + Me.columnusuario = New Global.System.Data.DataColumn("usuario", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnusuario) + Me.columnsenha = New Global.System.Data.DataColumn("senha", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnsenha) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCódigo}, true)) + Me.columnCódigo.AutoIncrement = true + Me.columnCódigo.AutoIncrementSeed = -1 + Me.columnCódigo.AutoIncrementStep = -1 + Me.columnCódigo.AllowDBNull = false + Me.columnCódigo.Unique = true + Me.columnusuario.MaxLength = 255 + Me.columnsenha.MaxLength = 255 + End Sub + + _ + Public Function Newtb_UsuarioRow() As tb_UsuarioRow + Return CType(Me.NewRow,tb_UsuarioRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tb_UsuarioRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tb_UsuarioRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tb_UsuarioRowChangedEvent) Is Nothing) Then + RaiseEvent tb_UsuarioRowChanged(Me, New tb_UsuarioRowChangeEvent(CType(e.Row,tb_UsuarioRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tb_UsuarioRowChangingEvent) Is Nothing) Then + RaiseEvent tb_UsuarioRowChanging(Me, New tb_UsuarioRowChangeEvent(CType(e.Row,tb_UsuarioRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tb_UsuarioRowDeletedEvent) Is Nothing) Then + RaiseEvent tb_UsuarioRowDeleted(Me, New tb_UsuarioRowChangeEvent(CType(e.Row,tb_UsuarioRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tb_UsuarioRowDeletingEvent) Is Nothing) Then + RaiseEvent tb_UsuarioRowDeleting(Me, New tb_UsuarioRowChangeEvent(CType(e.Row,tb_UsuarioRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetb_UsuarioRow(ByVal row As tb_UsuarioRow) + Me.Rows.Remove(row) + End Sub + + _ + 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 bdProtocoloDataSet = New bdProtocoloDataSet() + 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 = "tb_UsuarioDataTable" + 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 + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbServicoDataTable + Inherits Global.System.Data.TypedTableBase(Of tbServicoRow) + + Private columnidServico As Global.System.Data.DataColumn + + Private columnnomeServico As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbServico" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + 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 + + _ + 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 + + _ + Public ReadOnly Property idServicoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidServico + End Get + End Property + + _ + Public ReadOnly Property nomeServicoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeServico + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbServicoRow + Get + Return CType(Me.Rows(index),tbServicoRow) + End Get + End Property + + _ + Public Event tbServicoRowChanging As tbServicoRowChangeEventHandler + + _ + Public Event tbServicoRowChanged As tbServicoRowChangeEventHandler + + _ + Public Event tbServicoRowDeleting As tbServicoRowChangeEventHandler + + _ + Public Event tbServicoRowDeleted As tbServicoRowChangeEventHandler + + _ + Public Overloads Sub AddtbServicoRow(ByVal row As tbServicoRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddtbServicoRow(ByVal nomeServico As String) As tbServicoRow + Dim rowtbServicoRow As tbServicoRow = CType(Me.NewRow,tbServicoRow) + Dim columnValuesArray() As Object = New Object() {Nothing, nomeServico} + rowtbServicoRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbServicoRow) + Return rowtbServicoRow + End Function + + _ + Public Function FindByidServico(ByVal idServico As Integer) As tbServicoRow + Return CType(Me.Rows.Find(New Object() {idServico}),tbServicoRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbServicoDataTable = CType(MyBase.Clone,tbServicoDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbServicoDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnidServico = MyBase.Columns("idServico") + Me.columnnomeServico = MyBase.Columns("nomeServico") + End Sub + + _ + Private Sub InitClass() + Me.columnidServico = New Global.System.Data.DataColumn("idServico", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidServico) + Me.columnnomeServico = New Global.System.Data.DataColumn("nomeServico", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeServico) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnidServico}, true)) + Me.columnidServico.AutoIncrement = true + Me.columnidServico.AutoIncrementSeed = -1 + Me.columnidServico.AutoIncrementStep = -1 + Me.columnidServico.AllowDBNull = false + Me.columnidServico.Unique = true + Me.columnnomeServico.MaxLength = 255 + End Sub + + _ + Public Function NewtbServicoRow() As tbServicoRow + Return CType(Me.NewRow,tbServicoRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbServicoRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbServicoRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbServicoRowChangedEvent) Is Nothing) Then + RaiseEvent tbServicoRowChanged(Me, New tbServicoRowChangeEvent(CType(e.Row,tbServicoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbServicoRowChangingEvent) Is Nothing) Then + RaiseEvent tbServicoRowChanging(Me, New tbServicoRowChangeEvent(CType(e.Row,tbServicoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbServicoRowDeletedEvent) Is Nothing) Then + RaiseEvent tbServicoRowDeleted(Me, New tbServicoRowChangeEvent(CType(e.Row,tbServicoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbServicoRowDeletingEvent) Is Nothing) Then + RaiseEvent tbServicoRowDeleting(Me, New tbServicoRowChangeEvent(CType(e.Row,tbServicoRow), e.Action)) + End If + End Sub + + _ + Public Sub RemovetbServicoRow(ByVal row As tbServicoRow) + Me.Rows.Remove(row) + End Sub + + _ + 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 bdProtocoloDataSet = New bdProtocoloDataSet() + 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 = "tbServicoDataTable" + 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 + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class idFuncionarioRow + Inherits Global.System.Data.DataRow + + Private tableidFuncionario As idFuncionarioDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableidFuncionario = CType(Me.Table,idFuncionarioDataTable) + End Sub + + _ + Public Property idFuncionario() As Integer + Get + Return CType(Me(Me.tableidFuncionario.idFuncionarioColumn),Integer) + End Get + Set + Me(Me.tableidFuncionario.idFuncionarioColumn) = value + End Set + End Property + + _ + Public Property nomeFuncionario() As String + Get + Try + Return CType(Me(Me.tableidFuncionario.nomeFuncionarioColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeFuncionario' na tabela 'idFuncionario' é DBNull.", e) + End Try + End Get + Set + Me(Me.tableidFuncionario.nomeFuncionarioColumn) = value + End Set + End Property + + _ + Public Function IsnomeFuncionarioNull() As Boolean + Return Me.IsNull(Me.tableidFuncionario.nomeFuncionarioColumn) + End Function + + _ + Public Sub SetnomeFuncionarioNull() + Me(Me.tableidFuncionario.nomeFuncionarioColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tb_ClienteRow + Inherits Global.System.Data.DataRow + + Private tabletb_Cliente As tb_ClienteDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletb_Cliente = CType(Me.Table,tb_ClienteDataTable) + End Sub + + _ + Public Property cod_Cliente() As Integer + Get + Return CType(Me(Me.tabletb_Cliente.cod_ClienteColumn),Integer) + End Get + Set + Me(Me.tabletb_Cliente.cod_ClienteColumn) = value + End Set + End Property + + _ + Public Property nome_Cliente() As String + Get + Try + Return CType(Me(Me.tabletb_Cliente.nome_ClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nome_Cliente' na tabela 'tb_Cliente' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletb_Cliente.nome_ClienteColumn) = value + End Set + End Property + + _ + Public Property cpf_Cliente() As String + Get + Try + Return CType(Me(Me.tabletb_Cliente.cpf_ClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'cpf_Cliente' na tabela 'tb_Cliente' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletb_Cliente.cpf_ClienteColumn) = value + End Set + End Property + + _ + Public Function Isnome_ClienteNull() As Boolean + Return Me.IsNull(Me.tabletb_Cliente.nome_ClienteColumn) + End Function + + _ + Public Sub Setnome_ClienteNull() + Me(Me.tabletb_Cliente.nome_ClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Iscpf_ClienteNull() As Boolean + Return Me.IsNull(Me.tabletb_Cliente.cpf_ClienteColumn) + End Function + + _ + Public Sub Setcpf_ClienteNull() + Me(Me.tabletb_Cliente.cpf_ClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Gettb_ProtocoloRows() As tb_ProtocoloRow() + If (Me.Table.ChildRelations("tb_Clientetb_Protocolo") Is Nothing) Then + Return New tb_ProtocoloRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tb_Clientetb_Protocolo")),tb_ProtocoloRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tb_ProtocoloRow + Inherits Global.System.Data.DataRow + + Private tabletb_Protocolo As tb_ProtocoloDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletb_Protocolo = CType(Me.Table,tb_ProtocoloDataTable) + End Sub + + _ + Public Property idProtocolo() As Integer + Get + Return CType(Me(Me.tabletb_Protocolo.idProtocoloColumn),Integer) + End Get + Set + Me(Me.tabletb_Protocolo.idProtocoloColumn) = value + End Set + End Property + + _ + Public Property dataAbertura() As Date + Get + Try + Return CType(Me(Me.tabletb_Protocolo.dataAberturaColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'dataAbertura' na tabela 'tb_Protocolo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletb_Protocolo.dataAberturaColumn) = value + End Set + End Property + + _ + Public Property idCliente() As Integer + Get + Try + Return CType(Me(Me.tabletb_Protocolo.idClienteColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'idCliente' na tabela 'tb_Protocolo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletb_Protocolo.idClienteColumn) = value + End Set + End Property + + _ + Public Property idSetor() As Integer + Get + Try + Return CType(Me(Me.tabletb_Protocolo.idSetorColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'idSetor' na tabela 'tb_Protocolo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletb_Protocolo.idSetorColumn) = value + End Set + End Property + + _ + Public Property idServico() As Integer + Get + Try + Return CType(Me(Me.tabletb_Protocolo.idServicoColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'idServico' na tabela 'tb_Protocolo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletb_Protocolo.idServicoColumn) = value + End Set + End Property + + _ + Public Property descricaoServico() As String + Get + Try + Return CType(Me(Me.tabletb_Protocolo.descricaoServicoColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'descricaoServico' na tabela 'tb_Protocolo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletb_Protocolo.descricaoServicoColumn) = value + End Set + End Property + + _ + Public Property statusServico() As String + Get + Try + Return CType(Me(Me.tabletb_Protocolo.statusServicoColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'statusServico' na tabela 'tb_Protocolo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletb_Protocolo.statusServicoColumn) = value + End Set + End Property + + _ + Public Property dataFechamento() As Date + Get + Try + Return CType(Me(Me.tabletb_Protocolo.dataFechamentoColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'dataFechamento' na tabela 'tb_Protocolo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletb_Protocolo.dataFechamentoColumn) = value + End Set + End Property + + _ + Public Property idFuncionario() As Integer + Get + Try + Return CType(Me(Me.tabletb_Protocolo.idFuncionarioColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'idFuncionario' na tabela 'tb_Protocolo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletb_Protocolo.idFuncionarioColumn) = value + End Set + End Property + + _ + Public Property descricaoFechamento() As String + Get + Try + Return CType(Me(Me.tabletb_Protocolo.descricaoFechamentoColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'descricaoFechamento' na tabela 'tb_Protocolo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletb_Protocolo.descricaoFechamentoColumn) = value + End Set + End Property + + _ + Public Property tb_ClienteRow() As tb_ClienteRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("tb_Clientetb_Protocolo")),tb_ClienteRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("tb_Clientetb_Protocolo")) + End Set + End Property + + _ + Public Property tb_SetorRow() As tb_SetorRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("tb_Setortb_Protocolo")),tb_SetorRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("tb_Setortb_Protocolo")) + End Set + End Property + + _ + Public Function IsdataAberturaNull() As Boolean + Return Me.IsNull(Me.tabletb_Protocolo.dataAberturaColumn) + End Function + + _ + Public Sub SetdataAberturaNull() + Me(Me.tabletb_Protocolo.dataAberturaColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsidClienteNull() As Boolean + Return Me.IsNull(Me.tabletb_Protocolo.idClienteColumn) + End Function + + _ + Public Sub SetidClienteNull() + Me(Me.tabletb_Protocolo.idClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsidSetorNull() As Boolean + Return Me.IsNull(Me.tabletb_Protocolo.idSetorColumn) + End Function + + _ + Public Sub SetidSetorNull() + Me(Me.tabletb_Protocolo.idSetorColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsidServicoNull() As Boolean + Return Me.IsNull(Me.tabletb_Protocolo.idServicoColumn) + End Function + + _ + Public Sub SetidServicoNull() + Me(Me.tabletb_Protocolo.idServicoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsdescricaoServicoNull() As Boolean + Return Me.IsNull(Me.tabletb_Protocolo.descricaoServicoColumn) + End Function + + _ + Public Sub SetdescricaoServicoNull() + Me(Me.tabletb_Protocolo.descricaoServicoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsstatusServicoNull() As Boolean + Return Me.IsNull(Me.tabletb_Protocolo.statusServicoColumn) + End Function + + _ + Public Sub SetstatusServicoNull() + Me(Me.tabletb_Protocolo.statusServicoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsdataFechamentoNull() As Boolean + Return Me.IsNull(Me.tabletb_Protocolo.dataFechamentoColumn) + End Function + + _ + Public Sub SetdataFechamentoNull() + Me(Me.tabletb_Protocolo.dataFechamentoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsidFuncionarioNull() As Boolean + Return Me.IsNull(Me.tabletb_Protocolo.idFuncionarioColumn) + End Function + + _ + Public Sub SetidFuncionarioNull() + Me(Me.tabletb_Protocolo.idFuncionarioColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsdescricaoFechamentoNull() As Boolean + Return Me.IsNull(Me.tabletb_Protocolo.descricaoFechamentoColumn) + End Function + + _ + Public Sub SetdescricaoFechamentoNull() + Me(Me.tabletb_Protocolo.descricaoFechamentoColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tb_SetorRow + Inherits Global.System.Data.DataRow + + Private tabletb_Setor As tb_SetorDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletb_Setor = CType(Me.Table,tb_SetorDataTable) + End Sub + + _ + Public Property cod_Setor() As Integer + Get + Return CType(Me(Me.tabletb_Setor.cod_SetorColumn),Integer) + End Get + Set + Me(Me.tabletb_Setor.cod_SetorColumn) = value + End Set + End Property + + _ + Public Property nome_Setor() As String + Get + Try + Return CType(Me(Me.tabletb_Setor.nome_SetorColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nome_Setor' na tabela 'tb_Setor' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletb_Setor.nome_SetorColumn) = value + End Set + End Property + + _ + Public Function Isnome_SetorNull() As Boolean + Return Me.IsNull(Me.tabletb_Setor.nome_SetorColumn) + End Function + + _ + Public Sub Setnome_SetorNull() + Me(Me.tabletb_Setor.nome_SetorColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Gettb_ProtocoloRows() As tb_ProtocoloRow() + If (Me.Table.ChildRelations("tb_Setortb_Protocolo") Is Nothing) Then + Return New tb_ProtocoloRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tb_Setortb_Protocolo")),tb_ProtocoloRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tb_UsuarioRow + Inherits Global.System.Data.DataRow + + Private tabletb_Usuario As tb_UsuarioDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletb_Usuario = CType(Me.Table,tb_UsuarioDataTable) + End Sub + + _ + Public Property Código() As Integer + Get + Return CType(Me(Me.tabletb_Usuario.CódigoColumn),Integer) + End Get + Set + Me(Me.tabletb_Usuario.CódigoColumn) = value + End Set + End Property + + _ + Public Property usuario() As String + Get + Try + Return CType(Me(Me.tabletb_Usuario.usuarioColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'usuario' na tabela 'tb_Usuario' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletb_Usuario.usuarioColumn) = value + End Set + End Property + + _ + Public Property senha() As String + Get + Try + Return CType(Me(Me.tabletb_Usuario.senhaColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'senha' na tabela 'tb_Usuario' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletb_Usuario.senhaColumn) = value + End Set + End Property + + _ + Public Function IsusuarioNull() As Boolean + Return Me.IsNull(Me.tabletb_Usuario.usuarioColumn) + End Function + + _ + Public Sub SetusuarioNull() + Me(Me.tabletb_Usuario.usuarioColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IssenhaNull() As Boolean + Return Me.IsNull(Me.tabletb_Usuario.senhaColumn) + End Function + + _ + Public Sub SetsenhaNull() + Me(Me.tabletb_Usuario.senhaColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbServicoRow + Inherits Global.System.Data.DataRow + + Private tabletbServico As tbServicoDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbServico = CType(Me.Table,tbServicoDataTable) + End Sub + + _ + Public Property idServico() As Integer + Get + Return CType(Me(Me.tabletbServico.idServicoColumn),Integer) + End Get + Set + Me(Me.tabletbServico.idServicoColumn) = value + End Set + End Property + + _ + Public Property nomeServico() As String + Get + Try + Return CType(Me(Me.tabletbServico.nomeServicoColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeServico' na tabela 'tbServico' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbServico.nomeServicoColumn) = value + End Set + End Property + + _ + Public Function IsnomeServicoNull() As Boolean + Return Me.IsNull(Me.tabletbServico.nomeServicoColumn) + End Function + + _ + Public Sub SetnomeServicoNull() + Me(Me.tabletbServico.nomeServicoColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class idFuncionarioRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As idFuncionarioRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As idFuncionarioRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As idFuncionarioRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tb_ClienteRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tb_ClienteRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tb_ClienteRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tb_ClienteRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tb_ProtocoloRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tb_ProtocoloRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tb_ProtocoloRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tb_ProtocoloRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tb_SetorRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tb_SetorRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tb_SetorRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tb_SetorRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tb_UsuarioRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tb_UsuarioRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tb_UsuarioRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tb_UsuarioRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbServicoRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbServicoRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbServicoRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbServicoRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class + +Namespace bdProtocoloDataSetTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class idFuncionarioTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + 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.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + 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 + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "idFuncionario" + tableMapping.ColumnMappings.Add("idFuncionario", "idFuncionario") + tableMapping.ColumnMappings.Add("nomeFuncionario", "nomeFuncionario") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM `idFuncionario` WHERE ((`idFuncionario` = ?) AND ((? = 1 AND `nomeFun"& _ + "cionario` IS NULL) OR (`nomeFuncionario` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idFuncionario", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idFuncionario", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeFuncionario", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeFuncionario", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeFuncionario", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeFuncionario", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO `idFuncionario` (`nomeFuncionario`) VALUES (?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeFuncionario", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeFuncionario", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE `idFuncionario` SET `nomeFuncionario` = ? WHERE ((`idFuncionario` = ?) AND"& _ + " ((? = 1 AND `nomeFuncionario` IS NULL) OR (`nomeFuncionario` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeFuncionario", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeFuncionario", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idFuncionario", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idFuncionario", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeFuncionario", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeFuncionario", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeFuncionario", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeFuncionario", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.projetoAvaliacao05.My.MySettings.Default.bdProtocoloConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT idFuncionario, nomeFuncionario FROM idFuncionario" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As bdProtocoloDataSet.idFuncionarioDataTable) 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 + + _ + Public Overloads Overridable Function GetData() As bdProtocoloDataSet.idFuncionarioDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As bdProtocoloDataSet.idFuncionarioDataTable = New bdProtocoloDataSet.idFuncionarioDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As bdProtocoloDataSet.idFuncionarioDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As bdProtocoloDataSet) As Integer + Return Me.Adapter.Update(dataSet, "idFuncionario") + End Function + + _ + 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 + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_idFuncionario As Integer, ByVal Original_nomeFuncionario As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_idFuncionario,Integer) + If (Original_nomeFuncionario 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_nomeFuncionario,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 + + _ + Public Overloads Overridable Function Insert(ByVal nomeFuncionario As String) As Integer + If (nomeFuncionario Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(nomeFuncionario,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 + + _ + Public Overloads Overridable Function Update(ByVal nomeFuncionario As String, ByVal Original_idFuncionario As Integer, ByVal Original_nomeFuncionario As String) As Integer + If (nomeFuncionario Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nomeFuncionario,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_idFuncionario,Integer) + If (Original_nomeFuncionario 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_nomeFuncionario,String) + End If + 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 + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class tb_ClienteTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + 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.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + 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 + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "tb_Cliente" + tableMapping.ColumnMappings.Add("cod_Cliente", "cod_Cliente") + tableMapping.ColumnMappings.Add("nome_Cliente", "nome_Cliente") + tableMapping.ColumnMappings.Add("cpf_Cliente", "cpf_Cliente") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM `tb_Cliente` WHERE ((`cod_Cliente` = ?) AND ((? = 1 AND `nome_Cliente"& _ + "` IS NULL) OR (`nome_Cliente` = ?)) AND ((? = 1 AND `cpf_Cliente` IS NULL) OR (`"& _ + "cpf_Cliente` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_cod_Cliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cod_Cliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nome_Cliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nome_Cliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nome_Cliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nome_Cliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_cpf_Cliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cpf_Cliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_cpf_Cliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cpf_Cliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO `tb_Cliente` (`nome_Cliente`, `cpf_Cliente`) VALUES (?, ?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nome_Cliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nome_Cliente", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("cpf_Cliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cpf_Cliente", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE `tb_Cliente` SET `nome_Cliente` = ?, `cpf_Cliente` = ? WHERE ((`cod_Client"& _ + "e` = ?) AND ((? = 1 AND `nome_Cliente` IS NULL) OR (`nome_Cliente` = ?)) AND ((?"& _ + " = 1 AND `cpf_Cliente` IS NULL) OR (`cpf_Cliente` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nome_Cliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nome_Cliente", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("cpf_Cliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cpf_Cliente", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_cod_Cliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cod_Cliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nome_Cliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nome_Cliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nome_Cliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nome_Cliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_cpf_Cliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cpf_Cliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_cpf_Cliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cpf_Cliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.projetoAvaliacao05.My.MySettings.Default.bdProtocoloConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT cod_Cliente, nome_Cliente, cpf_Cliente FROM tb_Cliente" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As bdProtocoloDataSet.tb_ClienteDataTable) 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 + + _ + Public Overloads Overridable Function GetData() As bdProtocoloDataSet.tb_ClienteDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As bdProtocoloDataSet.tb_ClienteDataTable = New bdProtocoloDataSet.tb_ClienteDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As bdProtocoloDataSet.tb_ClienteDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As bdProtocoloDataSet) As Integer + Return Me.Adapter.Update(dataSet, "tb_Cliente") + End Function + + _ + 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 + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_cod_Cliente As Integer, ByVal Original_nome_Cliente As String, ByVal Original_cpf_Cliente As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_cod_Cliente,Integer) + If (Original_nome_Cliente 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_nome_Cliente,String) + End If + If (Original_cpf_Cliente Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_cpf_Cliente,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 + + _ + Public Overloads Overridable Function Insert(ByVal nome_Cliente As String, ByVal cpf_Cliente As String) As Integer + If (nome_Cliente Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(nome_Cliente,String) + End If + If (cpf_Cliente Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(cpf_Cliente,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 + + _ + Public Overloads Overridable Function Update(ByVal nome_Cliente As String, ByVal cpf_Cliente As String, ByVal Original_cod_Cliente As Integer, ByVal Original_nome_Cliente As String, ByVal Original_cpf_Cliente As String) As Integer + If (nome_Cliente Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nome_Cliente,String) + End If + If (cpf_Cliente Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(cpf_Cliente,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_cod_Cliente,Integer) + If (Original_nome_Cliente Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_nome_Cliente,String) + End If + If (Original_cpf_Cliente Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_cpf_Cliente,String) + End If + 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 + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class tb_ProtocoloTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + 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.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + 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 + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "tb_Protocolo" + tableMapping.ColumnMappings.Add("idProtocolo", "idProtocolo") + tableMapping.ColumnMappings.Add("dataAbertura", "dataAbertura") + tableMapping.ColumnMappings.Add("idCliente", "idCliente") + tableMapping.ColumnMappings.Add("idSetor", "idSetor") + tableMapping.ColumnMappings.Add("idServico", "idServico") + tableMapping.ColumnMappings.Add("descricaoServico", "descricaoServico") + tableMapping.ColumnMappings.Add("statusServico", "statusServico") + tableMapping.ColumnMappings.Add("dataFechamento", "dataFechamento") + tableMapping.ColumnMappings.Add("idFuncionario", "idFuncionario") + tableMapping.ColumnMappings.Add("descricaoFechamento", "descricaoFechamento") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM `tb_Protocolo` WHERE ((`idProtocolo` = ?) AND ((? = 1 AND `dataAbertu"& _ + "ra` IS NULL) OR (`dataAbertura` = ?)) AND ((? = 1 AND `idCliente` IS NULL) OR (`"& _ + "idCliente` = ?)) AND ((? = 1 AND `idSetor` IS NULL) OR (`idSetor` = ?)) AND ((? "& _ + "= 1 AND `idServico` IS NULL) OR (`idServico` = ?)) AND ((? = 1 AND `dataFechamen"& _ + "to` IS NULL) OR (`dataFechamento` = ?)) AND ((? = 1 AND `idFuncionario` IS NULL)"& _ + " OR (`idFuncionario` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idProtocolo", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idProtocolo", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_dataAbertura", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "dataAbertura", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_dataAbertura", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "dataAbertura", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_idCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_idSetor", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idSetor", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idSetor", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idSetor", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_idServico", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idServico", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idServico", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idServico", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_dataFechamento", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "dataFechamento", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_dataFechamento", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "dataFechamento", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_idFuncionario", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idFuncionario", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idFuncionario", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idFuncionario", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO `tb_Protocolo` (`dataAbertura`, `idCliente`, `idSetor`, `idServico`, "& _ + "`descricaoServico`, `statusServico`, `dataFechamento`, `idFuncionario`, `descric"& _ + "aoFechamento`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("dataAbertura", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "dataAbertura", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("idCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCliente", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("idSetor", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idSetor", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("idServico", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idServico", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("descricaoServico", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "descricaoServico", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("statusServico", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusServico", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("dataFechamento", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "dataFechamento", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("idFuncionario", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idFuncionario", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("descricaoFechamento", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "descricaoFechamento", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE `tb_Protocolo` SET `dataAbertura` = ?, `idCliente` = ?, `idSetor` = ?, `id"& _ + "Servico` = ?, `descricaoServico` = ?, `statusServico` = ?, `dataFechamento` = ?,"& _ + " `idFuncionario` = ?, `descricaoFechamento` = ? WHERE ((`idProtocolo` = ?) AND ("& _ + "(? = 1 AND `dataAbertura` IS NULL) OR (`dataAbertura` = ?)) AND ((? = 1 AND `idC"& _ + "liente` IS NULL) OR (`idCliente` = ?)) AND ((? = 1 AND `idSetor` IS NULL) OR (`i"& _ + "dSetor` = ?)) AND ((? = 1 AND `idServico` IS NULL) OR (`idServico` = ?)) AND ((?"& _ + " = 1 AND `dataFechamento` IS NULL) OR (`dataFechamento` = ?)) AND ((? = 1 AND `i"& _ + "dFuncionario` IS NULL) OR (`idFuncionario` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("dataAbertura", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "dataAbertura", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("idCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCliente", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("idSetor", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idSetor", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("idServico", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idServico", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("descricaoServico", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "descricaoServico", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("statusServico", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusServico", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("dataFechamento", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "dataFechamento", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("idFuncionario", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idFuncionario", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("descricaoFechamento", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "descricaoFechamento", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idProtocolo", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idProtocolo", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_dataAbertura", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "dataAbertura", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_dataAbertura", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "dataAbertura", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_idCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_idSetor", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idSetor", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idSetor", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idSetor", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_idServico", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idServico", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idServico", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idServico", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_dataFechamento", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "dataFechamento", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_dataFechamento", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "dataFechamento", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_idFuncionario", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idFuncionario", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idFuncionario", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idFuncionario", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.projetoAvaliacao05.My.MySettings.Default.bdProtocoloConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT idProtocolo, dataAbertura, idCliente, idSetor, idServico, descricaoServico"& _ + ", statusServico, dataFechamento, idFuncionario, descricaoFechamento FROM tb_Prot"& _ + "ocolo" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As bdProtocoloDataSet.tb_ProtocoloDataTable) 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 + + _ + Public Overloads Overridable Function GetData() As bdProtocoloDataSet.tb_ProtocoloDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As bdProtocoloDataSet.tb_ProtocoloDataTable = New bdProtocoloDataSet.tb_ProtocoloDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As bdProtocoloDataSet.tb_ProtocoloDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As bdProtocoloDataSet) As Integer + Return Me.Adapter.Update(dataSet, "tb_Protocolo") + End Function + + _ + 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 + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_idProtocolo As Integer, ByVal Original_dataAbertura As Global.System.Nullable(Of Date), ByVal Original_idCliente As Global.System.Nullable(Of Integer), ByVal Original_idSetor As Global.System.Nullable(Of Integer), ByVal Original_idServico As Global.System.Nullable(Of Integer), ByVal Original_dataFechamento As Global.System.Nullable(Of Date), ByVal Original_idFuncionario As Global.System.Nullable(Of Integer)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_idProtocolo,Integer) + If (Original_dataAbertura.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_dataAbertura.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (Original_idCliente.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_idCliente.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (Original_idSetor.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_idSetor.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (Original_idServico.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_idServico.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + If (Original_dataFechamento.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_dataFechamento.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + If (Original_idFuncionario.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_idFuncionario.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + 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 + + _ + Public Overloads Overridable Function Insert(ByVal dataAbertura As Global.System.Nullable(Of Date), ByVal idCliente As Global.System.Nullable(Of Integer), ByVal idSetor As Global.System.Nullable(Of Integer), ByVal idServico As Global.System.Nullable(Of Integer), ByVal descricaoServico As String, ByVal statusServico As String, ByVal dataFechamento As Global.System.Nullable(Of Date), ByVal idFuncionario As Global.System.Nullable(Of Integer), ByVal descricaoFechamento As String) As Integer + If (dataAbertura.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(0).Value = CType(dataAbertura.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (idCliente.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(1).Value = CType(idCliente.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (idSetor.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(2).Value = CType(idSetor.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (idServico.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(3).Value = CType(idServico.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (descricaoServico Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(descricaoServico,String) + End If + If (statusServico Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(statusServico,String) + End If + If (dataFechamento.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(6).Value = CType(dataFechamento.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (idFuncionario.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(idFuncionario.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (descricaoFechamento Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(descricaoFechamento,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 + + _ + Public Overloads Overridable Function Update( _ + ByVal dataAbertura As Global.System.Nullable(Of Date), _ + ByVal idCliente As Global.System.Nullable(Of Integer), _ + ByVal idSetor As Global.System.Nullable(Of Integer), _ + ByVal idServico As Global.System.Nullable(Of Integer), _ + ByVal descricaoServico As String, _ + ByVal statusServico As String, _ + ByVal dataFechamento As Global.System.Nullable(Of Date), _ + ByVal idFuncionario As Global.System.Nullable(Of Integer), _ + ByVal descricaoFechamento As String, _ + ByVal Original_idProtocolo As Integer, _ + ByVal Original_dataAbertura As Global.System.Nullable(Of Date), _ + ByVal Original_idCliente As Global.System.Nullable(Of Integer), _ + ByVal Original_idSetor As Global.System.Nullable(Of Integer), _ + ByVal Original_idServico As Global.System.Nullable(Of Integer), _ + ByVal Original_dataFechamento As Global.System.Nullable(Of Date), _ + ByVal Original_idFuncionario As Global.System.Nullable(Of Integer)) As Integer + If (dataAbertura.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(dataAbertura.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (idCliente.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(idCliente.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (idSetor.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(idSetor.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (idServico.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(idServico.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (descricaoServico Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(descricaoServico,String) + End If + If (statusServico Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(statusServico,String) + End If + If (dataFechamento.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(dataFechamento.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (idFuncionario.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(idFuncionario.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (descricaoFechamento Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(descricaoFechamento,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_idProtocolo,Integer) + If (Original_dataAbertura.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_dataAbertura.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + If (Original_idCliente.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_idCliente.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + End If + If (Original_idSetor.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_idSetor.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + End If + If (Original_idServico.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_idServico.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + End If + If (Original_dataFechamento.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_dataFechamento.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + End If + If (Original_idFuncionario.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_idFuncionario.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + End If + 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 + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class tb_SetorTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + 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.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + 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 + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "tb_Setor" + tableMapping.ColumnMappings.Add("cod_Setor", "cod_Setor") + tableMapping.ColumnMappings.Add("nome_Setor", "nome_Setor") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM `tb_Setor` WHERE ((`cod_Setor` = ?) AND ((? = 1 AND `nome_Setor` IS N"& _ + "ULL) OR (`nome_Setor` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_cod_Setor", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cod_Setor", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nome_Setor", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nome_Setor", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nome_Setor", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nome_Setor", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO `tb_Setor` (`nome_Setor`) VALUES (?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nome_Setor", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nome_Setor", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE `tb_Setor` SET `nome_Setor` = ? WHERE ((`cod_Setor` = ?) AND ((? = 1 AND `"& _ + "nome_Setor` IS NULL) OR (`nome_Setor` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nome_Setor", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nome_Setor", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_cod_Setor", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cod_Setor", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nome_Setor", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nome_Setor", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nome_Setor", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nome_Setor", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.projetoAvaliacao05.My.MySettings.Default.bdProtocoloConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT cod_Setor, nome_Setor FROM tb_Setor" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As bdProtocoloDataSet.tb_SetorDataTable) 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 + + _ + Public Overloads Overridable Function GetData() As bdProtocoloDataSet.tb_SetorDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As bdProtocoloDataSet.tb_SetorDataTable = New bdProtocoloDataSet.tb_SetorDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As bdProtocoloDataSet.tb_SetorDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As bdProtocoloDataSet) As Integer + Return Me.Adapter.Update(dataSet, "tb_Setor") + End Function + + _ + 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 + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_cod_Setor As Integer, ByVal Original_nome_Setor As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_cod_Setor,Integer) + If (Original_nome_Setor 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_nome_Setor,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 + + _ + Public Overloads Overridable Function Insert(ByVal nome_Setor As String) As Integer + If (nome_Setor Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(nome_Setor,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 + + _ + Public Overloads Overridable Function Update(ByVal nome_Setor As String, ByVal Original_cod_Setor As Integer, ByVal Original_nome_Setor As String) As Integer + If (nome_Setor Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nome_Setor,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_cod_Setor,Integer) + If (Original_nome_Setor 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_nome_Setor,String) + End If + 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 + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class tb_UsuarioTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + 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.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + 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 + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "tb_Usuario" + tableMapping.ColumnMappings.Add("Código", "Código") + tableMapping.ColumnMappings.Add("usuario", "usuario") + tableMapping.ColumnMappings.Add("senha", "senha") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM `tb_Usuario` WHERE ((`Código` = ?) AND ((? = 1 AND `usuario` IS NULL)"& _ + " OR (`usuario` = ?)) AND ((? = 1 AND `senha` IS NULL) OR (`senha` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Código", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Código", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_usuario", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "usuario", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_usuario", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "usuario", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_senha", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senha", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_senha", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senha", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO `tb_Usuario` (`usuario`, `senha`) VALUES (?, ?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("usuario", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "usuario", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("senha", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senha", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE `tb_Usuario` SET `usuario` = ?, `senha` = ? WHERE ((`Código` = ?) AND ((? "& _ + "= 1 AND `usuario` IS NULL) OR (`usuario` = ?)) AND ((? = 1 AND `senha` IS NULL) "& _ + "OR (`senha` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("usuario", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "usuario", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("senha", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senha", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Código", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Código", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_usuario", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "usuario", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_usuario", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "usuario", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_senha", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senha", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_senha", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senha", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.projetoAvaliacao05.My.MySettings.Default.bdProtocoloConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT Código, usuario, senha FROM tb_Usuario" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT Código, usuario, senha"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM tb_Usuario"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (u"& _ + "suario = ?) AND (senha = ?)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("usuario", Global.System.Data.OleDb.OleDbType.WChar, 255, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "usuario", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("senha", Global.System.Data.OleDb.OleDbType.WChar, 255, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senha", Global.System.Data.DataRowVersion.Current, false, Nothing)) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As bdProtocoloDataSet.tb_UsuarioDataTable) 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 + + _ + Public Overloads Overridable Function GetData() As bdProtocoloDataSet.tb_UsuarioDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As bdProtocoloDataSet.tb_UsuarioDataTable = New bdProtocoloDataSet.tb_UsuarioDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As bdProtocoloDataSet.tb_UsuarioDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As bdProtocoloDataSet) As Integer + Return Me.Adapter.Update(dataSet, "tb_Usuario") + End Function + + _ + 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 + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_Código As Integer, ByVal Original_usuario As String, ByVal Original_senha As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Código,Integer) + If (Original_usuario 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_usuario,String) + End If + If (Original_senha Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_senha,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 + + _ + Public Overloads Overridable Function Insert(ByVal usuario As String, ByVal senha As String) As Integer + If (usuario Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(usuario,String) + End If + If (senha Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(senha,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 + + _ + Public Overloads Overridable Function Update(ByVal usuario As String, ByVal senha As String, ByVal Original_Código As Integer, ByVal Original_usuario As String, ByVal Original_senha As String) As Integer + If (usuario Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(usuario,String) + End If + If (senha Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(senha,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_Código,Integer) + If (Original_usuario Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_usuario,String) + End If + If (Original_senha Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_senha,String) + End If + 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 + + _ + Public Overloads Overridable Function ScalarQueryLogin(ByVal usuario As String, ByVal senha As String) As Object + Dim command As Global.System.Data.OleDb.OleDbCommand = Me.CommandCollection(1) + If (usuario Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(usuario,String) + End If + If (senha Is Nothing) Then + command.Parameters(1).Value = Global.System.DBNull.Value + Else + command.Parameters(1).Value = CType(senha,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return Nothing + Else + Return CType(returnValue,Object) + End If + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class tbServicoTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + 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.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + 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 + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "tbServico" + tableMapping.ColumnMappings.Add("idServico", "idServico") + tableMapping.ColumnMappings.Add("nomeServico", "nomeServico") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM `tbServico` WHERE ((`idServico` = ?) AND ((? = 1 AND `nomeServico` IS"& _ + " NULL) OR (`nomeServico` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idServico", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idServico", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeServico", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeServico", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeServico", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeServico", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO `tbServico` (`nomeServico`) VALUES (?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeServico", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeServico", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE `tbServico` SET `nomeServico` = ? WHERE ((`idServico` = ?) AND ((? = 1 AND"& _ + " `nomeServico` IS NULL) OR (`nomeServico` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeServico", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeServico", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idServico", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idServico", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeServico", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeServico", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeServico", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeServico", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.projetoAvaliacao05.My.MySettings.Default.bdProtocoloConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT idServico, nomeServico FROM tbServico" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As bdProtocoloDataSet.tbServicoDataTable) 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 + + _ + Public Overloads Overridable Function GetData() As bdProtocoloDataSet.tbServicoDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As bdProtocoloDataSet.tbServicoDataTable = New bdProtocoloDataSet.tbServicoDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As bdProtocoloDataSet.tbServicoDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As bdProtocoloDataSet) As Integer + Return Me.Adapter.Update(dataSet, "tbServico") + End Function + + _ + 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 + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_idServico As Integer, ByVal Original_nomeServico As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_idServico,Integer) + If (Original_nomeServico 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_nomeServico,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 + + _ + Public Overloads Overridable Function Insert(ByVal nomeServico As String) As Integer + If (nomeServico Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(nomeServico,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 + + _ + Public Overloads Overridable Function Update(ByVal nomeServico As String, ByVal Original_idServico As Integer, ByVal Original_nomeServico As String) As Integer + If (nomeServico Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nomeServico,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_idServico,Integer) + If (Original_nomeServico 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_nomeServico,String) + End If + 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 + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _idFuncionarioTableAdapter As idFuncionarioTableAdapter + + Private _tb_ClienteTableAdapter As tb_ClienteTableAdapter + + Private _tb_ProtocoloTableAdapter As tb_ProtocoloTableAdapter + + Private _tb_SetorTableAdapter As tb_SetorTableAdapter + + Private _tb_UsuarioTableAdapter As tb_UsuarioTableAdapter + + Private _tbServicoTableAdapter As tbServicoTableAdapter + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set + Me._updateOrder = value + End Set + End Property + + _ + Public Property idFuncionarioTableAdapter() As idFuncionarioTableAdapter + Get + Return Me._idFuncionarioTableAdapter + End Get + Set + Me._idFuncionarioTableAdapter = value + End Set + End Property + + _ + Public Property tb_ClienteTableAdapter() As tb_ClienteTableAdapter + Get + Return Me._tb_ClienteTableAdapter + End Get + Set + Me._tb_ClienteTableAdapter = value + End Set + End Property + + _ + Public Property tb_ProtocoloTableAdapter() As tb_ProtocoloTableAdapter + Get + Return Me._tb_ProtocoloTableAdapter + End Get + Set + Me._tb_ProtocoloTableAdapter = value + End Set + End Property + + _ + Public Property tb_SetorTableAdapter() As tb_SetorTableAdapter + Get + Return Me._tb_SetorTableAdapter + End Get + Set + Me._tb_SetorTableAdapter = value + End Set + End Property + + _ + Public Property tb_UsuarioTableAdapter() As tb_UsuarioTableAdapter + Get + Return Me._tb_UsuarioTableAdapter + End Get + Set + Me._tb_UsuarioTableAdapter = value + End Set + End Property + + _ + Public Property tbServicoTableAdapter() As tbServicoTableAdapter + Get + Return Me._tbServicoTableAdapter + End Get + Set + Me._tbServicoTableAdapter = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + If ((Not (Me._idFuncionarioTableAdapter) Is Nothing) _ + AndAlso (Not (Me._idFuncionarioTableAdapter.Connection) Is Nothing)) Then + Return Me._idFuncionarioTableAdapter.Connection + End If + If ((Not (Me._tb_ClienteTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tb_ClienteTableAdapter.Connection) Is Nothing)) Then + Return Me._tb_ClienteTableAdapter.Connection + End If + If ((Not (Me._tb_ProtocoloTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tb_ProtocoloTableAdapter.Connection) Is Nothing)) Then + Return Me._tb_ProtocoloTableAdapter.Connection + End If + If ((Not (Me._tb_SetorTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tb_SetorTableAdapter.Connection) Is Nothing)) Then + Return Me._tb_SetorTableAdapter.Connection + End If + If ((Not (Me._tb_UsuarioTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tb_UsuarioTableAdapter.Connection) Is Nothing)) Then + Return Me._tb_UsuarioTableAdapter.Connection + End If + If ((Not (Me._tbServicoTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tbServicoTableAdapter.Connection) Is Nothing)) Then + Return Me._tbServicoTableAdapter.Connection + End If + Return Nothing + End Get + Set + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + If (Not (Me._idFuncionarioTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tb_ClienteTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tb_ProtocoloTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tb_SetorTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tb_UsuarioTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tbServicoTableAdapter) Is Nothing) Then + count = (count + 1) + End If + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + Private Function UpdateUpdatedRows(ByVal dataSet As bdProtocoloDataSet, 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._tb_ClienteTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.tb_Cliente.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._tb_ClienteTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tb_SetorTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.tb_Setor.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._tb_SetorTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._idFuncionarioTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.idFuncionario.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._idFuncionarioTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tb_ProtocoloTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.tb_Protocolo.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._tb_ProtocoloTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tb_UsuarioTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.tb_Usuario.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._tb_UsuarioTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tbServicoTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbServico.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._tbServicoTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + Private Function UpdateInsertedRows(ByVal dataSet As bdProtocoloDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tb_ClienteTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.tb_Cliente.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tb_ClienteTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tb_SetorTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.tb_Setor.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tb_SetorTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._idFuncionarioTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.idFuncionario.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._idFuncionarioTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tb_ProtocoloTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.tb_Protocolo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tb_ProtocoloTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tb_UsuarioTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.tb_Usuario.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tb_UsuarioTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tbServicoTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.tbServico.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tbServicoTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + Private Function UpdateDeletedRows(ByVal dataSet As bdProtocoloDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tbServicoTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbServico.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tbServicoTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tb_UsuarioTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.tb_Usuario.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tb_UsuarioTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tb_ProtocoloTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.tb_Protocolo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tb_ProtocoloTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._idFuncionarioTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.idFuncionario.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._idFuncionarioTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tb_SetorTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.tb_Setor.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tb_SetorTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tb_ClienteTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.tb_Cliente.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tb_ClienteTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + 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 + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As bdProtocoloDataSet) 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._idFuncionarioTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._idFuncionarioTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Todos os TableAdapters gerenciados por um TableAdapterManager devem usar a mesma "& _ + "cadeia de conexão.") + End If + If ((Not (Me._tb_ClienteTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tb_ClienteTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Todos os TableAdapters gerenciados por um TableAdapterManager devem usar a mesma "& _ + "cadeia de conexão.") + End If + If ((Not (Me._tb_ProtocoloTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tb_ProtocoloTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Todos os TableAdapters gerenciados por um TableAdapterManager devem usar a mesma "& _ + "cadeia de conexão.") + End If + If ((Not (Me._tb_SetorTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tb_SetorTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Todos os TableAdapters gerenciados por um TableAdapterManager devem usar a mesma "& _ + "cadeia de conexão.") + End If + If ((Not (Me._tb_UsuarioTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tb_UsuarioTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Todos os TableAdapters gerenciados por um TableAdapterManager devem usar a mesma "& _ + "cadeia de conexão.") + End If + If ((Not (Me._tbServicoTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tbServicoTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Todos os TableAdapters gerenciados por um TableAdapterManager devem usar a mesma "& _ + "cadeia de conexão.") + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("TableAdapterManager não contém informações de conexão. Defina cada propriedade Ta"& _ + "bleAdapter de TableAdapterManager como uma instância válida de TableAdapter.") + 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("Não é possível iniciar a transação. Os dados de conexão atuais não oferecem supor"& _ + "te às transações ou o estado atual não permite que a transação inicie.") + 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._idFuncionarioTableAdapter) Is Nothing) Then + revertConnections.Add(Me._idFuncionarioTableAdapter, Me._idFuncionarioTableAdapter.Connection) + Me._idFuncionarioTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._idFuncionarioTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._idFuncionarioTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._idFuncionarioTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._idFuncionarioTableAdapter.Adapter) + End If + End If + If (Not (Me._tb_ClienteTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tb_ClienteTableAdapter, Me._tb_ClienteTableAdapter.Connection) + Me._tb_ClienteTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._tb_ClienteTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._tb_ClienteTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tb_ClienteTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tb_ClienteTableAdapter.Adapter) + End If + End If + If (Not (Me._tb_ProtocoloTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tb_ProtocoloTableAdapter, Me._tb_ProtocoloTableAdapter.Connection) + Me._tb_ProtocoloTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._tb_ProtocoloTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._tb_ProtocoloTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tb_ProtocoloTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tb_ProtocoloTableAdapter.Adapter) + End If + End If + If (Not (Me._tb_SetorTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tb_SetorTableAdapter, Me._tb_SetorTableAdapter.Connection) + Me._tb_SetorTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._tb_SetorTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._tb_SetorTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tb_SetorTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tb_SetorTableAdapter.Adapter) + End If + End If + If (Not (Me._tb_UsuarioTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tb_UsuarioTableAdapter, Me._tb_UsuarioTableAdapter.Connection) + Me._tb_UsuarioTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._tb_UsuarioTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._tb_UsuarioTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tb_UsuarioTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tb_UsuarioTableAdapter.Adapter) + End If + End If + If (Not (Me._tbServicoTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tbServicoTableAdapter, Me._tbServicoTableAdapter.Connection) + Me._tbServicoTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._tbServicoTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._tbServicoTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tbServicoTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tbServicoTableAdapter.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._idFuncionarioTableAdapter) Is Nothing) Then + Me._idFuncionarioTableAdapter.Connection = CType(revertConnections(Me._idFuncionarioTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._idFuncionarioTableAdapter.Transaction = Nothing + End If + If (Not (Me._tb_ClienteTableAdapter) Is Nothing) Then + Me._tb_ClienteTableAdapter.Connection = CType(revertConnections(Me._tb_ClienteTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._tb_ClienteTableAdapter.Transaction = Nothing + End If + If (Not (Me._tb_ProtocoloTableAdapter) Is Nothing) Then + Me._tb_ProtocoloTableAdapter.Connection = CType(revertConnections(Me._tb_ProtocoloTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._tb_ProtocoloTableAdapter.Transaction = Nothing + End If + If (Not (Me._tb_SetorTableAdapter) Is Nothing) Then + Me._tb_SetorTableAdapter.Connection = CType(revertConnections(Me._tb_SetorTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._tb_SetorTableAdapter.Transaction = Nothing + End If + If (Not (Me._tb_UsuarioTableAdapter) Is Nothing) Then + Me._tb_UsuarioTableAdapter.Connection = CType(revertConnections(Me._tb_UsuarioTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._tb_UsuarioTableAdapter.Transaction = Nothing + End If + If (Not (Me._tbServicoTableAdapter) Is Nothing) Then + Me._tbServicoTableAdapter.Connection = CType(revertConnections(Me._tbServicoTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._tbServicoTableAdapter.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 + + _ + 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 + + _ + 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 + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + 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 + + _ + 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 + + _ + 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 + + _ + 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 diff --git a/projetoAvaliacao05/Banco de Dados/bdProtocoloDataSet.vb b/projetoAvaliacao05/Banco de Dados/bdProtocoloDataSet.vb new file mode 100755 index 0000000..0b4b145 --- /dev/null +++ b/projetoAvaliacao05/Banco de Dados/bdProtocoloDataSet.vb @@ -0,0 +1,8 @@ +Partial Class bdProtocoloDataSet +End Class + +Namespace bdProtocoloDataSetTableAdapters + + Partial Public Class tb_UsuarioTableAdapter + End Class +End Namespace diff --git a/projetoAvaliacao05/Banco de Dados/bdProtocoloDataSet.xsc b/projetoAvaliacao05/Banco de Dados/bdProtocoloDataSet.xsc new file mode 100755 index 0000000..a0b12ec --- /dev/null +++ b/projetoAvaliacao05/Banco de Dados/bdProtocoloDataSet.xsc @@ -0,0 +1,63 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/projetoAvaliacao05/Banco de Dados/bdProtocoloDataSet.xsd b/projetoAvaliacao05/Banco de Dados/bdProtocoloDataSet.xsd new file mode 100755 index 0000000..d9b758f --- /dev/null +++ b/projetoAvaliacao05/Banco de Dados/bdProtocoloDataSet.xsd @@ -0,0 +1,517 @@ + + + + + + + + + + + + + + + DELETE FROM `idFuncionario` WHERE ((`idFuncionario` = ?) AND ((? = 1 AND `nomeFuncionario` IS NULL) OR (`nomeFuncionario` = ?))) + + + + + + + + + + INSERT INTO `idFuncionario` (`nomeFuncionario`) VALUES (?) + + + + + + + + SELECT idFuncionario, nomeFuncionario FROM idFuncionario + + + + + + UPDATE `idFuncionario` SET `nomeFuncionario` = ? WHERE ((`idFuncionario` = ?) AND ((? = 1 AND `nomeFuncionario` IS NULL) OR (`nomeFuncionario` = ?))) + + + + + + + + + + + + + + + + + + + + + + DELETE FROM `tb_Cliente` WHERE ((`cod_Cliente` = ?) AND ((? = 1 AND `nome_Cliente` IS NULL) OR (`nome_Cliente` = ?)) AND ((? = 1 AND `cpf_Cliente` IS NULL) OR (`cpf_Cliente` = ?))) + + + + + + + + + + + + INSERT INTO `tb_Cliente` (`nome_Cliente`, `cpf_Cliente`) VALUES (?, ?) + + + + + + + + + SELECT cod_Cliente, nome_Cliente, cpf_Cliente FROM tb_Cliente + + + + + + UPDATE `tb_Cliente` SET `nome_Cliente` = ?, `cpf_Cliente` = ? WHERE ((`cod_Cliente` = ?) AND ((? = 1 AND `nome_Cliente` IS NULL) OR (`nome_Cliente` = ?)) AND ((? = 1 AND `cpf_Cliente` IS NULL) OR (`cpf_Cliente` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM `tb_Protocolo` WHERE ((`idProtocolo` = ?) AND ((? = 1 AND `dataAbertura` IS NULL) OR (`dataAbertura` = ?)) AND ((? = 1 AND `idCliente` IS NULL) OR (`idCliente` = ?)) AND ((? = 1 AND `idSetor` IS NULL) OR (`idSetor` = ?)) AND ((? = 1 AND `idServico` IS NULL) OR (`idServico` = ?)) AND ((? = 1 AND `dataFechamento` IS NULL) OR (`dataFechamento` = ?)) AND ((? = 1 AND `idFuncionario` IS NULL) OR (`idFuncionario` = ?))) + + + + + + + + + + + + + + + + + + + + INSERT INTO `tb_Protocolo` (`dataAbertura`, `idCliente`, `idSetor`, `idServico`, `descricaoServico`, `statusServico`, `dataFechamento`, `idFuncionario`, `descricaoFechamento`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?) + + + + + + + + + + + + + + + + SELECT idProtocolo, dataAbertura, idCliente, idSetor, idServico, descricaoServico, statusServico, dataFechamento, idFuncionario, descricaoFechamento FROM tb_Protocolo + + + + + + UPDATE `tb_Protocolo` SET `dataAbertura` = ?, `idCliente` = ?, `idSetor` = ?, `idServico` = ?, `descricaoServico` = ?, `statusServico` = ?, `dataFechamento` = ?, `idFuncionario` = ?, `descricaoFechamento` = ? WHERE ((`idProtocolo` = ?) AND ((? = 1 AND `dataAbertura` IS NULL) OR (`dataAbertura` = ?)) AND ((? = 1 AND `idCliente` IS NULL) OR (`idCliente` = ?)) AND ((? = 1 AND `idSetor` IS NULL) OR (`idSetor` = ?)) AND ((? = 1 AND `idServico` IS NULL) OR (`idServico` = ?)) AND ((? = 1 AND `dataFechamento` IS NULL) OR (`dataFechamento` = ?)) AND ((? = 1 AND `idFuncionario` IS NULL) OR (`idFuncionario` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM `tb_Setor` WHERE ((`cod_Setor` = ?) AND ((? = 1 AND `nome_Setor` IS NULL) OR (`nome_Setor` = ?))) + + + + + + + + + + INSERT INTO `tb_Setor` (`nome_Setor`) VALUES (?) + + + + + + + + SELECT cod_Setor, nome_Setor FROM tb_Setor + + + + + + UPDATE `tb_Setor` SET `nome_Setor` = ? WHERE ((`cod_Setor` = ?) AND ((? = 1 AND `nome_Setor` IS NULL) OR (`nome_Setor` = ?))) + + + + + + + + + + + + + + + + + + + + + + DELETE FROM `tb_Usuario` WHERE ((`Código` = ?) AND ((? = 1 AND `usuario` IS NULL) OR (`usuario` = ?)) AND ((? = 1 AND `senha` IS NULL) OR (`senha` = ?))) + + + + + + + + + + + + INSERT INTO `tb_Usuario` (`usuario`, `senha`) VALUES (?, ?) + + + + + + + + + SELECT Código, usuario, senha FROM tb_Usuario + + + + + + UPDATE `tb_Usuario` SET `usuario` = ?, `senha` = ? WHERE ((`Código` = ?) AND ((? = 1 AND `usuario` IS NULL) OR (`usuario` = ?)) AND ((? = 1 AND `senha` IS NULL) OR (`senha` = ?))) + + + + + + + + + + + + + + + + + + + + + + + SELECT Código, usuario, senha +FROM tb_Usuario +WHERE (usuario = ?) AND (senha = ?) + + + + + + + + + + + + + + + DELETE FROM `tbServico` WHERE ((`idServico` = ?) AND ((? = 1 AND `nomeServico` IS NULL) OR (`nomeServico` = ?))) + + + + + + + + + + INSERT INTO `tbServico` (`nomeServico`) VALUES (?) + + + + + + + + SELECT idServico, nomeServico FROM tbServico + + + + + + UPDATE `tbServico` SET `nomeServico` = ? WHERE ((`idServico` = ?) AND ((? = 1 AND `nomeServico` IS NULL) OR (`nomeServico` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/projetoAvaliacao05/Banco de Dados/bdProtocoloDataSet.xss b/projetoAvaliacao05/Banco de Dados/bdProtocoloDataSet.xss new file mode 100755 index 0000000..7aeaf5d --- /dev/null +++ b/projetoAvaliacao05/Banco de Dados/bdProtocoloDataSet.xss @@ -0,0 +1,43 @@ + + + + + + + + + + + + + + + + + 653 + 137 + + + 583 + 137 + + + + + + + 653 + 305 + + + 583 + 305 + + + + + \ No newline at end of file diff --git a/projetoAvaliacao05/FLogin.Designer.vb b/projetoAvaliacao05/FLogin.Designer.vb new file mode 100755 index 0000000..3372d2c --- /dev/null +++ b/projetoAvaliacao05/FLogin.Designer.vb @@ -0,0 +1,168 @@ + +Partial Class FLogin + Inherits System.Windows.Forms.Form + + 'Descartar substituições de formulário para limpar a lista de componentes. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Exigido pelo Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'OBSERVAÇÃO: o procedimento a seguir é exigido pelo Windows Form Designer + 'Pode ser modificado usando o Windows Form Designer. + 'Não o modifique usando o editor de códigos. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() + Me.Button2 = New System.Windows.Forms.Button() + Me.UsuarioTextBox = New System.Windows.Forms.TextBox() + Me.SenhaTextBox = New System.Windows.Forms.TextBox() + Me.Tb_UsuarioBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.BdProtocoloDataSet = New projetoAvaliacao05.bdProtocoloDataSet() + Me.Tb_UsuarioTableAdapter = New projetoAvaliacao05.bdProtocoloDataSetTableAdapters.tb_UsuarioTableAdapter() + Me.TableAdapterManager = New projetoAvaliacao05.bdProtocoloDataSetTableAdapters.TableAdapterManager() + CType(Me.Tb_UsuarioBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BdProtocoloDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(79, 19) + Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(217, 20) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Informe seu Usuário e Senha" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(33, 63) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(64, 20) + Me.Label2.TabIndex = 1 + Me.Label2.Text = "Usuário" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(33, 108) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(56, 20) + Me.Label3.TabIndex = 2 + Me.Label3.Text = "Senha" + ' + 'Button1 + ' + Me.Button1.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.Button1.Location = New System.Drawing.Point(61, 150) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(97, 45) + Me.Button1.TabIndex = 5 + Me.Button1.Text = "Entrar" + Me.Button1.UseVisualStyleBackColor = True + ' + 'Button2 + ' + Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.Button2.Location = New System.Drawing.Point(199, 150) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(97, 45) + Me.Button2.TabIndex = 6 + Me.Button2.Text = "Sair" + Me.Button2.UseVisualStyleBackColor = True + ' + 'UsuarioTextBox + ' + Me.UsuarioTextBox.Location = New System.Drawing.Point(103, 60) + Me.UsuarioTextBox.Name = "UsuarioTextBox" + Me.UsuarioTextBox.Size = New System.Drawing.Size(201, 26) + Me.UsuarioTextBox.TabIndex = 7 + ' + 'SenhaTextBox + ' + Me.SenhaTextBox.Location = New System.Drawing.Point(103, 105) + Me.SenhaTextBox.Name = "SenhaTextBox" + Me.SenhaTextBox.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) + Me.SenhaTextBox.Size = New System.Drawing.Size(201, 26) + Me.SenhaTextBox.TabIndex = 8 + ' + 'Tb_UsuarioBindingSource + ' + Me.Tb_UsuarioBindingSource.DataMember = "tb_Usuario" + Me.Tb_UsuarioBindingSource.DataSource = Me.BdProtocoloDataSet + ' + 'BdProtocoloDataSet + ' + Me.BdProtocoloDataSet.DataSetName = "bdProtocoloDataSet" + Me.BdProtocoloDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'Tb_UsuarioTableAdapter + ' + Me.Tb_UsuarioTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.idFuncionarioTableAdapter = Nothing + Me.TableAdapterManager.tb_ClienteTableAdapter = Nothing + Me.TableAdapterManager.tb_ProtocoloTableAdapter = Nothing + Me.TableAdapterManager.tb_SetorTableAdapter = Nothing + Me.TableAdapterManager.tb_UsuarioTableAdapter = Nothing + Me.TableAdapterManager.tbServicoTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = projetoAvaliacao05.bdProtocoloDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'FLogin + ' + Me.AcceptButton = Me.Button1 + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.CancelButton = Me.Button2 + Me.ClientSize = New System.Drawing.Size(375, 221) + Me.Controls.Add(Me.SenhaTextBox) + Me.Controls.Add(Me.UsuarioTextBox) + Me.Controls.Add(Me.Button2) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label1) + Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Name = "FLogin" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "FLogin" + CType(Me.Tb_UsuarioBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BdProtocoloDataSet, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents Label1 As Label + Friend WithEvents Label2 As Label + Friend WithEvents Label3 As Label + Friend WithEvents Button1 As Button + Friend WithEvents Button2 As Button + Friend WithEvents BdProtocoloDataSet As bdProtocoloDataSet + Friend WithEvents Tb_UsuarioBindingSource As BindingSource + Friend WithEvents Tb_UsuarioTableAdapter As bdProtocoloDataSetTableAdapters.tb_UsuarioTableAdapter + Friend WithEvents TableAdapterManager As bdProtocoloDataSetTableAdapters.TableAdapterManager + Friend WithEvents UsuarioTextBox As TextBox + Friend WithEvents SenhaTextBox As TextBox +End Class diff --git a/projetoAvaliacao05/FLogin.resx b/projetoAvaliacao05/FLogin.resx new file mode 100755 index 0000000..f1d7ed9 --- /dev/null +++ b/projetoAvaliacao05/FLogin.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 179, 17 + + + 17, 17 + + + 370, 17 + + + 555, 17 + + \ No newline at end of file diff --git a/projetoAvaliacao05/FLogin.vb b/projetoAvaliacao05/FLogin.vb new file mode 100755 index 0000000..2018725 --- /dev/null +++ b/projetoAvaliacao05/FLogin.vb @@ -0,0 +1,48 @@ +Public Class FLogin + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + End + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Dim Usuario, Senha, Messagem As String + + Usuario = UsuarioTextBox.Text() + Senha = SenhaTextBox.Text() + Messagem = "Usuário/Senha errados." + + If Me.Tb_UsuarioTableAdapter.ScalarQueryLogin(Usuario, Senha) Then + UsuarioTextBox.Clear() + SenhaTextBox.Clear() + UsuarioTextBox.Focus() + MsgBox("Bem vindo ao sistema!", vbInformation, "SGP-GC - Sistema de Protocolos") + Me.Hide() + FPrincipal.Show() + Else + MsgBox(Messagem, vbCritical, "SGP-SC - Sistema de Protocolos") + UsuarioTextBox.Clear() + SenhaTextBox.Clear() + UsuarioTextBox.Focus() + End If + End Sub + + Private Sub Tb_UsuarioBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) + Me.Validate() + Me.Tb_UsuarioBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.BdProtocoloDataSet) + + End Sub + + Private Sub FLogin_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'BdProtocoloDataSet.tb_Usuario'. Você pode movê-la ou removê-la conforme necessário. + Me.Tb_UsuarioTableAdapter.Fill(Me.BdProtocoloDataSet.tb_Usuario) + 'TODO: esta linha de código carrega dados na tabela 'BdProtocoloDataSet.tb_Usuario'. Você pode movê-la ou removê-la conforme necessário. + Me.Tb_UsuarioTableAdapter.Fill(Me.BdProtocoloDataSet.tb_Usuario) + + End Sub + + Private Sub Tb_UsuarioBindingNavigatorSaveItem_Click_1(sender As Object, e As EventArgs) + Me.Validate() + Me.Tb_UsuarioBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.BdProtocoloDataSet) + End Sub +End Class \ No newline at end of file diff --git a/projetoAvaliacao05/FPrincipal.Designer.vb b/projetoAvaliacao05/FPrincipal.Designer.vb new file mode 100755 index 0000000..48bb525 --- /dev/null +++ b/projetoAvaliacao05/FPrincipal.Designer.vb @@ -0,0 +1,218 @@ + +Partial Class FPrincipal + Inherits System.Windows.Forms.Form + + 'Descartar substituições de formulário para limpar a lista de componentes. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Exigido pelo Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'OBSERVAÇÃO: o procedimento a seguir é exigido pelo Windows Form Designer + 'Pode ser modificado usando o Windows Form Designer. + 'Não o modifique usando o editor de códigos. + + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FPrincipal)) + Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() + Me.ProtocoloToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AberturaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.FechamentoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CadastroToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ServiçoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ClienteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.FuncionárioToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SetorToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.UsuárioToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SobreToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AjudaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SairToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.Button1 = New System.Windows.Forms.Button() + Me.Button2 = New System.Windows.Forms.Button() + Me.Button3 = New System.Windows.Forms.Button() + Me.Button4 = New System.Windows.Forms.Button() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.MenuStrip1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'MenuStrip1 + ' + Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ProtocoloToolStripMenuItem, Me.CadastroToolStripMenuItem, Me.SobreToolStripMenuItem, Me.AjudaToolStripMenuItem, Me.SairToolStripMenuItem}) + Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) + Me.MenuStrip1.Name = "MenuStrip1" + Me.MenuStrip1.Size = New System.Drawing.Size(636, 24) + Me.MenuStrip1.TabIndex = 0 + Me.MenuStrip1.Text = "MenuStrip1" + ' + 'ProtocoloToolStripMenuItem + ' + Me.ProtocoloToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AberturaToolStripMenuItem, Me.FechamentoToolStripMenuItem}) + Me.ProtocoloToolStripMenuItem.Name = "ProtocoloToolStripMenuItem" + Me.ProtocoloToolStripMenuItem.Size = New System.Drawing.Size(71, 20) + Me.ProtocoloToolStripMenuItem.Text = "Protocolo" + ' + 'AberturaToolStripMenuItem + ' + Me.AberturaToolStripMenuItem.Name = "AberturaToolStripMenuItem" + Me.AberturaToolStripMenuItem.Size = New System.Drawing.Size(140, 22) + Me.AberturaToolStripMenuItem.Text = "Abertura" + ' + 'FechamentoToolStripMenuItem + ' + Me.FechamentoToolStripMenuItem.Name = "FechamentoToolStripMenuItem" + Me.FechamentoToolStripMenuItem.Size = New System.Drawing.Size(140, 22) + Me.FechamentoToolStripMenuItem.Text = "Fechamento" + ' + 'CadastroToolStripMenuItem + ' + Me.CadastroToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ServiçoToolStripMenuItem, Me.ClienteToolStripMenuItem, Me.FuncionárioToolStripMenuItem, Me.SetorToolStripMenuItem, Me.UsuárioToolStripMenuItem}) + Me.CadastroToolStripMenuItem.Name = "CadastroToolStripMenuItem" + Me.CadastroToolStripMenuItem.Size = New System.Drawing.Size(66, 20) + Me.CadastroToolStripMenuItem.Text = "Cadastro" + ' + 'ServiçoToolStripMenuItem + ' + Me.ServiçoToolStripMenuItem.Name = "ServiçoToolStripMenuItem" + Me.ServiçoToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.ServiçoToolStripMenuItem.Text = "Serviço" + ' + 'ClienteToolStripMenuItem + ' + Me.ClienteToolStripMenuItem.Name = "ClienteToolStripMenuItem" + Me.ClienteToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.ClienteToolStripMenuItem.Text = "Cliente" + ' + 'FuncionárioToolStripMenuItem + ' + Me.FuncionárioToolStripMenuItem.Name = "FuncionárioToolStripMenuItem" + Me.FuncionárioToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.FuncionárioToolStripMenuItem.Text = "Funcionário" + ' + 'SetorToolStripMenuItem + ' + Me.SetorToolStripMenuItem.Name = "SetorToolStripMenuItem" + Me.SetorToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.SetorToolStripMenuItem.Text = "Setor" + ' + 'UsuárioToolStripMenuItem + ' + Me.UsuárioToolStripMenuItem.Name = "UsuárioToolStripMenuItem" + Me.UsuárioToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.UsuárioToolStripMenuItem.Text = "Usuário" + ' + 'SobreToolStripMenuItem + ' + Me.SobreToolStripMenuItem.Name = "SobreToolStripMenuItem" + Me.SobreToolStripMenuItem.Size = New System.Drawing.Size(49, 20) + Me.SobreToolStripMenuItem.Text = "Sobre" + ' + 'AjudaToolStripMenuItem + ' + Me.AjudaToolStripMenuItem.Name = "AjudaToolStripMenuItem" + Me.AjudaToolStripMenuItem.Size = New System.Drawing.Size(50, 20) + Me.AjudaToolStripMenuItem.Text = "Ajuda" + ' + 'SairToolStripMenuItem + ' + Me.SairToolStripMenuItem.Name = "SairToolStripMenuItem" + Me.SairToolStripMenuItem.Size = New System.Drawing.Size(38, 20) + Me.SairToolStripMenuItem.Text = "Sair" + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(12, 27) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(149, 66) + Me.Button1.TabIndex = 1 + Me.Button1.Text = "ABERTURA DE PROTOCOLO" + Me.Button1.UseVisualStyleBackColor = True + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(167, 27) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(149, 66) + Me.Button2.TabIndex = 2 + Me.Button2.Text = "FECHAMENTO DE PROTOCOLO" + Me.Button2.UseVisualStyleBackColor = True + ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(322, 27) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(149, 66) + Me.Button3.TabIndex = 3 + Me.Button3.Text = "CADASTRO DE CLIENTE/ALUNO" + Me.Button3.UseVisualStyleBackColor = True + ' + 'Button4 + ' + Me.Button4.Location = New System.Drawing.Point(477, 27) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(149, 66) + Me.Button4.TabIndex = 4 + Me.Button4.Text = "CADASTRO DE USUÁRIO" + Me.Button4.UseVisualStyleBackColor = True + ' + 'PictureBox1 + ' + Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image) + Me.PictureBox1.Location = New System.Drawing.Point(442, 99) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(182, 178) + Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.PictureBox1.TabIndex = 5 + Me.PictureBox1.TabStop = False + ' + 'FPrincipal + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(636, 283) + Me.Controls.Add(Me.PictureBox1) + Me.Controls.Add(Me.Button4) + Me.Controls.Add(Me.Button3) + Me.Controls.Add(Me.Button2) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.MenuStrip1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.MainMenuStrip = Me.MenuStrip1 + Me.Name = "FPrincipal" + Me.Text = "SGP-GC - Sistema de Gerenciamento de Protocolos" + Me.MenuStrip1.ResumeLayout(False) + Me.MenuStrip1.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents MenuStrip1 As MenuStrip + Friend WithEvents ProtocoloToolStripMenuItem As ToolStripMenuItem + Friend WithEvents AberturaToolStripMenuItem As ToolStripMenuItem + Friend WithEvents FechamentoToolStripMenuItem As ToolStripMenuItem + Friend WithEvents CadastroToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ServiçoToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ClienteToolStripMenuItem As ToolStripMenuItem + Friend WithEvents FuncionárioToolStripMenuItem As ToolStripMenuItem + Friend WithEvents SetorToolStripMenuItem As ToolStripMenuItem + Friend WithEvents UsuárioToolStripMenuItem As ToolStripMenuItem + Friend WithEvents SobreToolStripMenuItem As ToolStripMenuItem + Friend WithEvents AjudaToolStripMenuItem As ToolStripMenuItem + Friend WithEvents SairToolStripMenuItem As ToolStripMenuItem + Friend WithEvents Button1 As Button + Friend WithEvents Button2 As Button + Friend WithEvents Button3 As Button + Friend WithEvents Button4 As Button + Friend WithEvents PictureBox1 As PictureBox +End Class diff --git a/projetoAvaliacao05/FPrincipal.resx b/projetoAvaliacao05/FPrincipal.resx new file mode 100755 index 0000000..0383a36 --- /dev/null +++ b/projetoAvaliacao05/FPrincipal.resx @@ -0,0 +1,222 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAAPoAAAD6CAYAAACI7Fo9AAAAIGNIUk0AAHolAACAgwAA+f8AAIDpAAB1 + MAAA6mAAADqYAAAXb5JfxUYAAAAJcEhZcwAACxMAAAsTAQCanBgAABVtSURBVHhe7d0NsHVVWQfwC6J8 + SjgKpBnxIS8gYBKmIH6QCoqFNlgJiB9lIDGZBoqA2KAYEEpDgRNjoo5K+TnMSyIjmhGTKDKSaQmWDCKg + Bn6lMoIfQ//nXq7neZ/n2feetfY6Z6+1z/8/8xt9n5m7zn0P+//ec8/Ze+2l+++/n4hGLhwS0bj4QX52 + hiPgRHgdnAGnEc3R6Q84GV4KB8GWsBCxXdb8IC2PB3lirwf5YqLa3AMfgZeD/DAabWyXNT+YLrvB1aCf + UKIWnAWjjO2y5gfr51zQTxxRi54Do4rtsuYH3dkcrgX9ZBG17GwYTWyXNT+Isy3cBPpJIhqDC2EUsV3W + /CDONaCfHKIxkU+Jmo/tsuYHPn8J+kkhGqMnQ9OxXdb8YNMcDvrJIBqrW2ALaDa2y5ofbJqrQD8ZRGN2 + EjQb22XNDyY5DPSTQDR2t0KzP9VtlzU/mETOJtJPAtEiaPanuu2y5gcrkc/M7wD9BBAtgo9Dk7Fd1vxg + JYeC/ssTLYrbQX7QNRfbZc0PViLnA+u/PNEieSI0F9tlzQ+WlvaCjfJ1RAvqeGgutsuaH6yc7P9F+Tqi + BXUeNBfbZc0PlpaOA74RR4vsXdBcbJc1P1i5QP9/5et6uhK2gQ2wN9GMPQr2g7sgOh5TXAbNxXZZ84Ol + pT+CEkV/NzDMPCPvlsu75tHxmIJFT/CPwDDzzIPhGxAdjyneB83FdlnzAxadaTcsegc/YNGZdsOid/AD + Fp1pNyx6Bz9g0Zl2w6J38AMWnWk3LHoHP2DRmXbDonfwAxadaTcsegc/YNGZdsOid/ADFp1pNyx6Bz9g + 0Zl2w6J38AMWnWk3LHoHP2DRmXbDonfwAxadaTcsegc/YNGZdsOid/ADFp1pNyx6Bz9g0Zl2w6J38AMW + nWk3LHoHP2DRmXbDonfwAxadaTcsegc/YNGZdsOid/ADFp1pNyx6Bz9g0Zl2w6J38AMWnWk3LHoHP2DR + mXbDonfwgzqKLrfYORGOoUG8BI6Fh0JLYdE7+EEdRT8dojVpvvaFlsKid/CDOop+MkRr0nztCS2FRe/g + B3UU/c8hWpPmi0VvKLbLmh+w6DTBojcU22XND1h0mmDRG4rtsuYHLDpNsOgNxXZZ8wMWnSZY9IZiu6z5 + AYtOEyx6Q7Fd1vyARacJFr2h2C5rfsCi0wSL3lBslzU/qKPor4FoTZqvvaClsOgd/IBFpwkWvaHYLmt+ + UEfRd4Qnwa/TIA6Ax8OW0FJY9A5+UEfRGSYnLHoHP2DRmXbDonfwAxadaTcsegc/YNGZdsOid/ADFp1p + N60VfWt4Dmy3/KeeseXW/IBFZ9pNa0U/GOTxrofHyKBPbJc1P2DRmXbTWtE/Afpx3wGbQ1ZslzU/YNGZ + dtNS0Y+D6LGFbKWWHNtlzQ9YdKbdtFL0zeAmiB571W1wFEwd22XND1h0pt20UvQ3QfS4kU/CVLvx2i5r + fsCiM+2mhaI/Ar4D0eOu5W9hW+iM7bLmByw6025aKPplED3mNH4GJ0AY22XND1h0pt3UXvT9IXq8VP8N + h8ImsV3W/IBFZ9pN7UW/FqLHy3UF7AHLsV3W/IBFZ9pNzUV/MUSPVcIbYIPtsuYHLDrTbmot+q/ADyB6 + rBIuhn1tlzU/qKPo8rvMqXA8LZQ/ecDDICe1Fv3pED1OCZ+H5dgua35QR9F5N9XFdiDkpOaX7lvBGyF6 + vD6OhuXYLmt+UEfReTfVxbYf5KT2N+Mku8PlED1uqo/AL2K7rPlBHUXnds+LLfe+7C0UfTW/Bf8D0eNP + 6xD4RWyXNT9g0Wl4i1D01ch7Ez+G6PtYy/mwSWyXNT9g0Wl4i1T01fwVRN9L5F6Qd/I3ie2y5gcsOg1v + 6KK/H3IjV6aJnDwaNkL0PWkngYvtsuYHLDoNb+iivxdyI5tHfAl2W/5TXp4FX4boe7sZwtgua37AotPw + hi764ZATOR31p7C6zpkg31Nu5JyC74P+3p4PYWyXNT9g0Wl4Qxb9Y5Cbj4NdT86Iex70ySUga31w+U8d + sV3W/IBFp+ENWXS5FVVODoNovVXyUvyxkJvVW5R1xnZZ84M6iv5aiNakxfA4yEnfop8NOdkC5NLRaE3r + o7AzFI/tsuYH/IlOwxviJ/oP4ZGQkz+DaM0u8rn5X4D8A1EstsuaH9RR9F+CDbArLRR5p1o8BHLSp+iv + hpzsBN+DaM31yPf6VCgS22XND+ooOsPkJLfod0LuPy4XQbRmihtB/qHrFdtlzQ9YdKbd5Bb9WMiJXGUX + rZfr3bANZMV2WfMDFp1pNzlF/wzk5rMQrdmH7BArl7PuAEmxXdb8gEVn2k1O0Z8LOfl9iNYrZc2P0qLY + Lmt+wKIz7Sa16LnntG8Pd0G0ZgmyB1xybJc1P2DRmXaTWvQnQE7k1NZovRK+CbIbTXJslzU/YNGZdpNS + dLksNCdy5ly0XinHQFZslzU/YNGZdjNt0eWElV0gJ3KterRmCbLve3ZsuTU/YNGZdjNt0V8JOTkSovVK + kd1is2O7rPkBi860m2mK/l+QmxsgWrOES6FXbJc1P2DRmXYzTdFzfweWU2Sj9UqQa9j7bFSxHNtlzQ9Y + dKbdrFf0KyEncu3FdyFas4RToHdslzU/YNGZdrNe0eWa8ZxcCNF6JXwNtobesV3W/KCOoj8ItgS50ICG + k7vJ4VBZq+iyl1tOngHReqXknpnnYrus+UEdRX8FyBpy8oD8h6P5ku2P5Bjo/XvjnLNW0XM3s5CtpaL1 + SrgaisV2WfODOor+OojWpPnaB1pKV9HPgpzItsp2rZL6bC3lYrus+UEdRecOM3XYE1pKVPT/g5y7s8qv + LV8FvVZJfwNFY7us+QGLThNjKHruO9pvBr1OSfKPzy9D0dgua37AotNE60X/HOREbncktz3Sz0VJssdc + 8dgua37AotNE60V/EeRELl/Vz0NJN8FMYrus+QGLThMtFl0+qZHvfZN7hyfkULDPQ0m5n+WvG9tlzQ9Y + dJposeirO7LmXiByHdjnoRS5k8vMYrus+QGLThOtFV1O8pHv+4rlP6XnNLDPQSn3we4ws9gua37AotNE + a0XfEe6Gg5b/lJbtYPVl/yy8BWYa22XND1h0mmit6PtB7rXm74HoOShBzmeXVxszje2y5gd1FP0MiNak + +co9bXSoyC2O5Pf01OwP0d+/FOnUzGO7rPlBHUV/CshFCOfQIC6A8+DhsAiRLZyiY7iET8NcYrus+UEd + RWeYeeUoiI7fUuSH1lxiu6z5AYvOLE7kUuhbITp+S/gAzC22y5ofsOjM4uT1EB27JdwDcqfVucV2WfMD + Fp1ZjOwBP4Po2C3hXJhrbJc1P2DRmcXILPdnn9n57GvFdlnzAxadGX/k9NjomC3leJh7bJc1P2DRmfHn + ZoiO2RL+CQaJ7bLmByw6M+7IT9voeC3lABgktsuaH7DozHjzSJDdXaLjtYS3w2CxXdb8gEVnxhu5g2p0 + rJYgO+cOeiah7bLmByw6M84cCNFxWorcM33Q2C5rfsCiM+PMRoiO0xJuhMFju6z5AYvOjC9HQ3SMlpJ7 + 48aisV3W/IBFZ8aXr0B0jJbwIagitsuaH7DozLjyWoiOz1IOhipiu6z5AYvOjCdyS6no2CxFrt2vJrbL + mh+w6Mx4cilEx2YJ3wK5zLWa2C5rflBH0eV7kDVuAbn/FS0GufnC7bAB+mbWG0qcAFXFdlnzgzqKPstt + d6l+JU4jlS2corVLmNv2UCmxXdb8oI6icxfYxbYv9Mmsj58joLrYLmt+wKLT8PoUfSuY5f7s8nt/lbFd + 1vyARafh9Sn6xRCtWUrfVxszi+2y5gcsOg0vt0xyA4dovVJOhWpju6z5AYtOw8st+scgWq8E+UTgoVBt + bJc1P2DRaXg5RX8eRGuVchxUHdtlzQ9YdBpeTtHlCrJorRK+ANXHdlnzAxadhpdadLl9VLROKYdA9bFd + 1vyARafhpRRdtof6EUTrlPB30ERslzU/qKPovJvqYnsCTBu57VG0Rgk/ht2gidgua35QR9GPhOvhw7RQ + ZKvkK2AXmCZPgujYK+VV0ExslzU/qKPoDDNNPgfRsVfCbVDV1WnrxXZZ8wMWnWkjL4PouCulyvPZ14rt + suYHLDpTf3aAWZ7P/iloLrbLmh+w6Ez9OR+iY66U3DPzBo3tsuYHLDpTd/aCn0N0zJXwTmgytsuaH7Do + TN25FqLjrYS7QX4taDK2y5ofsOhMvZn1+ex/CM3GdlnzAxadqTPbwNchOtZK+Dw0HdtlzQ9YdKbOvAai + 46yUp0HTsV3W/IBFZ+rLHvATiI6zEuSMvOZju6z5AYvO1Be573h0jJVwLzwamo/tsuYHLDpTVw6D6Pgq + 5QIYRWyXNT9g0Zm6cg1Ex1cJt0JT57OvFdtlzQ9YdKaevAiiY6uUpq5OWy+2y5of1FH0veFEkPtO0/y9 + BI6FITdDfAjcCdGxVcK/wahiu6z5QR1FPx2iNWm+hjzn+yyIvqdSng2jiu2y5gd1FP1kiNak+doThshB + EH0/pbwPRhfbZc0P6ig694yrw1BF/xBE308JP4CdYHSxXdb8gEWniSGK/gcQfS+lnAOjjO2y5gcsOk0M + UfRZ7s/+JRhtbJc1P2DRaWLeRT8Tou+jFNl+arSxXdb8gEWniXkWXX5vvgei76OEjTDq2C5rfsCi08Q8 + i/4OiL6HUp4Co47tsuYHLDpNzKvoB0P0+KVcBKOP7bLmByw6Tcyr6FdD9Pgl3Ady26bRx3ZZ84M6ij7r + TQZoOrIR46xzCkSPXYr80EiJXOQiJ+xssfynhmK7rPlBHUWf9X98ms4GmGW2gtsheuwSroPUvBCuXPm/ + bcV2WfODOor+cDgAHkuD2A/kPHe5sGSWeRtEx04pR0FqZO+4z67837Ziu6z5QR1FZ8Yf+f0/Om5KyTmf + /QUgX/vB5T81FttlzQ9YdGY+kZfH0XFTyoGQmk+DfG2TF73YLmt+wKIzs49cIhodM6W8GVLzx7D69Sx6 + Ahad6cp/QHTMlCBXp8l7PCnZDL4Gq2uw6AlYdCbKqyE6Xkp5BaTGfpzLoidg0Rmbh8G3ITpeSpBXCqn5 + Vfgp6HVY9AQsOmPzAYiOlVJka+jUvBXsOix6Ahad0XkiRMdJKR+G1HRtWcWiJ2DRGZ0bIDpOSpGTfFLz + DxCtxaInYNGZ1RwN0TFSyqmQmrVuwcyiJ2DRGYnsDV/ieOryTdgWUrPWHWBY9AQsOiOZ9f7svwupOR6i + tVax6AlYdGZ/iI6NUuSU1dTIR3zfhWi9VSx6AhadkXfCo2OjlN+E1JwB0Voai56ARV/sPBei46KUd0Jq + ZCONaC2LRU8wj6LLLiA7gLwcm/W100xaZvlx2g/hUZCaiyFaz2LRE8yq6FJsOTdZ7oYpp1PKRQzie/Cf + cD7sDkNkR5Ddca6Cm+EOuAWuhXMh57PeVvNViI6LEk6D1DwNorUiLHqC0kXfGVJOobweHgfziOyG868Q + fR/WV0A+Vx575B+66O/fl6y7OaTmoxCtF2HRE5Qs+vPhRxA9znrkp/8scx5Ej7se+akvv3KMNbMq+jMh + Nb8H0VpdWPQEpYouN+aP1k9xCcwi74fo8aYlv2rICSVjzCyK/inIyb9DtF4XFj1BiaLL1UjR2jnkxI2S + uRSix0n1RRhjZlH0nO2nXwrRWmth0RP0LfqukPtyvcuzoERKb54g9wMfW0oXPedVmbyvI2/URuuthUVP + 0Lfos7gXl7xB1zfbQ4nnx/odGFNKFv0bkPN+xhshWm89LHqCPkX/NbC7fpRyHPSJfHwXrdvXJ2BMKVn0 + V0Fq9oafQ7Teelj0BH2KfjZEa5YgrxT65MsQrVvCmO74WaroN0JO3gPRetNg0RP0Kbq8uxqtWYKcwJKb + x0C0Zimz/ihwnilV9KdCap4M0VrTYtET9Cl66TdyrH0gJyU+6lvLmG7v2/e/4eXwCMjJtCcvdWHRE+QW + /cHwLYjWLCX33fc3QLReKTn7ntWa3KLLmYNPh9ystXPMtFj0BLlFlzts3g3RmqUcATk5B6L1SrkCxpLU + ossbZ2+CvpHzEqL1U7DoCfq8dJffo6M1S8m5jlki99qO1iulyQOsIylFl5fauS/TdWRLqfU2lZgGi56g + T9E/A9GaJciBsB3kRF4JRGuWIufNjyXTFF3+WxwCpSK/9sln7tFjpWDRE/Qp+tshWrOEjZAbuUQ250yr + aZ0AY8l6RT8dSodF7+AHdRQ95drhVDlbA+vIteXRun3dCzmbKdSarqJfDbPaL4BF7+AHdRRdIgdEtG4f + 34edoE/kzLpo7b7+GsYUW/Q74UiYZVj0Dn5QT9HloIjW7eNPoUT+GaL1+9gTxhRd9LfIYA5h0Tv4QT1F + l7weorVz/AuUyoEQPUYuuZRybJF93b4OfV9BpYRF7+AHdRVd0uec5VVyEoZ8Pl8yL4DosVLJRTJjy9Yg + 77Nss/yn+YVF7+AH9RVd8vcQPcY0roOcW/ZMk2MhesxpjbHkQ4ZF7+AHdRZd8kK4D6LH6nImzDpyoYts + CRU9fhd5h132wWPKhkXv4Af1Fn01L4a1iiXv7srdOLaEeeYZsN7eZHJDwBOBmU1Y9A5+UH/RVyOfOcvl + iIfDs0EuZ5SfrpvBkNkFpPTyMdwrQZ5POaNONkLI2aaYmT4segc/aKfoDGPDonfwAxadaTcsegc/YNGZ + dsOid/ADFp1pNyx6Bz9g0Zl2w6J38AMWnWk3LHoHP2DRmXbDonfwAxadaTcsegc/YNGZdsOid/ADFp1p + Nyx6Bz9g0Zl2w6J38INyRX8vMMw88yC4A6LjMQWLnmD1nt+y+YBsr0w0SxK5tXKJu/wsRNFfDnfJ1/Uk + 145/G2TvbqJZ+84D/5t7q2TtMmgutsuaHywtvQzkumn9FydaJLJ9WXOxXdb8YGXnk2nuskE0VhdCc7Fd + 1vxgaek34JPydUQLSu6x11xslzU/WNnB8wL5OqIF9UxoLrbLmh+sRF6+67840aKQN/VW38VvKrbLmh+s + RLZHlr+wfgKIFsE10GRslzU/mORK0E8A0SLoexPOwWK7rPnBJL8N+gkgGjs5fVbeo2oytsuaH2yaq0A/ + EURjdhI0G9tlzQ82zcGgnwiisfoCNB3bZc0PfE4B/YQQjdE+0HRslzU/iHMJ6CeFaExGcR8822XND7rD + stMYye2vRxHbZc0P1s4xoJ8kolbdBnvAaGK7rPnB+pGzht4F+kkjasU9IHsujC62y5ofTJ+9QE4uuAH0 + E0lUm5/A5SCvSLeHUcZ2WfODvOwKsmHF2SCX+L3tARcTzZkcdxfBW0Huky9vtDV57npqbJe1cEhE4xIO + iWhM7l/6fwyTudOonL8CAAAAAElFTkSuQmCC + + + \ No newline at end of file diff --git a/projetoAvaliacao05/FPrincipal.vb b/projetoAvaliacao05/FPrincipal.vb new file mode 100755 index 0000000..d602469 --- /dev/null +++ b/projetoAvaliacao05/FPrincipal.vb @@ -0,0 +1,42 @@ +Public Class FPrincipal + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click, AberturaToolStripMenuItem.Click + FProtocolo.Show() + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click, FechamentoToolStripMenuItem.Click + FFechamento.Show() + End Sub + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click, ClienteToolStripMenuItem.Click + FCliente.Show() + End Sub + + Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click, UsuárioToolStripMenuItem.Click + FUsuario.Show() + End Sub + + Private Sub SetorToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SetorToolStripMenuItem.Click + FSetor.Show() + End Sub + + Private Sub FuncionárioToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FuncionárioToolStripMenuItem.Click + FFuncionario.Show() + End Sub + + Private Sub ServiçoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ServiçoToolStripMenuItem.Click + FServico.Show() + End Sub + + Private Sub SobreToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SobreToolStripMenuItem.Click + FSobre.Show() + End Sub + + Private Sub SairToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SairToolStripMenuItem.Click, MyBase.FormClosed + Me.Hide() + FLogin.Show() + End Sub + + Private Sub AjudaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AjudaToolStripMenuItem.Click + Process.Start("C:\projetoAvaliacao05\projetoAvaliacao05\PDF\Avalicao.pdf") + End Sub +End Class \ No newline at end of file diff --git a/projetoAvaliacao05/FSobre.Designer.vb b/projetoAvaliacao05/FSobre.Designer.vb new file mode 100755 index 0000000..627582f --- /dev/null +++ b/projetoAvaliacao05/FSobre.Designer.vb @@ -0,0 +1,78 @@ + _ +Partial Class FSobre + Inherits System.Windows.Forms.Form + + 'Descartar substituições de formulário para limpar a lista de componentes. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Exigido pelo Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'OBSERVAÇÃO: o procedimento a seguir é exigido pelo Windows Form Designer + 'Pode ser modificado usando o Windows Form Designer. + 'Não o modifique usando o editor de códigos. + _ + Private Sub InitializeComponent() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.SuspendLayout() + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.SystemColors.ControlDark + Me.Panel1.Location = New System.Drawing.Point(12, 12) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(67, 183) + Me.Panel1.TabIndex = 0 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(85, 12) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(304, 60) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "SGP-GC " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Sistema de Gerenciamento de Protocolos" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & """Giz de Cera""" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(86, 78) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(223, 104) + Me.Label2.TabIndex = 2 + Me.Label2.Text = "Sistema para Gerenciamento de Protocolos" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "da escola Giz de Cera" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Desenvolvido c" & + "omo requerimento parcial para" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "obtenção de nota na UC10" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Docente: Leandro Cesa" & + "ri Maschietto" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Realizado em 03/07/2018" + ' + 'FSobre + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(414, 210) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.Panel1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "FSobre" + Me.Text = "Sobre" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents Panel1 As Panel + Friend WithEvents Label1 As Label + Friend WithEvents Label2 As Label +End Class diff --git a/projetoAvaliacao05/FSobre.resx b/projetoAvaliacao05/FSobre.resx new file mode 100755 index 0000000..29dcb1b --- /dev/null +++ b/projetoAvaliacao05/FSobre.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/projetoAvaliacao05/FSobre.vb b/projetoAvaliacao05/FSobre.vb new file mode 100755 index 0000000..39dead0 --- /dev/null +++ b/projetoAvaliacao05/FSobre.vb @@ -0,0 +1,3 @@ +Public Class FSobre + +End Class \ No newline at end of file diff --git a/projetoAvaliacao05/Formularios/FCliente.Designer.vb b/projetoAvaliacao05/Formularios/FCliente.Designer.vb new file mode 100755 index 0000000..1662acc --- /dev/null +++ b/projetoAvaliacao05/Formularios/FCliente.Designer.vb @@ -0,0 +1,308 @@ + +Partial Class FCliente + Inherits System.Windows.Forms.Form + + 'Descartar substituições de formulário para limpar a lista de componentes. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Exigido pelo Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'OBSERVAÇÃO: o procedimento a seguir é exigido pelo Windows Form Designer + 'Pode ser modificado usando o Windows Form Designer. + 'Não o modifique usando o editor de códigos. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FCliente)) + Dim Cod_ClienteLabel As System.Windows.Forms.Label + Dim Nome_ClienteLabel As System.Windows.Forms.Label + Dim Cpf_ClienteLabel As System.Windows.Forms.Label + Me.BdProtocoloDataSet = New projetoAvaliacao05.bdProtocoloDataSet() + Me.Tb_ClienteBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.Tb_ClienteTableAdapter = New projetoAvaliacao05.bdProtocoloDataSetTableAdapters.tb_ClienteTableAdapter() + Me.TableAdapterManager = New projetoAvaliacao05.bdProtocoloDataSetTableAdapters.TableAdapterManager() + Me.Tb_ClienteBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.Tb_ClienteBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.Cod_ClienteTextBox = New System.Windows.Forms.TextBox() + Me.Nome_ClienteTextBox = New System.Windows.Forms.TextBox() + Me.Cpf_ClienteMaskedTextBox = New System.Windows.Forms.MaskedTextBox() + Me.Tb_UsuarioBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.Tb_UsuarioTableAdapter = New projetoAvaliacao05.bdProtocoloDataSetTableAdapters.tb_UsuarioTableAdapter() + Cod_ClienteLabel = New System.Windows.Forms.Label() + Nome_ClienteLabel = New System.Windows.Forms.Label() + Cpf_ClienteLabel = New System.Windows.Forms.Label() + CType(Me.BdProtocoloDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Tb_ClienteBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Tb_ClienteBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Tb_ClienteBindingNavigator.SuspendLayout() + CType(Me.Tb_UsuarioBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'BdProtocoloDataSet + ' + Me.BdProtocoloDataSet.DataSetName = "bdProtocoloDataSet" + Me.BdProtocoloDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'Tb_ClienteBindingSource + ' + Me.Tb_ClienteBindingSource.DataMember = "tb_Cliente" + Me.Tb_ClienteBindingSource.DataSource = Me.BdProtocoloDataSet + ' + 'Tb_ClienteTableAdapter + ' + Me.Tb_ClienteTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.idFuncionarioTableAdapter = Nothing + Me.TableAdapterManager.tb_ClienteTableAdapter = Me.Tb_ClienteTableAdapter + Me.TableAdapterManager.tb_ProtocoloTableAdapter = Nothing + Me.TableAdapterManager.tb_SetorTableAdapter = Nothing + Me.TableAdapterManager.tb_UsuarioTableAdapter = Me.Tb_UsuarioTableAdapter + Me.TableAdapterManager.tbServicoTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = projetoAvaliacao05.bdProtocoloDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'Tb_ClienteBindingNavigator + ' + Me.Tb_ClienteBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.Tb_ClienteBindingNavigator.BindingSource = Me.Tb_ClienteBindingSource + Me.Tb_ClienteBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.Tb_ClienteBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.Tb_ClienteBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.Tb_ClienteBindingNavigatorSaveItem}) + Me.Tb_ClienteBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.Tb_ClienteBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.Tb_ClienteBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.Tb_ClienteBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.Tb_ClienteBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.Tb_ClienteBindingNavigator.Name = "Tb_ClienteBindingNavigator" + Me.Tb_ClienteBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.Tb_ClienteBindingNavigator.Size = New System.Drawing.Size(362, 25) + Me.Tb_ClienteBindingNavigator.TabIndex = 0 + Me.Tb_ClienteBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Mover primeiro" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Mover anterior" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Posição" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Posição atual" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(37, 15) + Me.BindingNavigatorCountItem.Text = "de {0}" + Me.BindingNavigatorCountItem.ToolTipText = "Número total de itens" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 6) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorMoveNextItem.Text = "Mover próximo" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorMoveLastItem.Text = "Mover último" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 6) + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Adicionar novo" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorDeleteItem.Text = "Excluir" + ' + 'Tb_ClienteBindingNavigatorSaveItem + ' + Me.Tb_ClienteBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.Tb_ClienteBindingNavigatorSaveItem.Image = CType(resources.GetObject("Tb_ClienteBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.Tb_ClienteBindingNavigatorSaveItem.Name = "Tb_ClienteBindingNavigatorSaveItem" + Me.Tb_ClienteBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 23) + Me.Tb_ClienteBindingNavigatorSaveItem.Text = "Salvar Dados" + ' + 'Cod_ClienteLabel + ' + Cod_ClienteLabel.AutoSize = True + Cod_ClienteLabel.Location = New System.Drawing.Point(20, 48) + Cod_ClienteLabel.Name = "Cod_ClienteLabel" + Cod_ClienteLabel.Size = New System.Drawing.Size(19, 13) + Cod_ClienteLabel.TabIndex = 1 + Cod_ClienteLabel.Text = "Nº" + ' + 'Cod_ClienteTextBox + ' + Me.Cod_ClienteTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Tb_ClienteBindingSource, "cod_Cliente", True)) + Me.Cod_ClienteTextBox.Enabled = False + Me.Cod_ClienteTextBox.Location = New System.Drawing.Point(45, 45) + Me.Cod_ClienteTextBox.Name = "Cod_ClienteTextBox" + Me.Cod_ClienteTextBox.Size = New System.Drawing.Size(22, 20) + Me.Cod_ClienteTextBox.TabIndex = 2 + ' + 'Nome_ClienteLabel + ' + Nome_ClienteLabel.AutoSize = True + Nome_ClienteLabel.Location = New System.Drawing.Point(20, 74) + Nome_ClienteLabel.Name = "Nome_ClienteLabel" + Nome_ClienteLabel.Size = New System.Drawing.Size(38, 13) + Nome_ClienteLabel.TabIndex = 3 + Nome_ClienteLabel.Text = "Nome:" + ' + 'Nome_ClienteTextBox + ' + Me.Nome_ClienteTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Tb_ClienteBindingSource, "nome_Cliente", True)) + Me.Nome_ClienteTextBox.Location = New System.Drawing.Point(64, 71) + Me.Nome_ClienteTextBox.Name = "Nome_ClienteTextBox" + Me.Nome_ClienteTextBox.Size = New System.Drawing.Size(133, 20) + Me.Nome_ClienteTextBox.TabIndex = 4 + ' + 'Cpf_ClienteLabel + ' + Cpf_ClienteLabel.AutoSize = True + Cpf_ClienteLabel.Location = New System.Drawing.Point(218, 74) + Cpf_ClienteLabel.Name = "Cpf_ClienteLabel" + Cpf_ClienteLabel.Size = New System.Drawing.Size(30, 13) + Cpf_ClienteLabel.TabIndex = 5 + Cpf_ClienteLabel.Text = "CPF:" + ' + 'Cpf_ClienteMaskedTextBox + ' + Me.Cpf_ClienteMaskedTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Tb_ClienteBindingSource, "cpf_Cliente", True)) + Me.Cpf_ClienteMaskedTextBox.Location = New System.Drawing.Point(262, 71) + Me.Cpf_ClienteMaskedTextBox.Mask = "###,###,###-##" + Me.Cpf_ClienteMaskedTextBox.Name = "Cpf_ClienteMaskedTextBox" + Me.Cpf_ClienteMaskedTextBox.Size = New System.Drawing.Size(84, 20) + Me.Cpf_ClienteMaskedTextBox.TabIndex = 7 + ' + 'Tb_UsuarioBindingSource + ' + Me.Tb_UsuarioBindingSource.DataMember = "tb_Usuario" + Me.Tb_UsuarioBindingSource.DataSource = Me.BdProtocoloDataSet + ' + 'Tb_UsuarioTableAdapter + ' + Me.Tb_UsuarioTableAdapter.ClearBeforeFill = True + ' + 'FCliente + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(362, 233) + Me.Controls.Add(Me.Cpf_ClienteMaskedTextBox) + Me.Controls.Add(Cod_ClienteLabel) + Me.Controls.Add(Me.Cod_ClienteTextBox) + Me.Controls.Add(Nome_ClienteLabel) + Me.Controls.Add(Me.Nome_ClienteTextBox) + Me.Controls.Add(Cpf_ClienteLabel) + Me.Controls.Add(Me.Tb_ClienteBindingNavigator) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "FCliente" + Me.Text = "Cadastro de Cliente" + CType(Me.BdProtocoloDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Tb_ClienteBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Tb_ClienteBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.Tb_ClienteBindingNavigator.ResumeLayout(False) + Me.Tb_ClienteBindingNavigator.PerformLayout() + CType(Me.Tb_UsuarioBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents BdProtocoloDataSet As bdProtocoloDataSet + Friend WithEvents Tb_ClienteBindingSource As BindingSource + Friend WithEvents Tb_ClienteTableAdapter As bdProtocoloDataSetTableAdapters.tb_ClienteTableAdapter + Friend WithEvents TableAdapterManager As bdProtocoloDataSetTableAdapters.TableAdapterManager + Friend WithEvents Tb_ClienteBindingNavigator As BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As ToolStripButton + Friend WithEvents BindingNavigatorCountItem As ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As ToolStripButton + Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator + Friend WithEvents Tb_ClienteBindingNavigatorSaveItem As ToolStripButton + Friend WithEvents Cod_ClienteTextBox As TextBox + Friend WithEvents Nome_ClienteTextBox As TextBox + Friend WithEvents Cpf_ClienteMaskedTextBox As MaskedTextBox + Friend WithEvents Tb_UsuarioTableAdapter As bdProtocoloDataSetTableAdapters.tb_UsuarioTableAdapter + Friend WithEvents Tb_UsuarioBindingSource As BindingSource +End Class diff --git a/projetoAvaliacao05/Formularios/FCliente.resx b/projetoAvaliacao05/Formularios/FCliente.resx new file mode 100755 index 0000000..0a06899 --- /dev/null +++ b/projetoAvaliacao05/Formularios/FCliente.resx @@ -0,0 +1,217 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 179, 17 + + + 366, 17 + + + 547, 17 + + + 720, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFKSURBVDhPYxi84O4C9v+35nH+vzqH6//FGbz/ocLEg+tA + jX8eNf7/87Dh/8nJAqQbcH46L9yAgz0ipBtwfJIgUHPd/z8Pqv7vaBcnbMClmTz/z07l+38SqPFIv9D/ + fd0iQM3l///eK/q/vkHm/6oauf9LKxX/zy9V/j+rSBXTwFNAf/55WA/UVAvElf//3CsB4rz/f+9m/v97 + J/n/39tx///djADikP+TcjQxDTjUKwx27t/7pUCNBUCN2UCNqUCNCf//3YoGagz7/+9G0P9/1/3+d6Xp + Yhqws13i/5Zmqf/rwM6V/7+kQvH/31sxQI3h/6fmafyfkKX1vztD9397qv7/5kRDwmEyG+hPkHP/3Qj4 + 35OhQ1gDOgD5898NfyD2+9+arE+6Ad3pumD/gnB9nBHpBrQkGfxviDf8XxNr/L8y2oR0A+gEGBgAJCPY + nnX8iGkAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFvSURBVDhPtZBNKMNhHMd3Vd5K7eKCWjkgk7yEZDKksciE + yMwkBw6LhHZxcCDlQg64SA4kJeVE4jRv89qaWn8tUtoF/7g8H2Ootb+x4nt56nm+38/v+/xUfyJcJ9Bt + BMcOH1eRiZV5RGcVwqyHrfWwELweWJoJ9rC2AL0mRLse0VEBcxOKkLeGwlwGIz2h75w6ApC6bERjAdia + gkxiyIow5cKkPWxDFYvTiMrUdxDDVnCfwVh/AOo/P2zhhccFzcWBLxmzEPV50Nfyu/Cn2N/1V85DGNKh + Rhth+EaCxkLISUDWxvOgjYXa7F/Wv7kGUz4UJeKzGODi6H25d2l+yPLsDwu8v4NWHY8lSbhL0/HtbX8F + GLXh1MQgnxwoQ3h5hkEL6JI5TlPj21gNMd6WZyC1VSN7r0Mh7G4i56pxpkQhdTWA/KQ4aUcTh+x0KACm + RpBSo3HrM0G6Uq7pl2zvhvNDBcClE8YH4HDv2/A/SKV6BYojAxyEJtLJAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEqSURBVDhPYxg8oHDW8/9NC57/z5z4+D9UCAOEtz/AKceQ + O/PZ/1VH3v/HpSi++8H/4IZruA3ImPL0/8J9H7Aqiu95+H/p/v///asv4DYgoefJ/2lb3mMoimi/D9ac + Oev/f6/SE7gNiOx69L939QcURaGt98CaW9cBbe/8+98l/wBuAwKbH/6vm/8Orii45e7/RXv//+8Aas6Y + 8/O/Xd3P//YZ23Eb4FF1/3/+tDcoiuyKb/9Pn/P7v3/Xt/86he/+WySsx22Afend/9mTX2Mo0k85/9+k + 6MV/laxP/40jl+E2wCLvzv/U/tdYFRkknfgvm/b1v27wPNwGGGbd/h/W8hKnIv3Uy/81fKfhNkAn7cZ/ + v+qHeBWpeEzAbYBT7pX/IAV4FQ1CwMAAAPB2wKul5ZpwAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAC2SURBVDhPYxg6ILz9wX8ok3QQ3/3gf3DDNfIMiO95+H/p + /v///asvkG5ARPt9sObMWf//e5WeIM2A0NZ7YM2t64C2d/7975J/gHgDglvu/l+09///DqDmjDk//9vV + /fxvn7GdNBfYFd/+nz7n93//rm//dQrf/bdIWE96GOinnP9vUvTiv0rWp//GkctINwAEDJJO/JdN+/pf + N3geeQaAgH7q5f8avtPINwAEVDwmUGbAYAUMDADQFGCYBLpQVQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACjSURBVDhPYxh8oHDW8/9QJnkgd+az/wnd98g3JGPK0//z + 9v/+n9B1hzxDEnqe/J+979f/zq1//7uVXibdkMiuR/+nbPv1v2Tp3/8J0//+t8k9S5ohgc0P/7eufQ/W + bFzy5b909LX/xpHLiDfEo+r+/5K57+CaFV16SHOBfend/4Etz8jTDAIWeXf+2xRcIU8zCBhm3SZfMwjo + pN0gX/NQBAwMAKB+X6AHNEI4AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEsSURBVDhPYxhcoHDW8/9QJgYAyTUteP4/c+JjnGoYcmc+ + +5/QfQ+rApDcqiPv/4e3P8BtQMaUp//n7f/9P6HrDoYikNzCfR/+Bzdcw21AQs+T/7P3/frfufXvf7fS + yygKQXLTtrz/7199AbcBkV2P/k/Z9ut/ydK//xOm//1vk3sWrhgk17v6w3+v0hO4DQhsfvi/de17sGbj + ki//paOv/TeOXAbWAJKrm//uv0v+AdwGeFTd/18y9x1cs6JLD1wxSC5/2pv/9hnbcRtgX3r3f2DLMwzN + IACSy578+r9FwnrcBljk3flvU3AFQzMIgORS+1/DvYQVGGbdxqoZBEByYS0v/+sGz8NtgE7aDZySIDm/ + 6of/NXyn4TYAH3DKvfJfxWMCGEOFBgVgYAAAvtG/s7kMTpwAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABMSURBVDhPY6AK+Pbt239SMVQrBIAFgufA8Yf3H+EYWQxE + x0zYh2kIKQaAMMwQqHbSDQBhog1AxshqaGsAMXjUgEFpADkYqp0SwMAAAPRDDFPA2mtzAAAAAElFTkSu + QmCC + + + + False + + + False + + + False + + \ No newline at end of file diff --git a/projetoAvaliacao05/Formularios/FCliente.vb b/projetoAvaliacao05/Formularios/FCliente.vb new file mode 100755 index 0000000..f37477d --- /dev/null +++ b/projetoAvaliacao05/Formularios/FCliente.vb @@ -0,0 +1,27 @@ +Public Class FCliente + Private Sub Tb_ClienteBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) + Me.Validate() + Me.Tb_ClienteBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.BdProtocoloDataSet) + + End Sub + + Private Sub FCliente_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'BdProtocoloDataSet.tb_Usuario'. Você pode movê-la ou removê-la conforme necessário. + Me.Tb_UsuarioTableAdapter.Fill(Me.BdProtocoloDataSet.tb_Usuario) + 'TODO: esta linha de código carrega dados na tabela 'BdProtocoloDataSet.tb_Usuario'. Você pode movê-la ou removê-la conforme necessário. + Me.Tb_UsuarioTableAdapter.Fill(Me.BdProtocoloDataSet.tb_Usuario) + 'TODO: esta linha de código carrega dados na tabela 'BdProtocoloDataSet.tb_Cliente'. Você pode movê-la ou removê-la conforme necessário. + Me.Tb_ClienteTableAdapter.Fill(Me.BdProtocoloDataSet.tb_Cliente) + 'TODO: esta linha de código carrega dados na tabela 'BdProtocoloDataSet.tb_Cliente'. Você pode movê-la ou removê-la conforme necessário. + Me.Tb_ClienteTableAdapter.Fill(Me.BdProtocoloDataSet.tb_Cliente) + + End Sub + + Private Sub Tb_ClienteBindingNavigatorSaveItem_Click_1(sender As Object, e As EventArgs) Handles Tb_ClienteBindingNavigatorSaveItem.Click + Me.Validate() + Me.Tb_ClienteBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.BdProtocoloDataSet) + + End Sub +End Class diff --git a/projetoAvaliacao05/Formularios/FFechamento.Designer.vb b/projetoAvaliacao05/Formularios/FFechamento.Designer.vb new file mode 100755 index 0000000..9a185b0 --- /dev/null +++ b/projetoAvaliacao05/Formularios/FFechamento.Designer.vb @@ -0,0 +1,571 @@ + +Partial Class FFechamento + Inherits System.Windows.Forms.Form + + 'Descartar substituições de formulário para limpar a lista de componentes. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Exigido pelo Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'OBSERVAÇÃO: o procedimento a seguir é exigido pelo Windows Form Designer + 'Pode ser modificado usando o Windows Form Designer. + 'Não o modifique usando o editor de códigos. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim IdProtocoloLabel As System.Windows.Forms.Label + Dim DataAberturaLabel As System.Windows.Forms.Label + Dim IdClienteLabel As System.Windows.Forms.Label + Dim IdSetorLabel As System.Windows.Forms.Label + Dim IdServicoLabel As System.Windows.Forms.Label + Dim DescricaoServicoLabel As System.Windows.Forms.Label + Dim StatusServicoLabel As System.Windows.Forms.Label + Dim DataFechamentoLabel As System.Windows.Forms.Label + Dim IdFuncionarioLabel As System.Windows.Forms.Label + Dim DescricaoFechamentoLabel As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FFechamento)) + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.IdProtocoloTextBox = New System.Windows.Forms.TextBox() + Me.Tb_ProtocoloBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.BdProtocoloDataSet = New projetoAvaliacao05.bdProtocoloDataSet() + Me.DataAberturaDateTimePicker = New System.Windows.Forms.DateTimePicker() + Me.IdClienteComboBox = New System.Windows.Forms.ComboBox() + Me.TbClienteBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DescricaoFechamentoTextBox = New System.Windows.Forms.TextBox() + Me.IdSetorComboBox = New System.Windows.Forms.ComboBox() + Me.TbSetorBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.IdServicoComboBox = New System.Windows.Forms.ComboBox() + Me.TbServicoBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.IdFuncionarioComboBox = New System.Windows.Forms.ComboBox() + Me.IdFuncionarioBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.DataFechamentoDateTimePicker = New System.Windows.Forms.DateTimePicker() + Me.DescricaoServicoTextBox = New System.Windows.Forms.TextBox() + Me.StatusServicoComboBox = New System.Windows.Forms.ComboBox() + Me.Tb_ProtocoloTableAdapter = New projetoAvaliacao05.bdProtocoloDataSetTableAdapters.tb_ProtocoloTableAdapter() + Me.TableAdapterManager = New projetoAvaliacao05.bdProtocoloDataSetTableAdapters.TableAdapterManager() + Me.IdFuncionarioTableAdapter = New projetoAvaliacao05.bdProtocoloDataSetTableAdapters.idFuncionarioTableAdapter() + Me.Tb_ClienteTableAdapter = New projetoAvaliacao05.bdProtocoloDataSetTableAdapters.tb_ClienteTableAdapter() + Me.Tb_SetorTableAdapter = New projetoAvaliacao05.bdProtocoloDataSetTableAdapters.tb_SetorTableAdapter() + Me.TbServicoTableAdapter = New projetoAvaliacao05.bdProtocoloDataSetTableAdapters.tbServicoTableAdapter() + Me.Tb_ProtocoloBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.Tb_ProtocoloBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + IdProtocoloLabel = New System.Windows.Forms.Label() + DataAberturaLabel = New System.Windows.Forms.Label() + IdClienteLabel = New System.Windows.Forms.Label() + IdSetorLabel = New System.Windows.Forms.Label() + IdServicoLabel = New System.Windows.Forms.Label() + DescricaoServicoLabel = New System.Windows.Forms.Label() + StatusServicoLabel = New System.Windows.Forms.Label() + DataFechamentoLabel = New System.Windows.Forms.Label() + IdFuncionarioLabel = New System.Windows.Forms.Label() + DescricaoFechamentoLabel = New System.Windows.Forms.Label() + Me.GroupBox1.SuspendLayout() + CType(Me.Tb_ProtocoloBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BdProtocoloDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbClienteBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbSetorBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbServicoBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.IdFuncionarioBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox2.SuspendLayout() + CType(Me.Tb_ProtocoloBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Tb_ProtocoloBindingNavigator.SuspendLayout() + Me.SuspendLayout() + ' + 'IdProtocoloLabel + ' + IdProtocoloLabel.AutoSize = True + IdProtocoloLabel.Location = New System.Drawing.Point(6, 16) + IdProtocoloLabel.Name = "IdProtocoloLabel" + IdProtocoloLabel.Size = New System.Drawing.Size(67, 13) + IdProtocoloLabel.TabIndex = 27 + IdProtocoloLabel.Text = "Nº Protocolo" + ' + 'DataAberturaLabel + ' + DataAberturaLabel.AutoSize = True + DataAberturaLabel.Location = New System.Drawing.Point(6, 43) + DataAberturaLabel.Name = "DataAberturaLabel" + DataAberturaLabel.Size = New System.Drawing.Size(76, 13) + DataAberturaLabel.TabIndex = 29 + DataAberturaLabel.Text = "Data Abertura:" + ' + 'IdClienteLabel + ' + IdClienteLabel.AutoSize = True + IdClienteLabel.Location = New System.Drawing.Point(6, 68) + IdClienteLabel.Name = "IdClienteLabel" + IdClienteLabel.Size = New System.Drawing.Size(42, 13) + IdClienteLabel.TabIndex = 31 + IdClienteLabel.Text = "Cliente:" + ' + 'IdSetorLabel + ' + IdSetorLabel.AutoSize = True + IdSetorLabel.Location = New System.Drawing.Point(6, 94) + IdSetorLabel.Name = "IdSetorLabel" + IdSetorLabel.Size = New System.Drawing.Size(35, 13) + IdSetorLabel.TabIndex = 32 + IdSetorLabel.Text = "Setor:" + ' + 'IdServicoLabel + ' + IdServicoLabel.AutoSize = True + IdServicoLabel.Location = New System.Drawing.Point(6, 149) + IdServicoLabel.Name = "IdServicoLabel" + IdServicoLabel.Size = New System.Drawing.Size(46, 13) + IdServicoLabel.TabIndex = 33 + IdServicoLabel.Text = "Serviço:" + ' + 'DescricaoServicoLabel + ' + DescricaoServicoLabel.AutoSize = True + DescricaoServicoLabel.Location = New System.Drawing.Point(6, 176) + DescricaoServicoLabel.Name = "DescricaoServicoLabel" + DescricaoServicoLabel.Size = New System.Drawing.Size(97, 13) + DescricaoServicoLabel.TabIndex = 34 + DescricaoServicoLabel.Text = "Descrição Serviço:" + ' + 'StatusServicoLabel + ' + StatusServicoLabel.AutoSize = True + StatusServicoLabel.Location = New System.Drawing.Point(17, 131) + StatusServicoLabel.Name = "StatusServicoLabel" + StatusServicoLabel.Size = New System.Drawing.Size(79, 13) + StatusServicoLabel.TabIndex = 36 + StatusServicoLabel.Text = "Status Serviço:" + ' + 'DataFechamentoLabel + ' + DataFechamentoLabel.AutoSize = True + DataFechamentoLabel.Location = New System.Drawing.Point(17, 108) + DataFechamentoLabel.Name = "DataFechamentoLabel" + DataFechamentoLabel.Size = New System.Drawing.Size(95, 13) + DataFechamentoLabel.TabIndex = 37 + DataFechamentoLabel.Text = "Data Fechamento:" + ' + 'IdFuncionarioLabel + ' + IdFuncionarioLabel.AutoSize = True + IdFuncionarioLabel.Location = New System.Drawing.Point(6, 121) + IdFuncionarioLabel.Name = "IdFuncionarioLabel" + IdFuncionarioLabel.Size = New System.Drawing.Size(65, 13) + IdFuncionarioLabel.TabIndex = 39 + IdFuncionarioLabel.Text = "Funcionário:" + ' + 'DescricaoFechamentoLabel + ' + DescricaoFechamentoLabel.AutoSize = True + DescricaoFechamentoLabel.Location = New System.Drawing.Point(17, 23) + DescricaoFechamentoLabel.Name = "DescricaoFechamentoLabel" + DescricaoFechamentoLabel.Size = New System.Drawing.Size(120, 13) + DescricaoFechamentoLabel.TabIndex = 40 + DescricaoFechamentoLabel.Text = "Descrição Fechamento:" + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.IdProtocoloTextBox) + Me.GroupBox1.Controls.Add(Me.DataAberturaDateTimePicker) + Me.GroupBox1.Controls.Add(Me.IdClienteComboBox) + Me.GroupBox1.Controls.Add(Me.DescricaoServicoTextBox) + Me.GroupBox1.Controls.Add(Me.IdSetorComboBox) + Me.GroupBox1.Controls.Add(Me.IdServicoComboBox) + Me.GroupBox1.Controls.Add(Me.IdFuncionarioComboBox) + Me.GroupBox1.Controls.Add(IdProtocoloLabel) + Me.GroupBox1.Controls.Add(IdFuncionarioLabel) + Me.GroupBox1.Controls.Add(DescricaoServicoLabel) + Me.GroupBox1.Controls.Add(IdServicoLabel) + Me.GroupBox1.Controls.Add(IdSetorLabel) + Me.GroupBox1.Controls.Add(IdClienteLabel) + Me.GroupBox1.Controls.Add(DataAberturaLabel) + Me.GroupBox1.Location = New System.Drawing.Point(12, 28) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(327, 293) + Me.GroupBox1.TabIndex = 47 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Informações do Protocolo" + ' + 'IdProtocoloTextBox + ' + Me.IdProtocoloTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Tb_ProtocoloBindingSource, "idProtocolo", True)) + Me.IdProtocoloTextBox.Enabled = False + Me.IdProtocoloTextBox.Location = New System.Drawing.Point(110, 13) + Me.IdProtocoloTextBox.Name = "IdProtocoloTextBox" + Me.IdProtocoloTextBox.Size = New System.Drawing.Size(29, 20) + Me.IdProtocoloTextBox.TabIndex = 40 + ' + 'Tb_ProtocoloBindingSource + ' + Me.Tb_ProtocoloBindingSource.DataMember = "tb_Protocolo" + Me.Tb_ProtocoloBindingSource.DataSource = Me.BdProtocoloDataSet + ' + 'BdProtocoloDataSet + ' + Me.BdProtocoloDataSet.DataSetName = "bdProtocoloDataSet" + Me.BdProtocoloDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'DataAberturaDateTimePicker + ' + Me.DataAberturaDateTimePicker.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.Tb_ProtocoloBindingSource, "dataAbertura", True)) + Me.DataAberturaDateTimePicker.Enabled = False + Me.DataAberturaDateTimePicker.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.DataAberturaDateTimePicker.Location = New System.Drawing.Point(110, 39) + Me.DataAberturaDateTimePicker.Name = "DataAberturaDateTimePicker" + Me.DataAberturaDateTimePicker.Size = New System.Drawing.Size(200, 20) + Me.DataAberturaDateTimePicker.TabIndex = 42 + ' + 'IdClienteComboBox + ' + Me.IdClienteComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.Tb_ProtocoloBindingSource, "idCliente", True)) + Me.IdClienteComboBox.DataSource = Me.TbClienteBindingSource + Me.IdClienteComboBox.DisplayMember = "nome_Cliente" + Me.IdClienteComboBox.Enabled = False + Me.IdClienteComboBox.FormattingEnabled = True + Me.IdClienteComboBox.Location = New System.Drawing.Point(110, 65) + Me.IdClienteComboBox.Name = "IdClienteComboBox" + Me.IdClienteComboBox.Size = New System.Drawing.Size(200, 21) + Me.IdClienteComboBox.TabIndex = 44 + Me.IdClienteComboBox.ValueMember = "cod_Cliente" + ' + 'TbClienteBindingSource + ' + Me.TbClienteBindingSource.DataMember = "tb_Cliente" + Me.TbClienteBindingSource.DataSource = Me.BdProtocoloDataSet + ' + 'DescricaoFechamentoTextBox + ' + Me.DescricaoFechamentoTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Tb_ProtocoloBindingSource, "descricaoFechamento", True)) + Me.DescricaoFechamentoTextBox.Location = New System.Drawing.Point(143, 20) + Me.DescricaoFechamentoTextBox.Multiline = True + Me.DescricaoFechamentoTextBox.Name = "DescricaoFechamentoTextBox" + Me.DescricaoFechamentoTextBox.Size = New System.Drawing.Size(200, 76) + Me.DescricaoFechamentoTextBox.TabIndex = 58 + ' + 'IdSetorComboBox + ' + Me.IdSetorComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.Tb_ProtocoloBindingSource, "idSetor", True)) + Me.IdSetorComboBox.DataSource = Me.TbSetorBindingSource + Me.IdSetorComboBox.DisplayMember = "nome_Setor" + Me.IdSetorComboBox.Enabled = False + Me.IdSetorComboBox.FormattingEnabled = True + Me.IdSetorComboBox.Location = New System.Drawing.Point(110, 92) + Me.IdSetorComboBox.Name = "IdSetorComboBox" + Me.IdSetorComboBox.Size = New System.Drawing.Size(200, 21) + Me.IdSetorComboBox.TabIndex = 46 + Me.IdSetorComboBox.ValueMember = "cod_Setor" + ' + 'TbSetorBindingSource + ' + Me.TbSetorBindingSource.DataMember = "tb_Setor" + Me.TbSetorBindingSource.DataSource = Me.BdProtocoloDataSet + ' + 'IdServicoComboBox + ' + Me.IdServicoComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.Tb_ProtocoloBindingSource, "idServico", True)) + Me.IdServicoComboBox.DataSource = Me.TbServicoBindingSource + Me.IdServicoComboBox.DisplayMember = "nomeServico" + Me.IdServicoComboBox.Enabled = False + Me.IdServicoComboBox.FormattingEnabled = True + Me.IdServicoComboBox.Location = New System.Drawing.Point(110, 146) + Me.IdServicoComboBox.Name = "IdServicoComboBox" + Me.IdServicoComboBox.Size = New System.Drawing.Size(200, 21) + Me.IdServicoComboBox.TabIndex = 48 + Me.IdServicoComboBox.ValueMember = "idServico" + ' + 'TbServicoBindingSource + ' + Me.TbServicoBindingSource.DataMember = "tbServico" + Me.TbServicoBindingSource.DataSource = Me.BdProtocoloDataSet + ' + 'IdFuncionarioComboBox + ' + Me.IdFuncionarioComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.Tb_ProtocoloBindingSource, "idFuncionario", True)) + Me.IdFuncionarioComboBox.DataSource = Me.IdFuncionarioBindingSource + Me.IdFuncionarioComboBox.DisplayMember = "nomeFuncionario" + Me.IdFuncionarioComboBox.Enabled = False + Me.IdFuncionarioComboBox.FormattingEnabled = True + Me.IdFuncionarioComboBox.Location = New System.Drawing.Point(110, 119) + Me.IdFuncionarioComboBox.Name = "IdFuncionarioComboBox" + Me.IdFuncionarioComboBox.Size = New System.Drawing.Size(200, 21) + Me.IdFuncionarioComboBox.TabIndex = 56 + Me.IdFuncionarioComboBox.ValueMember = "idFuncionario" + ' + 'IdFuncionarioBindingSource + ' + Me.IdFuncionarioBindingSource.DataMember = "idFuncionario" + Me.IdFuncionarioBindingSource.DataSource = Me.BdProtocoloDataSet + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(DataFechamentoLabel) + Me.GroupBox2.Controls.Add(DescricaoFechamentoLabel) + Me.GroupBox2.Controls.Add(Me.DataFechamentoDateTimePicker) + Me.GroupBox2.Controls.Add(Me.StatusServicoComboBox) + Me.GroupBox2.Controls.Add(Me.DescricaoFechamentoTextBox) + Me.GroupBox2.Controls.Add(StatusServicoLabel) + Me.GroupBox2.Location = New System.Drawing.Point(345, 28) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(359, 293) + Me.GroupBox2.TabIndex = 48 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "Fechamento" + ' + 'DataFechamentoDateTimePicker + ' + Me.DataFechamentoDateTimePicker.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.Tb_ProtocoloBindingSource, "dataFechamento", True)) + Me.DataFechamentoDateTimePicker.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.DataFechamentoDateTimePicker.Location = New System.Drawing.Point(143, 102) + Me.DataFechamentoDateTimePicker.Name = "DataFechamentoDateTimePicker" + Me.DataFechamentoDateTimePicker.Size = New System.Drawing.Size(200, 20) + Me.DataFechamentoDateTimePicker.TabIndex = 54 + ' + 'DescricaoServicoTextBox + ' + Me.DescricaoServicoTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Tb_ProtocoloBindingSource, "descricaoServico", True)) + Me.DescricaoServicoTextBox.Enabled = False + Me.DescricaoServicoTextBox.Location = New System.Drawing.Point(110, 176) + Me.DescricaoServicoTextBox.Multiline = True + Me.DescricaoServicoTextBox.Name = "DescricaoServicoTextBox" + Me.DescricaoServicoTextBox.Size = New System.Drawing.Size(200, 77) + Me.DescricaoServicoTextBox.TabIndex = 50 + ' + 'StatusServicoComboBox + ' + Me.StatusServicoComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.Tb_ProtocoloBindingSource, "statusServico", True)) + Me.StatusServicoComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Tb_ProtocoloBindingSource, "statusServico", True)) + Me.StatusServicoComboBox.FormattingEnabled = True + Me.StatusServicoComboBox.Items.AddRange(New Object() {"EM ANDAMENTO", "FECHADO"}) + Me.StatusServicoComboBox.Location = New System.Drawing.Point(143, 128) + Me.StatusServicoComboBox.Name = "StatusServicoComboBox" + Me.StatusServicoComboBox.Size = New System.Drawing.Size(200, 21) + Me.StatusServicoComboBox.TabIndex = 52 + ' + 'Tb_ProtocoloTableAdapter + ' + Me.Tb_ProtocoloTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.idFuncionarioTableAdapter = Me.IdFuncionarioTableAdapter + Me.TableAdapterManager.tb_ClienteTableAdapter = Me.Tb_ClienteTableAdapter + Me.TableAdapterManager.tb_ProtocoloTableAdapter = Me.Tb_ProtocoloTableAdapter + Me.TableAdapterManager.tb_SetorTableAdapter = Me.Tb_SetorTableAdapter + Me.TableAdapterManager.tb_UsuarioTableAdapter = Nothing + Me.TableAdapterManager.tbServicoTableAdapter = Me.TbServicoTableAdapter + Me.TableAdapterManager.UpdateOrder = projetoAvaliacao05.bdProtocoloDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'IdFuncionarioTableAdapter + ' + Me.IdFuncionarioTableAdapter.ClearBeforeFill = True + ' + 'Tb_ClienteTableAdapter + ' + Me.Tb_ClienteTableAdapter.ClearBeforeFill = True + ' + 'Tb_SetorTableAdapter + ' + Me.Tb_SetorTableAdapter.ClearBeforeFill = True + ' + 'TbServicoTableAdapter + ' + Me.TbServicoTableAdapter.ClearBeforeFill = True + ' + 'Tb_ProtocoloBindingNavigator + ' + Me.Tb_ProtocoloBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.Tb_ProtocoloBindingNavigator.BindingSource = Me.Tb_ProtocoloBindingSource + Me.Tb_ProtocoloBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.Tb_ProtocoloBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.Tb_ProtocoloBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.Tb_ProtocoloBindingNavigatorSaveItem}) + Me.Tb_ProtocoloBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.Tb_ProtocoloBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.Tb_ProtocoloBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.Tb_ProtocoloBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.Tb_ProtocoloBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.Tb_ProtocoloBindingNavigator.Name = "Tb_ProtocoloBindingNavigator" + Me.Tb_ProtocoloBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.Tb_ProtocoloBindingNavigator.Size = New System.Drawing.Size(716, 25) + Me.Tb_ProtocoloBindingNavigator.TabIndex = 49 + Me.Tb_ProtocoloBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Adicionar novo" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(37, 22) + Me.BindingNavigatorCountItem.Text = "de {0}" + Me.BindingNavigatorCountItem.ToolTipText = "Número total de itens" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem.Text = "Excluir" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Mover primeiro" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Mover anterior" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Posição" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Posição atual" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem.Text = "Mover próximo" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem.Text = "Mover último" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'Tb_ProtocoloBindingNavigatorSaveItem + ' + Me.Tb_ProtocoloBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.Tb_ProtocoloBindingNavigatorSaveItem.Image = CType(resources.GetObject("Tb_ProtocoloBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.Tb_ProtocoloBindingNavigatorSaveItem.Name = "Tb_ProtocoloBindingNavigatorSaveItem" + Me.Tb_ProtocoloBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.Tb_ProtocoloBindingNavigatorSaveItem.Text = "Salvar Dados" + ' + 'FFechamento + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(716, 331) + Me.Controls.Add(Me.Tb_ProtocoloBindingNavigator) + Me.Controls.Add(Me.GroupBox2) + Me.Controls.Add(Me.GroupBox1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "FFechamento" + Me.Text = "Fechamento de Protocolo" + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.Tb_ProtocoloBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BdProtocoloDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbClienteBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbSetorBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbServicoBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.IdFuncionarioBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + CType(Me.Tb_ProtocoloBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.Tb_ProtocoloBindingNavigator.ResumeLayout(False) + Me.Tb_ProtocoloBindingNavigator.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents GroupBox1 As GroupBox + Friend WithEvents GroupBox2 As GroupBox + Friend WithEvents BdProtocoloDataSet As bdProtocoloDataSet + Friend WithEvents Tb_ProtocoloBindingSource As BindingSource + Friend WithEvents Tb_ProtocoloTableAdapter As bdProtocoloDataSetTableAdapters.tb_ProtocoloTableAdapter + Friend WithEvents TableAdapterManager As bdProtocoloDataSetTableAdapters.TableAdapterManager + Friend WithEvents Tb_ProtocoloBindingNavigator As BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As ToolStripButton + Friend WithEvents BindingNavigatorCountItem As ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As ToolStripButton + Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator + Friend WithEvents Tb_ProtocoloBindingNavigatorSaveItem As ToolStripButton + Friend WithEvents IdProtocoloTextBox As TextBox + Friend WithEvents DataAberturaDateTimePicker As DateTimePicker + Friend WithEvents IdClienteComboBox As ComboBox + Friend WithEvents IdSetorComboBox As ComboBox + Friend WithEvents IdServicoComboBox As ComboBox + Friend WithEvents DescricaoServicoTextBox As TextBox + Friend WithEvents StatusServicoComboBox As ComboBox + Friend WithEvents IdFuncionarioComboBox As ComboBox + Friend WithEvents DataFechamentoDateTimePicker As DateTimePicker + Friend WithEvents DescricaoFechamentoTextBox As TextBox + Friend WithEvents Tb_ClienteTableAdapter As bdProtocoloDataSetTableAdapters.tb_ClienteTableAdapter + Friend WithEvents TbClienteBindingSource As BindingSource + Friend WithEvents Tb_SetorTableAdapter As bdProtocoloDataSetTableAdapters.tb_SetorTableAdapter + Friend WithEvents TbSetorBindingSource As BindingSource + Friend WithEvents IdFuncionarioTableAdapter As bdProtocoloDataSetTableAdapters.idFuncionarioTableAdapter + Friend WithEvents IdFuncionarioBindingSource As BindingSource + Friend WithEvents TbServicoTableAdapter As bdProtocoloDataSetTableAdapters.tbServicoTableAdapter + Friend WithEvents TbServicoBindingSource As BindingSource +End Class diff --git a/projetoAvaliacao05/Formularios/FFechamento.resx b/projetoAvaliacao05/Formularios/FFechamento.resx new file mode 100755 index 0000000..24f5fa1 --- /dev/null +++ b/projetoAvaliacao05/Formularios/FFechamento.resx @@ -0,0 +1,261 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 179, 17 + + + 17, 17 + + + 17, 56 + + + 380, 56 + + + 216, 95 + + + 725, 56 + + + 381, 17 + + + 578, 17 + + + 17, 95 + + + 199, 56 + + + 553, 56 + + + 399, 95 + + + 751, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + \ No newline at end of file diff --git a/projetoAvaliacao05/Formularios/FFechamento.vb b/projetoAvaliacao05/Formularios/FFechamento.vb new file mode 100755 index 0000000..9d396a9 --- /dev/null +++ b/projetoAvaliacao05/Formularios/FFechamento.vb @@ -0,0 +1,24 @@ +Public Class FFechamento + Private Sub FFechamento_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'BdProtocoloDataSet.tbServico'. Você pode movê-la ou removê-la conforme necessário. + Me.TbServicoTableAdapter.Fill(Me.BdProtocoloDataSet.tbServico) + 'TODO: esta linha de código carrega dados na tabela 'BdProtocoloDataSet.idFuncionario'. Você pode movê-la ou removê-la conforme necessário. + Me.IdFuncionarioTableAdapter.Fill(Me.BdProtocoloDataSet.idFuncionario) + 'TODO: esta linha de código carrega dados na tabela 'BdProtocoloDataSet.tb_Setor'. Você pode movê-la ou removê-la conforme necessário. + Me.Tb_SetorTableAdapter.Fill(Me.BdProtocoloDataSet.tb_Setor) + 'TODO: esta linha de código carrega dados na tabela 'BdProtocoloDataSet.tb_Cliente'. Você pode movê-la ou removê-la conforme necessário. + Me.Tb_ClienteTableAdapter.Fill(Me.BdProtocoloDataSet.tb_Cliente) + 'TODO: esta linha de código carrega dados na tabela 'BdProtocoloDataSet.tb_Protocolo'. Você pode movê-la ou removê-la conforme necessário. + Me.Tb_ProtocoloTableAdapter.Fill(Me.BdProtocoloDataSet.tb_Protocolo) + 'TODO: esta linha de código carrega dados na tabela 'BdProtocoloDataSet.tb_Protocolo'. Você pode movê-la ou removê-la conforme necessário. + Me.Tb_ProtocoloTableAdapter.Fill(Me.BdProtocoloDataSet.tb_Protocolo) + + End Sub + + Private Sub Tb_ProtocoloBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles Tb_ProtocoloBindingNavigatorSaveItem.Click + Me.Validate() + Me.Tb_ProtocoloBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.BdProtocoloDataSet) + + End Sub +End Class \ No newline at end of file diff --git a/projetoAvaliacao05/Formularios/FFuncionario.Designer.vb b/projetoAvaliacao05/Formularios/FFuncionario.Designer.vb new file mode 100755 index 0000000..b7ac21e --- /dev/null +++ b/projetoAvaliacao05/Formularios/FFuncionario.Designer.vb @@ -0,0 +1,269 @@ + _ +Partial Class FFuncionario + Inherits System.Windows.Forms.Form + + 'Descartar substituições de formulário para limpar a lista de componentes. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Exigido pelo Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'OBSERVAÇÃO: o procedimento a seguir é exigido pelo Windows Form Designer + 'Pode ser modificado usando o Windows Form Designer. + 'Não o modifique usando o editor de códigos. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FFuncionario)) + Dim IdFuncionarioLabel As System.Windows.Forms.Label + Dim NomeFuncionarioLabel As System.Windows.Forms.Label + Me.BdProtocoloDataSet = New projetoAvaliacao05.bdProtocoloDataSet() + Me.IdFuncionarioBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.IdFuncionarioTableAdapter = New projetoAvaliacao05.bdProtocoloDataSetTableAdapters.idFuncionarioTableAdapter() + Me.TableAdapterManager = New projetoAvaliacao05.bdProtocoloDataSetTableAdapters.TableAdapterManager() + Me.IdFuncionarioBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.IdFuncionarioBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.IdFuncionarioTextBox = New System.Windows.Forms.TextBox() + Me.NomeFuncionarioTextBox = New System.Windows.Forms.TextBox() + IdFuncionarioLabel = New System.Windows.Forms.Label() + NomeFuncionarioLabel = New System.Windows.Forms.Label() + CType(Me.BdProtocoloDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.IdFuncionarioBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.IdFuncionarioBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.IdFuncionarioBindingNavigator.SuspendLayout() + Me.SuspendLayout() + ' + 'BdProtocoloDataSet + ' + Me.BdProtocoloDataSet.DataSetName = "bdProtocoloDataSet" + Me.BdProtocoloDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'IdFuncionarioBindingSource + ' + Me.IdFuncionarioBindingSource.DataMember = "idFuncionario" + Me.IdFuncionarioBindingSource.DataSource = Me.BdProtocoloDataSet + ' + 'IdFuncionarioTableAdapter + ' + Me.IdFuncionarioTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.idFuncionarioTableAdapter = Me.IdFuncionarioTableAdapter + Me.TableAdapterManager.tb_ClienteTableAdapter = Nothing + Me.TableAdapterManager.tb_ProtocoloTableAdapter = Nothing + Me.TableAdapterManager.tb_SetorTableAdapter = Nothing + Me.TableAdapterManager.tb_UsuarioTableAdapter = Nothing + Me.TableAdapterManager.tbServicoTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = projetoAvaliacao05.bdProtocoloDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'IdFuncionarioBindingNavigator + ' + Me.IdFuncionarioBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.IdFuncionarioBindingNavigator.BindingSource = Me.IdFuncionarioBindingSource + Me.IdFuncionarioBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.IdFuncionarioBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.IdFuncionarioBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.IdFuncionarioBindingNavigatorSaveItem}) + Me.IdFuncionarioBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.IdFuncionarioBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.IdFuncionarioBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.IdFuncionarioBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.IdFuncionarioBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.IdFuncionarioBindingNavigator.Name = "IdFuncionarioBindingNavigator" + Me.IdFuncionarioBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.IdFuncionarioBindingNavigator.Size = New System.Drawing.Size(289, 25) + Me.IdFuncionarioBindingNavigator.TabIndex = 0 + Me.IdFuncionarioBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Mover primeiro" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Mover anterior" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Posição" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Posição atual" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(37, 15) + Me.BindingNavigatorCountItem.Text = "de {0}" + Me.BindingNavigatorCountItem.ToolTipText = "Número total de itens" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 6) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorMoveNextItem.Text = "Mover próximo" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorMoveLastItem.Text = "Mover último" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 6) + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Adicionar novo" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorDeleteItem.Text = "Excluir" + ' + 'IdFuncionarioBindingNavigatorSaveItem + ' + Me.IdFuncionarioBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.IdFuncionarioBindingNavigatorSaveItem.Image = CType(resources.GetObject("IdFuncionarioBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.IdFuncionarioBindingNavigatorSaveItem.Name = "IdFuncionarioBindingNavigatorSaveItem" + Me.IdFuncionarioBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 23) + Me.IdFuncionarioBindingNavigatorSaveItem.Text = "Salvar Dados" + ' + 'IdFuncionarioLabel + ' + IdFuncionarioLabel.AutoSize = True + IdFuncionarioLabel.Location = New System.Drawing.Point(14, 37) + IdFuncionarioLabel.Name = "IdFuncionarioLabel" + IdFuncionarioLabel.Size = New System.Drawing.Size(19, 13) + IdFuncionarioLabel.TabIndex = 1 + IdFuncionarioLabel.Text = "N°" + ' + 'IdFuncionarioTextBox + ' + Me.IdFuncionarioTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.IdFuncionarioBindingSource, "idFuncionario", True)) + Me.IdFuncionarioTextBox.Enabled = False + Me.IdFuncionarioTextBox.Location = New System.Drawing.Point(39, 34) + Me.IdFuncionarioTextBox.Name = "IdFuncionarioTextBox" + Me.IdFuncionarioTextBox.Size = New System.Drawing.Size(27, 20) + Me.IdFuncionarioTextBox.TabIndex = 2 + ' + 'NomeFuncionarioLabel + ' + NomeFuncionarioLabel.AutoSize = True + NomeFuncionarioLabel.Location = New System.Drawing.Point(14, 69) + NomeFuncionarioLabel.Name = "NomeFuncionarioLabel" + NomeFuncionarioLabel.Size = New System.Drawing.Size(35, 13) + NomeFuncionarioLabel.TabIndex = 3 + NomeFuncionarioLabel.Text = "Nome" + ' + 'NomeFuncionarioTextBox + ' + Me.NomeFuncionarioTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.IdFuncionarioBindingSource, "nomeFuncionario", True)) + Me.NomeFuncionarioTextBox.Location = New System.Drawing.Point(55, 66) + Me.NomeFuncionarioTextBox.Name = "NomeFuncionarioTextBox" + Me.NomeFuncionarioTextBox.Size = New System.Drawing.Size(100, 20) + Me.NomeFuncionarioTextBox.TabIndex = 4 + ' + 'FFuncionario + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(289, 128) + Me.Controls.Add(IdFuncionarioLabel) + Me.Controls.Add(Me.IdFuncionarioTextBox) + Me.Controls.Add(NomeFuncionarioLabel) + Me.Controls.Add(Me.NomeFuncionarioTextBox) + Me.Controls.Add(Me.IdFuncionarioBindingNavigator) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "FFuncionario" + Me.Text = "Cadastro de Funcionário" + CType(Me.BdProtocoloDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.IdFuncionarioBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.IdFuncionarioBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.IdFuncionarioBindingNavigator.ResumeLayout(False) + Me.IdFuncionarioBindingNavigator.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents BdProtocoloDataSet As bdProtocoloDataSet + Friend WithEvents IdFuncionarioBindingSource As BindingSource + Friend WithEvents IdFuncionarioTableAdapter As bdProtocoloDataSetTableAdapters.idFuncionarioTableAdapter + Friend WithEvents TableAdapterManager As bdProtocoloDataSetTableAdapters.TableAdapterManager + Friend WithEvents IdFuncionarioBindingNavigator As BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As ToolStripButton + Friend WithEvents BindingNavigatorCountItem As ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As ToolStripButton + Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator + Friend WithEvents IdFuncionarioBindingNavigatorSaveItem As ToolStripButton + Friend WithEvents IdFuncionarioTextBox As TextBox + Friend WithEvents NomeFuncionarioTextBox As TextBox +End Class diff --git a/projetoAvaliacao05/Formularios/FFuncionario.resx b/projetoAvaliacao05/Formularios/FFuncionario.resx new file mode 100755 index 0000000..33fa33f --- /dev/null +++ b/projetoAvaliacao05/Formularios/FFuncionario.resx @@ -0,0 +1,214 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 179, 17 + + + 384, 17 + + + 583, 17 + + + 756, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFKSURBVDhPYxi84O4C9v+35nH+vzqH6//FGbz/ocLEg+tA + jX8eNf7/87Dh/8nJAqQbcH46L9yAgz0ipBtwfJIgUHPd/z8Pqv7vaBcnbMClmTz/z07l+38SqPFIv9D/ + fd0iQM3l///eK/q/vkHm/6oauf9LKxX/zy9V/j+rSBXTwFNAf/55WA/UVAvElf//3CsB4rz/f+9m/v97 + J/n/39tx///djADikP+TcjQxDTjUKwx27t/7pUCNBUCN2UCNqUCNCf//3YoGagz7/+9G0P9/1/3+d6Xp + Yhqws13i/5Zmqf/rwM6V/7+kQvH/31sxQI3h/6fmafyfkKX1vztD9397qv7/5kRDwmEyG+hPkHP/3Qj4 + 35OhQ1gDOgD5898NfyD2+9+arE+6Ad3pumD/gnB9nBHpBrQkGfxviDf8XxNr/L8y2oR0A+gEGBgAJCPY + nnX8iGkAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFvSURBVDhPtZBNKMNhHMd3Vd5K7eKCWjkgk7yEZDKksciE + yMwkBw6LhHZxcCDlQg64SA4kJeVE4jRv89qaWn8tUtoF/7g8H2Ootb+x4nt56nm+38/v+/xUfyJcJ9Bt + BMcOH1eRiZV5RGcVwqyHrfWwELweWJoJ9rC2AL0mRLse0VEBcxOKkLeGwlwGIz2h75w6ApC6bERjAdia + gkxiyIow5cKkPWxDFYvTiMrUdxDDVnCfwVh/AOo/P2zhhccFzcWBLxmzEPV50Nfyu/Cn2N/1V85DGNKh + Rhth+EaCxkLISUDWxvOgjYXa7F/Wv7kGUz4UJeKzGODi6H25d2l+yPLsDwu8v4NWHY8lSbhL0/HtbX8F + GLXh1MQgnxwoQ3h5hkEL6JI5TlPj21gNMd6WZyC1VSN7r0Mh7G4i56pxpkQhdTWA/KQ4aUcTh+x0KACm + RpBSo3HrM0G6Uq7pl2zvhvNDBcClE8YH4HDv2/A/SKV6BYojAxyEJtLJAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEqSURBVDhPYxg8oHDW8/9NC57/z5z4+D9UCAOEtz/AKceQ + O/PZ/1VH3v/HpSi++8H/4IZruA3ImPL0/8J9H7Aqiu95+H/p/v///asv4DYgoefJ/2lb3mMoimi/D9ac + Oev/f6/SE7gNiOx69L939QcURaGt98CaW9cBbe/8+98l/wBuAwKbH/6vm/8Orii45e7/RXv//+8Aas6Y + 8/O/Xd3P//YZ23Eb4FF1/3/+tDcoiuyKb/9Pn/P7v3/Xt/86he/+WySsx22Afend/9mTX2Mo0k85/9+k + 6MV/laxP/40jl+E2wCLvzv/U/tdYFRkknfgvm/b1v27wPNwGGGbd/h/W8hKnIv3Uy/81fKfhNkAn7cZ/ + v+qHeBWpeEzAbYBT7pX/IAV4FQ1CwMAAAPB2wKul5ZpwAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAC2SURBVDhPYxg6ILz9wX8ok3QQ3/3gf3DDNfIMiO95+H/p + /v///asvkG5ARPt9sObMWf//e5WeIM2A0NZ7YM2t64C2d/7975J/gHgDglvu/l+09///DqDmjDk//9vV + /fxvn7GdNBfYFd/+nz7n93//rm//dQrf/bdIWE96GOinnP9vUvTiv0rWp//GkctINwAEDJJO/JdN+/pf + N3geeQaAgH7q5f8avtPINwAEVDwmUGbAYAUMDADQFGCYBLpQVQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACjSURBVDhPYxh8oHDW8/9QJnkgd+az/wnd98g3JGPK0//z + 9v/+n9B1hzxDEnqe/J+979f/zq1//7uVXibdkMiuR/+nbPv1v2Tp3/8J0//+t8k9S5ohgc0P/7eufQ/W + bFzy5b909LX/xpHLiDfEo+r+/5K57+CaFV16SHOBfend/4Etz8jTDAIWeXf+2xRcIU8zCBhm3SZfMwjo + pN0gX/NQBAwMAKB+X6AHNEI4AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEsSURBVDhPYxhcoHDW8/9QJgYAyTUteP4/c+JjnGoYcmc+ + +5/QfQ+rApDcqiPv/4e3P8BtQMaUp//n7f/9P6HrDoYikNzCfR/+Bzdcw21AQs+T/7P3/frfufXvf7fS + yygKQXLTtrz/7199AbcBkV2P/k/Z9ut/ydK//xOm//1vk3sWrhgk17v6w3+v0hO4DQhsfvi/de17sGbj + ki//paOv/TeOXAbWAJKrm//uv0v+AdwGeFTd/18y9x1cs6JLD1wxSC5/2pv/9hnbcRtgX3r3f2DLMwzN + IACSy578+r9FwnrcBljk3flvU3AFQzMIgORS+1/DvYQVGGbdxqoZBEByYS0v/+sGz8NtgE7aDZySIDm/ + 6of/NXyn4TYAH3DKvfJfxWMCGEOFBgVgYAAAvtG/s7kMTpwAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABMSURBVDhPY6AK+Pbt239SMVQrBIAFgufA8Yf3H+EYWQxE + x0zYh2kIKQaAMMwQqHbSDQBhog1AxshqaGsAMXjUgEFpADkYqp0SwMAAAPRDDFPA2mtzAAAAAElFTkSu + QmCC + + + + False + + + False + + \ No newline at end of file diff --git a/projetoAvaliacao05/Formularios/FFuncionario.vb b/projetoAvaliacao05/Formularios/FFuncionario.vb new file mode 100755 index 0000000..b2bd251 --- /dev/null +++ b/projetoAvaliacao05/Formularios/FFuncionario.vb @@ -0,0 +1,14 @@ +Public Class FFuncionario + Private Sub IdFuncionarioBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles IdFuncionarioBindingNavigatorSaveItem.Click + Me.Validate() + Me.IdFuncionarioBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.BdProtocoloDataSet) + + End Sub + + Private Sub FFuncionario_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'BdProtocoloDataSet.idFuncionario'. Você pode movê-la ou removê-la conforme necessário. + Me.IdFuncionarioTableAdapter.Fill(Me.BdProtocoloDataSet.idFuncionario) + + End Sub +End Class \ No newline at end of file diff --git a/projetoAvaliacao05/Formularios/FProtocolo.Designer.vb b/projetoAvaliacao05/Formularios/FProtocolo.Designer.vb new file mode 100755 index 0000000..6c90d59 --- /dev/null +++ b/projetoAvaliacao05/Formularios/FProtocolo.Designer.vb @@ -0,0 +1,568 @@ + _ +Partial Class FProtocolo + Inherits System.Windows.Forms.Form + + 'Descartar substituições de formulário para limpar a lista de componentes. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Exigido pelo Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'OBSERVAÇÃO: o procedimento a seguir é exigido pelo Windows Form Designer + 'Pode ser modificado usando o Windows Form Designer. + 'Não o modifique usando o editor de códigos. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim IdProtocoloLabel As System.Windows.Forms.Label + Dim DataAberturaLabel As System.Windows.Forms.Label + Dim IdClienteLabel As System.Windows.Forms.Label + Dim IdSetorLabel As System.Windows.Forms.Label + Dim IdServicoLabel As System.Windows.Forms.Label + Dim DescricaoServicoLabel As System.Windows.Forms.Label + Dim StatusServicoLabel As System.Windows.Forms.Label + Dim DataFechamentoLabel As System.Windows.Forms.Label + Dim IdFuncionarioLabel As System.Windows.Forms.Label + Dim DescricaoFechamentoLabel As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FProtocolo)) + Me.BdProtocoloDataSet = New projetoAvaliacao05.bdProtocoloDataSet() + Me.Tb_ProtocoloBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.Tb_ProtocoloTableAdapter = New projetoAvaliacao05.bdProtocoloDataSetTableAdapters.tb_ProtocoloTableAdapter() + Me.TableAdapterManager = New projetoAvaliacao05.bdProtocoloDataSetTableAdapters.TableAdapterManager() + Me.IdFuncionarioTableAdapter = New projetoAvaliacao05.bdProtocoloDataSetTableAdapters.idFuncionarioTableAdapter() + Me.Tb_ClienteTableAdapter = New projetoAvaliacao05.bdProtocoloDataSetTableAdapters.tb_ClienteTableAdapter() + Me.Tb_SetorTableAdapter = New projetoAvaliacao05.bdProtocoloDataSetTableAdapters.tb_SetorTableAdapter() + Me.TbServicoTableAdapter = New projetoAvaliacao05.bdProtocoloDataSetTableAdapters.tbServicoTableAdapter() + Me.Tb_ProtocoloBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.Tb_ProtocoloBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.IdProtocoloTextBox = New System.Windows.Forms.TextBox() + Me.DataAberturaDateTimePicker = New System.Windows.Forms.DateTimePicker() + Me.DescricaoServicoTextBox = New System.Windows.Forms.TextBox() + Me.DataFechamentoDateTimePicker = New System.Windows.Forms.DateTimePicker() + Me.DescricaoFechamentoTextBox = New System.Windows.Forms.TextBox() + Me.IdClienteComboBox = New System.Windows.Forms.ComboBox() + Me.TbClienteBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.IdSetorComboBox = New System.Windows.Forms.ComboBox() + Me.TbSetorBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.StatusServicoComboBox = New System.Windows.Forms.ComboBox() + Me.IdFuncionarioComboBox = New System.Windows.Forms.ComboBox() + Me.IdFuncionarioBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.IdServicoComboBox = New System.Windows.Forms.ComboBox() + Me.TbServicoBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + IdProtocoloLabel = New System.Windows.Forms.Label() + DataAberturaLabel = New System.Windows.Forms.Label() + IdClienteLabel = New System.Windows.Forms.Label() + IdSetorLabel = New System.Windows.Forms.Label() + IdServicoLabel = New System.Windows.Forms.Label() + DescricaoServicoLabel = New System.Windows.Forms.Label() + StatusServicoLabel = New System.Windows.Forms.Label() + DataFechamentoLabel = New System.Windows.Forms.Label() + IdFuncionarioLabel = New System.Windows.Forms.Label() + DescricaoFechamentoLabel = New System.Windows.Forms.Label() + CType(Me.BdProtocoloDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Tb_ProtocoloBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Tb_ProtocoloBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Tb_ProtocoloBindingNavigator.SuspendLayout() + CType(Me.TbClienteBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbSetorBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.IdFuncionarioBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbServicoBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.SuspendLayout() + ' + 'IdProtocoloLabel + ' + IdProtocoloLabel.AutoSize = True + IdProtocoloLabel.Location = New System.Drawing.Point(6, 16) + IdProtocoloLabel.Name = "IdProtocoloLabel" + IdProtocoloLabel.Size = New System.Drawing.Size(67, 13) + IdProtocoloLabel.TabIndex = 1 + IdProtocoloLabel.Text = "Nº Protocolo" + ' + 'DataAberturaLabel + ' + DataAberturaLabel.AutoSize = True + DataAberturaLabel.Location = New System.Drawing.Point(6, 43) + DataAberturaLabel.Name = "DataAberturaLabel" + DataAberturaLabel.Size = New System.Drawing.Size(76, 13) + DataAberturaLabel.TabIndex = 3 + DataAberturaLabel.Text = "Data Abertura:" + ' + 'IdClienteLabel + ' + IdClienteLabel.AutoSize = True + IdClienteLabel.Location = New System.Drawing.Point(6, 68) + IdClienteLabel.Name = "IdClienteLabel" + IdClienteLabel.Size = New System.Drawing.Size(42, 13) + IdClienteLabel.TabIndex = 5 + IdClienteLabel.Text = "Cliente:" + ' + 'IdSetorLabel + ' + IdSetorLabel.AutoSize = True + IdSetorLabel.Location = New System.Drawing.Point(6, 94) + IdSetorLabel.Name = "IdSetorLabel" + IdSetorLabel.Size = New System.Drawing.Size(35, 13) + IdSetorLabel.TabIndex = 7 + IdSetorLabel.Text = "Setor:" + ' + 'IdServicoLabel + ' + IdServicoLabel.AutoSize = True + IdServicoLabel.Location = New System.Drawing.Point(303, 19) + IdServicoLabel.Name = "IdServicoLabel" + IdServicoLabel.Size = New System.Drawing.Size(46, 13) + IdServicoLabel.TabIndex = 9 + IdServicoLabel.Text = "Serviço:" + ' + 'DescricaoServicoLabel + ' + DescricaoServicoLabel.AutoSize = True + DescricaoServicoLabel.Location = New System.Drawing.Point(303, 47) + DescricaoServicoLabel.Name = "DescricaoServicoLabel" + DescricaoServicoLabel.Size = New System.Drawing.Size(97, 13) + DescricaoServicoLabel.TabIndex = 11 + DescricaoServicoLabel.Text = "Descrição Serviço:" + ' + 'StatusServicoLabel + ' + StatusServicoLabel.AutoSize = True + StatusServicoLabel.Location = New System.Drawing.Point(6, 148) + StatusServicoLabel.Name = "StatusServicoLabel" + StatusServicoLabel.Size = New System.Drawing.Size(79, 13) + StatusServicoLabel.TabIndex = 13 + StatusServicoLabel.Text = "Status Serviço:" + ' + 'DataFechamentoLabel + ' + DataFechamentoLabel.AutoSize = True + DataFechamentoLabel.Location = New System.Drawing.Point(349, 19) + DataFechamentoLabel.Name = "DataFechamentoLabel" + DataFechamentoLabel.Size = New System.Drawing.Size(95, 13) + DataFechamentoLabel.TabIndex = 15 + DataFechamentoLabel.Text = "Data Fechamento:" + ' + 'IdFuncionarioLabel + ' + IdFuncionarioLabel.AutoSize = True + IdFuncionarioLabel.Location = New System.Drawing.Point(6, 121) + IdFuncionarioLabel.Name = "IdFuncionarioLabel" + IdFuncionarioLabel.Size = New System.Drawing.Size(65, 13) + IdFuncionarioLabel.TabIndex = 17 + IdFuncionarioLabel.Text = "Funcionário:" + ' + 'DescricaoFechamentoLabel + ' + DescricaoFechamentoLabel.AutoSize = True + DescricaoFechamentoLabel.Location = New System.Drawing.Point(17, 16) + DescricaoFechamentoLabel.Name = "DescricaoFechamentoLabel" + DescricaoFechamentoLabel.Size = New System.Drawing.Size(120, 13) + DescricaoFechamentoLabel.TabIndex = 19 + DescricaoFechamentoLabel.Text = "Descrição Fechamento:" + ' + 'BdProtocoloDataSet + ' + Me.BdProtocoloDataSet.DataSetName = "bdProtocoloDataSet" + Me.BdProtocoloDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'Tb_ProtocoloBindingSource + ' + Me.Tb_ProtocoloBindingSource.DataMember = "tb_Protocolo" + Me.Tb_ProtocoloBindingSource.DataSource = Me.BdProtocoloDataSet + ' + 'Tb_ProtocoloTableAdapter + ' + Me.Tb_ProtocoloTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.idFuncionarioTableAdapter = Me.IdFuncionarioTableAdapter + Me.TableAdapterManager.tb_ClienteTableAdapter = Me.Tb_ClienteTableAdapter + Me.TableAdapterManager.tb_ProtocoloTableAdapter = Me.Tb_ProtocoloTableAdapter + Me.TableAdapterManager.tb_SetorTableAdapter = Me.Tb_SetorTableAdapter + Me.TableAdapterManager.tb_UsuarioTableAdapter = Nothing + Me.TableAdapterManager.tbServicoTableAdapter = Me.TbServicoTableAdapter + Me.TableAdapterManager.UpdateOrder = projetoAvaliacao05.bdProtocoloDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'IdFuncionarioTableAdapter + ' + Me.IdFuncionarioTableAdapter.ClearBeforeFill = True + ' + 'Tb_ClienteTableAdapter + ' + Me.Tb_ClienteTableAdapter.ClearBeforeFill = True + ' + 'Tb_SetorTableAdapter + ' + Me.Tb_SetorTableAdapter.ClearBeforeFill = True + ' + 'TbServicoTableAdapter + ' + Me.TbServicoTableAdapter.ClearBeforeFill = True + ' + 'Tb_ProtocoloBindingNavigator + ' + Me.Tb_ProtocoloBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.Tb_ProtocoloBindingNavigator.BindingSource = Me.Tb_ProtocoloBindingSource + Me.Tb_ProtocoloBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.Tb_ProtocoloBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.Tb_ProtocoloBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.Tb_ProtocoloBindingNavigatorSaveItem}) + Me.Tb_ProtocoloBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.Tb_ProtocoloBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.Tb_ProtocoloBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.Tb_ProtocoloBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.Tb_ProtocoloBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.Tb_ProtocoloBindingNavigator.Name = "Tb_ProtocoloBindingNavigator" + Me.Tb_ProtocoloBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.Tb_ProtocoloBindingNavigator.Size = New System.Drawing.Size(668, 25) + Me.Tb_ProtocoloBindingNavigator.TabIndex = 0 + Me.Tb_ProtocoloBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Adicionar novo" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(37, 22) + Me.BindingNavigatorCountItem.Text = "de {0}" + Me.BindingNavigatorCountItem.ToolTipText = "Número total de itens" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem.Text = "Excluir" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Mover primeiro" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Mover anterior" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Posição" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Posição atual" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem.Text = "Mover próximo" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem.Text = "Mover último" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'Tb_ProtocoloBindingNavigatorSaveItem + ' + Me.Tb_ProtocoloBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.Tb_ProtocoloBindingNavigatorSaveItem.Image = CType(resources.GetObject("Tb_ProtocoloBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.Tb_ProtocoloBindingNavigatorSaveItem.Name = "Tb_ProtocoloBindingNavigatorSaveItem" + Me.Tb_ProtocoloBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.Tb_ProtocoloBindingNavigatorSaveItem.Text = "Salvar Dados" + ' + 'IdProtocoloTextBox + ' + Me.IdProtocoloTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Tb_ProtocoloBindingSource, "idProtocolo", True)) + Me.IdProtocoloTextBox.Enabled = False + Me.IdProtocoloTextBox.Location = New System.Drawing.Point(88, 13) + Me.IdProtocoloTextBox.Name = "IdProtocoloTextBox" + Me.IdProtocoloTextBox.Size = New System.Drawing.Size(28, 20) + Me.IdProtocoloTextBox.TabIndex = 2 + ' + 'DataAberturaDateTimePicker + ' + Me.DataAberturaDateTimePicker.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.Tb_ProtocoloBindingSource, "dataAbertura", True)) + Me.DataAberturaDateTimePicker.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.DataAberturaDateTimePicker.Location = New System.Drawing.Point(88, 39) + Me.DataAberturaDateTimePicker.Name = "DataAberturaDateTimePicker" + Me.DataAberturaDateTimePicker.Size = New System.Drawing.Size(99, 20) + Me.DataAberturaDateTimePicker.TabIndex = 4 + ' + 'DescricaoServicoTextBox + ' + Me.DescricaoServicoTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Tb_ProtocoloBindingSource, "descricaoServico", True)) + Me.DescricaoServicoTextBox.Location = New System.Drawing.Point(435, 45) + Me.DescricaoServicoTextBox.Multiline = True + Me.DescricaoServicoTextBox.Name = "DescricaoServicoTextBox" + Me.DescricaoServicoTextBox.Size = New System.Drawing.Size(200, 120) + Me.DescricaoServicoTextBox.TabIndex = 12 + ' + 'DataFechamentoDateTimePicker + ' + Me.DataFechamentoDateTimePicker.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.Tb_ProtocoloBindingSource, "dataFechamento", True)) + Me.DataFechamentoDateTimePicker.Enabled = False + Me.DataFechamentoDateTimePicker.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.DataFechamentoDateTimePicker.Location = New System.Drawing.Point(453, 13) + Me.DataFechamentoDateTimePicker.Name = "DataFechamentoDateTimePicker" + Me.DataFechamentoDateTimePicker.Size = New System.Drawing.Size(182, 20) + Me.DataFechamentoDateTimePicker.TabIndex = 16 + ' + 'DescricaoFechamentoTextBox + ' + Me.DescricaoFechamentoTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Tb_ProtocoloBindingSource, "descricaoFechamento", True)) + Me.DescricaoFechamentoTextBox.Enabled = False + Me.DescricaoFechamentoTextBox.Location = New System.Drawing.Point(143, 16) + Me.DescricaoFechamentoTextBox.Multiline = True + Me.DescricaoFechamentoTextBox.Name = "DescricaoFechamentoTextBox" + Me.DescricaoFechamentoTextBox.Size = New System.Drawing.Size(200, 73) + Me.DescricaoFechamentoTextBox.TabIndex = 20 + ' + 'IdClienteComboBox + ' + Me.IdClienteComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.Tb_ProtocoloBindingSource, "idCliente", True)) + Me.IdClienteComboBox.DataSource = Me.TbClienteBindingSource + Me.IdClienteComboBox.DisplayMember = "nome_Cliente" + Me.IdClienteComboBox.FormattingEnabled = True + Me.IdClienteComboBox.Location = New System.Drawing.Point(88, 64) + Me.IdClienteComboBox.Name = "IdClienteComboBox" + Me.IdClienteComboBox.Size = New System.Drawing.Size(200, 21) + Me.IdClienteComboBox.TabIndex = 21 + Me.IdClienteComboBox.ValueMember = "cod_Cliente" + ' + 'TbClienteBindingSource + ' + Me.TbClienteBindingSource.DataMember = "tb_Cliente" + Me.TbClienteBindingSource.DataSource = Me.BdProtocoloDataSet + ' + 'IdSetorComboBox + ' + Me.IdSetorComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.Tb_ProtocoloBindingSource, "idSetor", True)) + Me.IdSetorComboBox.DataSource = Me.TbSetorBindingSource + Me.IdSetorComboBox.DisplayMember = "nome_Setor" + Me.IdSetorComboBox.FormattingEnabled = True + Me.IdSetorComboBox.Location = New System.Drawing.Point(88, 91) + Me.IdSetorComboBox.Name = "IdSetorComboBox" + Me.IdSetorComboBox.Size = New System.Drawing.Size(200, 21) + Me.IdSetorComboBox.TabIndex = 22 + Me.IdSetorComboBox.ValueMember = "cod_Setor" + ' + 'TbSetorBindingSource + ' + Me.TbSetorBindingSource.DataMember = "tb_Setor" + Me.TbSetorBindingSource.DataSource = Me.BdProtocoloDataSet + ' + 'StatusServicoComboBox + ' + Me.StatusServicoComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.Tb_ProtocoloBindingSource, "statusServico", True)) + Me.StatusServicoComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Tb_ProtocoloBindingSource, "statusServico", True)) + Me.StatusServicoComboBox.FormattingEnabled = True + Me.StatusServicoComboBox.Items.AddRange(New Object() {"ABERTO"}) + Me.StatusServicoComboBox.Location = New System.Drawing.Point(88, 145) + Me.StatusServicoComboBox.Name = "StatusServicoComboBox" + Me.StatusServicoComboBox.Size = New System.Drawing.Size(200, 21) + Me.StatusServicoComboBox.TabIndex = 23 + ' + 'IdFuncionarioComboBox + ' + Me.IdFuncionarioComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.Tb_ProtocoloBindingSource, "idFuncionario", True)) + Me.IdFuncionarioComboBox.DataSource = Me.IdFuncionarioBindingSource + Me.IdFuncionarioComboBox.DisplayMember = "nomeFuncionario" + Me.IdFuncionarioComboBox.FormattingEnabled = True + Me.IdFuncionarioComboBox.Location = New System.Drawing.Point(88, 118) + Me.IdFuncionarioComboBox.Name = "IdFuncionarioComboBox" + Me.IdFuncionarioComboBox.Size = New System.Drawing.Size(121, 21) + Me.IdFuncionarioComboBox.TabIndex = 24 + Me.IdFuncionarioComboBox.ValueMember = "idFuncionario" + ' + 'IdFuncionarioBindingSource + ' + Me.IdFuncionarioBindingSource.DataMember = "idFuncionario" + Me.IdFuncionarioBindingSource.DataSource = Me.BdProtocoloDataSet + ' + 'IdServicoComboBox + ' + Me.IdServicoComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.Tb_ProtocoloBindingSource, "idServico", True)) + Me.IdServicoComboBox.DataSource = Me.TbServicoBindingSource + Me.IdServicoComboBox.DisplayMember = "nomeServico" + Me.IdServicoComboBox.FormattingEnabled = True + Me.IdServicoComboBox.Location = New System.Drawing.Point(435, 16) + Me.IdServicoComboBox.Name = "IdServicoComboBox" + Me.IdServicoComboBox.Size = New System.Drawing.Size(200, 21) + Me.IdServicoComboBox.TabIndex = 25 + Me.IdServicoComboBox.ValueMember = "idServico" + ' + 'TbServicoBindingSource + ' + Me.TbServicoBindingSource.DataMember = "tbServico" + Me.TbServicoBindingSource.DataSource = Me.BdProtocoloDataSet + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(IdProtocoloLabel) + Me.GroupBox1.Controls.Add(Me.IdServicoComboBox) + Me.GroupBox1.Controls.Add(IdFuncionarioLabel) + Me.GroupBox1.Controls.Add(IdServicoLabel) + Me.GroupBox1.Controls.Add(Me.IdFuncionarioComboBox) + Me.GroupBox1.Controls.Add(DescricaoServicoLabel) + Me.GroupBox1.Controls.Add(StatusServicoLabel) + Me.GroupBox1.Controls.Add(Me.DescricaoServicoTextBox) + Me.GroupBox1.Controls.Add(Me.StatusServicoComboBox) + Me.GroupBox1.Controls.Add(IdSetorLabel) + Me.GroupBox1.Controls.Add(Me.IdSetorComboBox) + Me.GroupBox1.Controls.Add(IdClienteLabel) + Me.GroupBox1.Controls.Add(Me.IdClienteComboBox) + Me.GroupBox1.Controls.Add(Me.DataAberturaDateTimePicker) + Me.GroupBox1.Controls.Add(DataAberturaLabel) + Me.GroupBox1.Controls.Add(Me.IdProtocoloTextBox) + Me.GroupBox1.Location = New System.Drawing.Point(15, 28) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(641, 178) + Me.GroupBox1.TabIndex = 26 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Informações do protocolo" + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(DescricaoFechamentoLabel) + Me.GroupBox2.Controls.Add(Me.DescricaoFechamentoTextBox) + Me.GroupBox2.Controls.Add(DataFechamentoLabel) + Me.GroupBox2.Controls.Add(Me.DataFechamentoDateTimePicker) + Me.GroupBox2.Location = New System.Drawing.Point(15, 212) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(641, 103) + Me.GroupBox2.TabIndex = 27 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "Fechamento do Protocolo" + ' + 'FProtocolo + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(668, 327) + Me.Controls.Add(Me.GroupBox2) + Me.Controls.Add(Me.GroupBox1) + Me.Controls.Add(Me.Tb_ProtocoloBindingNavigator) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "FProtocolo" + Me.Text = "Abertura de Protocolo" + CType(Me.BdProtocoloDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Tb_ProtocoloBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Tb_ProtocoloBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.Tb_ProtocoloBindingNavigator.ResumeLayout(False) + Me.Tb_ProtocoloBindingNavigator.PerformLayout() + CType(Me.TbClienteBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbSetorBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.IdFuncionarioBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbServicoBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents BdProtocoloDataSet As bdProtocoloDataSet + Friend WithEvents Tb_ProtocoloBindingSource As BindingSource + Friend WithEvents Tb_ProtocoloTableAdapter As bdProtocoloDataSetTableAdapters.tb_ProtocoloTableAdapter + Friend WithEvents TableAdapterManager As bdProtocoloDataSetTableAdapters.TableAdapterManager + Friend WithEvents Tb_ProtocoloBindingNavigator As BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As ToolStripButton + Friend WithEvents BindingNavigatorCountItem As ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As ToolStripButton + Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator + Friend WithEvents Tb_ProtocoloBindingNavigatorSaveItem As ToolStripButton + Friend WithEvents IdProtocoloTextBox As TextBox + Friend WithEvents DataAberturaDateTimePicker As DateTimePicker + Friend WithEvents DescricaoServicoTextBox As TextBox + Friend WithEvents DataFechamentoDateTimePicker As DateTimePicker + Friend WithEvents DescricaoFechamentoTextBox As TextBox + Friend WithEvents IdClienteComboBox As ComboBox + Friend WithEvents IdSetorComboBox As ComboBox + Friend WithEvents StatusServicoComboBox As ComboBox + Friend WithEvents Tb_ClienteTableAdapter As bdProtocoloDataSetTableAdapters.tb_ClienteTableAdapter + Friend WithEvents IdFuncionarioComboBox As ComboBox + Friend WithEvents TbClienteBindingSource As BindingSource + Friend WithEvents Tb_SetorTableAdapter As bdProtocoloDataSetTableAdapters.tb_SetorTableAdapter + Friend WithEvents TbSetorBindingSource As BindingSource + Friend WithEvents IdFuncionarioTableAdapter As bdProtocoloDataSetTableAdapters.idFuncionarioTableAdapter + Friend WithEvents IdFuncionarioBindingSource As BindingSource + Friend WithEvents TbServicoTableAdapter As bdProtocoloDataSetTableAdapters.tbServicoTableAdapter + Friend WithEvents IdServicoComboBox As ComboBox + Friend WithEvents TbServicoBindingSource As BindingSource + Friend WithEvents GroupBox1 As GroupBox + Friend WithEvents GroupBox2 As GroupBox +End Class diff --git a/projetoAvaliacao05/Formularios/FProtocolo.resx b/projetoAvaliacao05/Formularios/FProtocolo.resx new file mode 100755 index 0000000..7cd92ef --- /dev/null +++ b/projetoAvaliacao05/Formularios/FProtocolo.resx @@ -0,0 +1,273 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 17, 17 + + + 179, 17 + + + 381, 17 + + + 578, 17 + + + 17, 95 + + + 199, 56 + + + 553, 56 + + + 399, 95 + + + 751, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 17, 56 + + + 17, 56 + + + 380, 56 + + + 380, 56 + + + 725, 56 + + + 725, 56 + + + 216, 95 + + + 216, 95 + + \ No newline at end of file diff --git a/projetoAvaliacao05/Formularios/FProtocolo.vb b/projetoAvaliacao05/Formularios/FProtocolo.vb new file mode 100755 index 0000000..d202e04 --- /dev/null +++ b/projetoAvaliacao05/Formularios/FProtocolo.vb @@ -0,0 +1,22 @@ +Public Class FProtocolo + Private Sub Tb_ProtocoloBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles Tb_ProtocoloBindingNavigatorSaveItem.Click + Me.Validate() + Me.Tb_ProtocoloBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.BdProtocoloDataSet) + + End Sub + + Private Sub FProtocolo_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'BdProtocoloDataSet.tbServico'. Você pode movê-la ou removê-la conforme necessário. + Me.TbServicoTableAdapter.Fill(Me.BdProtocoloDataSet.tbServico) + 'TODO: esta linha de código carrega dados na tabela 'BdProtocoloDataSet.idFuncionario'. Você pode movê-la ou removê-la conforme necessário. + Me.IdFuncionarioTableAdapter.Fill(Me.BdProtocoloDataSet.idFuncionario) + 'TODO: esta linha de código carrega dados na tabela 'BdProtocoloDataSet.tb_Setor'. Você pode movê-la ou removê-la conforme necessário. + Me.Tb_SetorTableAdapter.Fill(Me.BdProtocoloDataSet.tb_Setor) + 'TODO: esta linha de código carrega dados na tabela 'BdProtocoloDataSet.tb_Cliente'. Você pode movê-la ou removê-la conforme necessário. + Me.Tb_ClienteTableAdapter.Fill(Me.BdProtocoloDataSet.tb_Cliente) + 'TODO: esta linha de código carrega dados na tabela 'BdProtocoloDataSet.tb_Protocolo'. Você pode movê-la ou removê-la conforme necessário. + Me.Tb_ProtocoloTableAdapter.Fill(Me.BdProtocoloDataSet.tb_Protocolo) + + End Sub +End Class \ No newline at end of file diff --git a/projetoAvaliacao05/Formularios/FServico.Designer.vb b/projetoAvaliacao05/Formularios/FServico.Designer.vb new file mode 100755 index 0000000..9023bb0 --- /dev/null +++ b/projetoAvaliacao05/Formularios/FServico.Designer.vb @@ -0,0 +1,269 @@ + _ +Partial Class FServico + Inherits System.Windows.Forms.Form + + 'Descartar substituições de formulário para limpar a lista de componentes. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Exigido pelo Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'OBSERVAÇÃO: o procedimento a seguir é exigido pelo Windows Form Designer + 'Pode ser modificado usando o Windows Form Designer. + 'Não o modifique usando o editor de códigos. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FServico)) + Dim IdServicoLabel As System.Windows.Forms.Label + Dim NomeServicoLabel As System.Windows.Forms.Label + Me.BdProtocoloDataSet = New projetoAvaliacao05.bdProtocoloDataSet() + Me.TbServicoBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TbServicoTableAdapter = New projetoAvaliacao05.bdProtocoloDataSetTableAdapters.tbServicoTableAdapter() + Me.TableAdapterManager = New projetoAvaliacao05.bdProtocoloDataSetTableAdapters.TableAdapterManager() + Me.TbServicoBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.TbServicoBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.IdServicoTextBox = New System.Windows.Forms.TextBox() + Me.NomeServicoTextBox = New System.Windows.Forms.TextBox() + IdServicoLabel = New System.Windows.Forms.Label() + NomeServicoLabel = New System.Windows.Forms.Label() + CType(Me.BdProtocoloDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbServicoBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbServicoBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TbServicoBindingNavigator.SuspendLayout() + Me.SuspendLayout() + ' + 'BdProtocoloDataSet + ' + Me.BdProtocoloDataSet.DataSetName = "bdProtocoloDataSet" + Me.BdProtocoloDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TbServicoBindingSource + ' + Me.TbServicoBindingSource.DataMember = "tbServico" + Me.TbServicoBindingSource.DataSource = Me.BdProtocoloDataSet + ' + 'TbServicoTableAdapter + ' + Me.TbServicoTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.idFuncionarioTableAdapter = Nothing + Me.TableAdapterManager.tb_ClienteTableAdapter = Nothing + Me.TableAdapterManager.tb_ProtocoloTableAdapter = Nothing + Me.TableAdapterManager.tb_SetorTableAdapter = Nothing + Me.TableAdapterManager.tb_UsuarioTableAdapter = Nothing + Me.TableAdapterManager.tbServicoTableAdapter = Me.TbServicoTableAdapter + Me.TableAdapterManager.UpdateOrder = projetoAvaliacao05.bdProtocoloDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TbServicoBindingNavigator + ' + Me.TbServicoBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.TbServicoBindingNavigator.BindingSource = Me.TbServicoBindingSource + Me.TbServicoBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TbServicoBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.TbServicoBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TbServicoBindingNavigatorSaveItem}) + Me.TbServicoBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TbServicoBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TbServicoBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TbServicoBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TbServicoBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TbServicoBindingNavigator.Name = "TbServicoBindingNavigator" + Me.TbServicoBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TbServicoBindingNavigator.Size = New System.Drawing.Size(303, 25) + Me.TbServicoBindingNavigator.TabIndex = 0 + Me.TbServicoBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Mover primeiro" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Mover anterior" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Posição" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Posição atual" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(37, 15) + Me.BindingNavigatorCountItem.Text = "de {0}" + Me.BindingNavigatorCountItem.ToolTipText = "Número total de itens" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 6) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorMoveNextItem.Text = "Mover próximo" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorMoveLastItem.Text = "Mover último" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 6) + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Adicionar novo" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorDeleteItem.Text = "Excluir" + ' + 'TbServicoBindingNavigatorSaveItem + ' + Me.TbServicoBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.TbServicoBindingNavigatorSaveItem.Image = CType(resources.GetObject("TbServicoBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.TbServicoBindingNavigatorSaveItem.Name = "TbServicoBindingNavigatorSaveItem" + Me.TbServicoBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 23) + Me.TbServicoBindingNavigatorSaveItem.Text = "Salvar Dados" + ' + 'IdServicoLabel + ' + IdServicoLabel.AutoSize = True + IdServicoLabel.Location = New System.Drawing.Point(12, 37) + IdServicoLabel.Name = "IdServicoLabel" + IdServicoLabel.Size = New System.Drawing.Size(61, 13) + IdServicoLabel.TabIndex = 1 + IdServicoLabel.Text = "Nº Serviço:" + ' + 'IdServicoTextBox + ' + Me.IdServicoTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbServicoBindingSource, "idServico", True)) + Me.IdServicoTextBox.Enabled = False + Me.IdServicoTextBox.Location = New System.Drawing.Point(79, 34) + Me.IdServicoTextBox.Name = "IdServicoTextBox" + Me.IdServicoTextBox.Size = New System.Drawing.Size(22, 20) + Me.IdServicoTextBox.TabIndex = 2 + ' + 'NomeServicoLabel + ' + NomeServicoLabel.AutoSize = True + NomeServicoLabel.Location = New System.Drawing.Point(12, 63) + NomeServicoLabel.Name = "NomeServicoLabel" + NomeServicoLabel.Size = New System.Drawing.Size(46, 13) + NomeServicoLabel.TabIndex = 3 + NomeServicoLabel.Text = "Serviço:" + ' + 'NomeServicoTextBox + ' + Me.NomeServicoTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbServicoBindingSource, "nomeServico", True)) + Me.NomeServicoTextBox.Location = New System.Drawing.Point(64, 60) + Me.NomeServicoTextBox.Name = "NomeServicoTextBox" + Me.NomeServicoTextBox.Size = New System.Drawing.Size(201, 20) + Me.NomeServicoTextBox.TabIndex = 4 + ' + 'FServico + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(303, 103) + Me.Controls.Add(IdServicoLabel) + Me.Controls.Add(Me.IdServicoTextBox) + Me.Controls.Add(NomeServicoLabel) + Me.Controls.Add(Me.NomeServicoTextBox) + Me.Controls.Add(Me.TbServicoBindingNavigator) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "FServico" + Me.Text = "FServico" + CType(Me.BdProtocoloDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbServicoBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbServicoBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TbServicoBindingNavigator.ResumeLayout(False) + Me.TbServicoBindingNavigator.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents BdProtocoloDataSet As bdProtocoloDataSet + Friend WithEvents TbServicoBindingSource As BindingSource + Friend WithEvents TbServicoTableAdapter As bdProtocoloDataSetTableAdapters.tbServicoTableAdapter + Friend WithEvents TableAdapterManager As bdProtocoloDataSetTableAdapters.TableAdapterManager + Friend WithEvents TbServicoBindingNavigator As BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As ToolStripButton + Friend WithEvents BindingNavigatorCountItem As ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As ToolStripButton + Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator + Friend WithEvents TbServicoBindingNavigatorSaveItem As ToolStripButton + Friend WithEvents IdServicoTextBox As TextBox + Friend WithEvents NomeServicoTextBox As TextBox +End Class diff --git a/projetoAvaliacao05/Formularios/FServico.resx b/projetoAvaliacao05/Formularios/FServico.resx new file mode 100755 index 0000000..a5f8af4 --- /dev/null +++ b/projetoAvaliacao05/Formularios/FServico.resx @@ -0,0 +1,214 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 179, 17 + + + 362, 17 + + + 540, 17 + + + 713, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFKSURBVDhPYxi84O4C9v+35nH+vzqH6//FGbz/ocLEg+tA + jX8eNf7/87Dh/8nJAqQbcH46L9yAgz0ipBtwfJIgUHPd/z8Pqv7vaBcnbMClmTz/z07l+38SqPFIv9D/ + fd0iQM3l///eK/q/vkHm/6oauf9LKxX/zy9V/j+rSBXTwFNAf/55WA/UVAvElf//3CsB4rz/f+9m/v97 + J/n/39tx///djADikP+TcjQxDTjUKwx27t/7pUCNBUCN2UCNqUCNCf//3YoGagz7/+9G0P9/1/3+d6Xp + Yhqws13i/5Zmqf/rwM6V/7+kQvH/31sxQI3h/6fmafyfkKX1vztD9397qv7/5kRDwmEyG+hPkHP/3Qj4 + 35OhQ1gDOgD5898NfyD2+9+arE+6Ad3pumD/gnB9nBHpBrQkGfxviDf8XxNr/L8y2oR0A+gEGBgAJCPY + nnX8iGkAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFvSURBVDhPtZBNKMNhHMd3Vd5K7eKCWjkgk7yEZDKksciE + yMwkBw6LhHZxcCDlQg64SA4kJeVE4jRv89qaWn8tUtoF/7g8H2Ootb+x4nt56nm+38/v+/xUfyJcJ9Bt + BMcOH1eRiZV5RGcVwqyHrfWwELweWJoJ9rC2AL0mRLse0VEBcxOKkLeGwlwGIz2h75w6ApC6bERjAdia + gkxiyIow5cKkPWxDFYvTiMrUdxDDVnCfwVh/AOo/P2zhhccFzcWBLxmzEPV50Nfyu/Cn2N/1V85DGNKh + Rhth+EaCxkLISUDWxvOgjYXa7F/Wv7kGUz4UJeKzGODi6H25d2l+yPLsDwu8v4NWHY8lSbhL0/HtbX8F + GLXh1MQgnxwoQ3h5hkEL6JI5TlPj21gNMd6WZyC1VSN7r0Mh7G4i56pxpkQhdTWA/KQ4aUcTh+x0KACm + RpBSo3HrM0G6Uq7pl2zvhvNDBcClE8YH4HDv2/A/SKV6BYojAxyEJtLJAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEqSURBVDhPYxg8oHDW8/9NC57/z5z4+D9UCAOEtz/AKceQ + O/PZ/1VH3v/HpSi++8H/4IZruA3ImPL0/8J9H7Aqiu95+H/p/v///asv4DYgoefJ/2lb3mMoimi/D9ac + Oev/f6/SE7gNiOx69L939QcURaGt98CaW9cBbe/8+98l/wBuAwKbH/6vm/8Orii45e7/RXv//+8Aas6Y + 8/O/Xd3P//YZ23Eb4FF1/3/+tDcoiuyKb/9Pn/P7v3/Xt/86he/+WySsx22Afend/9mTX2Mo0k85/9+k + 6MV/laxP/40jl+E2wCLvzv/U/tdYFRkknfgvm/b1v27wPNwGGGbd/h/W8hKnIv3Uy/81fKfhNkAn7cZ/ + v+qHeBWpeEzAbYBT7pX/IAV4FQ1CwMAAAPB2wKul5ZpwAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAC2SURBVDhPYxg6ILz9wX8ok3QQ3/3gf3DDNfIMiO95+H/p + /v///asvkG5ARPt9sObMWf//e5WeIM2A0NZ7YM2t64C2d/7975J/gHgDglvu/l+09///DqDmjDk//9vV + /fxvn7GdNBfYFd/+nz7n93//rm//dQrf/bdIWE96GOinnP9vUvTiv0rWp//GkctINwAEDJJO/JdN+/pf + N3geeQaAgH7q5f8avtPINwAEVDwmUGbAYAUMDADQFGCYBLpQVQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACjSURBVDhPYxh8oHDW8/9QJnkgd+az/wnd98g3JGPK0//z + 9v/+n9B1hzxDEnqe/J+979f/zq1//7uVXibdkMiuR/+nbPv1v2Tp3/8J0//+t8k9S5ohgc0P/7eufQ/W + bFzy5b909LX/xpHLiDfEo+r+/5K57+CaFV16SHOBfend/4Etz8jTDAIWeXf+2xRcIU8zCBhm3SZfMwjo + pN0gX/NQBAwMAKB+X6AHNEI4AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEsSURBVDhPYxhcoHDW8/9QJgYAyTUteP4/c+JjnGoYcmc+ + +5/QfQ+rApDcqiPv/4e3P8BtQMaUp//n7f/9P6HrDoYikNzCfR/+Bzdcw21AQs+T/7P3/frfufXvf7fS + yygKQXLTtrz/7199AbcBkV2P/k/Z9ut/ydK//xOm//1vk3sWrhgk17v6w3+v0hO4DQhsfvi/de17sGbj + ki//paOv/TeOXAbWAJKrm//uv0v+AdwGeFTd/18y9x1cs6JLD1wxSC5/2pv/9hnbcRtgX3r3f2DLMwzN + IACSy578+r9FwnrcBljk3flvU3AFQzMIgORS+1/DvYQVGGbdxqoZBEByYS0v/+sGz8NtgE7aDZySIDm/ + 6of/NXyn4TYAH3DKvfJfxWMCGEOFBgVgYAAAvtG/s7kMTpwAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABMSURBVDhPY6AK+Pbt239SMVQrBIAFgufA8Yf3H+EYWQxE + x0zYh2kIKQaAMMwQqHbSDQBhog1AxshqaGsAMXjUgEFpADkYqp0SwMAAAPRDDFPA2mtzAAAAAElFTkSu + QmCC + + + + False + + + False + + \ No newline at end of file diff --git a/projetoAvaliacao05/Formularios/FServico.vb b/projetoAvaliacao05/Formularios/FServico.vb new file mode 100755 index 0000000..e432dbc --- /dev/null +++ b/projetoAvaliacao05/Formularios/FServico.vb @@ -0,0 +1,23 @@ +Public Class FServico + Private Sub TbServicoBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) + Me.Validate() + Me.TbServicoBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.BdProtocoloDataSet) + + End Sub + + Private Sub FServico_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'BdProtocoloDataSet.tbServico'. Você pode movê-la ou removê-la conforme necessário. + Me.TbServicoTableAdapter.Fill(Me.BdProtocoloDataSet.tbServico) + 'TODO: esta linha de código carrega dados na tabela 'BdProtocoloDataSet.tbServico'. Você pode movê-la ou removê-la conforme necessário. + Me.TbServicoTableAdapter.Fill(Me.BdProtocoloDataSet.tbServico) + + End Sub + + Private Sub TbServicoBindingNavigatorSaveItem_Click_1(sender As Object, e As EventArgs) Handles TbServicoBindingNavigatorSaveItem.Click + Me.Validate() + Me.TbServicoBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.BdProtocoloDataSet) + + End Sub +End Class \ No newline at end of file diff --git a/projetoAvaliacao05/Formularios/FSetor.Designer.vb b/projetoAvaliacao05/Formularios/FSetor.Designer.vb new file mode 100755 index 0000000..328698f --- /dev/null +++ b/projetoAvaliacao05/Formularios/FSetor.Designer.vb @@ -0,0 +1,269 @@ + _ +Partial Class FSetor + Inherits System.Windows.Forms.Form + + 'Descartar substituições de formulário para limpar a lista de componentes. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Exigido pelo Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'OBSERVAÇÃO: o procedimento a seguir é exigido pelo Windows Form Designer + 'Pode ser modificado usando o Windows Form Designer. + 'Não o modifique usando o editor de códigos. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FSetor)) + Dim Cod_SetorLabel As System.Windows.Forms.Label + Dim Nome_SetorLabel As System.Windows.Forms.Label + Me.BdProtocoloDataSet = New projetoAvaliacao05.bdProtocoloDataSet() + Me.Tb_SetorBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.Tb_SetorTableAdapter = New projetoAvaliacao05.bdProtocoloDataSetTableAdapters.tb_SetorTableAdapter() + Me.TableAdapterManager = New projetoAvaliacao05.bdProtocoloDataSetTableAdapters.TableAdapterManager() + Me.Tb_SetorBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.Tb_SetorBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.Cod_SetorTextBox = New System.Windows.Forms.TextBox() + Me.Nome_SetorTextBox = New System.Windows.Forms.TextBox() + Cod_SetorLabel = New System.Windows.Forms.Label() + Nome_SetorLabel = New System.Windows.Forms.Label() + CType(Me.BdProtocoloDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Tb_SetorBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Tb_SetorBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Tb_SetorBindingNavigator.SuspendLayout() + Me.SuspendLayout() + ' + 'BdProtocoloDataSet + ' + Me.BdProtocoloDataSet.DataSetName = "bdProtocoloDataSet" + Me.BdProtocoloDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'Tb_SetorBindingSource + ' + Me.Tb_SetorBindingSource.DataMember = "tb_Setor" + Me.Tb_SetorBindingSource.DataSource = Me.BdProtocoloDataSet + ' + 'Tb_SetorTableAdapter + ' + Me.Tb_SetorTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.idFuncionarioTableAdapter = Nothing + Me.TableAdapterManager.tb_ClienteTableAdapter = Nothing + Me.TableAdapterManager.tb_ProtocoloTableAdapter = Nothing + Me.TableAdapterManager.tb_SetorTableAdapter = Me.Tb_SetorTableAdapter + Me.TableAdapterManager.tb_UsuarioTableAdapter = Nothing + Me.TableAdapterManager.tbServicoTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = projetoAvaliacao05.bdProtocoloDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'Tb_SetorBindingNavigator + ' + Me.Tb_SetorBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.Tb_SetorBindingNavigator.BindingSource = Me.Tb_SetorBindingSource + Me.Tb_SetorBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.Tb_SetorBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.Tb_SetorBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.Tb_SetorBindingNavigatorSaveItem}) + Me.Tb_SetorBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.Tb_SetorBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.Tb_SetorBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.Tb_SetorBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.Tb_SetorBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.Tb_SetorBindingNavigator.Name = "Tb_SetorBindingNavigator" + Me.Tb_SetorBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.Tb_SetorBindingNavigator.Size = New System.Drawing.Size(282, 25) + Me.Tb_SetorBindingNavigator.TabIndex = 0 + Me.Tb_SetorBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Mover primeiro" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Mover anterior" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Posição" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Posição atual" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(37, 15) + Me.BindingNavigatorCountItem.Text = "de {0}" + Me.BindingNavigatorCountItem.ToolTipText = "Número total de itens" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 6) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorMoveNextItem.Text = "Mover próximo" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorMoveLastItem.Text = "Mover último" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 6) + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Adicionar novo" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorDeleteItem.Text = "Excluir" + ' + 'Tb_SetorBindingNavigatorSaveItem + ' + Me.Tb_SetorBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.Tb_SetorBindingNavigatorSaveItem.Image = CType(resources.GetObject("Tb_SetorBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.Tb_SetorBindingNavigatorSaveItem.Name = "Tb_SetorBindingNavigatorSaveItem" + Me.Tb_SetorBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 23) + Me.Tb_SetorBindingNavigatorSaveItem.Text = "Salvar Dados" + ' + 'Cod_SetorLabel + ' + Cod_SetorLabel.AutoSize = True + Cod_SetorLabel.Location = New System.Drawing.Point(22, 45) + Cod_SetorLabel.Name = "Cod_SetorLabel" + Cod_SetorLabel.Size = New System.Drawing.Size(19, 13) + Cod_SetorLabel.TabIndex = 1 + Cod_SetorLabel.Text = "Nº" + ' + 'Cod_SetorTextBox + ' + Me.Cod_SetorTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Tb_SetorBindingSource, "cod_Setor", True)) + Me.Cod_SetorTextBox.Enabled = False + Me.Cod_SetorTextBox.Location = New System.Drawing.Point(47, 42) + Me.Cod_SetorTextBox.Name = "Cod_SetorTextBox" + Me.Cod_SetorTextBox.Size = New System.Drawing.Size(23, 20) + Me.Cod_SetorTextBox.TabIndex = 2 + ' + 'Nome_SetorLabel + ' + Nome_SetorLabel.AutoSize = True + Nome_SetorLabel.Location = New System.Drawing.Point(22, 72) + Nome_SetorLabel.Name = "Nome_SetorLabel" + Nome_SetorLabel.Size = New System.Drawing.Size(35, 13) + Nome_SetorLabel.TabIndex = 3 + Nome_SetorLabel.Text = "Nome" + ' + 'Nome_SetorTextBox + ' + Me.Nome_SetorTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Tb_SetorBindingSource, "nome_Setor", True)) + Me.Nome_SetorTextBox.Location = New System.Drawing.Point(63, 69) + Me.Nome_SetorTextBox.Name = "Nome_SetorTextBox" + Me.Nome_SetorTextBox.Size = New System.Drawing.Size(125, 20) + Me.Nome_SetorTextBox.TabIndex = 4 + ' + 'FSetor + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(282, 106) + Me.Controls.Add(Cod_SetorLabel) + Me.Controls.Add(Me.Cod_SetorTextBox) + Me.Controls.Add(Nome_SetorLabel) + Me.Controls.Add(Me.Nome_SetorTextBox) + Me.Controls.Add(Me.Tb_SetorBindingNavigator) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "FSetor" + Me.Text = "Cadastro de Setor" + CType(Me.BdProtocoloDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Tb_SetorBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Tb_SetorBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.Tb_SetorBindingNavigator.ResumeLayout(False) + Me.Tb_SetorBindingNavigator.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents BdProtocoloDataSet As bdProtocoloDataSet + Friend WithEvents Tb_SetorBindingSource As BindingSource + Friend WithEvents Tb_SetorTableAdapter As bdProtocoloDataSetTableAdapters.tb_SetorTableAdapter + Friend WithEvents TableAdapterManager As bdProtocoloDataSetTableAdapters.TableAdapterManager + Friend WithEvents Tb_SetorBindingNavigator As BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As ToolStripButton + Friend WithEvents BindingNavigatorCountItem As ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As ToolStripButton + Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator + Friend WithEvents Tb_SetorBindingNavigatorSaveItem As ToolStripButton + Friend WithEvents Cod_SetorTextBox As TextBox + Friend WithEvents Nome_SetorTextBox As TextBox +End Class diff --git a/projetoAvaliacao05/Formularios/FSetor.resx b/projetoAvaliacao05/Formularios/FSetor.resx new file mode 100755 index 0000000..0edbca8 --- /dev/null +++ b/projetoAvaliacao05/Formularios/FSetor.resx @@ -0,0 +1,214 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 179, 17 + + + 357, 17 + + + 529, 17 + + + 702, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFKSURBVDhPYxi84O4C9v+35nH+vzqH6//FGbz/ocLEg+tA + jX8eNf7/87Dh/8nJAqQbcH46L9yAgz0ipBtwfJIgUHPd/z8Pqv7vaBcnbMClmTz/z07l+38SqPFIv9D/ + fd0iQM3l///eK/q/vkHm/6oauf9LKxX/zy9V/j+rSBXTwFNAf/55WA/UVAvElf//3CsB4rz/f+9m/v97 + J/n/39tx///djADikP+TcjQxDTjUKwx27t/7pUCNBUCN2UCNqUCNCf//3YoGagz7/+9G0P9/1/3+d6Xp + Yhqws13i/5Zmqf/rwM6V/7+kQvH/31sxQI3h/6fmafyfkKX1vztD9397qv7/5kRDwmEyG+hPkHP/3Qj4 + 35OhQ1gDOgD5898NfyD2+9+arE+6Ad3pumD/gnB9nBHpBrQkGfxviDf8XxNr/L8y2oR0A+gEGBgAJCPY + nnX8iGkAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFvSURBVDhPtZBNKMNhHMd3Vd5K7eKCWjkgk7yEZDKksciE + yMwkBw6LhHZxcCDlQg64SA4kJeVE4jRv89qaWn8tUtoF/7g8H2Ootb+x4nt56nm+38/v+/xUfyJcJ9Bt + BMcOH1eRiZV5RGcVwqyHrfWwELweWJoJ9rC2AL0mRLse0VEBcxOKkLeGwlwGIz2h75w6ApC6bERjAdia + gkxiyIow5cKkPWxDFYvTiMrUdxDDVnCfwVh/AOo/P2zhhccFzcWBLxmzEPV50Nfyu/Cn2N/1V85DGNKh + Rhth+EaCxkLISUDWxvOgjYXa7F/Wv7kGUz4UJeKzGODi6H25d2l+yPLsDwu8v4NWHY8lSbhL0/HtbX8F + GLXh1MQgnxwoQ3h5hkEL6JI5TlPj21gNMd6WZyC1VSN7r0Mh7G4i56pxpkQhdTWA/KQ4aUcTh+x0KACm + RpBSo3HrM0G6Uq7pl2zvhvNDBcClE8YH4HDv2/A/SKV6BYojAxyEJtLJAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEqSURBVDhPYxg8oHDW8/9NC57/z5z4+D9UCAOEtz/AKceQ + O/PZ/1VH3v/HpSi++8H/4IZruA3ImPL0/8J9H7Aqiu95+H/p/v///asv4DYgoefJ/2lb3mMoimi/D9ac + Oev/f6/SE7gNiOx69L939QcURaGt98CaW9cBbe/8+98l/wBuAwKbH/6vm/8Orii45e7/RXv//+8Aas6Y + 8/O/Xd3P//YZ23Eb4FF1/3/+tDcoiuyKb/9Pn/P7v3/Xt/86he/+WySsx22Afend/9mTX2Mo0k85/9+k + 6MV/laxP/40jl+E2wCLvzv/U/tdYFRkknfgvm/b1v27wPNwGGGbd/h/W8hKnIv3Uy/81fKfhNkAn7cZ/ + v+qHeBWpeEzAbYBT7pX/IAV4FQ1CwMAAAPB2wKul5ZpwAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAC2SURBVDhPYxg6ILz9wX8ok3QQ3/3gf3DDNfIMiO95+H/p + /v///asvkG5ARPt9sObMWf//e5WeIM2A0NZ7YM2t64C2d/7975J/gHgDglvu/l+09///DqDmjDk//9vV + /fxvn7GdNBfYFd/+nz7n93//rm//dQrf/bdIWE96GOinnP9vUvTiv0rWp//GkctINwAEDJJO/JdN+/pf + N3geeQaAgH7q5f8avtPINwAEVDwmUGbAYAUMDADQFGCYBLpQVQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACjSURBVDhPYxh8oHDW8/9QJnkgd+az/wnd98g3JGPK0//z + 9v/+n9B1hzxDEnqe/J+979f/zq1//7uVXibdkMiuR/+nbPv1v2Tp3/8J0//+t8k9S5ohgc0P/7eufQ/W + bFzy5b909LX/xpHLiDfEo+r+/5K57+CaFV16SHOBfend/4Etz8jTDAIWeXf+2xRcIU8zCBhm3SZfMwjo + pN0gX/NQBAwMAKB+X6AHNEI4AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEsSURBVDhPYxhcoHDW8/9QJgYAyTUteP4/c+JjnGoYcmc+ + +5/QfQ+rApDcqiPv/4e3P8BtQMaUp//n7f/9P6HrDoYikNzCfR/+Bzdcw21AQs+T/7P3/frfufXvf7fS + yygKQXLTtrz/7199AbcBkV2P/k/Z9ut/ydK//xOm//1vk3sWrhgk17v6w3+v0hO4DQhsfvi/de17sGbj + ki//paOv/TeOXAbWAJKrm//uv0v+AdwGeFTd/18y9x1cs6JLD1wxSC5/2pv/9hnbcRtgX3r3f2DLMwzN + IACSy578+r9FwnrcBljk3flvU3AFQzMIgORS+1/DvYQVGGbdxqoZBEByYS0v/+sGz8NtgE7aDZySIDm/ + 6of/NXyn4TYAH3DKvfJfxWMCGEOFBgVgYAAAvtG/s7kMTpwAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABMSURBVDhPY6AK+Pbt239SMVQrBIAFgufA8Yf3H+EYWQxE + x0zYh2kIKQaAMMwQqHbSDQBhog1AxshqaGsAMXjUgEFpADkYqp0SwMAAAPRDDFPA2mtzAAAAAElFTkSu + QmCC + + + + False + + + False + + \ No newline at end of file diff --git a/projetoAvaliacao05/Formularios/FSetor.vb b/projetoAvaliacao05/Formularios/FSetor.vb new file mode 100755 index 0000000..c166f58 --- /dev/null +++ b/projetoAvaliacao05/Formularios/FSetor.vb @@ -0,0 +1,14 @@ +Public Class FSetor + Private Sub Tb_SetorBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles Tb_SetorBindingNavigatorSaveItem.Click + Me.Validate() + Me.Tb_SetorBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.BdProtocoloDataSet) + + End Sub + + Private Sub FSetor_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'BdProtocoloDataSet.tb_Setor'. Você pode movê-la ou removê-la conforme necessário. + Me.Tb_SetorTableAdapter.Fill(Me.BdProtocoloDataSet.tb_Setor) + + End Sub +End Class \ No newline at end of file diff --git a/projetoAvaliacao05/Formularios/FUsuario.Designer.vb b/projetoAvaliacao05/Formularios/FUsuario.Designer.vb new file mode 100755 index 0000000..f6d84c1 --- /dev/null +++ b/projetoAvaliacao05/Formularios/FUsuario.Designer.vb @@ -0,0 +1,293 @@ + +Partial Class FUsuario + Inherits System.Windows.Forms.Form + + 'Descartar substituições de formulário para limpar a lista de componentes. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Exigido pelo Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'OBSERVAÇÃO: o procedimento a seguir é exigido pelo Windows Form Designer + 'Pode ser modificado usando o Windows Form Designer. + 'Não o modifique usando o editor de códigos. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FUsuario)) + Dim CódigoLabel As System.Windows.Forms.Label + Dim UsuarioLabel As System.Windows.Forms.Label + Dim SenhaLabel As System.Windows.Forms.Label + Me.BdProtocoloDataSet = New projetoAvaliacao05.bdProtocoloDataSet() + Me.Tb_UsuarioBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.Tb_UsuarioTableAdapter = New projetoAvaliacao05.bdProtocoloDataSetTableAdapters.tb_UsuarioTableAdapter() + Me.TableAdapterManager = New projetoAvaliacao05.bdProtocoloDataSetTableAdapters.TableAdapterManager() + Me.Tb_UsuarioBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.Tb_UsuarioBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.CódigoTextBox = New System.Windows.Forms.TextBox() + Me.UsuarioTextBox = New System.Windows.Forms.TextBox() + Me.SenhaTextBox = New System.Windows.Forms.TextBox() + CódigoLabel = New System.Windows.Forms.Label() + UsuarioLabel = New System.Windows.Forms.Label() + SenhaLabel = New System.Windows.Forms.Label() + CType(Me.BdProtocoloDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Tb_UsuarioBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Tb_UsuarioBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Tb_UsuarioBindingNavigator.SuspendLayout() + Me.SuspendLayout() + ' + 'BdProtocoloDataSet + ' + Me.BdProtocoloDataSet.DataSetName = "bdProtocoloDataSet" + Me.BdProtocoloDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'Tb_UsuarioBindingSource + ' + Me.Tb_UsuarioBindingSource.DataMember = "tb_Usuario" + Me.Tb_UsuarioBindingSource.DataSource = Me.BdProtocoloDataSet + ' + 'Tb_UsuarioTableAdapter + ' + Me.Tb_UsuarioTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.idFuncionarioTableAdapter = Nothing + Me.TableAdapterManager.tb_ClienteTableAdapter = Nothing + Me.TableAdapterManager.tb_ProtocoloTableAdapter = Nothing + Me.TableAdapterManager.tb_SetorTableAdapter = Nothing + Me.TableAdapterManager.tb_UsuarioTableAdapter = Me.Tb_UsuarioTableAdapter + Me.TableAdapterManager.tbServicoTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = projetoAvaliacao05.bdProtocoloDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'Tb_UsuarioBindingNavigator + ' + Me.Tb_UsuarioBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.Tb_UsuarioBindingNavigator.BindingSource = Me.Tb_UsuarioBindingSource + Me.Tb_UsuarioBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.Tb_UsuarioBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.Tb_UsuarioBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.Tb_UsuarioBindingNavigatorSaveItem}) + Me.Tb_UsuarioBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.Tb_UsuarioBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.Tb_UsuarioBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.Tb_UsuarioBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.Tb_UsuarioBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.Tb_UsuarioBindingNavigator.Name = "Tb_UsuarioBindingNavigator" + Me.Tb_UsuarioBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.Tb_UsuarioBindingNavigator.Size = New System.Drawing.Size(454, 25) + Me.Tb_UsuarioBindingNavigator.TabIndex = 0 + Me.Tb_UsuarioBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Mover primeiro" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Mover anterior" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Posição" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Posição atual" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(37, 15) + Me.BindingNavigatorCountItem.Text = "de {0}" + Me.BindingNavigatorCountItem.ToolTipText = "Número total de itens" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 6) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorMoveNextItem.Text = "Mover próximo" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorMoveLastItem.Text = "Mover último" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 6) + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Adicionar novo" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorDeleteItem.Text = "Excluir" + ' + 'Tb_UsuarioBindingNavigatorSaveItem + ' + Me.Tb_UsuarioBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.Tb_UsuarioBindingNavigatorSaveItem.Image = CType(resources.GetObject("Tb_UsuarioBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.Tb_UsuarioBindingNavigatorSaveItem.Name = "Tb_UsuarioBindingNavigatorSaveItem" + Me.Tb_UsuarioBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 23) + Me.Tb_UsuarioBindingNavigatorSaveItem.Text = "Salvar Dados" + ' + 'CódigoLabel + ' + CódigoLabel.AutoSize = True + CódigoLabel.Location = New System.Drawing.Point(15, 45) + CódigoLabel.Name = "CódigoLabel" + CódigoLabel.Size = New System.Drawing.Size(19, 13) + CódigoLabel.TabIndex = 1 + CódigoLabel.Text = "Nº" + ' + 'CódigoTextBox + ' + Me.CódigoTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Tb_UsuarioBindingSource, "Código", True)) + Me.CódigoTextBox.Enabled = False + Me.CódigoTextBox.Location = New System.Drawing.Point(40, 42) + Me.CódigoTextBox.Name = "CódigoTextBox" + Me.CódigoTextBox.Size = New System.Drawing.Size(19, 20) + Me.CódigoTextBox.TabIndex = 2 + ' + 'UsuarioLabel + ' + UsuarioLabel.AutoSize = True + UsuarioLabel.Location = New System.Drawing.Point(15, 78) + UsuarioLabel.Name = "UsuarioLabel" + UsuarioLabel.Size = New System.Drawing.Size(43, 13) + UsuarioLabel.TabIndex = 3 + UsuarioLabel.Text = "Usuário" + ' + 'UsuarioTextBox + ' + Me.UsuarioTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Tb_UsuarioBindingSource, "usuario", True)) + Me.UsuarioTextBox.Location = New System.Drawing.Point(65, 75) + Me.UsuarioTextBox.Name = "UsuarioTextBox" + Me.UsuarioTextBox.Size = New System.Drawing.Size(135, 20) + Me.UsuarioTextBox.TabIndex = 4 + ' + 'SenhaLabel + ' + SenhaLabel.AutoSize = True + SenhaLabel.Location = New System.Drawing.Point(219, 78) + SenhaLabel.Name = "SenhaLabel" + SenhaLabel.Size = New System.Drawing.Size(38, 13) + SenhaLabel.TabIndex = 5 + SenhaLabel.Text = "Senha" + ' + 'SenhaTextBox + ' + Me.SenhaTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Tb_UsuarioBindingSource, "senha", True)) + Me.SenhaTextBox.Location = New System.Drawing.Point(263, 75) + Me.SenhaTextBox.Name = "SenhaTextBox" + Me.SenhaTextBox.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) + Me.SenhaTextBox.Size = New System.Drawing.Size(135, 20) + Me.SenhaTextBox.TabIndex = 6 + ' + 'FUsuario + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(454, 122) + Me.Controls.Add(CódigoLabel) + Me.Controls.Add(Me.CódigoTextBox) + Me.Controls.Add(UsuarioLabel) + Me.Controls.Add(Me.UsuarioTextBox) + Me.Controls.Add(SenhaLabel) + Me.Controls.Add(Me.SenhaTextBox) + Me.Controls.Add(Me.Tb_UsuarioBindingNavigator) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "FUsuario" + Me.Text = "Cadastro de Usuário" + CType(Me.BdProtocoloDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Tb_UsuarioBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Tb_UsuarioBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.Tb_UsuarioBindingNavigator.ResumeLayout(False) + Me.Tb_UsuarioBindingNavigator.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents BdProtocoloDataSet As bdProtocoloDataSet + Friend WithEvents Tb_UsuarioBindingSource As BindingSource + Friend WithEvents Tb_UsuarioTableAdapter As bdProtocoloDataSetTableAdapters.tb_UsuarioTableAdapter + Friend WithEvents TableAdapterManager As bdProtocoloDataSetTableAdapters.TableAdapterManager + Friend WithEvents Tb_UsuarioBindingNavigator As BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As ToolStripButton + Friend WithEvents BindingNavigatorCountItem As ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As ToolStripButton + Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator + Friend WithEvents Tb_UsuarioBindingNavigatorSaveItem As ToolStripButton + Friend WithEvents CódigoTextBox As TextBox + Friend WithEvents UsuarioTextBox As TextBox + Friend WithEvents SenhaTextBox As TextBox +End Class diff --git a/projetoAvaliacao05/Formularios/FUsuario.resx b/projetoAvaliacao05/Formularios/FUsuario.resx new file mode 100755 index 0000000..1c064b8 --- /dev/null +++ b/projetoAvaliacao05/Formularios/FUsuario.resx @@ -0,0 +1,217 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 179, 17 + + + 370, 17 + + + 555, 17 + + + 728, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFKSURBVDhPYxi84O4C9v+35nH+vzqH6//FGbz/ocLEg+tA + jX8eNf7/87Dh/8nJAqQbcH46L9yAgz0ipBtwfJIgUHPd/z8Pqv7vaBcnbMClmTz/z07l+38SqPFIv9D/ + fd0iQM3l///eK/q/vkHm/6oauf9LKxX/zy9V/j+rSBXTwFNAf/55WA/UVAvElf//3CsB4rz/f+9m/v97 + J/n/39tx///djADikP+TcjQxDTjUKwx27t/7pUCNBUCN2UCNqUCNCf//3YoGagz7/+9G0P9/1/3+d6Xp + Yhqws13i/5Zmqf/rwM6V/7+kQvH/31sxQI3h/6fmafyfkKX1vztD9397qv7/5kRDwmEyG+hPkHP/3Qj4 + 35OhQ1gDOgD5898NfyD2+9+arE+6Ad3pumD/gnB9nBHpBrQkGfxviDf8XxNr/L8y2oR0A+gEGBgAJCPY + nnX8iGkAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFvSURBVDhPtZBNKMNhHMd3Vd5K7eKCWjkgk7yEZDKksciE + yMwkBw6LhHZxcCDlQg64SA4kJeVE4jRv89qaWn8tUtoF/7g8H2Ootb+x4nt56nm+38/v+/xUfyJcJ9Bt + BMcOH1eRiZV5RGcVwqyHrfWwELweWJoJ9rC2AL0mRLse0VEBcxOKkLeGwlwGIz2h75w6ApC6bERjAdia + gkxiyIow5cKkPWxDFYvTiMrUdxDDVnCfwVh/AOo/P2zhhccFzcWBLxmzEPV50Nfyu/Cn2N/1V85DGNKh + Rhth+EaCxkLISUDWxvOgjYXa7F/Wv7kGUz4UJeKzGODi6H25d2l+yPLsDwu8v4NWHY8lSbhL0/HtbX8F + GLXh1MQgnxwoQ3h5hkEL6JI5TlPj21gNMd6WZyC1VSN7r0Mh7G4i56pxpkQhdTWA/KQ4aUcTh+x0KACm + RpBSo3HrM0G6Uq7pl2zvhvNDBcClE8YH4HDv2/A/SKV6BYojAxyEJtLJAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEqSURBVDhPYxg8oHDW8/9NC57/z5z4+D9UCAOEtz/AKceQ + O/PZ/1VH3v/HpSi++8H/4IZruA3ImPL0/8J9H7Aqiu95+H/p/v///asv4DYgoefJ/2lb3mMoimi/D9ac + Oev/f6/SE7gNiOx69L939QcURaGt98CaW9cBbe/8+98l/wBuAwKbH/6vm/8Orii45e7/RXv//+8Aas6Y + 8/O/Xd3P//YZ23Eb4FF1/3/+tDcoiuyKb/9Pn/P7v3/Xt/86he/+WySsx22Afend/9mTX2Mo0k85/9+k + 6MV/laxP/40jl+E2wCLvzv/U/tdYFRkknfgvm/b1v27wPNwGGGbd/h/W8hKnIv3Uy/81fKfhNkAn7cZ/ + v+qHeBWpeEzAbYBT7pX/IAV4FQ1CwMAAAPB2wKul5ZpwAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAC2SURBVDhPYxg6ILz9wX8ok3QQ3/3gf3DDNfIMiO95+H/p + /v///asvkG5ARPt9sObMWf//e5WeIM2A0NZ7YM2t64C2d/7975J/gHgDglvu/l+09///DqDmjDk//9vV + /fxvn7GdNBfYFd/+nz7n93//rm//dQrf/bdIWE96GOinnP9vUvTiv0rWp//GkctINwAEDJJO/JdN+/pf + N3geeQaAgH7q5f8avtPINwAEVDwmUGbAYAUMDADQFGCYBLpQVQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACjSURBVDhPYxh8oHDW8/9QJnkgd+az/wnd98g3JGPK0//z + 9v/+n9B1hzxDEnqe/J+979f/zq1//7uVXibdkMiuR/+nbPv1v2Tp3/8J0//+t8k9S5ohgc0P/7eufQ/W + bFzy5b909LX/xpHLiDfEo+r+/5K57+CaFV16SHOBfend/4Etz8jTDAIWeXf+2xRcIU8zCBhm3SZfMwjo + pN0gX/NQBAwMAKB+X6AHNEI4AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEsSURBVDhPYxhcoHDW8/9QJgYAyTUteP4/c+JjnGoYcmc+ + +5/QfQ+rApDcqiPv/4e3P8BtQMaUp//n7f/9P6HrDoYikNzCfR/+Bzdcw21AQs+T/7P3/frfufXvf7fS + yygKQXLTtrz/7199AbcBkV2P/k/Z9ut/ydK//xOm//1vk3sWrhgk17v6w3+v0hO4DQhsfvi/de17sGbj + ki//paOv/TeOXAbWAJKrm//uv0v+AdwGeFTd/18y9x1cs6JLD1wxSC5/2pv/9hnbcRtgX3r3f2DLMwzN + IACSy578+r9FwnrcBljk3flvU3AFQzMIgORS+1/DvYQVGGbdxqoZBEByYS0v/+sGz8NtgE7aDZySIDm/ + 6of/NXyn4TYAH3DKvfJfxWMCGEOFBgVgYAAAvtG/s7kMTpwAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABMSURBVDhPY6AK+Pbt239SMVQrBIAFgufA8Yf3H+EYWQxE + x0zYh2kIKQaAMMwQqHbSDQBhog1AxshqaGsAMXjUgEFpADkYqp0SwMAAAPRDDFPA2mtzAAAAAElFTkSu + QmCC + + + + False + + + False + + + False + + \ No newline at end of file diff --git a/projetoAvaliacao05/Formularios/FUsuario.vb b/projetoAvaliacao05/Formularios/FUsuario.vb new file mode 100755 index 0000000..e40358c --- /dev/null +++ b/projetoAvaliacao05/Formularios/FUsuario.vb @@ -0,0 +1,23 @@ +Public Class FUsuario + Private Sub Tb_UsuarioBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) + Me.Validate() + Me.Tb_UsuarioBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.BdProtocoloDataSet) + + End Sub + + Private Sub FUsuario_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'BdProtocoloDataSet.tb_Usuario'. Você pode movê-la ou removê-la conforme necessário. + Me.Tb_UsuarioTableAdapter.Fill(Me.BdProtocoloDataSet.tb_Usuario) + 'TODO: esta linha de código carrega dados na tabela 'BdProtocoloDataSet.tb_Usuario'. Você pode movê-la ou removê-la conforme necessário. + Me.Tb_UsuarioTableAdapter.Fill(Me.BdProtocoloDataSet.tb_Usuario) + + End Sub + + Private Sub Tb_UsuarioBindingNavigatorSaveItem_Click_1(sender As Object, e As EventArgs) Handles Tb_UsuarioBindingNavigatorSaveItem.Click + Me.Validate() + Me.Tb_UsuarioBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.BdProtocoloDataSet) + + End Sub +End Class \ No newline at end of file diff --git a/projetoAvaliacao05/Imagens/formularz.png b/projetoAvaliacao05/Imagens/formularz.png new file mode 100755 index 0000000..a8582f9 Binary files /dev/null and b/projetoAvaliacao05/Imagens/formularz.png differ diff --git a/projetoAvaliacao05/My Project/Application.Designer.vb b/projetoAvaliacao05/My Project/Application.Designer.vb new file mode 100755 index 0000000..4cdc51a --- /dev/null +++ b/projetoAvaliacao05/My Project/Application.Designer.vb @@ -0,0 +1,43 @@ +'------------------------------------------------------------------------------ +' +' O código foi gerado por uma ferramenta. +' Versão de Tempo de Execução:4.0.30319.42000 +' +' As alterações ao arquivo poderão causar comportamento incorreto e serão perdidas se +' o código for gerado novamente. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'OBSERVAÇÃO: Esse arquivo é gerado automaticamente; não o modifique diretamente. Para fazer alterações, + ' ou se você encontrar erros de compilação neste arquivo, vá para o Designer de Projeto + ' (vá para Propriedades do Projeto ou clique duas vezes no nó Meu Projeto em + ' Gerenciador de Soluções) e faça as alterações na guia Aplicativo. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.projetoAvaliacao05.FLogin + End Sub + + _ + Protected Overrides Sub OnCreateSplashScreen() + Me.SplashScreen = Global.projetoAvaliacao05.SplashScreen + End Sub + End Class +End Namespace diff --git a/projetoAvaliacao05/My Project/Application.myapp b/projetoAvaliacao05/My Project/Application.myapp new file mode 100755 index 0000000..7324c1d --- /dev/null +++ b/projetoAvaliacao05/My Project/Application.myapp @@ -0,0 +1,11 @@ + + + true + FLogin + false + 0 + true + 0 + SplashScreen + true + \ No newline at end of file diff --git a/projetoAvaliacao05/My Project/AssemblyInfo.vb b/projetoAvaliacao05/My Project/AssemblyInfo.vb new file mode 100755 index 0000000..233f5ec --- /dev/null +++ b/projetoAvaliacao05/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' As informações gerais sobre um assembly são controladas por +' conjunto de atributos. Altere estes valores de atributo para modificar as informações +' associada a um assembly. + +' Revise os valores dos atributos do assembly + + + + + + + + + + +'O GUID a seguir será destinado à ID de typelib se este projeto for exposto para COM + + +' As informações da versão de um assembly consistem nos quatro valores a seguir: +' +' Versão Principal +' Versão Secundária +' Número da Versão +' Revisão +' +' É possível especificar todos os valores ou usar como padrão os Números de Build e da Revisão +' utilizando o "*" como mostrado abaixo: +' + + + diff --git a/projetoAvaliacao05/My Project/Resources.Designer.vb b/projetoAvaliacao05/My Project/Resources.Designer.vb new file mode 100755 index 0000000..202f66b --- /dev/null +++ b/projetoAvaliacao05/My Project/Resources.Designer.vb @@ -0,0 +1,62 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My.Resources + + 'This class was auto-generated by the StronglyTypedResourceBuilder + 'class via a tool like ResGen or Visual Studio. + 'To add or remove a member, edit your .ResX file then rerun ResGen + 'with the /str option, or rebuild your VS project. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("projetoAvaliacao05.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set(ByVal value As Global.System.Globalization.CultureInfo) + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/projetoAvaliacao05/My Project/Resources.resx b/projetoAvaliacao05/My Project/Resources.resx new file mode 100755 index 0000000..ffecec8 --- /dev/null +++ b/projetoAvaliacao05/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/projetoAvaliacao05/My Project/Settings.Designer.vb b/projetoAvaliacao05/My Project/Settings.Designer.vb new file mode 100755 index 0000000..d766494 --- /dev/null +++ b/projetoAvaliacao05/My Project/Settings.Designer.vb @@ -0,0 +1,84 @@ +'------------------------------------------------------------------------------ +' +' O código foi gerado por uma ferramenta. +' Versão de Tempo de Execução:4.0.30319.42000 +' +' As alterações ao arquivo poderão causar comportamento incorreto e serão perdidas se +' o código for gerado novamente. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + +#Region "Funcionalidade de salvamento automático do My.Settings" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + + _ + Public ReadOnly Property bdProtocoloConnectionString() As String + Get + Return CType(Me("bdProtocoloConnectionString"),String) + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.projetoAvaliacao05.My.MySettings + Get + Return Global.projetoAvaliacao05.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/projetoAvaliacao05/My Project/Settings.settings b/projetoAvaliacao05/My Project/Settings.settings new file mode 100755 index 0000000..210cfdb --- /dev/null +++ b/projetoAvaliacao05/My Project/Settings.settings @@ -0,0 +1,14 @@ + + + + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Provider=Microsoft.ACE.OLEDB.12.0;Data Source="|DataDirectory|\Banco de Dados\bdProtocolo.accdb"</ConnectionString> + <ProviderName>System.Data.OleDb</ProviderName> +</SerializableConnectionString> + Provider=Microsoft.ACE.OLEDB.12.0;Data Source="|DataDirectory|\Banco de Dados\bdProtocolo.accdb" + + + \ No newline at end of file diff --git a/projetoAvaliacao05/My Project/app.manifest b/projetoAvaliacao05/My Project/app.manifest new file mode 100755 index 0000000..eb6f537 --- /dev/null +++ b/projetoAvaliacao05/My Project/app.manifest @@ -0,0 +1,70 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/projetoAvaliacao05/PDF/Avalicao.pdf b/projetoAvaliacao05/PDF/Avalicao.pdf new file mode 100755 index 0000000..bb94fc8 Binary files /dev/null and b/projetoAvaliacao05/PDF/Avalicao.pdf differ diff --git a/projetoAvaliacao05/SplashScreen.Designer.vb b/projetoAvaliacao05/SplashScreen.Designer.vb new file mode 100755 index 0000000..738b53f --- /dev/null +++ b/projetoAvaliacao05/SplashScreen.Designer.vb @@ -0,0 +1,102 @@ + _ +Partial Class SplashScreen + Inherits System.Windows.Forms.Form + + 'Descartar substituições de formulário para limpar a lista de componentes. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Exigido pelo Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'OBSERVAÇÃO: o procedimento a seguir é exigido pelo Windows Form Designer + 'Pode ser modificado usando o Windows Form Designer. + 'Não o modifique usando o editor de códigos. + _ + Private Sub InitializeComponent() + Me.Copyright = New System.Windows.Forms.Label() + Me.Version = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.Label1 = New System.Windows.Forms.Label() + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + 'Copyright + ' + Me.Copyright.AutoSize = True + Me.Copyright.ForeColor = System.Drawing.SystemColors.Control + Me.Copyright.Location = New System.Drawing.Point(429, 60) + Me.Copyright.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Copyright.Name = "Copyright" + Me.Copyright.Size = New System.Drawing.Size(71, 18) + Me.Copyright.TabIndex = 0 + Me.Copyright.Text = "Copyright" + ' + 'Version + ' + Me.Version.AutoSize = True + Me.Version.ForeColor = System.Drawing.SystemColors.Control + Me.Version.Location = New System.Drawing.Point(13, 60) + Me.Version.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Version.Name = "Version" + Me.Version.Size = New System.Drawing.Size(119, 18) + Me.Version.TabIndex = 1 + Me.Version.Text = "Versão {0}.{1:00}" + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.Panel1.Controls.Add(Me.Copyright) + Me.Panel1.Controls.Add(Me.Version) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel1.Location = New System.Drawing.Point(0, 158) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(588, 130) + Me.Panel1.TabIndex = 2 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 21.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(16, 49) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(555, 66) + Me.Label1.TabIndex = 2 + Me.Label1.Text = "SGP-GC " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Sistema de Gerenciamento de Protocolos" + ' + 'SplashScreen + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 18.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(588, 288) + Me.ControlBox = False + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.Panel1) + Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle + Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "SplashScreen" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents Copyright As Label + Friend WithEvents Version As Label + Friend WithEvents Panel1 As Panel + Friend WithEvents Label1 As Label +End Class diff --git a/projetoAvaliacao05/SplashScreen.resx b/projetoAvaliacao05/SplashScreen.resx new file mode 100755 index 0000000..29dcb1b --- /dev/null +++ b/projetoAvaliacao05/SplashScreen.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/projetoAvaliacao05/SplashScreen.vb b/projetoAvaliacao05/SplashScreen.vb new file mode 100755 index 0000000..8151146 --- /dev/null +++ b/projetoAvaliacao05/SplashScreen.vb @@ -0,0 +1,35 @@ +Public NotInheritable Class SplashScreen + + 'TODO: Este formulário pode ser facilmente configurado como a tela inicial da aplicação através da edição da aba "Aplicação" + ' no Designer de Projeto ("Propriedades" dentro do menu "Projetos"). + + + Private Sub SplashScreen_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + 'Configura o texto do diálogo em tempo de execução de acordo com a informação do assembly da aplicação. + + 'TODO: Personalize a informação do assembly da aplicação no painel "Aplicação" do diálogo + ' propriedades do projeto (dentro do menu "Project"). + + 'Título da Aplicação + 'If My.Application.Info.Title <> "" Then + 'ApplicationTitle.Text = My.Application.Info.Title + 'Else + 'Se o título da aplicação estiver faltando, utiliza o nome da aplicação sem a extensão + 'ApplicationTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName) + 'End If + + 'Formata a informação de versão utilizando o texto configurado no controlador de Versão em tempo de design como a + ' cadeia de caractere de formatação. Isto facilita uma localização efetiva quando necessário. + ' Informação de compilação e revisão poderiam ser incluídos utilizando o seguinte código e modificando o + ' texto designtime do controle de versão para "Versão {0}.{1:00}.{2}.{3}" ou algo similar. Verifique + ' String.Format() na Ajuda para mais informação. + ' + ' Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build, My.Application.Info.Version.Revision) + + Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor) + + 'Informação de Copyright + Copyright.Text = My.Application.Info.Copyright + End Sub + +End Class diff --git a/projetoAvaliacao05/projetoAvaliacao05.vbproj b/projetoAvaliacao05/projetoAvaliacao05.vbproj new file mode 100755 index 0000000..1acb5e7 --- /dev/null +++ b/projetoAvaliacao05/projetoAvaliacao05.vbproj @@ -0,0 +1,286 @@ + + + + + Debug + AnyCPU + {529BB0BD-DAA8-432F-9686-46B116279EEC} + WinExe + projetoAvaliacao05.My.MyApplication + projetoAvaliacao05 + projetoAvaliacao05 + 512 + WindowsForms + v4.6.1 + true + false + C:\projetoAvaliacao05\Compilado\ + true + Disk + false + Foreground + 7 + Days + false + false + true + 3 + 1.0.2.%2a + false + true + true + + + AnyCPU + true + full + true + true + bin\Debug\ + projetoAvaliacao05.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + projetoAvaliacao05.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + DB51041104CD504B34CF8E179F04B8F52EF35FA2 + + + projetoAvaliacao05_TemporaryKey.pfx + + + true + + + LocalIntranet + + + My Project\app.manifest + + + true + + + + + + + + + + + + + + + + + + + + + + + + + + + + + True + True + bdProtocoloDataSet.xsd + + + bdProtocoloDataSet.xsd + + + FLogin.vb + + + Form + + + Form + + + FCliente.vb + Form + + + FFechamento.vb + + + Form + + + FFuncionario.vb + + + Form + + + FProtocolo.vb + + + Form + + + FServico.vb + + + Form + + + FSetor.vb + + + Form + + + FUsuario.vb + + + Form + + + FPrincipal.vb + + + Form + + + FSobre.vb + + + Form + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + SplashScreen.vb + + + Form + + + + + FLogin.vb + + + FCliente.vb + + + FFechamento.vb + + + FFuncionario.vb + + + FProtocolo.vb + + + FServico.vb + + + FSetor.vb + + + FUsuario.vb + + + FPrincipal.vb + + + FSobre.vb + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + SplashScreen.vb + + + + + + bdProtocoloDataSet.xsd + + + MSDataSetGenerator + bdProtocoloDataSet.Designer.vb + Designer + + + bdProtocoloDataSet.xsd + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + + PreserveNewest + + + + + + False + Microsoft .NET Framework 4.6.1 %28x86 e x64%29 + true + + + False + .NET Framework 3.5 SP1 + false + + + + \ No newline at end of file