unit2.dfm

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

object Form2: TForm2
  Left = 158
  Top = 96
  Anchors = []
  AutoScroll = False
  AutoSize = True
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #20986#20179#31649#29702
  ClientHeight = 457
  ClientWidth = 801
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnHide = FormHide
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 48
    Top = 336
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #20986#20179#26102#38388
  end
  object Label2: TLabel
    Left = 264
    Top = 336
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #36141#36135#21333#20301
  end
  object Label3: TLabel
    Left = 472
    Top = 368
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #20986#20179#21697#31181
  end
  object Label4: TLabel
    Left = 264
    Top = 368
    Width = 65
    Height = 17
    AutoSize = False
    Caption = #21697#31181#31867#21035
  end
  object Label5: TLabel
    Left = 664
    Top = 368
    Width = 73
    Height = 21
    AutoSize = False
    Caption = #20986#20179#25968#37327'('#20214')'
  end
  object Label6: TLabel
    Left = 48
    Top = 400
    Width = 73
    Height = 17
    AutoSize = False
    Caption = #20986#20179#37325#37327'(T)'
  end
  object Label7: TLabel
    Left = 256
    Top = 400
    Width = 73
    Height = 17
    AutoSize = False
    Caption = #21333'     '#20215'  ('#20803')'
  end
  object Label8: TLabel
    Left = 48
    Top = 368
    Width = 73
    Height = 13
    AutoSize = False
    Caption = ' '#21457' '#36135' '#20154
  end
  object Label9: TLabel
    Left = 456
    Top = 400
    Width = 65
    Height = 17
    AutoSize = False
    Caption = #25215' '#36816' '#36710' '#21495
  end
  object Label10: TLabel
    Left = 664
    Top = 336
    Width = 65
    Height = 13
    AutoSize = False
    Caption = ' '#38144' '#21806' '#21592
  end
  object Label11: TLabel
    Left = 472
    Top = 336
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #36865#36135#22320#22336
  end
  object Label12: TLabel
    Left = 616
    Top = 400
    Width = 36
    Height = 13
    Caption = #20973#35777#21495
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 777
    Height = 321
    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 = 'OutA'
        ImeMode = imHira
        Title.Caption = #20986#20179#26102#38388
        Width = 65
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'OutB'
        Title.Caption = #36141#36135#21333#20301
        Width = 59
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'OutC'
        Title.Caption = #20986#20179#21697#31181
        Width = 57
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'OutD'
        Title.Caption = #21697#31181#31867#21035
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'OutE'
        Title.Caption = #20986#20179#25968#37327
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'OutF'
        Title.Caption = #20986#20179#37325#37327
        Width = 54
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'OutG'
        Title.Caption = #21333#20215
        Width = 29
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'OutH'
        Title.Caption = #37329#39069
        Width = 35
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'OutI'
        Title.Caption = #21457#36135#20154
        Width = 63
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'OutJ'
        Title.Caption = #25215#36816#36710#21495
        Width = 58
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'OutK'
        Title.Caption = #38144#21806#21592
        Width = 59
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'OUTL'
        Title.Caption = #36865#36135#22320#28857
        Width = 83
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'outm'
        Title.Caption = #20973#35777#21495
        Width = 50
        Visible = True
      end>
  end
  object OutB: TEdit
    Left = 344
    Top = 336
    Width = 121
    Height = 21
    TabOrder = 2
  end
  object OutC: TEdit
    Left = 536
    Top = 368
    Width = 121
    Height = 21
    CharCase = ecUpperCase
    TabOrder = 7
  end
  object OutD: TEdit
    Left = 344
    Top = 368
    Width = 121
    Height = 21
    CharCase = ecUpperCase
    TabOrder = 6
  end
  object OutE: TEdit
    Left = 736
    Top = 368
    Width = 65
    Height = 21
    TabOrder = 8
  end
  object OutF: TEdit
    Left = 128
    Top = 400
    Width = 121
    Height = 21
    TabOrder = 9
  end
  object OutG: TEdit
    Left = 328
    Top = 400
    Width = 121
    Height = 21
    TabOrder = 10
  end
  object OutI: TEdit
    Left = 112
    Top = 368
    Width = 129
    Height = 21
    TabOrder = 5
  end
  object OutJ: TEdit
    Left = 520
    Top = 400
    Width = 81
    Height = 21
    TabOrder = 11
  end
  object OutK: TEdit
    Left = 720
    Top = 336
    Width = 81
    Height = 21
    TabOrder = 4
  end
  object Button1: TButton
    Left = 56
    Top = 432
    Width = 105
    Height = 25
    Caption = #28155#21152
    TabOrder = 13
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 328
    Top = 432
    Width = 89
    Height = 25
    Caption = #20462#25913
    Enabled = False
    TabOrder = 14
    Visible = False
    OnClick = Button2Click
  end
  object OutA: TDateTimePicker
    Left = 112
    Top = 336
    Width = 129
    Height = 21
    CalAlignment = dtaLeft
    Date = 38567
    Time = 38567
    DateFormat = dfShort
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 1
  end
  object Button3: TButton
    Left = 328
    Top = 432
    Width = 91
    Height = 25
    Caption = #21024#38500
    Enabled = False
    TabOrder = 15
    OnClick = Button3Click
  end
  object OUTL: TEdit
    Left = 536
    Top = 336
    Width = 121
    Height = 21
    TabOrder = 3
  end
  object Button5: TButton
    Left = 600
    Top = 432
    Width = 75
    Height = 25
    Caption = #20986#20179#26597#35810
    TabOrder = 16
    OnClick = Button5Click
  end
  object outm: TEdit
    Left = 672
    Top = 400
    Width = 113
    Height = 21
    TabOrder = 12
  end
  object DBLookupComboBox1: TDBLookupComboBox
    Left = 344
    Top = 368
    Width = 121
    Height = 21
    KeyField = 'LB'
    ListField = 'LB'
    ListSource = DataSource2
    TabOrder = 17
  end
  object DBLookupComboBox2: TDBLookupComboBox
    Left = 720
    Top = 336
    Width = 81
    Height = 21
    KeyField = 'XSY'
    ListField = 'XSY'
    ListSource = DataSource3
    TabOrder = 18
  end
  object ADOTable1: TADOTable
    Active = True
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;Data Source=MS Ac' +
      'cess Database;Initial Catalog=jxc'
    CursorType = ctStatic
    IndexFieldNames = 'outa'
    TableName = 'OUT'
    Left = 8
    Top = 56
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 40
    Top = 56
  end
  object frDBDataSet1: TfrDBDataSet
    DataSet = ADOTable1
    Left = 8
    Top = 88
  end
  object frReport1: TfrReport
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    RebuildPrinter = False
    Left = 8
    Top = 120
    ReportForm = {19000000}
  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 = 720
    Top = 232
  end
  object DataSource2: TDataSource
    DataSet = ADOTable2
    Left = 720
    Top = 264
  end
  object ADOTable3: TADOTable
    Active = True
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;Data Source=MS Ac' +
      'cess Database;Initial Catalog=jxc'
    CursorType = ctStatic
    TableName = 'XSY'
    Left = 720
    Top = 136
  end
  object DataSource3: TDataSource
    DataSet = ADOTable3
    Left = 720
    Top = 168
  end
end