u_program.dfm

小银行系统

inherited F_program: TF_program
  Left = 132
  Top = 116
  Caption = 'F_program'
  Font.Charset = ANSI_CHARSET
  Font.Height = -14
  Font.Name = #23435#20307
  PixelsPerInch = 96
  TextHeight = 14
  inherited Splitter1: TSplitter
    Left = 0
  end
  inherited ScrollBox1: TScrollBox
    Width = 249
    Align = alNone
    inherited Memo1: TMemo
      Width = 245
    end
    inherited DBGrid1: TDBGridEh
      Width = 245
      FooterFont.Charset = ANSI_CHARSET
      FooterFont.Height = -14
      FooterFont.Name = #23435#20307
      FrozenCols = 1
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Height = -14
      TitleFont.Name = #23435#20307
      Columns = <
        item
          EditButtons = <>
          FieldName = 'program_no'
          Footers = <>
          Title.Caption = #31243#24335#20195#30721
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clGreen
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 93
        end
        item
          EditButtons = <>
          FieldName = 'program_nm'
          Footers = <>
          Title.Caption = #31243#24335#21517#31216
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clGreen
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
        end
        item
          EditButtons = <>
          FieldName = 'program_id'
          Footers = <>
          Title.Caption = #31243#24207#24207#21495
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clGreen
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
        end>
    end
  end
  inherited ScrollBox2: TScrollBox
    Left = 248
    Width = 357
    Align = alNone
    inherited DBEdit1: TDBEdit
      Left = 82
      Top = 30
      Width = 161
      DataField = 'program_no'
      DataSource = DataSource1
    end
    inherited DBEdit2: TDBEdit
      Left = 82
      Top = 62
      Width = 161
      DataField = 'program_nm'
      DataSource = DataSource1
    end
    object StaticText3: TStaticText
      Left = 168
      Top = 128
      Width = 32
      Height = 18
      Caption = #20462#25913
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object StaticText4: TStaticText
      Left = 56
      Top = 128
      Width = 32
      Height = 18
      Caption = #26032#22686
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object StaticText5: TStaticText
      Left = 272
      Top = 128
      Width = 32
      Height = 18
      Caption = #21024#38500
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object StaticText6: TStaticText
      Left = 56
      Top = 192
      Width = 32
      Height = 18
      Caption = #26597#35810
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 6
    end
    object StaticText7: TStaticText
      Left = 168
      Top = 192
      Width = 32
      Height = 18
      Caption = #21462#20540
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 7
    end
    object StaticText8: TStaticText
      Left = 272
      Top = 192
      Width = 32
      Height = 18
      Caption = #21015#21360
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 8
    end
    object StaticText9: TStaticText
      Left = 136
      Top = 272
      Width = 32
      Height = 18
      Caption = #27719#20837
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 9
    end
    object StaticText10: TStaticText
      Left = 232
      Top = 272
      Width = 32
      Height = 18
      Caption = #27719#20986
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 10
    end
    object DBEdit3: TDBEdit
      Left = 60
      Top = 152
      Width = 22
      Height = 22
      CharCase = ecUpperCase
      DataField = 'p_add'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 11
      OnClick = DBEdit3Click
      OnExit = DBEdit3Exit
    end
    object DBEdit4: TDBEdit
      Left = 172
      Top = 152
      Width = 22
      Height = 22
      CharCase = ecUpperCase
      DataField = 'p_edit'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 12
      OnClick = DBEdit4Click
      OnExit = DBEdit4Exit
    end
    object DBEdit5: TDBEdit
      Left = 276
      Top = 152
      Width = 22
      Height = 22
      CharCase = ecUpperCase
      DataField = 'p_delete'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 13
      OnClick = DBEdit5Click
      OnExit = DBEdit5Exit
    end
    object DBEdit6: TDBEdit
      Left = 60
      Top = 216
      Width = 22
      Height = 22
      CharCase = ecUpperCase
      DataField = 'p_query'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 14
      OnClick = DBEdit6Click
      OnExit = DBEdit6Exit
    end
    object DBEdit7: TDBEdit
      Left = 172
      Top = 216
      Width = 22
      Height = 22
      CharCase = ecUpperCase
      DataField = 'p_getdata'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 15
      OnClick = DBEdit7Click
      OnExit = DBEdit7Exit
    end
    object DBEdit8: TDBEdit
      Left = 276
      Top = 216
      Width = 22
      Height = 22
      CharCase = ecUpperCase
      DataField = 'p_print'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 16
      OnClick = DBEdit8Click
      OnExit = DBEdit8Exit
    end
    object DBEdit9: TDBEdit
      Left = 140
      Top = 294
      Width = 22
      Height = 22
      CharCase = ecUpperCase
      DataField = 'p_datain'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 17
      OnClick = DBEdit9Click
      OnExit = DBEdit9Exit
    end
    object DBEdit10: TDBEdit
      Left = 236
      Top = 294
      Width = 22
      Height = 22
      CharCase = ecUpperCase
      DataField = 'p_dataout'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 18
      OnClick = DBEdit10Click
      OnExit = DBEdit10Exit
    end
    object DBEdit11: TDBEdit
      Left = 83
      Top = 93
      Width = 160
      Height = 22
      DataField = 'program_id'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object StaticText11: TStaticText
      Left = 16
      Top = 97
      Width = 60
      Height = 18
      Caption = #31243#24207#24207#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 19
    end
    object StaticText12: TStaticText
      Left = 16
      Top = 67
      Width = 60
      Height = 18
      Caption = #31243#24207#21517#31216
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 20
    end
    object StaticText13: TStaticText
      Left = 16
      Top = 33
      Width = 60
      Height = 18
      Caption = #31243#24207#20195#30721
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 21
    end
  end
  inherited ADODataSet1: TADODataSet
    CommandText = 
      'select * from program where sys_id='#39'4'#39' '#13#10' order by program_id, p' +
      'rogram_no'
  end
  inherited ClientDataSet1: TClientDataSet
    object ClientDataSet1sys_id: TStringField
      FieldName = 'sys_id'
      Size = 2
    end
    object ClientDataSet1program_id: TStringField
      FieldName = 'program_id'
      Size = 4
    end
    object ClientDataSet1program_no: TStringField
      FieldName = 'program_no'
    end
    object ClientDataSet1program_nm: TStringField
      FieldName = 'program_nm'
      Size = 50
    end
    object ClientDataSet1p_add: TStringField
      FieldName = 'p_add'
      Size = 1
    end
    object ClientDataSet1p_edit: TStringField
      FieldName = 'p_edit'
      Size = 1
    end
    object ClientDataSet1p_delete: TStringField
      FieldName = 'p_delete'
      Size = 1
    end
    object ClientDataSet1p_query: TStringField
      FieldName = 'p_query'
      Size = 1
    end
    object ClientDataSet1p_getdata: TStringField
      FieldName = 'p_getdata'
      Size = 1
    end
    object ClientDataSet1p_print: TStringField
      FieldName = 'p_print'
      Size = 1
    end
    object ClientDataSet1p_datain: TStringField
      FieldName = 'p_datain'
      Size = 1
    end
    object ClientDataSet1p_dataout: TStringField
      FieldName = 'p_dataout'
      Size = 1
    end
    object ClientDataSet1add_date: TStringField
      FieldName = 'add_date'
      Size = 10
    end
    object ClientDataSet1edit_date: TStringField
      FieldName = 'edit_date'
      Size = 10
    end
  end
  inherited UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update dbo.program'
      'set'
      '  sys_id = :sys_id,'
      '  program_id = :program_id,'
      '  program_no = :program_no,'
      '  program_nm = :program_nm,'
      '  p_add = :p_add,'
      '  p_edit = :p_edit,'
      '  p_delete = :p_delete,'
      '  p_query = :p_query,'
      '  p_getdata = :p_getdata,'
      '  p_print = :p_print,'
      '  p_datain = :p_datain,'
      '  p_dataout = :p_dataout,'
      '  add_date = :add_date,'
      '  edit_date = :edit_date'
      'where'
      '  sys_id = :OLD_sys_id and'
      '  program_id = :OLD_program_id and'
      '  program_no = :OLD_program_no')
    InsertSQL.Strings = (
      'insert into dbo.program'
      
        '  (sys_id, program_id, program_no, program_nm, p_add, p_edit, p_' +
        'delete, '
      
        '   p_query, p_getdata, p_print, p_datain, p_dataout, add_date, e' +
        'dit_date)'
      'values'
      
        '  (:sys_id, :program_id, :program_no, :program_nm, :p_add, :p_ed' +
        'it, :p_delete, '
      
        '   :p_query, :p_getdata, :p_print, :p_datain, :p_dataout, :add_d' +
        'ate, :edit_date)')
    DeleteSQL.Strings = (
      'delete from dbo.program'
      'where'
      '  sys_id = :OLD_sys_id and'
      '  program_id = :OLD_program_id and'
      '  program_no = :OLD_program_no')
  end
  object ADOQpub: TADOQuery
    Connection = DM.ADOConnection1
    Parameters = <>
    Left = 72
    Top = 264
  end
  object ADOQpub1: TADOQuery
    Connection = DM.ADOConnection1
    Parameters = <>
    Left = 112
    Top = 264
  end
end