business_draft.dfm

delphi的一个开发实例

object frm_Business_Draft: Tfrm_Business_Draft
  Left = 160
  Top = 194
  Width = 696
  Height = 480
  Caption = #12304#33609#31295#21333#25454#12305
  Color = clSkyBlue
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnClose = FormClose
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 688
    Height = 57
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 216
      Height = 35
      Caption = #26597#30475#33609#31295#21333#25454
      Font.Charset = ANSI_CHARSET
      Font.Color = clFuchsia
      Font.Height = -35
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 233
      Top = 34
      Width = 84
      Height = 14
      Caption = #21333#25454#23457#26680#36807#28388
    end
    object Label3: TLabel
      Left = 475
      Top = 34
      Width = 56
      Height = 14
      Caption = #21333#25454#31579#36873
    end
    object ComboBox1: TComboBox
      Left = 319
      Top = 30
      Width = 150
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 0
      OnChange = ComboBox1Change
      Items.Strings = (
        #12304#25152#26377#12305
        #24050#23457#26680
        #26410#23457#26680)
    end
    object ComboBox2: TComboBox
      Left = 533
      Top = 30
      Width = 150
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 1
      OnChange = ComboBox2Change
      Items.Strings = (
        #12304#25152#26377#21333#25454#12305
        #37319#36141#21512#21516
        #37319#36141#35746#21333
        #37319#36141#20837#24211
        #37319#36141#20184#24211
        #37319#36141#36864#36135)
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 57
    Width = 688
    Height = 396
    Align = alClient
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 2
      Top = 16
      Width = 684
      Height = 378
      Align = alClient
      Color = clWhite
      FixedColor = clSkyBlue
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -14
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      OnDblClick = DBGrid1DblClick
    end
    object Edit_level_Count: TEdit
      Left = 80
      Top = 192
      Width = 121
      Height = 22
      Color = clSkyBlue
      TabOrder = 1
      Visible = False
    end
    object Edit_Receipt_Name: TEdit
      Left = 248
      Top = 192
      Width = 121
      Height = 22
      Color = clSkyBlue
      TabOrder = 2
      Visible = False
    end
    object Edit_Examine_Man1: TEdit
      Left = 80
      Top = 232
      Width = 121
      Height = 22
      Color = clSkyBlue
      TabOrder = 3
      Visible = False
    end
    object Edit_Examine_Man2: TEdit
      Left = 248
      Top = 232
      Width = 121
      Height = 22
      Color = clSkyBlue
      TabOrder = 4
      Visible = False
    end
    object Edit_Examine_Man3: TEdit
      Left = 80
      Top = 264
      Width = 121
      Height = 22
      Color = clSkyBlue
      TabOrder = 5
      Visible = False
    end
    object Edit_Examine_Man4: TEdit
      Left = 248
      Top = 272
      Width = 121
      Height = 22
      Color = clSkyBlue
      TabOrder = 6
      Visible = False
    end
    object Edit_Examine_Man5: TEdit
      Left = 80
      Top = 304
      Width = 121
      Height = 22
      Color = clSkyBlue
      TabOrder = 7
      Visible = False
    end
    object Edit_NO: TEdit
      Left = 248
      Top = 312
      Width = 121
      Height = 22
      Color = clSkyBlue
      TabOrder = 8
      Visible = False
    end
    object Edit_table: TEdit
      Left = 248
      Top = 168
      Width = 121
      Height = 22
      Color = clSkyBlue
      TabOrder = 9
      Visible = False
    end
  end
end