uni_branchs_rep.dfm

来自「一个非常不错的经费报销管理软件」· DFM 代码 · 共 533 行

DFM
533 行
字号 
object Frm_Branchs_rep: TFrm_Branchs_rep
  Left = 218
  Top = 121
  Width = 673
  Height = 474
  Caption = #37096#38376#27719#24635
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 665
    Height = 39
    AutoSize = True
    Bands = <
      item
        Control = TB_Main
        ImageIndex = -1
        MinHeight = 35
        Width = 661
      end>
    object TB_Main: TToolBar
      Left = 9
      Top = 0
      Width = 648
      Height = 35
      ButtonHeight = 36
      ButtonWidth = 31
      Color = 14803425
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      Images = DM.ImageList1
      ParentColor = False
      ShowCaptions = True
      TabOrder = 0
      object TB_Query: TToolButton
        Left = 0
        Top = 0
        AutoSize = True
        Caption = #26597#35810
        ImageIndex = 27
        OnClick = TB_QueryClick
      end
      object ToolButton4: TToolButton
        Left = 35
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 11
        Style = tbsSeparator
      end
      object TB_PRT: TToolButton
        Left = 43
        Top = 0
        AutoSize = True
        Caption = #25171#21360
        ImageIndex = 8
        OnClick = TB_PRTClick
      end
      object TB_Preview: TToolButton
        Left = 78
        Top = 0
        Caption = #39044#35272
        ImageIndex = 28
        OnClick = TB_PreviewClick
      end
      object ToolButton1: TToolButton
        Left = 109
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 11
        Style = tbsSeparator
      end
      object TB_Help: TToolButton
        Left = 117
        Top = 0
        AutoSize = True
        Caption = #24110#21161
        ImageIndex = 9
      end
      object ToolButton3: TToolButton
        Left = 152
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        Enabled = False
        ImageIndex = 11
        Style = tbsSeparator
      end
      object TB_Close: TToolButton
        Left = 160
        Top = 0
        AutoSize = True
        Caption = #36864#20986
        ImageIndex = 10
        OnClick = TB_CloseClick
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 39
    Width = 665
    Height = 82
    Align = alTop
    Color = 14803425
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #24320#22987#26102#38388
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 8
      Top = 48
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #32467#26463#26102#38388
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 480
      Top = 48
      Width = 33
      Height = 13
      AutoSize = False
      Caption = #37096#38376
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object Label12: TLabel
      Left = 220
      Top = 52
      Width = 29
      Height = 12
      AutoSize = False
      Caption = #37096#38376
    end
    object SpeedButton1: TSpeedButton
      Left = 395
      Top = 48
      Width = 20
      Height = 19
      Flat = True
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1000
        10001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C10001863
        100010001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C100018631000
        100010001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1000186310001000
        10001F7C1F7C1F7C1F7C1F7C1F7C000000000000000010001863100010001000
        1F7C1F7C1F7C1F7C1F7C00000000186318631863FF7F10421000100010001F7C
        1F7C1F7C1F7C1F7C0000104218631863186318631863FF7F104200001F7C1F7C
        1F7C1F7C1F7C1F7C00001863186318631863186318631863FF7F00001F7C1F7C
        1F7C1F7C1F7C0000186318631863186318631863186318631863186300001F7C
        1F7C1F7C1F7C0000186318631863186318631863186318631863186300001F7C
        1F7C1F7C1F7C00001863FF7FFF03186318631863186318631863186300001F7C
        1F7C1F7C1F7C00001863FF7FFF03186318631863186318631863186300001F7C
        1F7C1F7C1F7C1F7C0000FF7FFF7FFF03FF03186318631863186300001F7C1F7C
        1F7C1F7C1F7C1F7C00001042FF7FFF7FFF7F186318631863104200001F7C1F7C
        1F7C1F7C1F7C1F7C1F7C000000001863186318631863000000001F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C00000000000000001F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C}
      OnClick = SpeedButton1Click
    end
    object Label4: TLabel
      Left = 192
      Top = 17
      Width = 57
      Height = 12
      AutoSize = False
      Caption = #32463#36153#39033#30446
    end
    object SpeedButton2: TSpeedButton
      Left = 395
      Top = 13
      Width = 20
      Height = 19
      Flat = True
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1000
        10001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C10001863
        100010001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C100018631000
        100010001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1000186310001000
        10001F7C1F7C1F7C1F7C1F7C1F7C000000000000000010001863100010001000
        1F7C1F7C1F7C1F7C1F7C00000000186318631863FF7F10421000100010001F7C
        1F7C1F7C1F7C1F7C0000104218631863186318631863FF7F104200001F7C1F7C
        1F7C1F7C1F7C1F7C00001863186318631863186318631863FF7F00001F7C1F7C
        1F7C1F7C1F7C0000186318631863186318631863186318631863186300001F7C
        1F7C1F7C1F7C0000186318631863186318631863186318631863186300001F7C
        1F7C1F7C1F7C00001863FF7FFF03186318631863186318631863186300001F7C
        1F7C1F7C1F7C00001863FF7FFF03186318631863186318631863186300001F7C
        1F7C1F7C1F7C1F7C0000FF7FFF7FFF03FF03186318631863186300001F7C1F7C
        1F7C1F7C1F7C1F7C00001042FF7FFF7FFF7F186318631863104200001F7C1F7C
        1F7C1F7C1F7C1F7C1F7C000000001863186318631863000000001F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C00000000000000001F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C}
      OnClick = SpeedButton2Click
    end
    object dtBegin: TDateTimePicker
      Left = 80
      Top = 12
      Width = 105
      Height = 23
      Date = 38909.000000000000000000
      Time = 38909.000000000000000000
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object dtEnd: TDateTimePicker
      Left = 80
      Top = 44
      Width = 105
      Height = 23
      Date = 38909.999988425930000000
      Time = 38909.999988425930000000
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object CBX_Branchs: TComboBox
      Left = 520
      Top = 44
      Width = 121
      Height = 23
      Style = csDropDownList
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 15
      ParentFont = False
      TabOrder = 2
      Visible = False
      OnEnter = CBX_BranchsEnter
    end
    object R_Type: TRadioGroup
      Left = 424
      Top = 4
      Width = 193
      Height = 34
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        #26126#32454
        #27719#24635)
      TabOrder = 3
      OnClick = R_TypeClick
    end
    object MSQL: TMemo
      Left = 696
      Top = 8
      Width = 225
      Height = 65
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      Lines.Strings = (
        ''
        ''
        
          'select DISTINCT z.cBranchsNum as '#37096#38376#21495',x.cName as '#37096#38376','#19979#36798#25351#26631'=NULL, '#32463#36153 +
          #32047#35745#25903#20986'=NULL,'#32467#23384#32463#36153#25351#26631#25968'=NULL'
        'into #branchsbook'
        'from bsbook z left join bsbranchs x on z.cBranchsNum=x.cNum'
        ''
        'select *from #branchsbook'
        ''
        '')
      TabOrder = 4
      Visible = False
      WordWrap = False
    end
    object ComboBox1: TComboBox
      Left = 520
      Top = 45
      Width = 129
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 13
      TabOrder = 5
      Text = 'ComboBox1'
      Visible = False
    end
    object Edt_Branchs: TEdit
      Left = 256
      Top = 48
      Width = 137
      Height = 21
      TabOrder = 6
    end
    object Edt_Item: TEdit
      Left = 256
      Top = 13
      Width = 137
      Height = 21
      TabOrder = 7
    end
  end
  object grdbsbook_Branchs: TDBGridEh
    Left = 0
    Top = 193
    Width = 665
    Height = 254
    FixGridlinecolor = clGray
    Gridlinecolor = clGray
    FooterDisplayStyle = True
    AutoSort = False
    ShowBmp = False
    UseMenu = True
    SortOnColumnClick = False
    RowTwoColor = clCream
    CurDeciNumber = 2
    CurShowNegativeFont = True
    CurShowNegativeColor = False
    CurShowNegativeSign = False
    CurDeciSeparatColor = clRed
    CurrencySymBol = #65509
    CurrencySymBolAlained = False
    CurGridLineColor = clSilver
    CurGridLineWidth = 1
    CurKilobitColor = clGreen
    CurrencyFont.Charset = DEFAULT_CHARSET
    CurrencyFont.Color = clWindowText
    CurrencyFont.Height = -11
    CurrencyFont.Name = 'MS Sans Serif'
    CurrencyFont.Style = []
    CurNegativeFont.Charset = DEFAULT_CHARSET
    CurNegativeFont.Color = clRed
    CurNegativeFont.Height = -11
    CurNegativeFont.Name = 'MS Sans Serif'
    CurNegativeFont.Style = []
    CurNegativeColor = clRed
    CurTextLayout = tlCenter
    CurZeroEmpty = True
    Align = alClient
    DataSource = dsbsbook_Branchs
    EditActions = [geaCopyEh, geaSelectAllEh]
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -16
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    FooterRowCount = 1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
    OptionsEh = [dghHighlightFocus, dghClearSelection]
    ParentFont = False
    SumList.Active = True
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    TitleLines = 2
    OnDblClick = grdbsbook_BranchsDblClick
  end
  object Panel2: TPanel
    Left = 0
    Top = 121
    Width = 665
    Height = 72
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 3
    object LaTitl: TLabel
      Left = 1
      Top = 1
      Width = 663
      Height = 70
      Align = alClient
      Alignment = taCenter
      AutoSize = False
      Caption = #37096#38376#27719#24635#25253#34920
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -24
      Font.Name = #26032#23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      Layout = tlCenter
    end
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = False
    Active = True
    ControlUseTrueXPStyle = True
    BtnRoundArc = 5
    BtnOutLineBorderColor = 7552000
    BtnInnerBorderMoveColor = 3257087
    BtnInnerBorderFocusColor = 15183500
    BtnSurfaceNormalColor = 16251903
    BtnSurfaceDownColor = 14608359
    BtnSurfaceBottomLineColor = 14608359
    BtnSurfaceDownBottomLineColor = 15199215
    RdoChkControlChkColor = 41472
    ComboBoxChkColor = 9201994
    ComboboxSurfaceMoveColor = 16771030
    ControlDisabledBorderColor = 11913158
    Left = 528
    Top = 8
  end
  object bsbook_Branchs: TADOQuery
    Connection = DM.Server
    Parameters = <>
    SQL.Strings = (
      'select *From bsbook')
    Left = 25
    Top = 184
  end
  object dsbsbook_Branchs: TDataSource
    DataSet = tmpbook
    Left = 56
    Top = 184
  end
  object SQLExec: TADOQuery
    Connection = DM.Server_Tiein
    Parameters = <>
    Left = 353
    Top = 8
  end
  object tmpbook: TADOQuery
    Connection = DM.Server
    Parameters = <>
    Left = 25
    Top = 216
  end
  object QryTemp: TADOQuery
    Connection = DM.Server
    Parameters = <>
    Left = 409
    Top = 8
  end
  object PrintDBGridEh1: TPrintDBGridEh
    DBGridEh = grdbsbook_Branchs
    Options = []
    Page.BottomMargin = 2.000000000000000000
    Page.LeftMargin = 2.000000000000000000
    Page.RightMargin = 2.000000000000000000
    Page.TopMargin = 2.000000000000000000
    PageFooter.Font.Charset = DEFAULT_CHARSET
    PageFooter.Font.Color = clWindowText
    PageFooter.Font.Height = -16
    PageFooter.Font.Name = 'MS Sans Serif'
    PageFooter.Font.Style = []
    PageHeader.Font.Charset = ANSI_CHARSET
    PageHeader.Font.Color = clWindowText
    PageHeader.Font.Height = -19
    PageHeader.Font.Name = #23435#20307
    PageHeader.Font.Style = [fsBold]
    Units = MM
    Left = 489
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = bsbook_Branchs
    Left = 136
    Top = 248
  end
end

uni_branchs_rep.dfm - 源码说明

本页面展示了「一个非常不错的经费报销管理软件」中的 uni_branchs_rep.dfm 源码文件，采用 DFM 编程语言编写，共 533 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与经费报销相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?