xhunit.dfm

一个票据管理系统

object XhForm: TXhForm
  Left = 141
  Top = 58
  Width = 827
  Height = 570
  Caption = #31080#25454#28040#32791
  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 Panel1: TPanel
    Left = 0
    Top = 0
    Width = 819
    Height = 543
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object Panel2: TPanel
      Left = 2
      Top = 2
      Width = 303
      Height = 539
      Align = alLeft
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 0
      object DBGridEh1: TDBGridEh
        Left = 2
        Top = 2
        Width = 299
        Height = 193
        Align = alTop
        DataSource = DMData.BmDataSource
        Flat = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -16
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        OnCellClick = dbgrideh1cellclick
        Columns = <
          item
            Alignment = taCenter
            EditButtons = <>
            FieldName = 'km'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #31185#30446
            Width = 88
          end
          item
            Alignment = taCenter
            EditButtons = <>
            FieldName = 'dwbm'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #28040#32791#37096#38376
            Width = 150
          end>
      end
      object DBGridEh2: TDBGridEh
        Left = 2
        Top = 195
        Width = 299
        Height = 342
        Align = alClient
        DataSource = DMData.KqMsDataSource
        Flat = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -16
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        OnCellClick = dbgrideh2cellclick
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ql'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #31080#25454#31181#31867
            Width = 116
          end
          item
            Alignment = taCenter
            EditButtons = <>
            FieldName = 'sl'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #25968#37327
          end
          item
            Alignment = taCenter
            EditButtons = <>
            FieldName = 'qxhm'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #36215#22987#21495#30721
            Width = 81
          end
          item
            Alignment = taCenter
            EditButtons = <>
            FieldName = 'jxhm'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #32467#26463#21495#30721
            Width = 80
          end>
      end
    end
    object Panel3: TPanel
      Left = 305
      Top = 2
      Width = 129
      Height = 539
      Align = alLeft
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 1
      object Label1: TLabel
        Left = 3
        Top = 10
        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 = 3
        Top = 68
        Width = 95
        Height = 19
        Caption = #28040#32791#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 = 3
        Top = 127
        Width = 86
        Height = 19
        Caption = #28040#32791#25968#37327':'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 3
        Top = 189
        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 = 3
        Top = 250
        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 = 2
        Top = 312
        Width = 95
        Height = 19
        Caption = #28040#32791#37096#38376#65306
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 3
        Top = 372
        Width = 76
        Height = 19
        Caption = #28040#32791#20154#65306
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False