📄 main.prg
字号:
ADD OBJECT main.pageframe1.page3.grid2.column4.header1 AS header WITH ;
FontBold = .T., ;
FontSize = 11, ;
Alignment = 2, ;
Caption = "级别", ;
Name = "Header1"
ADD OBJECT main.pageframe1.page3.grid2.column4.text1 AS textbox WITH ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT main.pageframe1.page3.grid2.column4.combo1 AS combobox WITH ;
FontBold = .T., ;
FontSize = 11, ;
RowSourceType = 1, ;
RowSource = "系统员,操作员", ;
Height = 10, ;
Left = 25, ;
Top = 23, ;
Width = 10, ;
Name = "Combo1"
ADD OBJECT main.pageframe1.page3.commandgroup1 AS commandgroup WITH ;
ButtonCount = 2, ;
Value = 1, ;
Height = 43, ;
Left = 364, ;
Top = 288, ;
Width = 146, ;
Name = "Commandgroup1", ;
Command1.Top = 5, ;
Command1.Left = 5, ;
Command1.Height = 34, ;
Command1.Width = 68, ;
Command1.FontBold = .T., ;
Command1.FontSize = 14, ;
Command1.Caption = "添加", ;
Command1.ForeColor = RGB(255,0,0), ;
Command1.Name = "Command1", ;
Command2.Top = 5, ;
Command2.Left = 74, ;
Command2.Height = 34, ;
Command2.Width = 68, ;
Command2.FontBold = .T., ;
Command2.FontSize = 14, ;
Command2.Caption = "删除", ;
Command2.ForeColor = RGB(255,0,0), ;
Command2.Name = "Command2"
ADD OBJECT main.pageframe1.page3.grid1 AS grid WITH ;
ColumnCount = 4, ;
FontBold = .T., ;
FontSize = 11, ;
DeleteMark = .F., ;
Height = 222, ;
Left = 227, ;
Panel = 1, ;
RecordSource = "sfbz", ;
RowHeight = 20, ;
ScrollBars = 2, ;
Top = 50, ;
Width = 420, ;
Name = "Grid1", ;
Column1.FontBold = .T., ;
Column1.FontSize = 11, ;
Column1.ControlSource = "sfbz.收费编号", ;
Column1.Width = 65, ;
Column1.Name = "Column1", ;
Column2.FontBold = .T., ;
Column2.FontSize = 11, ;
Column2.ControlSource = "sfbz.车型1", ;
Column2.Width = 140, ;
Column2.Name = "Column2", ;
Column3.FontBold = .T., ;
Column3.FontSize = 11, ;
Column3.ControlSource = "sfbz.车型2", ;
Column3.Width = 125, ;
Column3.Name = "Column3", ;
Column4.FontBold = .T., ;
Column4.FontSize = 11, ;
Column4.ControlSource = "sfbz.收费", ;
Column4.Width = 55, ;
Column4.Name = "Column4"
ADD OBJECT main.pageframe1.page3.grid1.column1.header1 AS header WITH ;
FontBold = .T., ;
FontSize = 11, ;
Alignment = 2, ;
Caption = "收费编号", ;
Name = "Header1"
ADD OBJECT main.pageframe1.page3.grid1.column1.text1 AS textbox WITH ;
FontBold = .T., ;
FontSize = 11, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT main.pageframe1.page3.grid1.column2.header1 AS header WITH ;
FontBold = .T., ;
FontSize = 11, ;
Alignment = 2, ;
Caption = "客车车型", ;
Name = "Header1"
ADD OBJECT main.pageframe1.page3.grid1.column2.text1 AS textbox WITH ;
FontBold = .T., ;
FontSize = 11, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT main.pageframe1.page3.grid1.column3.header1 AS header WITH ;
FontBold = .T., ;
FontSize = 11, ;
Alignment = 2, ;
Caption = "货车车型", ;
Name = "Header1"
ADD OBJECT main.pageframe1.page3.grid1.column3.text1 AS textbox WITH ;
FontBold = .T., ;
FontSize = 11, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT main.pageframe1.page3.grid1.column4.header1 AS header WITH ;
FontBold = .T., ;
FontSize = 11, ;
Alignment = 2, ;
Caption = "收费", ;
Name = "Header1"
ADD OBJECT main.pageframe1.page3.grid1.column4.text1 AS textbox WITH ;
FontSize = 11, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT main.pageframe1.page3.commandgroup2 AS commandgroup WITH ;
ButtonCount = 2, ;
Value = 1, ;
Height = 43, ;
Left = 365, ;
Top = 289, ;
Width = 146, ;
Name = "Commandgroup2", ;
Command1.Top = 5, ;
Command1.Left = 5, ;
Command1.Height = 34, ;
Command1.Width = 68, ;
Command1.FontBold = .T., ;
Command1.FontSize = 14, ;
Command1.Caption = "添加", ;
Command1.ForeColor = RGB(255,0,0), ;
Command1.Name = "Command1", ;
Command2.Top = 5, ;
Command2.Left = 74, ;
Command2.Height = 34, ;
Command2.Width = 68, ;
Command2.FontBold = .T., ;
Command2.FontSize = 14, ;
Command2.Caption = "删除", ;
Command2.ForeColor = RGB(255,0,0), ;
Command2.Name = "Command2"
ADD OBJECT main.pageframe1.page4.command2 AS commandbutton WITH ;
Top = 107, ;
Left = 29, ;
Height = 37, ;
Width = 136, ;
FontBold = .T., ;
FontName = "楷体_GB2312", ;
FontSize = 14, ;
Caption = "数据转入", ;
ForeColor = RGB(255,0,0), ;
Name = "Command2"
ADD OBJECT main.pageframe1.page4.command3 AS commandbutton WITH ;
Top = 165, ;
Left = 29, ;
Height = 37, ;
Width = 136, ;
FontBold = .T., ;
FontName = "楷体_GB2312", ;
FontSize = 14, ;
Caption = "数据逻辑删除", ;
ForeColor = RGB(255,0,0), ;
Name = "Command3"
ADD OBJECT main.pageframe1.page4.command1 AS commandbutton WITH ;
Top = 46, ;
Left = 29, ;
Height = 37, ;
Width = 136, ;
FontBold = .T., ;
FontName = "楷体_GB2312", ;
FontSize = 14, ;
Caption = "数据转出", ;
ForeColor = RGB(255,0,0), ;
Name = "Command1"
ADD OBJECT main.pageframe1.page4.image1 AS image WITH ;
Picture = "summer.jpg", ;
Height = 312, ;
Left = 185, ;
Top = 23, ;
Width = 510, ;
Name = "Image1"
ADD OBJECT main.pageframe1.page4.container1 AS container WITH ;
Top = 72, ;
Left = 240, ;
Width = 337, ;
Height = 181, ;
SpecialEffect = 0, ;
Name = "Container1"
ADD OBJECT main.pageframe1.page4.container1.label1 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 12, ;
Caption = "转出数据的日期", ;
Height = 20, ;
Left = 42, ;
Top = 51, ;
Width = 122, ;
ForeColor = RGB(0,0,255), ;
Name = "Label1"
ADD OBJECT main.pageframe1.page4.container1.text1 AS textbox WITH ;
FontSize = 11, ;
Height = 26, ;
Left = 169, ;
Top = 46, ;
Width = 108, ;
Name = "Text1"
ADD OBJECT main.pageframe1.page4.container1.command1 AS commandbutton WITH ;
Top = 120, ;
Left = 60, ;
Height = 37, ;
Width = 73, ;
FontBold = .T., ;
FontSize = 14, ;
Caption = "确定", ;
ForeColor = RGB(255,0,0), ;
Name = "Command1"
ADD OBJECT main.pageframe1.page4.container1.command2 AS commandbutton WITH ;
Top = 118, ;
Left = 205, ;
Height = 37, ;
Width = 73, ;
FontBold = .T., ;
FontSize = 14, ;
Caption = "取消", ;
ForeColor = RGB(255,0,0), ;
Name = "Command2"
ADD OBJECT main.pageframe1.page4.container2 AS container WITH ;
Top = 74, ;
Left = 240, ;
Width = 337, ;
Height = 181, ;
SpecialEffect = 0, ;
Name = "Container2"
ADD OBJECT main.pageframe1.page4.container2.label1 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 12, ;
Caption = "转入数据的日期", ;
Height = 20, ;
Left = 42, ;
Top = 51, ;
Width = 122, ;
ForeColor = RGB(0,0,255), ;
Name = "Label1"
ADD OBJECT main.pageframe1.page4.container2.text1 AS textbox WITH ;
FontSize = 11, ;
Height = 26, ;
Left = 169, ;
Top = 46, ;
Width = 108, ;
Name = "Text1"
ADD OBJECT main.pageframe1.page4.container2.command1 AS commandbutton WITH ;
Top = 120, ;
Left = 60, ;
Height = 37, ;
Width = 73, ;
FontBold = .T., ;
FontSize = 14, ;
Caption = "确定", ;
ForeColor = RGB(255,0,0), ;
Name = "Command1"
ADD OBJECT main.pageframe1.page4.container2.command2 AS commandbutton WITH ;
Top = 118, ;
Left = 205, ;
Height = 37, ;
Width = 73, ;
FontBold = .T., ;
FontSize = 14, ;
Caption = "取消", ;
ForeColor = RGB(255,0,0), ;
Name = "Command2"
ADD OBJECT main.pageframe1.page4.container3 AS container WITH ;
Top = 73, ;
Left = 226, ;
Width = 350, ;
Height = 236, ;
SpecialEffect = 0, ;
Name = "Container3"
ADD OBJECT main.pageframe1.page4.container3.label1 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 12, ;
Caption = "指定日期/年月", ;
Height = 20, ;
Left = 42, ;
Top = 114, ;
Width = 114, ;
ForeColor = RGB(0,0,255), ;
Name = "Label1"
ADD OBJECT main.pageframe1.page4.container3.text1 AS textbox WITH ;
FontSize = 11, ;
Alignment = 3, ;
Value = {}, ;
Enabled = .F., ;
Format = "", ;
Height = 26, ;
InputMask = "", ;
Left = 169, ;
Top = 109, ;
Width = 108, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "Text1"
ADD OBJECT main.pageframe1.page4.container3.command1 AS commandbutton WITH ;
Top = 162, ;
Left = 60, ;
Height = 37, ;
Width = 73, ;
FontBold = .T., ;
FontSize = 14, ;
Caption = "确定", ;
ForeColor = RGB(255,0,0), ;
Name = "Command1"
ADD OBJECT main.pageframe1.page4.container3.command2 AS commandbutton WITH ;
Top = 160, ;
Left = 205, ;
Height = 37, ;
Width = 73, ;
FontBold = .T., ;
FontSize = 14, ;
Caption = "取消", ;
ForeColor = RGB(255,0,0), ;
Name = "Command2"
ADD OBJECT main.pageframe1.page4.container3.optiongroup1 AS optiongroup WITH ;
ButtonCount = 2, ;
Value = 1, ;
Height = 42, ;
Left = 33, ;
Top = 34, ;
Width = 280, ;
Name = "Optiongroup1", ;
Option1.FontBold = .T., ;
Option1.FontSize = 11, ;
Option1.Caption = "删除某日数据", ;
Option1.Value = 1, ;
Option1.Height = 19, ;
Option1.Left = 5, ;
Option1.Top = 10, ;
Option1.Width = 122, ;
Option1.AutoSize = .T., ;
Option1.ForeColor = RGB(255,0,0), ;
Option1.Name = "Option1", ;
Option2.FontBold = .T., ;
Option2.FontSize = 11, ;
Option2.Caption = "删除某月数据", ;
Option2.Height = 19, ;
Option2.Left = 144, ;
Option2.Top = 10, ;
Option2.Width = 122, ;
Option2.AutoSize = .T., ;
Option2.ForeColor = RGB(255,0,0), ;
Option2.Name = "Option2"
ADD OBJECT main.pageframe1.page4.command4 AS commandbutton WITH ;
Top = 220, ;
Left = 33, ;
Height = 37, ;
Width = 136, ;
FontBold = .T., ;
FontName = "楷体_GB2312", ;
FontSize = 14, ;
Caption = "数据逻辑恢复", ;
ForeColor = RGB(255,0,0), ;
Name = "Command4"
ADD OBJECT main.pageframe1.page4.container4 AS container WITH ;
Top = 73, ;
Left = 226, ;
Width = 350, ;
Height = 236, ;
SpecialEffect = 0, ;
Name = "Container4"
ADD OBJECT main.pageframe1.page4.container4.label1 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 12, ;
Caption = "指定日期/年月", ;
Height = 20, ;
Left = 42, ;
Top = 114, ;
Width = 114, ;
ForeColor = RGB(0,0,255), ;
Name = "Label1"
ADD OBJECT main.pageframe1.page4.container4.text1 AS textbox WITH ;
FontSize = 11, ;
Alignment = 3, ;
Value = {}, ;
Enabled = .F., ;
Format = "", ;
Height = 26, ;
InputMask = "", ;
Left = 169, ;
Top = 109, ;
Width = 108, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "Text1"
ADD OBJECT main.pageframe1.page4.container4.command1 AS commandbutton WITH ;
Top = 162, ;
Left = 60, ;
Height = 37, ;
Width = 73, ;
FontBold = .T., ;
FontSize = 14, ;
Caption = "确定", ;
ForeColor = RGB(255,0,0), ;
Name = "Command1"
ADD OBJECT main.pageframe1.page4.container4.command2 AS commandbutton WITH ;
Top = 160, ;
Left = 205, ;
Height = 37, ;
Width = 73, ;
FontBold = .T., ;
FontSize = 14, ;
Caption = "取消", ;
ForeColor = RGB(255,0,0), ;
Name = "Command2"
ADD OBJECT main.pageframe1.page4.container4.optiongroup1 AS optiongroup WITH ;
ButtonCount = 2, ;
Value = 1, ;
Height = 42, ;
Left = 33, ;
Top = 34, ;
Width = 280, ;
Name = "Optiongroup1", ;
Option1.FontBold = .T., ;
Option1.FontSize = 11, ;
Option1.Caption = "删除某日数据", ;
Option1.Value = 1, ;
Option1.Height = 19, ;
Option1.Left = 5, ;
Option1.Top = 10, ;
Option1.Width = 122, ;
Option1.AutoSize = .T., ;
Option1.ForeColor = RGB(255,0,0), ;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -