umain.dfm

一个小程序

          AutoSize = False
          Caption = #32463#33829#26041#24335
        end
        object RzLabel13: TRzLabel
          Left = 144
          Top = 32
          Width = 51
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #26588#32452'('#35838')'
        end
        object RzLabelGz: TRzLabel
          Left = 359
          Top = 32
          Width = 457
          Height = 13
          AutoSize = False
          Caption = #26588#32452#21517#31216
        end
        object RzEditSupid: TRzEdit
          Left = 199
          Top = 3
          Width = 145
          Height = 21
          TabOrder = 1
          OnKeyPress = RzEditSupidKeyPress
        end
        object RzEditWmid: TRzEdit
          Left = 415
          Top = 52
          Width = 121
          Height = 21
          Color = clInfoBk
          ReadOnly = True
          TabOrder = 4
        end
        object RzEditMfid: TRzEdit
          Left = 199
          Top = 28
          Width = 145
          Height = 21
          TabOrder = 2
          OnKeyPress = RzEditMfidKeyPress
        end
        object RzNumericEditJe: TRzNumericEdit
          Left = 415
          Top = 75
          Width = 121
          Height = 21
          TabOrder = 5
          OnKeyPress = RzNumericEditJeKeyPress
          IntegersOnly = False
          DisplayFormat = ',0.00;(,0.00)'
        end
        object RzNumericEditBl: TRzNumericEdit
          Left = 599
          Top = 75
          Width = 121
          Height = 21
          TabOrder = 6
          OnKeyPress = RzNumericEditBlKeyPress
          IntegersOnly = False
          Max = 1.000000000000000000
          DisplayFormat = ',0.00;(,0.00)'
        end
        object RzRadioButtonJe: TRzRadioButton
          Left = 199
          Top = 78
          Width = 55
          Height = 15
          Caption = #25353#37329#39069
          TabOrder = 7
          OnClick = RzRadioButtonJeClick
        end
        object RzRadioButtonBl: TRzRadioButton
          Left = 289
          Top = 78
          Width = 55
          Height = 15
          Caption = #25353#27604#20363
          Checked = True
          TabOrder = 8
          TabStop = True
          OnClick = RzRadioButtonBlClick
        end
        object cbbContid: TRzComboBox
          Left = 199
          Top = 52
          Width = 145
          Height = 21
          ItemHeight = 13
          TabOrder = 3
          OnExit = cbbContidExit
          OnKeyPress = cbbContidKeyPress
        end
        object RzGroupBox1: TRzGroupBox
          Left = 0
          Top = 0
          Width = 129
          Height = 108
          Align = alLeft
          Caption = #23450#20301
          TabOrder = 0
          object lbl1: TLabel
            Left = 16
            Top = 16
            Width = 60
            Height = 13
            Caption = #20379#24212#21830#32534#30721
          end
          object lbl2: TLabel
            Left = 16
            Top = 56
            Width = 48
            Height = 13
            Caption = #21512#21516#32534#30721
          end
          object RzEditFindGys: TRzEdit
            Left = 3
            Top = 33
            Width = 121
            Height = 21
            TabOrder = 0
          end
          object RzEditContId: TRzEdit
            Left = 3
            Top = 75
            Width = 121
            Height = 21
            TabOrder = 1
          end
        end
      end
      object RzDBGrid3: TRzDBGrid
        Left = 0
        Top = 137
        Width = 767
        Height = 314
        Align = alClient
        DataSource = ds2
        DefaultDrawing = True
        ReadOnly = True
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'SUPID'
            Title.Alignment = taCenter
            Title.Caption = #20379#24212#21830
            Width = 57
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SUPNAME'
            Title.Alignment = taCenter
            Title.Caption = #21517#31216
            Width = 259
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CONTID'
            Title.Alignment = taCenter
            Title.Caption = #21512#21516#32534#21495
            Width = 82
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MFID'
            Title.Alignment = taCenter
            Title.Caption = #26588#32452'('#35838')'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'WMID'
            Title.Alignment = taCenter
            Title.Caption = #32463#33829#26041#24335
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TYPE'
            PickList.Strings = (
              '1-'#25353#37329#39069
              '2-'#25353#27604#20363)
            Title.Alignment = taCenter
            Title.Caption = #21462#20540#31867#22411
            Width = 58
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'JE'
            Title.Alignment = taCenter
            Title.Caption = #37329#39069
            Width = 87
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'BL'
            Title.Alignment = taCenter
            Title.Caption = #27604#20363
            Width = 80
            Visible = True
          end>
      end
      object RzToolbar4: TRzToolbar
        Left = 0
        Top = 0
        Width = 767
        Height = 29
        Images = ilMain
        ButtonWidth = 60
        ShowButtonCaptions = True
        TextOptions = ttoSelectiveTextOnRight
        BorderInner = fsNone
        BorderOuter = fsGroove
        BorderSides = [sdTop]
        BorderWidth = 0
        GradientColorStop = 14215660
        TabOrder = 0
        VisualStyle = vsGradient
        ToolbarControls = (
          btn1
          RzSpacer3
          btn3
          btn4
          btn5
          btn7
          btn6
          RzSpacer4
          btn9)
        object btn1: TRzToolButton
          Left = 4
          Top = 2
          GradientColorStyle = gcsSystem
          ImageIndex = 5
          Images = ilMain
          UseToolbarVisualStyle = False
          VisualStyle = vsGradient
          Caption = #25552#21462
          OnClick = btn1Click
        end
        object RzSpacer3: TRzSpacer
          Left = 64
          Top = 2
          Grooved = True
        end
        object btn3: TRzToolButton
          Left = 72
          Top = 2
          ImageIndex = 6
          Images = ilMain
          Caption = #26032#22686
          OnClick = btn3Click
        end
        object btn4: TRzToolButton
          Left = 132
          Top = 2
          ImageIndex = 7
          Images = ilMain
          Caption = #21024#38500
          OnClick = btn4Click
        end
        object btn5: TRzToolButton
          Left = 192
          Top = 2
          ImageIndex = 8
          Images = ilMain
          Caption = #20462#25913
          OnClick = btn5Click
        end
        object btn6: TRzToolButton
          Left = 312
          Top = 2
          ImageIndex = 9
          Images = ilMain
          Caption = #20445#23384
          OnClick = btn6Click
        end
        object btn7: TRzToolButton
          Left = 252
          Top = 2
          ImageIndex = 10
          Images = ilMain
          Caption = #21462#28040
          OnClick = btn7Click
        end
        object RzSpacer4: TRzSpacer
          Left = 372
          Top = 2
          Grooved = True
        end
        object btn9: TRzToolButton
          Left = 380
          Top = 2
          ImageIndex = 5
          Images = ilMain
          Caption = #26597#35810
          OnClick = btn9Click
        end
      end
    end
    object rztbsht4: TRzTabSheet
      ImageIndex = 3