user_fac.dfm

小银行系统

inherited frmUser_fac: TfrmUser_fac
  Caption = #21378#21035#26435#38480#35774#23450
  Font.Charset = ANSI_CHARSET
  Font.Height = -14
  Font.Name = #23435#20307
  PixelsPerInch = 96
  TextHeight = 14
  inherited Splitter1: TSplitter
    Left = 257
  end
  inherited ScrollBox1: TScrollBox
    Width = 257
    inherited Memo1: TMemo
      Width = 253
    end
    inherited DBGrid1: TDBGridEh
      Width = 253
      FooterFont.Charset = ANSI_CHARSET
      FooterFont.Height = -14
      FooterFont.Name = #23435#20307
      FrozenCols = 2
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Height = -14
      TitleFont.Name = #23435#20307
      Columns = <
        item
          EditButtons = <>
          FieldName = 'user_no'
          Footers = <>
          Title.Caption = #29992#25143#21495
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clGreen
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'user_nm'
          Footers = <>
          Title.Caption = #29992#25143#21517
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clGreen
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'fac_no'
          Footers = <>
          Title.Caption = #21378#21035#20195#21495
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clGreen
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 58
        end
        item
          EditButtons = <>
          FieldName = 'fac_nm'
          Footers = <>
          Title.Caption = #21378#21035#21517#31216
          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 = 258
    Width = 347
    inherited DBEdit1: TDBEdit
      Left = 136
      Width = 113
      Height = 22
      Color = clGradientActiveCaption
      DataField = 'user_no'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Height = -14
      Font.Name = #23435#20307
      ParentFont = False
      OnExit = DBEdit1Exit
    end
    inherited DBEdit2: TDBEdit
      Left = 136
      Top = 96
      Width = 113
      Height = 22
      Color = clGradientActiveCaption
      DataField = 'fac_no'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Height = -14
      Font.Name = #23435#20307
      ParentFont = False
      OnExit = DBEdit2Exit
      OnKeyDown = DBEdit2KeyDown
    end
    object StaticText1: TStaticText
      Left = 63
      Top = 42
      Width = 60
      Height = 18
      Caption = #29992#25143#20195#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object StaticText5: TStaticText
      Left = 63
      Top = 69
      Width = 60
      Height = 18
      Caption = #29992#25143#21517#31216
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object DBEdit6: TDBEdit
      Left = 136
      Top = 66
      Width = 113
      Height = 22
      Color = clInfoBk
      DataField = 'user_nm'
      DataSource = DataSource1
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object StaticText2: TStaticText
      Left = 63
      Top = 103
      Width = 60
      Height = 18
      Caption = #21378#21035#20195#21495
      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 = 63
      Top = 132
      Width = 60
      Height = 18
      Caption = #21378#21035#21517#31216
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 6
    end
    object DBEdit3: TDBEdit
      Left = 136
      Top = 130
      Width = 113
      Height = 22
      Color = clInfoBk
      DataField = 'fac_nm'
      DataSource = DataSource1
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 7
    end
    object StaticText3: TStaticText
      Left = 63
      Top = 189
      Width = 60
      Height = 18
      Caption = #26032#22686#26102#38388
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 8
    end
    object DBEdit4: TDBEdit
      Left = 136
      Top = 184
      Width = 113
      Height = 22
      Color = clInfoBk
      DataField = 'add_date'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 9
    end
    object StaticText4: TStaticText
      Left = 63
      Top = 219
      Width = 60
      Height = 18
      Caption = #20462#25913#26102#38388
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 10
    end
    object DBEdit5: TDBEdit
      Left = 136
      Top = 214
      Width = 113
      Height = 22
      Color = clInfoBk
      DataField = 'edit_date'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 11
    end
  end
  inherited ADODataSet1: TADODataSet
    CommandText = 
      'select  user_fac.*,factory.fac_nm ,userdb.user_nm from user_fac ' +
      ' '#13#10'inner join factory on  user_fac.fac_no=factory.fac_no '#13#10'inner' +
      ' join userdb on user_fac.sys_id=userdb.sys_id  and'#13#10'user_fac.use' +
      'r_no=userdb.user_no'#13#10'where user_fac.sys_id='#39'4'#39'   '#13#10'order by  use' +
      'r_fac .user_no, user_fac .fac_no'
  end
  inherited ClientDataSet1: TClientDataSet
    object ClientDataSet1sys_id: TStringField
      FieldName = 'sys_id'
      Size = 1
    end
    object ClientDataSet1user_no: TStringField
      FieldName = 'user_no'
    end
    object ClientDataSet1fac_no: TStringField
      FieldName = 'fac_no'
      Size = 3
    end
    object ClientDataSet1add_date: TStringField
      FieldName = 'add_date'
      Size = 10
    end
    object ClientDataSet1edit_date: TStringField
      FieldName = 'edit_date'
      Size = 10
    end
    object ClientDataSet1fac_nm: TStringField
      FieldName = 'fac_nm'
      Size = 12
    end
    object ClientDataSet1user_nm: TStringField
      FieldName = 'user_nm'
    end
  end
  inherited UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update dbo.user_fac'
      'set'
      '  sys_id = :sys_id,'
      '  user_no = :user_no,'
      '  fac_no = :fac_no,'
      '  add_date = :add_date,'
      '  edit_date = :edit_date'
      'where'
      '  sys_id = :OLD_sys_id and'
      '  user_no = :OLD_user_no and'
      '  fac_no = :OLD_fac_no')
    InsertSQL.Strings = (
      'insert into dbo.user_fac'
      '  (sys_id, user_no, fac_no, add_date, edit_date)'
      'values'
      '  (:sys_id, :user_no, :fac_no, :add_date, :edit_date)')
    DeleteSQL.Strings = (
      'delete from dbo.user_fac'
      'where'
      '  sys_id = :OLD_sys_id and'
      '  user_no = :OLD_user_no and'
      '  fac_no = :OLD_fac_no')
  end
  inherited DosMove1: TDosMove
    Left = 152
    Top = 48
  end
  object ADOFactory: TADODataSet
    Connection = DM.ADOConnection1
    CursorType = ctStatic
    CommandText = 'factory'
    CommandType = cmdTable
    Parameters = <>
    Prepared = True
    Left = 20
    Top = 191
    object ADOFactoryfac_no: TStringField
      DisplayLabel = #21378#21035#20195#21495
      DisplayWidth = 10
      FieldName = 'fac_no'
      Size = 3
    end
    object ADOFactoryfac_nm: TStringField
      DisplayLabel = #21378#21035#21517#31216
      FieldName = 'fac_nm'
      Size = 12
    end
  end
  object ADOuserdb: TADODataSet
    Connection = DM.ADOConnection1
    CursorType = ctStatic
    CommandText = 'select user_no, user_nm from userdb WHERE sys_id='#39'4'#39
    Parameters = <>
    Prepared = True
    Left = 60
    Top = 191
    object ADOuserdbuser_no: TStringField
      DisplayLabel = #29992#25143#20195#21495
      FieldName = 'user_no'
    end
    object ADOuserdbuser_nm: TStringField
      DisplayLabel = #29992#25143#21517#31216
      FieldName = 'user_nm'
    end
  end
end