gzryqx_u.dfm

比较完整的系统 比较完整的系统

object kmks1hmc: Tkmks1hmc
  Left = 242
  Top = 158
  Width = 780
  Height = 497
  Caption = #24037#20316#20154#21592#21435#21521
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 44
    Width = 772
    Height = 404
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 5
    BorderStyle = bsSingle
    Color = 15793919
    TabOrder = 0
    object Label1: TLabel
      Left = 5
      Top = 5
      Width = 758
      Height = 21
      Align = alTop
      Alignment = taCenter
      Caption = 'Title'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -21
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Panel2: TPanel
      Left = 5
      Top = 26
      Width = 758
      Height = 39
      Align = alTop
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 0
      object Label2: TLabel
        Left = 559
        Top = 8
        Width = 49
        Height = 14
        Alignment = taCenter
        Caption = #26085'  '#26399':'
      end
      object Label8: TLabel
        Left = 4
        Top = 8
        Width = 63
        Height = 14
        Caption = #21333'    '#21495':'
      end
      object DateTimePicker1: TDateTimePicker
        Left = 693
        Top = 8
        Width = 25
        Height = 22
        BevelEdges = [beBottom]
        BevelOuter = bvNone
        BevelKind = bkSoft
        Date = 38562.887806168990000000
        Time = 38562.887806168990000000
        TabOrder = 0
        OnChange = DateTimePicker1Change
      end
      object DBEdit1: TDBEdit
        Left = 613
        Top = 8
        Width = 81
        Height = 20
        BevelEdges = [beBottom]
        BevelKind = bkSoft
        BorderStyle = bsNone
        DataField = #21435#21521#26085#26399
        DataSource = DataSource2
        ParentColor = True
        TabOrder = 1
      end
      object DBEdit5: TDBEdit
        Left = 72
        Top = 8
        Width = 129
        Height = 20
        BevelEdges = [beBottom]
        BevelKind = bkSoft
        BorderStyle = bsNone
        DataField = #21333#21495
        DataSource = DataSource2
        Enabled = False
        ParentColor = True
        TabOrder = 2
      end
    end
    object DBGridEh1: TDBGridEh
      Left = 5
      Top = 65
      Width = 758
      Height = 304
      Align = alTop
      DataSource = DataSource1
      FooterColor = clWindow
      FooterFont.Charset = ANSI_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -14
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      TabOrder = 1
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -14
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnEditButtonClick = DBGridEh1EditButtonClick
      OnKeyPress = DBGridEh1KeyPress
      Columns = <
        item
          ButtonStyle = cbsEllipsis
          EditButtons = <>
          FieldName = #22995#21517
          Footers = <>
          Width = 54
        end
        item
          ButtonStyle = cbsDropDown
          EditButtons = <>
          FieldName = #21435#21521#20107#24773'1'
          Footers = <>
          Width = 79
        end
        item
          EditButtons = <>
          FieldName = #21435#21521#20107#24773'2'
          Footers = <>
          Width = 77
        end
        item
          EditButtons = <>
          FieldName = #21435#21521#20107#24773'3'
          Footers = <>
          Width = 76
        end
        item
          EditButtons = <>
          FieldName = #21435#21521#20107#24773'4'
          Footers = <>
          Width = 79
        end
        item
          EditButtons = <>
          FieldName = #21435#21521#20107#24773'5'
          Footers = <>
          Width = 76
        end
        item
          EditButtons = <>
          FieldName = #21435#21521#20107#24773'6'
          Footers = <>
          Width = 79
        end
        item
          EditButtons = <>
          FieldName = #32534#21495
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = #21333#21495
          Footers = <>
        end>
    end
    object Panel3: TPanel
      Left = 5
      Top = 369
      Width = 758
      Height = 32
      Align = alTop
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 2
      object Label7: TLabel
        Left = 0
        Top = 12
        Width = 35
        Height = 14
        Caption = #22791#27880':'
      end
      object DBMemo1: TDBMemo
        Left = 40
        Top = 9
        Width = 713
        Height = 20
        BevelEdges = [beBottom]
        BevelKind = bkSoft
        BorderStyle = bsNone
        DataField = #22791#27880
        DataSource = DataSource2
        ParentColor = True
        TabOrder = 0
      end
    end
  end
  object ControlBar1: TControlBar
    Left = 0
    Top = 0
    Width = 772
    Height = 44
    Align = alTop
    AutoSize = True
    BevelInner = bvNone
    DockSite = False
    TabOrder = 1
    object ToolBar1: TToolBar
      Left = 11
      Top = 2
      Width = 350
      Height = 38
      AutoSize = True
      ButtonHeight = 38
      ButtonWidth = 37
      Caption = 'ToolBar1'
      EdgeBorders = []
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      Images = ilsSub
      ParentFont = False
      ShowCaptions = True
      TabOrder = 0
      Wrapable = False
      object btnPreview: TToolButton
        Left = 0
        Top = 0