unitsupconsumedetail_data.dfm

来自「自己做过的工程」· DFM 代码 · 共 242 行

object formsupconsumedetail_data: Tformsupconsumedetail_data
  Left = 128
  Top = 104
  BorderStyle = bsDialog
  Caption = #28857#33756#26126#32454#24405#20837
  ClientHeight = 388
  ClientWidth = 549
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 304
    Width = 549
    Height = 84
    Align = alBottom
    BorderStyle = bsSingle
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object but_ok: TButton
      Left = 128
      Top = 24
      Width = 81
      Height = 33
      Caption = #30830#23450
      Default = True
      TabOrder = 0
      OnClick = but_okClick
    end
    object but_cancel: TButton
      Left = 312
      Top = 24
      Width = 81
      Height = 33
      Caption = #21462#28040
      TabOrder = 1
      OnClick = but_cancelClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 549
    Height = 304
    Align = alClient
    BorderStyle = bsSingle
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 56
      Height = 14
      Caption = #37202#33756#31867#21035
    end
    object Label2: TLabel
      Left = 8
      Top = 56
      Width = 56
      Height = 14
      Caption = #37202#33756#21517#31216
    end
    object Label3: TLabel
      Left = 312
      Top = 78
      Width = 56
      Height = 14
      Caption = #37202#33756#21517#31216
    end
    object Label5: TLabel
      Left = 312
      Top = 133
      Width = 56
      Height = 14
      Caption = #37202#33756#20215#26684
    end
    object lab_supunit: TLabel
      Left = 456
      Top = 192
      Width = 7
      Height = 14
    end
    object Label8: TLabel
      Left = 336
      Top = 189
      Width = 28
      Height = 14
      Caption = #25968#37327
    end
    object Label9: TLabel
      Left = 336
      Top = 244
      Width = 28
      Height = 14
      Caption = #37329#39069
    end
    object Label10: TLabel
      Left = 456
      Top = 245
      Width = 14
      Height = 14
      Caption = #20803
    end
    object Label4: TLabel
      Left = 456
      Top = 134
      Width = 14
      Height = 14
      Caption = #20803
    end
    object TLabel
      Left = 320
      Top = 48
      Width = 7
      Height = 14
    end
    object DBGrid1: TDBGrid
      Left = 16
      Top = 80
      Width = 289
      Height = 193
      DataSource = DataSourcesupname
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -14
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      Columns = <
        item
          Expanded = False
          FieldName = 'supno'
          Title.Alignment = taCenter
          Title.Caption = #37202#33756#32534#21495
          Width = 67
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'supname'
          Title.Alignment = taCenter
          Title.Caption = #37202#33756#21517#31216
          Width = 105
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'supprice'
          Title.Alignment = taCenter
          Title.Caption = #20215#26684
          Width = 44
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'supunit'
          Title.Alignment = taCenter
          Title.Caption = #21333#20301
          Width = 37
          Visible = True
        end>
    end
    object cbox_supclass: TComboBox
      Left = 16
      Top = 24
      Width = 177
      Height = 22
      ItemHeight = 14
      TabOrder = 1
      OnSelect = cbox_supclassSelect
    end
    object ed_supno: TEdit
      Left = 376
      Top = 184
      Width = 73
      Height = 22
      TabOrder = 2
      OnExit = ed_supnoExit
    end
    object ed_supmoney: TEdit
      Left = 376
      Top = 240
      Width = 73
      Height = 22
      Enabled = False
      ReadOnly = True
      TabOrder = 3
    end
    object ed_supname: TEdit
      Left = 376
      Top = 72
      Width = 137
      Height = 22
      Enabled = False
      ReadOnly = True
      TabOrder = 4
    end
    object ed_supprice: TEdit
      Left = 376
      Top = 128
      Width = 73
      Height = 22
      Enabled = False
      ReadOnly = True
      TabOrder = 5
    end
  end
  object DataSourcesupname: TDataSource
    DataSet = ds_sup_name
    Left = 240
    Top = 8
  end
  object ds_sup_name: TADODataSet
    Connection = DMHotel.ADOConnection1
    CursorType = ctStatic
    CommandText = 'select *  from sup_price_set'
    Parameters = <>
    Left = 280
    Top = 8
  end
end