ufrmfactory.dfm

小银行系统

inherited frmFactory: TfrmFactory
  Left = 130
  Top = 132
  Caption = #21378#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 = 'fac_no'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = #23435#20307
          Font.Style = []
          Footers = <>
          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 = 'fac_nm'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = #23435#20307
          Font.Style = []
          Footers = <>
          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 = 'fac_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 = 'fac_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 = #21378#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 = #21378#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  factory'#13#10' ORDER BY  fac_no '
  end
  inherited ClientDataSet1: TClientDataSet
    object ClientDataSet1fac_no: TStringField
      DisplayLabel = #21378#21035#20195#21495
      FieldName = 'fac_no'
      Size = 3
    end
    object ClientDataSet1fac_nm: TStringField
      DisplayLabel = #21378#21035#21517#31216
      FieldName = 'fac_nm'
      Size = 12
    end
    object ClientDataSet1grp_no: TStringField
      FieldName = 'grp_no'
      Size = 3
    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 factory'
      'set'
      '  fac_no = :fac_no,'
      '  fac_nm = :fac_nm'
      'where'
      '  fac_no = :OLD_fac_no')
    InsertSQL.Strings = (
      'insert into factory'
      '  (fac_no, fac_nm)'
      'values'
      '  (:fac_no, :fac_nm)')
    DeleteSQL.Strings = (
      'delete from factory'
      'where'
      '  fac_no = :OLD_fac_no')
  end
  inherited DosMove1: TDosMove
    Left = 144
    Top = 40
  end
  object ADOQpub: TADOQuery
    Connection = DM.ADOConnection1
    Parameters = <>
    Left = 16
    Top = 168
  end
end