uworkmode.dfm

这是一个三层的进销存系统

inherited frmworkmode: Tfrmworkmode
  Left = 194
  Top = 86
  Height = 378
  Caption = #24037#31181#35774#32622
  PixelsPerInch = 96
  TextHeight = 12
  inherited CoolBar1: TCoolBar
    Top = 317
  end
  inherited Grid: TDBGridEh
    Height = 317
    Columns = <
      item
        EditButtons = <>
        FieldName = 'fid'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #24207#21495
      end
      item
        EditButtons = <>
        FieldName = 'fcode'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #24037#31181#20195#30721
      end
      item
        EditButtons = <>
        FieldName = 'fname'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #24037#31181#21517#31216
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'ftaxmode'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #25152#24471#31246#20132#32435#26041#24335
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'ftax'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #31246#29575
      end
      item
        EditButtons = <>
        FieldName = 'fifwork'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #26159#21542#32771#21220
      end
      item
        EditButtons = <>
        FieldName = 'fifworkp'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #36718#29260#19978#38047
      end
      item
        EditButtons = <>
        FieldName = 'fnote'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #22791#27880
        Width = 180
      end>
  end
  inherited CDSbaseinfo: TClientDataSet
    object CDSbaseinfofid: TIntegerField
      FieldName = 'fid'
    end
    object CDSbaseinfofcode: TWideStringField
      FieldName = 'fcode'
      Size = 12
    end
    object CDSbaseinfofname: TWideStringField
      FieldName = 'fname'
    end
    object CDSbaseinfoftaxmode: TWideStringField
      FieldName = 'ftaxmode'
    end
    object CDSbaseinfoftax: TBCDField
      FieldName = 'ftax'
      Precision = 9
      Size = 2
    end
    object CDSbaseinfofifwork: TBooleanField
      FieldName = 'fifwork'
    end
    object CDSbaseinfofifworkp: TBooleanField
      FieldName = 'fifworkp'
    end
    object CDSbaseinfofnote: TWideStringField
      FieldName = 'fnote'
      Size = 50
    end
  end
  inherited frBaseinfo: TfrReport
    ReportForm = {19000000}
  end
  object ADOTable1: TADOTable
    Active = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=leaders;Data Source=LIUXIANG'
    CursorType = ctStatic
    TableName = 'tworkmode'
    Left = 184
    Top = 104
    object ADOTable1fid: TIntegerField
      FieldName = 'fid'
    end
    object ADOTable1fcode: TWideStringField
      FieldName = 'fcode'
      Size = 12
    end
    object ADOTable1fname: TWideStringField
      FieldName = 'fname'
    end
    object ADOTable1ftaxmode: TWideStringField
      FieldName = 'ftaxmode'
    end
    object ADOTable1ftax: TBCDField
      FieldName = 'ftax'
      Precision = 9
      Size = 2
    end
    object ADOTable1fifwork: TBooleanField
      FieldName = 'fifwork'
    end
    object ADOTable1fifworkp: TBooleanField
      FieldName = 'fifworkp'
    end
    object ADOTable1fnote: TWideStringField
      FieldName = 'fnote'
      Size = 50
    end
  end
end