unit1.dfm

一些關於查詢的簡單源碼...........................................................................

object Form1: TForm1
  Left = 75
  Top = 155
  Width = 945
  Height = 603
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 8
    Top = 48
    Width = 873
    Height = 297
    DataSource = DM1.DS1
    ImeName = #20013#25991' ('#32321#39636') - '#26032#27880#38899
    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 = []
    Columns = <
      item
        Expanded = False
        FieldName = #29289#26009#26009#34399
        Visible = True
      end
      item
        Expanded = False
        FieldName = #29289#26009#25104#26412
        Visible = True
      end
      item
        Expanded = False
        FieldName = #36092#26009#21069#32622#26399
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26368#23567#35330#36092#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = #29694#26377#24235#23384#37327
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24050#36865#36008#37327
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = #38656#27714#26085#26399
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'requirement'
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'receipts'
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'orders'
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'available'
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'shortages'
        Width = 64
        Visible = True
      end>
  end
  object Button1: TButton
    Left = 584
    Top = 360
    Width = 89
    Height = 33
    Caption = #20837#26009#25552#37266
    Font.Charset = CHINESEBIG5_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #27161#26999#39636
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 584
    Top = 400
    Width = 89
    Height = 33
    Caption = #28165#38500
    Font.Charset = CHINESEBIG5_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #27161#26999#39636
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = Button2Click
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 352
    Width = 553
    Height = 193
    Caption = #39023#31034#26597#35426#36039#26009
    TabOrder = 3
    object DBGrid2: TDBGrid
      Left = 8
      Top = 24
      Width = 513
      Height = 137
      DataSource = DM1.DS2
      ImeName = #20013#25991' ('#32321#39636') - '#26032#27880#38899
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = #29289#26009#26009#34399
          Visible = True
        end
        item
          Expanded = False
          FieldName = #36092#26009#21069#32622#26399
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = #38656#27714#26085#26399
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'orders'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'shortages'
          Width = 64
          Visible = True
        end>
    end
  end
  object Button4: TButton
    Left = 688
    Top = 360
    Width = 75
    Height = 25
    Caption = 'Button4'
    TabOrder = 4
    OnClick = Button4Click
  end
  object MainMenu1: TMainMenu
    Left = 16
    Top = 8
    object XT1: TMenuItem
      Caption = #27284#26696
      object XT2: TMenuItem
        Caption = #36617#20837'.TXT'#27284
        OnClick = XT2Click
      end
    end
  end
end