企业管理

开发平台：
Delphi

f_xshuo.dfm：源码内容
							object w_xshuo: Tw_xshuo
  Left = 321
  Top = 190
  BorderStyle = bsDialog
  Caption = #38144#21806#19982#21512#21516
  ClientHeight = 271
  ClientWidth = 457
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 94
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 457
    Height = 225
    TabOrder = 0
    object Label1: TLabel
      Left = 152
      Top = 16
      Width = 128
      Height = 13
      Caption = #38144#21806#19982#21512#21516#24405#20837'          '
    end
    object Label2: TLabel
      Left = 8
      Top = 56
      Width = 68
      Height = 13
      Caption = #38144#21806#32534#21495'    '
      FocusControl = DBEdit1
    end
    object Label3: TLabel
      Left = 208
      Top = 48
      Width = 65
      Height = 13
      Caption = #38144#21806#21333#20301'   '
      FocusControl = DBEdit2
    end
    object Label4: TLabel
      Left = 8
      Top = 128
      Width = 56
      Height = 13
      Caption = #21333#20301#22320#22336
      FocusControl = DBEdit3
    end
    object Label5: TLabel
      Left = 8
      Top = 176
      Width = 71
      Height = 13
      Caption = #20107#24773#20869#23481'     '
      FocusControl = DBEdit4
    end
    object Label6: TLabel
      Left = 8
      Top = 96
      Width = 68
      Height = 13
      Caption = #26377#25928#26085#26399'    '
      FocusControl = DBEdit5
    end
    object Label7: TLabel
      Left = 208
      Top = 88
      Width = 65
      Height = 13
      Caption = #21040#26399#26085#26399'   '
      FocusControl = DBEdit6
    end
    object DBEdit1: TDBEdit
      Left = 88
      Top = 48
      Width = 105
      Height = 21
      DataField = 's_bh'
      DataSource = DataSource1
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 288
      Top = 48
      Width = 153
      Height = 21
      DataField = 's_dw'
      DataSource = DataSource1
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 88
      Top = 128
      Width = 193
      Height = 21
      DataField = 's_dz'
      DataSource = DataSource1
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 88
      Top = 168
      Width = 193
      Height = 21
      DataField = 's_sq'
      DataSource = DataSource1
      TabOrder = 3
    end
    object DBEdit5: TDBEdit
      Left = 88
      Top = 88
      Width = 105
      Height = 21
      DataField = 's_stime'
      DataSource = DataSource1
      TabOrder = 4
    end
    object DBEdit6: TDBEdit
      Left = 296
      Top = 88
      Width = 129
      Height = 21
      DataField = 's_xtime'
      DataSource = DataSource1
      TabOrder = 5
    end
  end
  object DBNavigator1: TDBNavigator
    Left = 40
    Top = 232
    Width = 330
    Height = 33
    DataSource = DataSource1
    TabOrder = 1
  end
  object DataSource1: TDataSource
    DataSet = ado_xshou
    Left = 256
  end
  object ado_xshou: TADOQuery
    Active = True
    Connection = Data1.database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from xshuo ')
    Left = 304
    object ado_xshous_bh: TStringField
      FieldName = 's_bh'
      FixedChar = True
      Size = 10
    end
    object ado_xshous_dw: TStringField
      FieldName = 's_dw'
      FixedChar = True
    end
    object ado_xshous_dz: TStringField
      FieldName = 's_dz'
      FixedChar = True
      Size = 50
    end
    object ado_xshous_sq: TStringField
      FieldName = 's_sq'
      FixedChar = True
    end
    object ado_xshous_stime: TDateTimeField
      FieldName = 's_stime'
    end
    object ado_xshous_xtime: TDateTimeField
      FieldName = 's_xtime'
    end
  end
end

						