unit_setupfeast.dfm

一个不错的源程序DELPHI开发的,功能比较好的客户管理系统

inherited Frm_SetupFeast: TFrm_SetupFeast
  Left = 83
  Top = 100
  ActiveControl = FlatRadioButton_Date
  Caption = '节日配置'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 14
  inherited DBGrid_PUB: TDBGrid
    Options = [dgTitles, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    OnCellClick = nil
    Columns = <
      item
        Expanded = False
        FieldName = 'HOLIDAY'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '节日类型'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'HOLIDAY_CONTENT'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '节日内容'
        Width = 228
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NDAY'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '新历日期'
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ODAY'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '农历日期'
        Width = 99
        Visible = True
      end>
  end
  inherited Pal_button: TPanel
    inherited BitBtnAdd: TFlatButton
      Tag = 1
      Top = 5
      OnClick = BitBtnAddClick
    end
    inherited BitBtnAlter: TFlatButton
      Tag = 2
      Left = 83
      Top = 6
      OnClick = BitBtnAlterClick
    end
    inherited BitBtnDel: TFlatButton
      Tag = 3
      Left = 158
      Top = 6
    end
    inherited BitBtnSave: TFlatButton
      Tag = 4
      Left = 233
      Top = 6
      OnClick = BitBtnSaveClick
    end
    inherited BitBtnCancel: TFlatButton
      Tag = 5
      Left = 308
      Top = 6
    end
    inherited BitBtnClose: TFlatButton
      Left = 384
      Top = 6
    end
  end
  inherited Panel2: TPanel
    inherited Label3: TLabel
      Left = 365
      Top = 12
    end
    object Label1: TLabel [1]
      Left = 167
      Top = 12
      Width = 56
      Height = 14
      Caption = '新历日期'
    end
    object Label2: TLabel [2]
      Left = 274
      Top = 12
      Width = 14
      Height = 14
      Caption = '月'
    end
    object Label4: TLabel [3]
      Left = 344
      Top = 12
      Width = 14
      Height = 14
      Caption = '日'
    end
    object Label5: TLabel [4]
      Left = 22
      Top = 12
      Width = 56
      Height = 14
      Caption = '新历节日'
    end
    object Label6: TLabel [5]
      Left = 95
      Top = 12
      Width = 56
      Height = 14
      Caption = '农历节日'
    end
    inherited FlatEdit1: TFlatEdit
      Tag = 1
      Left = 425
      Top = 8
      Width = 153
      MaxLength = 30
      Text = ''
    end
    object FlatRadioButton_Date: TFlatRadioButton
      Left = 5
      Top = 11
      Width = 14
      Height = 17
      Checked = True
      TabOrder = 1
      TabStop = True
      OnClick = FlatRadioButton_DateClick
    end
    object FlatRadioButton_ODate: TFlatRadioButton
      Left = 79
      Top = 11
      Width = 15
      Height = 17
      TabOrder = 2
      OnClick = FlatRadioButton_ODateClick
    end
    object FlatComboBox_Month: TFlatComboBox
      Tag = 1
      Left = 224
      Top = 8
      Width = 49
      Height = 22
      Style = csDropDownList
      Color = clWindow
      ItemHeight = 14
      Items.Strings = (
        '01'
        '02'
        '03'
        '04'
        '05'
        '06'
        '07'
        '08'
        '09'
        '10'
        '11'
        '12')
      TabOrder = 3
      ItemIndex = -1
    end
    object FlatComboBox_Day: TFlatComboBox
      Tag = 1
      Left = 291
      Top = 8
      Width = 49
      Height = 22
      Style = csDropDownList
      Color = clWindow
      ItemHeight = 14
      Items.Strings = (
        '01'
        '02'
        '03'
        '04'
        '05'
        '06'
        '07'
        '08'
        '09'
        '10'
        '11'
        '12'
        '13'
        '14'
        '15'
        '16'
        '17'
        '18'
        '19'
        '20'
        '21'
        '22'
        '23'
        '24'
        '25'
        '26'
        '27'
        '28'
        '29'
        '30'
        '31')
      TabOrder = 4
      ItemIndex = -1
    end
  end
  inherited DataSource_Pub: TDataSource
    Left = 96
    Top = 64
  end
  inherited Query_PUB: TQuery
    CachedUpdates = True
    AfterScroll = Query_PUBAfterScroll
    SQL.Strings = (
      
        'select HOLIDAY_CODE,HOLIDAY_FLAG,decode(HOLIDAY_FLAG,0,'#39'新历'#39','#39'' +
        '农历'#39') HOLIDAY,'
      
        '   Substr(Holiday_Odate,1,2)||'#39'月'#39'||Substr(Holiday_Odate,3,2)||'#39 +
        '日'#39' oday,'
      
        '    Substr(Holiday_date,1,2)||'#39'月'#39'||Substr(Holiday_date,3,2)||'#39'' +
        '日'#39' Nday,'
      '    HOLIDAY_DATE,HOLIDAY_ODATE,HOLIDAY_CONTENT from t_d_holiday'
      '    order by HOLIDAY_DATE '
      ''
      '')
    UpdateObject = UpdateSQL1
    Left = 220
    Top = 112
  end
  inherited Query_Tmp: TQuery
    Left = 112
  end
  object UpdateSQL1: TUpdateSQL
    Left = 280
    Top = 168
  end
end