📄 jh6.prg
字号:
**************************************************
*-- 类: jh6 (e:\yh\user.vcx)
*-- 父类: form
*-- 基类: form
*
DEFINE CLASS jh6 AS form
Top = 48
Left = 28
Height = 411
Width = 724
DoCreate = .T.
Caption = "系统维护"
Name = "Form1"
ADD OBJECT image1 AS image WITH ;
Picture = "winter.jpg", ;
Height = 345, ;
Left = 242, ;
Top = 18, ;
Width = 445, ;
Name = "Image1"
ADD OBJECT optiongroup1 AS optiongroup WITH ;
ButtonCount = 7, ;
Value = 1, ;
Height = 243, ;
Left = 25, ;
Top = 60, ;
Width = 187, ;
Name = "Optiongroup1", ;
Option1.FontBold = .T., ;
Option1.FontName = "楷体_GB2312", ;
Option1.FontSize = 14, ;
Option1.Caption = "设置供货单位", ;
Option1.Value = 1, ;
Option1.Height = 24, ;
Option1.Left = 15, ;
Option1.Top = 31, ;
Option1.Width = 154, ;
Option1.AutoSize = .T., ;
Option1.ForeColor = RGB(255,0,128), ;
Option1.Name = "Option1", ;
Option2.FontBold = .T., ;
Option2.FontName = "楷体_GB2312", ;
Option2.FontSize = 14, ;
Option2.Caption = "设置商品品名", ;
Option2.Height = 24, ;
Option2.Left = 13, ;
Option2.Top = 61, ;
Option2.Width = 154, ;
Option2.AutoSize = .T., ;
Option2.ForeColor = RGB(255,0,128), ;
Option2.Name = "Option2", ;
Option3.FontBold = .T., ;
Option3.FontName = "楷体_GB2312", ;
Option3.FontSize = 14, ;
Option3.Caption = "数据初始化", ;
Option3.Height = 24, ;
Option3.Left = 13, ;
Option3.Top = 117, ;
Option3.Width = 133, ;
Option3.AutoSize = .T., ;
Option3.ForeColor = RGB(255,0,128), ;
Option3.Name = "Option3", ;
Option4.FontBold = .T., ;
Option4.FontName = "楷体_GB2312", ;
Option4.FontSize = 14, ;
Option4.Caption = "修改系统密码", ;
Option4.Height = 24, ;
Option4.Left = 13, ;
Option4.Top = 146, ;
Option4.Width = 154, ;
Option4.AutoSize = .T., ;
Option4.ForeColor = RGB(255,0,128), ;
Option4.Name = "Option4", ;
Option5.FontBold = .T., ;
Option5.FontName = "楷体_GB2312", ;
Option5.FontSize = 14, ;
Option5.Caption = "进销存数据转出", ;
Option5.Height = 24, ;
Option5.Left = 13, ;
Option5.Top = 174, ;
Option5.Width = 175, ;
Option5.AutoSize = .T., ;
Option5.ForeColor = RGB(255,0,128), ;
Option5.Name = "Option5", ;
Option6.FontBold = .T., ;
Option6.FontName = "楷体_GB2312", ;
Option6.FontSize = 14, ;
Option6.Caption = "进销存数据转入", ;
Option6.Height = 24, ;
Option6.Left = 13, ;
Option6.Top = 206, ;
Option6.Width = 175, ;
Option6.AutoSize = .T., ;
Option6.ForeColor = RGB(255,0,128), ;
Option6.Name = "Option6", ;
Option7.FontBold = .T., ;
Option7.FontName = "楷体_GB2312", ;
Option7.FontSize = 14, ;
Option7.Caption = "设置经办人", ;
Option7.Height = 24, ;
Option7.Left = 14, ;
Option7.Top = 88, ;
Option7.Width = 133, ;
Option7.AutoSize = .F., ;
Option7.ForeColor = RGB(255,0,128), ;
Option7.Name = "Option7"
ADD OBJECT label1 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontItalic = .T., ;
FontName = "楷体_GB2312", ;
FontSize = 18, ;
FontExtend = .T., ;
Caption = " 请选择 ", ;
Height = 29, ;
Left = 60, ;
Top = 49, ;
Width = 104, ;
ForeColor = RGB(255,0,0), ;
Name = "Label1"
ADD OBJECT grid1 AS grid WITH ;
ColumnCount = 1, ;
DeleteMark = .F., ;
Height = 219, ;
Left = 331, ;
Panel = 1, ;
RecordSource = "dwb", ;
RecordSourceType = 1, ;
ScrollBars = 2, ;
Top = 63, ;
Visible = .T., ;
Width = 230, ;
Name = "Grid1", ;
Column1.ControlSource = "dwb.dw", ;
Column1.Width = 201, ;
Column1.Visible = .T., ;
Column1.Name = "Column1"
ADD OBJECT jh6.grid1.column1.header1 AS header WITH ;
FontBold = .T., ;
FontSize = 14, ;
Alignment = 2, ;
Caption = "单位名称", ;
Name = "Header1"
ADD OBJECT jh6.grid1.column1.text1 AS textbox WITH ;
BorderStyle = 0, ;
ControlSource = "zw.zw", ;
Margin = 0, ;
Visible = .T., ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT commandgroup1 AS commandgroup WITH ;
ButtonCount = 2, ;
Value = 1, ;
Height = 53, ;
Left = 366, ;
Top = 293, ;
Width = 165, ;
Visible = .T., ;
Name = "Commandgroup1", ;
Command1.Top = 12, ;
Command1.Left = 13, ;
Command1.Height = 30, ;
Command1.Width = 60, ;
Command1.FontBold = .T., ;
Command1.FontSize = 14, ;
Command1.Caption = "增加", ;
Command1.ForeColor = RGB(255,0,128), ;
Command1.Name = "Command1", ;
Command2.Top = 12, ;
Command2.Left = 89, ;
Command2.Height = 30, ;
Command2.Width = 60, ;
Command2.FontBold = .T., ;
Command2.FontSize = 14, ;
Command2.Caption = "删除", ;
Command2.ForeColor = RGB(255,0,128), ;
Command2.Name = "Command2"
ADD OBJECT grid2 AS grid WITH ;
ColumnCount = 1, ;
DeleteMark = .F., ;
Height = 217, ;
Left = 348, ;
Panel = 1, ;
RecordSource = "mcb", ;
RecordSourceType = 1, ;
ScrollBars = 2, ;
Top = 64, ;
Visible = .T., ;
Width = 194, ;
Name = "Grid2", ;
Column1.ControlSource = "mcb.mc", ;
Column1.Width = 166, ;
Column1.Visible = .T., ;
Column1.Name = "Column1"
ADD OBJECT jh6.grid2.column1.header1 AS header WITH ;
FontBold = .T., ;
FontSize = 14, ;
Alignment = 2, ;
Caption = "商品品名", ;
Name = "Header1"
ADD OBJECT jh6.grid2.column1.text1 AS textbox WITH ;
BorderStyle = 0, ;
ControlSource = "zw.zw", ;
Margin = 0, ;
Visible = .T., ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT commandgroup2 AS commandgroup WITH ;
ButtonCount = 2, ;
Value = 1, ;
Height = 51, ;
Left = 362, ;
Top = 294, ;
Width = 169, ;
Visible = .T., ;
Name = "Commandgroup2", ;
Command1.Top = 12, ;
Command1.Left = 13, ;
Command1.Height = 30, ;
Command1.Width = 60, ;
Command1.FontBold = .T., ;
Command1.FontSize = 14, ;
Command1.Caption = "增加", ;
Command1.ForeColor = RGB(255,0,128), ;
Command1.Name = "Command1", ;
Command2.Top = 12, ;
Command2.Left = 91, ;
Command2.Height = 30, ;
Command2.Width = 60, ;
Command2.FontBold = .T., ;
Command2.FontSize = 14, ;
Command2.Caption = "删除", ;
Command2.ForeColor = RGB(255,0,128), ;
Command2.Name = "Command2"
ADD OBJECT container1 AS container WITH ;
Top = 89, ;
Left = 312, ;
Width = 313, ;
Height = 217, ;
SpecialEffect = 1, ;
Name = "Container1"
ADD OBJECT jh6.container1.label2 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 16, ;
Caption = "旧密码", ;
Height = 26, ;
Left = 52, ;
Top = 38, ;
Width = 69, ;
ForeColor = RGB(0,128,255), ;
Name = "Label2"
ADD OBJECT jh6.container1.label3 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 16, ;
Caption = "新密码", ;
Height = 26, ;
Left = 52, ;
Top = 90, ;
Width = 69, ;
ForeColor = RGB(0,128,255), ;
Name = "Label3"
ADD OBJECT jh6.container1.text1 AS textbox WITH ;
FontSize = 11, ;
Height = 30, ;
Left = 131, ;
Top = 32, ;
Width = 120, ;
Name = "Text1"
ADD OBJECT jh6.container1.text2 AS textbox WITH ;
FontSize = 11, ;
Height = 30, ;
Left = 132, ;
Top = 84, ;
Width = 120, ;
Name = "Text2"
ADD OBJECT jh6.container1.command1 AS commandbutton WITH ;
Top = 152, ;
Left = 63, ;
Height = 37, ;
Width = 73, ;
FontBold = .T., ;
FontSize = 16, ;
Caption = "确 认", ;
ForeColor = RGB(255,0,0), ;
Name = "Command1"
ADD OBJECT jh6.container1.command2 AS commandbutton WITH ;
Top = 152, ;
Left = 171, ;
Height = 37, ;
Width = 73, ;
FontBold = .T., ;
FontSize = 16, ;
Caption = "取 消", ;
ForeColor = RGB(255,0,0), ;
Name = "Command2"
ADD OBJECT grid3 AS grid WITH ;
ColumnCount = 1, ;
DeleteMark = .F., ;
Height = 218, ;
Left = 384, ;
Panel = 1, ;
RecordSource = "jbrb", ;
RecordSourceType = 1, ;
ScrollBars = 2, ;
Top = 65, ;
Visible = .T., ;
Width = 124, ;
Name = "Grid3", ;
Column1.ControlSource = "jbrb.jbr", ;
Column1.Width = 104, ;
Column1.Visible = .T., ;
Column1.Name = "Column1"
ADD OBJECT jh6.grid3.column1.header1 AS header WITH ;
FontBold = .T., ;
FontSize = 14, ;
Alignment = 2, ;
Caption = "经办人", ;
Name = "Header1"
ADD OBJECT jh6.grid3.column1.text1 AS textbox WITH ;
BorderStyle = 0, ;
ControlSource = "zw.zw", ;
Margin = 0, ;
Visible = .T., ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT commandgroup3 AS commandgroup WITH ;
ButtonCount = 2, ;
Value = 1, ;
Height = 54, ;
Left = 363, ;
Top = 297, ;
Width = 167, ;
Visible = .T., ;
Name = "Commandgroup3", ;
Command1.Top = 12, ;
Command1.Left = 13, ;
Command1.Height = 30, ;
Command1.Width = 60, ;
Command1.FontBold = .T., ;
Command1.FontSize = 14, ;
Command1.Caption = "增加", ;
Command1.ForeColor = RGB(255,0,128), ;
Command1.Name = "Command1", ;
Command2.Top = 12, ;
Command2.Left = 92, ;
Command2.Height = 30, ;
Command2.Width = 60, ;
Command2.FontBold = .T., ;
Command2.FontSize = 14, ;
Command2.Caption = "删除", ;
Command2.ForeColor = RGB(255,0,128), ;
Command2.Name = "Command2"
ADD OBJECT command1 AS commandbutton WITH ;
Top = 372, ;
Left = 624, ;
Height = 39, ;
Width = 73, ;
FontBold = .T., ;
FontName = "楷体_GB2312", ;
FontSize = 16, ;
Caption = "返回", ;
ForeColor = RGB(255,0,0), ;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -