curtis
15小時前 713024ccb5056e76bcfc9389664981da68a5139f
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
object InputMaskForm: TInputMaskForm
  Left = 0
  Top = 0
  BorderIcons = [biSystemMenu]
  Caption = #36664#20837#20445#21934#34399#30908
  ClientHeight = 107
  ClientWidth = 289
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poMainFormCenter
  PixelsPerInch = 96
  TextHeight = 13
  object PolicyNoLb: TLabel
    Left = 24
    Top = 12
    Width = 64
    Height = 16
    Caption = #20445#21934#34399#30908
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #26032#32048#26126#39636
    Font.Style = []
    ParentFont = False
  end
  object Label1: TLabel
    Left = 154
    Top = 47
    Width = 16
    Height = 16
    Caption = #65293
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #26032#32048#26126#39636
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 220
    Top = 47
    Width = 16
    Height = 16
    Caption = #65293
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #26032#32048#26126#39636
    Font.Style = []
    ParentFont = False
  end
  object MaskEdit1: TMaskEdit
    Left = 22
    Top = 43
    Width = 129
    Height = 29
    AutoSelect = False
    CharCase = ecUpperCase
    EditMask = 'aaaaaaaaaa;0; '
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = #26032#32048#26126#39636
    Font.Style = []
    MaxLength = 10
    ParentFont = False
    TabOrder = 0
    OnKeyUp = MaskEdit1KeyUp
  end
  object OkBt: TButton
    Left = 104
    Top = 78
    Width = 75
    Height = 25
    Caption = 'OK'
    TabOrder = 3
    OnClick = OkBtClick
  end
  object CancelBt: TButton
    Left = 185
    Top = 78
    Width = 75
    Height = 25
    Caption = 'Cancel'
    TabOrder = 4
    OnClick = CancelBtClick
  end
  object MaskEdit2: TMaskEdit
    Left = 178
    Top = 43
    Width = 34
    Height = 29
    AutoSelect = False
    CharCase = ecUpperCase
    EditMask = '99;0; '
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = #26032#32048#26126#39636
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    TabOrder = 1
    OnKeyUp = MaskEdit2KeyUp
  end
  object MaskEdit3: TMaskEdit
    Left = 244
    Top = 43
    Width = 34
    Height = 29
    AutoSelect = False
    CharCase = ecUpperCase
    EditMask = '9;0; '
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = #26032#32048#26126#39636
    Font.Style = []
    MaxLength = 1
    ParentFont = False
    TabOrder = 2
    OnKeyUp = MaskEdit3KeyUp
  end
end