摘要: '************************************************** '*过程名称:DT_PAFORMAL '*功能说明:员工类别 '************************************************** Public Function 阅读全文
posted @ 2022-09-06 19:47 侬侬发 阅读(42) 评论(0) 推荐(0) 编辑
摘要: Private Sub PAPHOTO_SEL() Try Dim objCon As SqlConnection Dim objCmd As SqlCommand '打开数据库 objCon = New SqlConnection(PA001H_INSERT.strConn) objCon.Ope 阅读全文
posted @ 2022-09-06 18:52 侬侬发 阅读(32) 评论(0) 推荐(0) 编辑
摘要: Private Sub BT_PHOTOADDRESS_Click(sender As Object, e As EventArgs) Handles BT_PHOTOADDRESS.Click Dim dvic As DataGridViewImageColumn = New DataGridVi 阅读全文
posted @ 2022-09-06 18:49 侬侬发 阅读(77) 评论(0) 推荐(0) 编辑
摘要: Private Sub PAPHOTO_SAVE() Try If TxtPictureURL.Text.ToString <> "" Then Dim SQL_String As String = "" '定义SQL字符串 If PA001H_INSERT.Isexists(" LJPA005H" 阅读全文
posted @ 2022-09-06 18:46 侬侬发 阅读(63) 评论(0) 推荐(0) 编辑
摘要: Private Sub BT_DPNO1_Click(sender As Object, e As EventArgs) Handles BT_DPNO1.Click Dim LJPA003H_SELECT As New LJPA003H.LJPA003H_SELECT With { .frmnam 阅读全文
posted @ 2022-09-06 18:45 侬侬发 阅读(25) 评论(0) 推荐(0) 编辑
摘要: Private Sub BT_PHOTOADDRESS_Click(sender As Object, e As EventArgs) Handles BT_PHOTOADDRESS.Click Dim dvic As DataGridViewImageColumn = New DataGridVi 阅读全文
posted @ 2022-09-06 18:43 侬侬发 阅读(78) 评论(0) 推荐(0) 编辑
摘要: Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked Select Case e.ClickedItem.Name 阅读全文
posted @ 2022-09-06 18:30 侬侬发 阅读(30) 评论(0) 推荐(0) 编辑
摘要: ALTER TABLE LJPA001H DROP CONSTRAINT DF_LJPA001H_pa_sex_1 ALTER TABLE LJPA001H ALTER COLUMN pa_sex VARCHAR(1) 阅读全文
posted @ 2022-09-06 14:10 侬侬发 阅读(45) 评论(0) 推荐(0) 编辑