xl_kid | 20.12.2018 15:31 |
---|---|
Predmet:hidden field - visible false Hteo bih da sakrijem polje ali da mi taj podatak sačuva u db. prim. kada se logujem, iz baze dobijem id. Kada je polje visible true sve je ok međutim kada promenim na false jer ne želim da se vidi taj podatak imam problem. Ne upisuje id u tabeli. Kako da reÅ¡im taj problem? Isto i kada želim da upiÅ¡em IP adresu. Ne želim da se prikaže eli želim da je sačuvam u tabeli. |
Gjoreski | 20.12.2018 19:46 |
---|---|
Predmet:Re: hidden field - visible false Napravi Public variabla u neki modul i tako neces imati problema sa unos podatke eve vaka e kaj mene PreuzmiIzvorni kôd (vbnet):
|
xl_kid | 21.12.2018 10:33 |
---|---|
Predmet:Re: hidden field - visible false Uradio sam tako ali i dalje mi traži podatak ID_Korisnik. Cannot insert the value NULL into column... Polje ID_Korisnik je obavezno. Kako da prosledim taj podatak u insert? |
zxz | 21.12.2018 11:09 |
---|---|
Predmet:Re: hidden field - visible false Nije mi bas jasno o cemu se radi, pa bi bilo dobro da okais primjer. Mislim da nije uzrok visible. Upis u bazu mozes napraviti putem sql-a i nemoras imati polja ako imas podatke u Public variablama. Naj bolje je da zakacis primjer. |
xl_kid | 21.12.2018 11:19 |
---|---|
Predmet:Re: hidden field - visible false evo koda problem mi je sa poljem txt.KCID koje želim da bude visible false Public Class PodaciSaRelacije Private Sub T_KONTROLA_DFBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles T_KONTROLA_DFBindingNavigatorSaveItem.Click Try Me.Validate() Me.T_KONTROLA_DFBindingSource.EndEdit() Me.TableAdapterManager.UpdateAll(Me.KontrolaPodataka_DataSet) Me.T_KONTROLA_CFTableAdapter.Update(Me.KontrolaPodataka_DataSet) Catch ex As Exception MessageBox.Show(ex.ToString) End Try End Sub Private Sub PodaciSaRelacije_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.T_VOZACITableAdapter.Fill(Me.KontrolaPodataka_DataSet.T_VOZACI) Me.T_KONTROLA_CFTableAdapter.Fill(Me.KontrolaPodataka_DataSet.T_KONTROLA_CF) Me.T_KCTableAdapter.Fill(Me.KontrolaPodataka_DataSet.T_KC) Me.T_KONTROLA_DFTableAdapter.Fill(Me.KontrolaPodataka_DataSet.T_KONTROLA_DF) KeyPreview = True Dim myCulture As System.Globalization.CultureInfo = Globalization.CultureInfo.CurrentCulture Dim dayName As String = myCulture.DateTimeFormat.GetDayName(DateTime.Parse(KNT_DF_DATUMTextBox.Text).DayOfWeek) TXT_Dan.Text = dayName txt_Ime.Text = Login.Ime txt_KCID.Text = KC_ID Dim strHostName As String Dim strIPAddress As String strHostName = System.Net.Dns.GetHostName() strIPAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString() txt_CompName.Text = strHostName txt_IP.Text = strIPAddress End Sub Private Sub CustomDataGridView1_CellDoubleClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles CustomDataGridView1.CellDoubleClick If CustomDataGridView1.Columns(e.ColumnIndex).HeaderText = "KNT_CF_VOZAC_ID" Then Vozaci.Show() ElseIf CustomDataGridView1.Columns(e.ColumnIndex).HeaderText = "KNT_DRUGI_VZC_ID" Then Vozaci.Show() ElseIf CustomDataGridView1.Columns(e.ColumnIndex).HeaderText = "KNT_CF_RELACIJE_ID" Then Relacije.Show() ElseIf CustomDataGridView1.Columns(e.ColumnIndex).HeaderText = "KNT_VOZILO_ID" Then Vozila.Show() End If End Sub Private Sub PodaciSaRelacije_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown If e.KeyCode = Keys.Enter Then e.Handled = True e.SuppressKeyPress = True SendKeys.Send("{TAB}") End If End Sub Private Sub CustomDataGridView1_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles CustomDataGridView1.CellEndEdit Dim Vozac, Relacija, Vozilo As New KontrolaPodataka_DataSetTableAdapters.T_KONTROLA_CFTableAdapter Dim KCID = Login.KC_ID If e.ColumnIndex = 0 Then For i As Integer = 0 To Me.CustomDataGridView1.RowCount - 1 For j As Integer = i + 1 To Me.CustomDataGridView1.RowCount - 1 If CustomDataGridView1.Rows(i).Cells(0).Value = CustomDataGridView1.Rows(j).Cells(0).Value Then MessageBox.Show("dupli unos " & CustomDataGridView1.Rows(i).Cells(0).Value) SendKeys.Send("{left}") SendKeys.Send("{left}") End If Next Next If Val(CustomDataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) > 0 Then If Not IsNothing(Vozac.VozacImePrezime(CInt(Val(CustomDataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value)), KCID)) Then CustomDataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex + 1).Value = Vozac.VozacImePrezime(CInt(Val(CustomDataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value)), KCID) CustomDataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex + 4).Value = "Redovna posada" Else If Not String.IsNullOrEmpty(CustomDataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) Then If Not String.IsNullOrEmpty(Trim(CustomDataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value.ToString())) Then MessageBox.Show("PogreÅ¡an ID vozača ili vozač ne pripada odabranom KC") SendKeys.Send("{left}") SendKeys.Send("{left}") End If End If End If End If End If 'If e.ColumnIndex = 2 Then ' ' ' 'On Error Resume Next ' If Val(CustomDataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) > 0 Then ' ' ' CustomDataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex + 1).Value = Vozac.VozacImePrezime(CInt(Val(CustomDataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value)), KCID) ' ' CustomDataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex + 2).Value = "Dupla posada" ' ' End If ' 'End If ' ' ' '' On Error Resume Next 'If e.ColumnIndex = 5 Then ' ' If Val(CustomDataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) > 0 Then ' ' CustomDataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex + 1).Value = Relacija.RelacijaNaziv(CInt(Val(CustomDataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value))) ' ' End If ' 'End If ' 'If e.ColumnIndex = 7 Then ' ' If Val(CustomDataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) > 0 Then ' ' CustomDataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex + 1).Value = Vozilo.VoziloRegistracija(CInt(Val(CustomDataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value))) ' ' End If ' 'End If End Sub Private Function CleanInputNumber(ByVal str As String) As String Return System.Text.RegularExpressions.Regex.Replace(str, "91", "1") End Function Private Sub KNT_DF_DATUMTextBox_Leave(sender As Object, e As EventArgs) Handles KNT_DF_DATUMTextBox.Leave Dim myCulture As System.Globalization.CultureInfo = Globalization.CultureInfo.CurrentCulture Dim dayOfWeek As DayOfWeek = DateTime.Parse(KNT_DF_DATUMTextBox.Text).DayOfWeek Dim dayName As String = myCulture.DateTimeFormat.GetDayName(dayOfWeek) TXT_Dan.Text = dayName txt_KCID.Text = Login.KC_ID End Sub Private Sub KNT_DF_IDTextBox_TextChanged(sender As Object, e As EventArgs) Handles KNT_DF_IDTextBox.TextChanged Dim myCulture As System.Globalization.CultureInfo = Globalization.CultureInfo.CurrentCulture Dim dayOfWeek As DayOfWeek = DateTime.Parse(KNT_DF_DATUMTextBox.Text).DayOfWeek Dim dayName As String = myCulture.DateTimeFormat.GetDayName(dayOfWeek) TXT_Dan.Text = dayName End Sub Private Sub CustomDataGridView1_CellLeave(sender As Object, e As DataGridViewCellEventArgs) Handles CustomDataGridView1.CellLeave End Sub Private Sub CustomDataGridView1_CellValidating(sender As Object, e As DataGridViewCellValidatingEventArgs) Handles CustomDataGridView1.CellValidating 'If CustomDataGridView1.CurrentRow.Cells("KNT_CF_VOZAC_ID").IsInEditMode Then ' ' Dim c As Control = CustomDataGridView1.EditingControl ' ' Select Case CustomDataGridView1.Columns(e.ColumnIndex).Name ' ' Case "KNT_CF_VOZAC_ID" ' c.Text = CleanInputNumber(c.Text) ' ' 'Case "yColumn" ' ' c.Text = CleanInputAlphabet(c.Text) ' ' End Select 'End If 'If CustomDataGridView1.Columns(e.ColumnIndex).DataPropertyName = "KNT_CF_VOZAC_ID" AndAlso e.FormattedValue.ToString() <> CustomDataGridView1(e.ColumnIndex, e.RowIndex).Value.ToString() Then ' ' Dim dt As DataTable = CType(CustomDataGridView1.DataSource, DataTable) ' ' Dim rows As DataRow() = dt.Select("KNT_CF_VOZAC_ID = " & e.FormattedValue) ' ' If rows.Length > 0 Then ' ' MessageBox.Show("This value is already used.") ' ' e.Cancel = True ' ' End If ' 'End If 'If e.Column.Name = "KNT_CF_VOZAC_ID" AndAlso e.Row.Cells("Column1").Value = "Age" AndAlso IsNumeric() = False Then ' 'we will prevent the user from leaving the cell unless s/he entered numeric value for this cell ' e.Cancel = True 'End If End Sub End Class |
xl_kid | 21.12.2018 11:20 |
---|---|
Predmet:Re: hidden field - visible false Mislim, ja sam sakrio polje kcid iza datuma ali mislim da ima neko "lepše" rešenje. |
Gjoreski | 21.12.2018 11:57 |
---|---|
Predmet:Re: hidden field - visible false Vec sam ti odgovori napravi modul i u modulu stavi public variabla i to je resejne tvog problema |
xl_kid | 21.12.2018 13:31 |
---|---|
Predmet:Re: hidden field - visible false negde greÅ¡im ***login forma*** Private Sub btn_PrijaviSe_Click(sender As Object, e As EventArgs) Handles btn_PrijaviSe.Click If con.State = ConnectionState.Open Then con.Close() con.Open() If txt_KorisnickoIme.Text = "" Then MsgBox("Unesite korisničko ime..", MsgBoxStyle.Critical) ElseIf txt_Lozinka.Text = "" Then MsgBox("Unesite lozinku..", MsgBoxStyle.Critical) Else Dim query As String query = "select * from T_Users where KorisnickoIme= '" + txt_KorisnickoIme.Text + "' and Password= '" + txt_Lozinka.Text + "'" cmd = New SqlCommand(query, con) Dim da As SqlDataAdapter = New SqlDataAdapter(cmd) Dim ds As DataSet = New DataSet() da.Fill(ds) Dim a As Integer a = ds.Tables(0).Rows.Count If a = 0 Then MsgBox("NeuspeÅ¡no prijavljivanje! PogreÅ¡no korisničko ime i/ili lozinka. PokuÅ¡ajte ponovo.", MsgBoxStyle.Critical) Else Module1.KC_ID = ds.Tables(0).Rows(0).Item(14) KorisnikID = ds.Tables(0).Rows(0).Item(0) PodaciSaRelacije.Show() Me.Hide() End If End If End Sub *** ***Modul*** Module Module1 Public KC_ID As Integer End Module ***forma za upis posle datuma*** Private Sub KNT_DF_DATUMTextBox_Leave(sender As Object, e As EventArgs) Handles KNT_DF_DATUMTextBox.Leave Me.txt_KCID.Text = Module1.KC_ID End Sub |
xl_kid | 21.12.2018 13:33 |
---|---|
Predmet:Re: hidden field - visible false polje txt_KCID - visible - false kada promenim da je true onda radi ok |
Gjoreski | 21.12.2018 19:14 |
---|---|
Predmet:Re: hidden field - visible false Samo ova ti tereba bez module KC_ID = ds.Tables(0).Rows(0).Item(14) Msgbox KC_ID ' Da vidis jeli radi \ |