jxc.dfm

基于ACESS数据库的小型进销存管理软件。

object Form1: TForm1
  Left = 138
  Top = 95
  Width = 785
  Height = 483
  AutoSize = True
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #36827#20179#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 40
    Top = 336
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #36827#20179#26102#38388
  end
  object Label2: TLabel
    Left = 264
    Top = 328
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #20379#36135#21333#20301
  end
  object Label3: TLabel
    Left = 616
    Top = 328
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #36827#20179#21697#31181
  end
  object Label4: TLabel
    Left = 448
    Top = 328
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #21697#31181#31867#21035
  end
  object Label5: TLabel
    Left = 40
    Top = 368
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #36827#20179#25968#37327
  end
  object Label6: TLabel
    Left = 264
    Top = 360
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #36827#20179#37325#37327
  end
  object Label7: TLabel
    Left = 456
    Top = 360
    Width = 49
    Height = 13
    AutoSize = False
    Caption = #21333'  '#20215' '
  end
  object Label8: TLabel
    Left = 608
    Top = 360
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #25910' '#36135' '#20154
  end
  object Label9: TLabel
    Left = 40
    Top = 392
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #36865' '#36135' '#36710' '#21495
  end
  object Label10: TLabel
    Left = 264
    Top = 392
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #37319' '#36141' '#21592
  end
  object Label11: TLabel
    Left = 464
    Top = 392
    Width = 36
    Height = 13
    Caption = #20973#35777#21495
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 777
    Height = 313
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
    Columns = <
      item
        Expanded = False
        FieldName = 'InA'
        Title.Caption = #36827#20179#26102#38388
        Width = 62
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'InB'
        Title.Caption = #20379#36135#21333#20301
        Width = 67
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'InC'
        Title.Caption = #36827#20179#21697#31181
        Width = 61
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'InD'
        Title.Caption = #21697#31181#31867#21035
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'InE'
        Title.Caption = #36827#20179#25968#37327'('#20214')'
        Width = 76
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'InF'
        Title.Caption = #36827#20179#37325#37327'(T)'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'InG'
        Title.Caption = #21333' '#20215' ('#20803')'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'InH'
        Title.Caption = #37329'  '#39069' ('#20803')'
        Width = 57
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'InI'
        Title.Caption = #25910#36135#20154
        Width = 46
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'InJ'
        Title.Caption = #36865#36135#36710#21495
        Width = 49
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'InK'
        Title.Caption = #37319#36141#21592
        Width = 65
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'inl'
        Title.Caption = #20973#35777#21495
        Width = 55
        Visible = True
      end>
  end
  object InB: TEdit
    Left = 328
    Top = 328
    Width = 113
    Height = 21
    TabOrder = 1
  end
  object InC: TEdit
    Left = 680
    Top = 328
    Width = 97
    Height = 21
    CharCase = ecUpperCase
    TabOrder = 3
  end
  object InD: TEdit
    Left = 512
    Top = 328
    Width = 89
    Height = 21
    CharCase = ecUpperCase
    TabOrder = 2
  end
  object InE: TEdit
    Left = 120
    Top = 360
    Width = 137
    Height = 21
    TabOrder = 4
  end
  object InF: TEdit
    Left = 328
    Top = 360
    Width = 113
    Height = 21
    TabOrder = 5
  end
  object InG: TEdit
    Left = 512
    Top = 360
    Width = 89
    Height = 21
    TabOrder = 6
  end
  object InI: TEdit
    Left = 672
    Top = 360
    Width = 105
    Height = 21
    TabOrder = 7
  end
  object InJ: TEdit
    Left = 120
    Top = 392
    Width = 137
    Height = 21
    TabOrder = 8
  end
  object InK: TEdit
    Left = 328
    Top = 392
    Width = 113
    Height = 21
    HideSelection = False
    TabOrder = 9
  end
  object Button1: TButton
    Left = 312
    Top = 424
    Width = 75
    Height = 25
    Caption = ' '#20462'  '#25913
    Enabled = False
    TabOrder = 11
    Visible = False
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 312
    Top = 424
    Width = 75
    Height = 25
    Caption = ' '#21024'  '#38500
    Enabled = False
    TabOrder = 12
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 40
    Top = 424
    Width = 75
    Height = 25
    Caption = ' '#28155'  '#21152
    TabOrder = 13
    OnClick = Button3Click
  end
  object InA: TDateTimePicker
    Left = 120
    Top = 328
    Width = 137
    Height = 21
    CalAlignment = dtaLeft
    Date = 38567
    Time = 38567
    DateFormat = dfShort
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 14
  end
  object Button5: TButton
    Left = 592
    Top = 424
    Width = 75
    Height = 25
    Caption = #36827#20179#26597#35810
    TabOrder = 15
    OnClick = Button5Click
  end
  object InL: TEdit
    Left = 520
    Top = 392
    Width = 121
    Height = 21
    TabOrder = 10
  end
  object DBLookupComboBox1: TDBLookupComboBox
    Left = 512
    Top = 328
    Width = 97
    Height = 21
    KeyField = 'LB'
    ListField = 'LB'
    ListSource = DataSource2
    TabOrder = 16
  end
  object ADOTable1: TADOTable
    Active = True
    AutoCalcFields = False
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;Data Source=MS Ac' +
      'cess Database;Initial Catalog=jxc'
    CursorType = ctStatic
    IndexFieldNames = 'ina'
    TableName = 'IO'
    Left = 8
    Top = 112
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 8
    Top = 40
  end
  object frDBDataSet1: TfrDBDataSet
    DataSet = ADOTable1
    Left = 8
    Top = 88
  end
  object frReport2: TfrReport
    Dataset = frDBDataSet1
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    RebuildPrinter = False
    Left = 8
    Top = 144
    ReportForm = {19000000}
  end
  object DataSource2: TDataSource
    DataSet = ADOTable2
    Left = 680
    Top = 216
  end
  object ADOTable2: TADOTable
    Active = True
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;Data Source=MS Ac' +
      'cess Database;Initial Catalog=jxc'
    CursorType = ctStatic
    TableName = 'LB'
    Left = 680
    Top = 184
  end
end