unit4.~dfm

数据库应用类,可以作为企业财务方面的工具,以delphi7开发,结合mssql.有兴趣的朋友可以看看

object Form4: TForm4
  Left = 334
  Top = 171
  Width = 394
  Height = 232
  BorderIcons = [biSystemMenu]
  Caption = #20351#29992#21333#20301#20449#24687
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clMaroon
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 321
    Height = 196
    BevelInner = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 4
      Top = 16
      Width = 56
      Height = 14
      Caption = #21333#20301#21517#31216
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 4
      Top = 55
      Width = 56
      Height = 14
      Caption = #21333#20301#27861#20154
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 164
      Top = 131
      Width = 56
      Height = 14
      Caption = #21333#20301#30005#35805
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 4
      Top = 92
      Width = 56
      Height = 14
      Caption = #21333#20301#22320#22336
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 4
      Top = 131
      Width = 56
      Height = 14
      Caption = #32852' '#31995' '#20154
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 162
      Top = 56
      Width = 56
      Height = 14
      Caption = #21333#20301#37038#32534
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 2
      Top = 169
      Width = 63
      Height = 14
      Caption = 'EMAIL'#22320#22336
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBEdit1: TDBEdit
      Left = 64
      Top = 13
      Width = 250
      Height = 20
      DataField = 'uses_dwmc'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 64
      Top = 52
      Width = 95
      Height = 20
      DataField = 'uses_dwfr'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 220
      Top = 127
      Width = 95
      Height = 20
      DataField = 'uses_dwdh'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 64
      Top = 90
      Width = 249
      Height = 20
      DataField = 'uses_addrs'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object DBEdit5: TDBEdit
      Left = 66
      Top = 128
      Width = 95
      Height = 20
      DataField = 'uses_lxr'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object DBEdit6: TDBEdit
      Left = 220
      Top = 52
      Width = 95
      Height = 20
      DataField = 'uses_yb'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object DBEdit7: TDBEdit
      Left = 67
      Top = 166
      Width = 246
      Height = 20
      DataField = 'uses_addrs'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 6
    end
  end
  object BitBtn1: TBitBtn
    Left = 326
    Top = 48
    Width = 57
    Height = 25
    Caption = #20445' '#23384
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 326
    Top = 128
    Width = 57
    Height = 25
    Caption = #36864'  '#20986
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
  end
  object DataSource1: TDataSource
    DataSet = Data.SYDW
    Left = 216
    Top = 32
  end
end