📄 gzfkcxunit.dfm
字号:
object gzfkcxForm: TgzfkcxForm
Left = 7
Top = 88
Width = 788
Height = 474
Caption = '挂 帐 付 款 明 细'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 780
Height = 80
Align = alTop
BevelInner = bvLowered
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
object qkze: TLabel
Left = 240
Top = 180
Width = 6
Height = 12
end
object Label2: TLabel
Left = 506
Top = 54
Width = 12
Height = 12
Caption = '到'
end
object Label1: TLabel
Left = 636
Top = 55
Width = 24
Height = 12
Caption = '类型'
end
object zh: TEdit
Left = 46
Top = 53
Width = 53
Height = 20
Enabled = False
TabOrder = 0
Text = 'zh'
OnChange = TabControl1Change
end
object dw: TEdit
Left = 149
Top = 53
Width = 171
Height = 20
Enabled = False
TabOrder = 1
Text = 'Edit1'
OnChange = TabControl1Change
OnKeyPress = gzzeKeyPress
end
object fksjc: TDateTimePicker
Left = 396
Top = 51
Width = 107
Height = 20
CalAlignment = dtaLeft
Date = 37387.9633711574
Time = 37387.9633711574
DateFormat = dfLong
DateMode = dmComboBox
Enabled = False
Kind = dtkDate
ParseInput = False
TabOrder = 2
OnChange = TabControl1Change
end
object Panel2: TPanel
Left = 2
Top = 2
Width = 776
Height = 44
Align = alTop
BevelInner = bvLowered
Caption = '记 帐 明 细'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
end
object fksjd: TDateTimePicker
Left = 523
Top = 51
Width = 107
Height = 20
CalAlignment = dtaLeft
Date = 37387.9633711574
Time = 37387.9633711574
DateFormat = dfLong
DateMode = dmComboBox
Enabled = False
Kind = dtkDate
ParseInput = False
TabOrder = 4
OnChange = TabControl1Change
end
object isdw: TCheckBox
Left = 104
Top = 54
Width = 42
Height = 17
Caption = '单位'
TabOrder = 5
OnClick = iszhClick
end
object iszh: TCheckBox
Left = 4
Top = 54
Width = 41
Height = 17
Caption = '帐号'
TabOrder = 6
OnClick = iszhClick
end
object isrq: TCheckBox
Left = 327
Top = 53
Width = 69
Height = 17
Caption = '记帐时间'
TabOrder = 7
OnClick = iszhClick
end
object lx: TComboBox
Left = 668
Top = 52
Width = 107
Height = 20
ItemHeight = 12
TabOrder = 8
Text = 'lx'
OnChange = TabControl1Change
end
end
object Panel3: TPanel
Left = 0
Top = 352
Width = 780
Height = 95
Align = alBottom
BevelInner = bvLowered
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
object Button1: TButton
Left = 670
Top = 56
Width = 65
Height = 25
Caption = '退出'
TabOrder = 0
OnClick = Button1Click
end
object GroupBox1: TGroupBox
Left = 10
Top = 3
Width = 169
Height = 89
Caption = '所列帐户'
TabOrder = 1
object Label5: TLabel
Left = 7
Top = 22
Width = 48
Height = 18
Caption = '记帐总额'
end
object Label7: TLabel
Left = 6
Top = 45
Width = 48
Height = 18
Caption = '付款总额'
end
object Label8: TLabel
Left = 12
Top = 67
Width = 36
Height = 18
Caption = '减免额'
end
object Label13: TLabel
Left = 144
Top = 24
Width = 12
Height = 18
Caption = '元'
end
object Label14: TLabel
Left = 144
Top = 46
Width = 12
Height = 18
Caption = '元'
end
object Label15: TLabel
Left = 144
Top = 68
Width = 12
Height = 18
Caption = '元'
end
object gzze: TEdit
Left = 61
Top = 18
Width = 76
Height = 22
TabOrder = 0
Text = 'gzze'
OnKeyPress = gzzeKeyPress
end
object fkze: TEdit
Left = 61
Top = 41
Width = 76
Height = 22
TabOrder = 1
Text = 'Edit1'
OnKeyPress = gzzeKeyPress
end
object jme: TEdit
Left = 60
Top = 63
Width = 76
Height = 22
TabOrder = 2
Text = 'Edit1'
OnKeyPress = gzzeKeyPress
end
end
object GroupBox2: TGroupBox
Left = 182
Top = 3
Width = 175
Height = 89
Caption = '所列帐户'
TabOrder = 2
object Label3: TLabel
Left = 7
Top = 22
Width = 48
Height = 18
Caption = '记帐总额'
end
object Label4: TLabel
Left = 6
Top = 45
Width = 48
Height = 18
Caption = '付款总额'
end
object Label6: TLabel
Left = 12
Top = 67
Width = 36
Height = 18
Caption = '减免额'
end
object Label16: TLabel
Left = 153
Top = 23
Width = 12
Height = 18
Caption = '元'
end
object Label17: TLabel
Left = 153
Top = 45
Width = 12
Height = 18
Caption = '元'
end
object Label18: TLabel
Left = 153
Top = 67
Width = 12
Height = 18
Caption = '元'
end
object gz: TEdit
Left = 61
Top = 18
Width = 82
Height = 26
TabOrder = 0
Text = 'gzze'
OnKeyPress = gzzeKeyPress
end
object fk: TEdit
Left = 61
Top = 41
Width = 82
Height = 26
TabOrder = 1
Text = 'Edit1'
OnKeyPress = gzzeKeyPress
end
object jm1: TEdit
Left = 60
Top = 63
Width = 82
Height = 26
TabOrder = 2
Text = 'Edit1'
OnKeyPress = gzzeKeyPress
end
end
object GroupBox3: TGroupBox
Left = 359
Top = 3
Width = 267
Height = 89
Caption = 'GroupBox3'
Enabled = False
TabOrder = 3
object Label9: TLabel
Left = 126
Top = 69
Width = 36
Height = 18
Caption = '付款人'
end
object Label10: TLabel
Left = 126
Top = 45
Width = 36
Height = 18
Caption = '经手人'
end
object Label11: TLabel
Left = 9
Top = 45
Width = 36
Height = 18
Caption = '付款额'
end
object dfhhh: TLabel
Left = 11
Top = 69
Width = 24
Height = 18
Caption = '减免'
end
object Label12: TLabel
Left = 9
Top = 20
Width = 24
Height = 18
Caption = '单位'
end
object fkr: TEdit
Left = 170
Top = 63
Width = 90
Height = 26
TabOrder = 0
Text = 'fkr'
end
object jsr: TEdit
Left = 170
Top = 40
Width = 90
Height = 26
TabOrder = 1
Text = 'jsr'
end
object fke: TEdit
Left = 50
Top = 40
Width = 67
Height = 26
TabOrder = 2
Text = 'fke'
end
object jm: TEdit
Left = 50
Top = 62
Width = 66
Height = 26
TabOrder = 3
Text = 'fke'
end
object DBEdit1: TDBEdit
Left = 51
Top = 15
Width = 208
Height = 26
DataField = '单位'
DataSource = DataSource1
ReadOnly = True
TabOrder = 4
end
end
object Button2: TButton
Left = 670
Top = 31
Width = 65
Height = 25
Caption = '新增付款'
TabOrder = 4
OnClick = Button2Click
end
end
object TabControl1: TTabControl
Left = 0
Top = 80
Width = 780
Height = 272
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 2
Tabs.Strings = (
'记帐明细'
'付款明细')
TabIndex = 0
OnChange = TabControl1Change
object DBGrid1: TDBGrid
Left = 4
Top = 23
Width = 772
Height = 245
Align = alClient
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
OnTitleClick = DBGrid1TitleClick
end
end
object Query1: TQuery
DatabaseName = 'sanadm'
Left = 152
Top = 200
end
object DataSource1: TDataSource
DataSet = Query1
OnDataChange = DataSource1DataChange
Left = 120
Top = 200
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -