ryqx_p.dfm

毕业设计!!!! 本人喜欢共享东西,希望大家能够喜欢啊,希望对你们有用的,也希望下载些对自己有用的东西.

object f_ryqx: Tf_ryqx
  Left = 158
  Top = 100
  BorderStyle = bsSingle
  Caption = #20154#21592#12289#26435#38480#35774#32622
  ClientHeight = 454
  ClientWidth = 673
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object dbg: TDBGridEh
    Left = 0
    Top = 81
    Width = 673
    Height = 373
    Align = alClient
    DataSource = ds
    FixedColor = clInfoBk
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -14
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    UseMultiTitle = True
    Columns = <
      item
        EditButtons = <>
        FieldName = 'rybh'
        Footers = <>
        Title.Caption = #20154#21592#32534#21495
        Width = 76
      end
      item
        EditButtons = <>
        FieldName = 'ryxm'
        Footers = <>
        Title.Caption = #20154#21592#22995#21517
        Width = 93
      end
      item
        EditButtons = <>
        FieldName = 'dlmc'
        Footers = <>
        Title.Caption = #30331#24405#21517#31216
      end
      item
        EditButtons = <>
        FieldName = 'syzt'
        Footers = <>
        Title.Caption = #29366#24577
        Width = 63
      end>
  end
  object pnl2: TPanel
    Left = 0
    Top = 37
    Width = 673
    Height = 44
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 64
      Height = 16
      Caption = #20154#21592#22995#21517
    end
    object Label2: TLabel
      Left = 183
      Top = 16
      Width = 64
      Height = 16
      Caption = #30331#24405#21517#31216
    end
    object Edit1: TEdit
      Left = 86
      Top = 12
      Width = 90
      Height = 24
      BevelKind = bkFlat
      BorderStyle = bsNone
      MaxLength = 12
      TabOrder = 0
      OnKeyDown = Edit1KeyDown
    end
    object Edit2: TEdit
      Left = 256
      Top = 12
      Width = 129
      Height = 24
      BevelKind = bkFlat
      BorderStyle = bsNone
      MaxLength = 20
      TabOrder = 1
    end
    object rb1: TRadioButton
      Left = 392
      Top = 16
      Width = 57
      Height = 17
      Caption = #25945#24072
      Checked = True
      TabOrder = 2
      TabStop = True
    end
    object rb2: TRadioButton
      Left = 448
      Top = 16
      Width = 97
      Height = 17
      Caption = #31995#32479#31649#29702#21592
      TabOrder = 3
    end
    object chk: TCheckBox
      Left = 552
      Top = 16
      Width = 97
      Height = 17
      Caption = #31105#29992#27492#24080#25143
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 673
    Height = 37
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    object bt1: TSpeedButton
      Left = 4
      Top = 4
      Width = 77
      Height = 29
      Caption = #28155#21152#24080#25143
      Flat = True
      OnClick = bt1Click
    end
    object bt2: TSpeedButton
      Left = 83
      Top = 4
      Width = 78
      Height = 29
      Caption = #20462' '#25913
      Flat = True
      OnClick = bt2Click
    end
    object bt4: TSpeedButton
      Left = 233
      Top = 4
      Width = 68
      Height = 29
      Caption = #23384' '#30424
      Enabled = False
      Flat = True
      OnClick = bt4Click
    end
    object bt3: TSpeedButton
      Left = 163
      Top = 4
      Width = 68
      Height = 29
      Caption = #21024' '#38500
      Flat = True
      OnClick = bt3Click
    end
    object bt6: TSpeedButton
      Left = 483
      Top = 4
      Width = 68
      Height = 29
      Caption = #36864' '#20986
      Flat = True
      OnClick = bt6Click
    end
    object bt5: TSpeedButton
      Left = 303
      Top = 4
      Width = 68
      Height = 29
      Caption = #21462' '#28040
      Enabled = False
      Flat = True
      OnClick = bt5Click
    end
    object bt7: TSpeedButton
      Left = 373
      Top = 4
      Width = 108
      Height = 29
      Caption = #24674#22797#21021#22987#23494#30721
      Flat = True
      OnClick = bt7Click
    end
  end
  object cds: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp13'
    RemoteServer = dm.skc
    AfterScroll = cdsAfterScroll
    OnCalcFields = cdsCalcFields
    Left = 264
    Top = 208
    object cdsrybh: TAutoIncField
      FieldName = 'rybh'
      ReadOnly = True
    end
    object cdsryxm: TStringField
      FieldName = 'ryxm'
      Size = 12
    end
    object cdsdlmc: TStringField
      FieldName = 'dlmc'
    end
    object cdsdlmm: TStringField
      FieldName = 'dlmm'
      Size = 12
    end
    object cdsryqx: TSmallintField
      FieldName = 'ryqx'
    end
    object cdssybj: TSmallintField
      FieldName = 'sybj'
    end
    object cdssyzt: TStringField
      FieldKind = fkCalculated
      FieldName = 'syzt'
      Size = 4
      Calculated = True
    end
  end
  object ds: TDataSource
    DataSet = cds
    Left = 296
    Top = 208
  end
end