ufrmsec.dfm

小银行系统

inherited frmSec: TfrmSec
  Left = 130
  Top = 132
  Caption = #32452#21035#36164#26009#35774#23450
  PixelsPerInch = 96
  TextHeight = 16
  inherited Splitter1: TSplitter
    Left = 217
  end
  inherited ScrollBox1: TScrollBox
    Width = 217
    inherited Memo1: TMemo
      Width = 213
      Lines.Strings = (
        #22522#26412#25805#20316#35828#26126
        '  1.'#21518#21220#24037#31181#30001#36130#21153#23450#20041','#19968#26086#23450#20041#23436#25104
        #19981#24471#38543#24847#26356#25913)
    end
    inherited DBGrid1: TDBGridEh
      Width = 213
      Color = 14215640
      Font.Height = -11
      FooterColor = clInfoBk
      FrozenCols = 1
      ParentFont = False
      Columns = <
        item
          EditButtons = <>
          FieldName = 'SEC_NO'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = #23435#20307
          Font.Style = []
          Footers = <>
          Title.Caption = #32452#21035#20195#21495
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clGreen
          Title.Font.Height = -15
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 71
        end
        item
          EditButtons = <>
          FieldName = 'sec_nm'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = #23435#20307
          Font.Style = []
          Footers = <>
          Title.Caption = #32452#21035#21517#31216
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clGreen
          Title.Font.Height = -15
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 110
        end>
    end
  end
  inherited ScrollBox2: TScrollBox
    Left = 218
    Width = 387
    inherited DBEdit1: TDBEdit
      Left = 120
      Top = 57
      Width = 73
      DataField = 'SEC_NO'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Height = -16
      Font.Name = #23435#20307
      ParentFont = False
    end
    inherited DBEdit2: TDBEdit
      Left = 120
      Top = 105
      Width = 161
      DataField = 'sec_nm'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Height = -16
      Font.Name = #23435#20307
      ParentFont = False
      OnEnter = DBEdit2Enter
      OnKeyDown = DBEdit2KeyDown
    end
    object StaticText1: TStaticText
      Left = 46
      Top = 62
      Width = 68
      Height = 20
      Caption = #32452#21035#20195#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object StaticText2: TStaticText
      Left = 46
      Top = 110
      Width = 68
      Height = 20
      Caption = #32452#21035#21517#31216
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
  end
  inherited ADODataSet1: TADODataSet
    CommandText = ' SELECT  *  FROM  Sec'#13#10' ORDER BY  sec_no '
  end
  inherited ClientDataSet1: TClientDataSet
    object ClientDataSet1SEC_NO: TStringField
      FieldName = 'SEC_NO'
      Size = 5
    end
    object ClientDataSet1sec_nm: TStringField
      FieldName = 'sec_nm'
      Size = 16
    end
    object ClientDataSet1dep_no: TStringField
      FieldName = 'dep_no'
      Size = 5
    end
    object ClientDataSet1add_date: TStringField
      FieldName = 'add_date'
      Size = 10
    end
    object ClientDataSet1edit_date: TStringField
      FieldName = 'edit_date'
      Size = 10
    end
    object ClientDataSet1sec_mrk: TStringField
      FieldName = 'sec_mrk'
      Size = 5
    end
  end
  inherited UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update Sec'
      'set'
      '  SEC_NO = :SEC_NO,'
      '  sec_nm = :sec_nm'
      'where'
      '  SEC_NO = :OLD_SEC_NO')
    InsertSQL.Strings = (
      'insert into Sec'
      '  (SEC_NO, sec_nm)'
      'values'
      '  (:SEC_NO, :sec_nm)')
    DeleteSQL.Strings = (
      'delete from Sec'
      'where'
      '  SEC_NO = :OLD_SEC_NO')
  end
  inherited DosMove1: TDosMove
    Left = 144
    Top = 40
  end
  object ADOQpub: TADOQuery
    Connection = DM.ADOConnection1
    Parameters = <>
    Left = 16
    Top = 168
  end
end