grunit.dfm

很好用的一个票据管理系统

object GrForm: TGrForm
  Left = 156
  Top = 82
  Width = 779
  Height = 547
  Caption = #31080#25454#36141#20837
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object idLabel: TLabel
    Left = 24
    Top = 56
    Width = 34
    Height = 13
    Caption = 'idLabel'
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 771
    Height = 37
    ButtonHeight = 36
    ButtonWidth = 43
    Caption = 'ToolBar1'
    EdgeOuter = esNone
    Flat = True
    Images = ImageList1
    ShowCaptions = True
    TabOrder = 0
    object ToolButton15: TToolButton
      Left = 0
      Top = 0
      Width = 14
      Caption = 'ToolButton15'
      ImageIndex = 12
      Style = tbsSeparator
    end
    object ToolButton5: TToolButton
      Left = 14
      Top = 0
      Caption = #26368#21069#26465
      ImageIndex = 5
      OnClick = ToolButton5Click
    end
    object ToolButton8: TToolButton
      Left = 57
      Top = 0
      Caption = #21069#19968#26465
      ImageIndex = 6
      OnClick = ToolButton8Click
    end
    object ToolButton9: TToolButton
      Left = 100
      Top = 0
      Caption = #21518#19968#26465
      ImageIndex = 7
      OnClick = ToolButton9Click
    end
    object ToolButton11: TToolButton
      Left = 143
      Top = 0
      Caption = #26368#21518#26465
      ImageIndex = 8
      OnClick = ToolButton11Click
    end
    object ToolButton1: TToolButton
      Left = 186
      Top = 0
      Caption = #22686#21152
      ImageIndex = 0
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 229
      Top = 0
      Caption = #20462#25913
      ImageIndex = 1
      OnClick = ToolButton2Click
    end
    object ToolButton3: TToolButton
      Left = 272
      Top = 0
      Caption = #21024#38500
      ImageIndex = 2
      OnClick = ToolButton3Click
    end
    object ToolButton4: TToolButton
      Left = 315
      Top = 0
      Caption = #30331#35760
      ImageIndex = 12
      OnClick = ToolButton4Click
    end
    object ToolButton13: TToolButton
      Left = 358
      Top = 0
      Caption = #25171#21360
      ImageIndex = 10
      OnClick = ToolButton13Click
    end
    object ToolButton12: TToolButton
      Left = 401
      Top = 0
      Caption = #39044#35272
      ImageIndex = 9
      OnClick = ToolButton12Click
    end
    object ToolButton7: TToolButton
      Left = 444
      Top = 0
      Caption = #20851#38381
      ImageIndex = 11
      OnClick = ToolButton7Click
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 37
    Width = 771
    Height = 483
    Align = alClient
    DataSource = DMData.GrDataSource
    Flat = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = []
    FooterColor = clWindow
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -19
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -19
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnCellClick = dbgrideh1cellclick
    Columns = <
      item
        Alignment = taCenter
        EditButtons = <>
        FieldName = 'ql'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #31080#25454#31181#31867
        Width = 153
      end
      item
        Alignment = taCenter
        EditButtons = <>
        FieldName = 'rq'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #36141#20837#26085#26399
        Width = 120
      end
      item
        Alignment = taCenter
        EditButtons = <>
        FieldName = 'sl'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #36141#20837#25968#37327
        Width = 99
      end
      item
        Alignment = taCenter
        EditButtons = <>
        FieldName = 'qxhm'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #36215#22987#21495#30721
        Width = 137
      end
      item
        Alignment = taCenter
        EditButtons = <>
        FieldName = 'jxhm'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #32467#26463#21495#30721
        Width = 125
      end
      item
        Alignment = taCenter
        EditButtons = <>
        FieldName = 'jbr'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #32463#25163#20154
        Width = 103
      end>
  end
  object GroupBox1: TGroupBox
    Left = 344
    Top = 88
    Width = 297
    Height = 393
    Caption = #36141#20837#24405#20837
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    Visible = False
    object Label1: TLabel
      Left = 32
      Top = 45
      Width = 95
      Height = 19
      Caption = #31080#25454#31181#31867#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 32
      Top = 90
      Width = 95
      Height = 19
      Caption = #24211#23384#26085#26399#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 30
      Top = 136
      Width = 95
      Height = 19
      Caption = #24211#23384#25968#37327#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 29
      Top = 184
      Width = 95
      Height = 19
      Caption = #36215#22987#21495#30721#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 30
      Top = 233
      Width = 95
      Height = 19
      Caption = #32467#26463#21495#30721#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 30
      Top = 282
      Width = 96
      Height = 19
      Caption = #32463' '#25163' '#20154#65306
    end
    object ComboBox1: TComboBox
      Left = 131
      Top = 40
      Width = 141
      Height = 25
      Style = csOwnerDrawFixed
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 19
      ParentFont = False
      TabOrder = 0
      OnChange = combobox1change
      OnKeyDown = combobox1keydown
    end
    object DateTimePicker1: TDateTimePicker
      Left = 131
      Top = 84
      Width = 140
      Height = 27
      Date = 0.448052291663770900