📄 frmperson_edit.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form FrmPerson_Edit
Caption = "系统用户"
ClientHeight = 8595
ClientLeft = 165
ClientTop = 450
ClientWidth = 11880
LinkTopic = "Form2"
ScaleHeight = 8595
ScaleWidth = 11880
StartUpPosition = 3 'Windows Default
WindowState = 2 'Maximized
Begin VB.CommandButton CmdCancel
Cancel = -1 'True
Caption = "关闭"
Height = 495
Left = 10920
TabIndex = 1
Top = 0
Width = 855
End
Begin VB.CommandButton CmdDelRecord
Caption = "删除"
Height = 495
Left = 10080
TabIndex = 3
Top = 0
Width = 855
End
Begin VB.CommandButton CmdEditRecord
Caption = "修改"
Height = 495
Left = 9240
TabIndex = 2
Top = 0
Width = 855
End
Begin VB.CommandButton CmdSrch
Caption = "查询"
Height = 495
Left = 8400
TabIndex = 0
Top = 0
Width = 855
End
Begin VB.CommandButton CmdAddRecord
Caption = "添加"
Height = 495
Left = 7560
TabIndex = 4
Top = 0
Width = 855
End
Begin TabDlg.SSTab SSTab1
Height = 8535
Left = 0
TabIndex = 5
Top = 0
Width = 11895
_ExtentX = 20981
_ExtentY = 15055
_Version = 393216
Tabs = 7
Tab = 1
TabsPerRow = 7
TabHeight = 1058
TabMaxWidth = 1764
TabCaption(0) = "基本情况"
TabPicture(0) = "FrmPerson_Edit.frx":0000
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "CboDept"
Tab(0).Control(1)= "CboDuty"
Tab(0).Control(2)= "Picture1(1)"
Tab(0).Control(3)= "TxtPassWord"
Tab(0).Control(4)= "TxtPerson_Name"
Tab(0).Control(5)= "TxtPerson_No"
Tab(0).Control(6)= "Label4"
Tab(0).Control(7)= "Label3"
Tab(0).Control(8)= "Label2"
Tab(0).Control(9)= "Label24"
Tab(0).Control(10)= "Label17"
Tab(0).Control(11)= "Label15"
Tab(0).Control(12)= "Label7"
Tab(0).Control(13)= "Shape1"
Tab(0).Control(14)= "Shape2"
Tab(0).ControlCount= 15
TabCaption(1) = "单证录入"
TabPicture(1) = "FrmPerson_Edit.frx":001C
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "Shape5"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Label6"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Label8"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Picture1(2)"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "Frame1"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).ControlCount= 5
TabCaption(2) = "单证查询"
TabPicture(2) = "FrmPerson_Edit.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Shape6"
Tab(2).Control(1)= "Label9"
Tab(2).Control(2)= "Label10"
Tab(2).Control(3)= "Shape7"
Tab(2).Control(4)= "ChkCustomIn_Srch"
Tab(2).Control(5)= "ChkProcessRecord_Srch"
Tab(2).Control(6)= "ChkProductIn_Srch"
Tab(2).Control(7)= "ChkRaw_Srch"
Tab(2).Control(8)= "ChkDrugIn_Srch"
Tab(2).Control(9)= "ChkProductTesting_Srch"
Tab(2).Control(10)= "ChkProcessTesting_Srch"
Tab(2).Control(11)= "ChkRawTesting_Srch"
Tab(2).Control(12)= "ChkOriginalTesting_Srch"
Tab(2).Control(13)= "ChkProductSample_Srch"
Tab(2).Control(14)= "ChkProcessSample_Srch"
Tab(2).Control(15)= "ChkRawSample_Srch"
Tab(2).Control(16)= "ChkOriginalSample_Srch"
Tab(2).Control(17)= "ChkBuy_Srch"
Tab(2).Control(18)= "ChkContract_Srch"
Tab(2).Control(19)= "ChkProcessPlan_Srch"
Tab(2).Control(20)= "ChkExportPlan_Srch"
Tab(2).Control(21)= "ChkCOExportPlan_Srch"
Tab(2).Control(22)= "ChkCarton_Srch"
Tab(2).Control(23)= "ChkDecalar2_Srch"
Tab(2).Control(24)= "ChkGasResult_Srch"
Tab(2).Control(25)= "ChkDecalar1_Srch"
Tab(2).Control(26)= "ChkDecalar4_Srch"
Tab(2).Control(27)= "ChkDecalar3_Srch"
Tab(2).Control(28)= "ChkDecalar5_Srch"
Tab(2).Control(29)= "Picture1(3)"
Tab(2).Control(30)= "ChkProduct_Licence_Srch"
Tab(2).Control(31)= "ChkSliceProcess_Plan_Srch"
Tab(2).Control(32)= "ChkDrugIn_Plan_Srch"
Tab(2).Control(33)= "ChkReturnGoods_Srch"
Tab(2).Control(34)= "ChkPayment_Apply_Srch"
Tab(2).Control(35)= "ChkQuesDirecter_Srch"
Tab(2).Control(36)= "ChkQualityConfirm_Srch"
Tab(2).Control(37)= "ChkSliceProcessRecord_Srch"
Tab(2).ControlCount= 38
TabCaption(3) = "审 核"
TabPicture(3) = "FrmPerson_Edit.frx":0054
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Shape8"
Tab(3).Control(1)= "Label11"
Tab(3).Control(2)= "Label12"
Tab(3).Control(3)= "Shape9"
Tab(3).Control(4)= "ChkCustomIn_Chk"
Tab(3).Control(5)= "ChkProcessRecord_Chk"
Tab(3).Control(6)= "ChkProductIn_Chk"
Tab(3).Control(7)= "ChkRawIn_Chk"
Tab(3).Control(8)= "ChkDrugIn_Chk"
Tab(3).Control(9)= "ChkProductTesting_Chk"
Tab(3).Control(10)= "ChkProcessTesting_Chk"
Tab(3).Control(11)= "ChkRawTesting_Chk"
Tab(3).Control(12)= "ChkOriginalTesting_Chk"
Tab(3).Control(13)= "ChkProductSample_Chk"
Tab(3).Control(14)= "ChkProcessSample_Chk"
Tab(3).Control(15)= "ChkRawSample_Chk"
Tab(3).Control(16)= "ChkOriginalSample_Chk"
Tab(3).Control(17)= "ChkBuy_Chk"
Tab(3).Control(18)= "ChkContract_Chk"
Tab(3).Control(19)= "ChkProcessPlan_Chk"
Tab(3).Control(20)= "ChkExportPlan_Chk"
Tab(3).Control(21)= "ChkCOExportPlan_Chk"
Tab(3).Control(22)= "ChkCarton_Chk"
Tab(3).Control(23)= "ChkPayment_Apply_Chk"
Tab(3).Control(24)= "ChkGasResult_Chk"
Tab(3).Control(25)= "Picture1(4)"
Tab(3).Control(26)= "ChkSliceProcessRecord_Chk"
Tab(3).Control(27)= "ChkProduct_Licence_Chk"
Tab(3).ControlCount= 28
TabCaption(4) = "统计分析"
TabPicture(4) = "FrmPerson_Edit.frx":0070
Tab(4).ControlEnabled= 0 'False
Tab(4).Control(0)= "Shape10"
Tab(4).Control(1)= "Label13"
Tab(4).Control(2)= "Label14"
Tab(4).Control(3)= "Shape11"
Tab(4).Control(4)= "Picture1(5)"
Tab(4).Control(5)= "ChkExport_Sheet_Make"
Tab(4).Control(6)= "ChkAppRaw_Ware_Acc"
Tab(4).Control(7)= "ChkFlow_Custom_Product"
Tab(4).Control(8)= "ChkFlow_Raw"
Tab(4).Control(9)= "Chkmnu_process_flow"
Tab(4).Control(10)= "ChkPlace_check"
Tab(4).Control(11)= "Chkmnu_processCheck"
Tab(4).Control(12)= "ChkAppCustom_Ware_Acc"
Tab(4).Control(13)= "ChkAppProduct_Ware_Acc"
Tab(4).Control(14)= "ChkSliceProcess_Check"
Tab(4).ControlCount= 15
TabCaption(5) = "辅助工具"
TabPicture(5) = "FrmPerson_Edit.frx":008C
Tab(5).ControlEnabled= 0 'False
Tab(5).Control(0)= "Shape3"
Tab(5).Control(1)= "Label1"
Tab(5).Control(2)= "Label5"
Tab(5).Control(3)= "Shape12"
Tab(5).Control(4)= "Picture1(0)"
Tab(5).Control(5)= "ChkSetSrchCarton_Input"
Tab(5).Control(6)= "ChkSrchPropose_Edit"
Tab(5).Control(7)= "ChkSetSrchPropose_Edit"
Tab(5).Control(8)= "ChkStandard_Srch"
Tab(5).Control(9)= "ChkSetSrchCheck_Edit"
Tab(5).Control(10)= "ChkSetSrchClient_Edit"
Tab(5).Control(11)= "ChkSetSrchDrugName"
Tab(5).Control(12)= "ChkSetSrchCheck_Opinion"
Tab(5).Control(13)= "ChkSend_EMail"
Tab(5).Control(14)= "ChkReceive_EMail"
Tab(5).ControlCount= 15
TabCaption(6) = "系统维护"
TabPicture(6) = "FrmPerson_Edit.frx":00A8
Tab(6).ControlEnabled= 0 'False
Tab(6).Control(0)= "Shape4"
Tab(6).Control(1)= "Label16"
Tab(6).Control(2)= "Label18"
Tab(6).Control(3)= "Shape13"
Tab(6).Control(4)= "ChkSetCarton_Input"
Tab(6).Control(5)= "ChkPropose_Edit"
Tab(6).Control(6)= "ChkSetCommon"
Tab(6).Control(7)= "ChkStandard_Edit"
Tab(6).Control(8)= "ChkCheck_Edit"
Tab(6).Control(9)= "ChkClient_Edit"
Tab(6).Control(10)= "ChkMnuSetDrugName"
Tab(6).Control(11)= "ChkCheck_Opinion"
Tab(6).Control(12)= "ChkPerson_Edit"
Tab(6).Control(13)= "Picture1(6)"
Tab(6).ControlCount= 14
Begin VB.Frame Frame1
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 5595
Left = 1080
TabIndex = 122
Top = 2640
Width = 9615
Begin VB.CheckBox ChkContract_Input
BackColor = &H00E0E0E0&
Caption = "销售合同录入"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 660
TabIndex = 162
Top = 390
Width = 1935
End
Begin VB.CheckBox ChkBuy_Input
BackColor = &H00E0E0E0&
Caption = "采购合同录入"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 660
TabIndex = 161
Top = 870
Width = 1935
End
Begin VB.CheckBox ChkOriginalSample_Input
BackColor = &H00E0E0E0&
Caption = "产地样品试验委托"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 660
TabIndex = 160
Top = 1350
Width = 1935
End
Begin VB.CheckBox ChkRawSample_Input
BackColor = &H00E0E0E0&
Caption = "原料样品试验委托"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 660
TabIndex = 159
Top = 1830
Width = 1935
End
Begin VB.CheckBox ChkProcessSample_Input
BackColor = &H00E0E0E0&
Caption = "加工样品试验委托"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 660
TabIndex = 158
Top = 2310
Width = 1935
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -