unit5.dfm

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

object Form5: TForm5
  Left = 377
  Top = 233
  Width = 258
  Height = 281
  BorderIcons = [biSystemMenu]
  Caption = #29992#36884
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 250
    Height = 254
    Align = alClient
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 248
      Height = 216
      Align = alTop
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'ytmc'
          Title.Alignment = taCenter
          Title.Caption = #29992#36884
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clMaroon
          Title.Font.Height = -13
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 226
          Visible = True
        end>
    end
    object DBNavigator1: TDBNavigator
      Left = 1
      Top = 228
      Width = 248
      Height = 25
      DataSource = DataSource1
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost]
      Align = alBottom
      TabOrder = 1
    end
  end
  object DataSource1: TDataSource
    DataSet = ad_yt
    Left = 216
    Top = 16
  end
  object ad_yt: TADOTable
    Active = True
    Connection = Data.ADO1
    CursorType = ctStatic
    AfterInsert = ad_ytAfterInsert
    BeforePost = ad_ytBeforePost
    TableName = 'yt'
    Left = 176
    Top = 16
  end
end