dzczzhm.dfm

用delphi开发的电力调度操作票系统并带有access数据库

object Frm_DZCZZHM: TFrm_DZCZZHM
  Left = 147
  Top = -9
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #20498#38392#25805#20316#32452#21512#31649#29702
  ClientHeight = 578
  ClientWidth = 940
  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 Label1: TLabel
    Left = 560
    Top = 14
    Width = 72
    Height = 16
    Caption = #25805#20316#36873#39033':'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 757
    Top = 14
    Width = 72
    Height = 16
    Caption = #24320#20851#31867#22411':'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 757
    Top = 238
    Width = 56
    Height = 16
    Caption = #34920#31867#22411':'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object DBGrid: TDBGrid
    Left = 16
    Top = 40
    Width = 529
    Height = 473
    DataSource = DataSource
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGridCellClick
    Columns = <
      item
        Expanded = False
        FieldName = #25805#20316#36873#39033
        Width = 62
        Visible = True
      end
      item
        Expanded = False
        FieldName = #34920#31867#22411
        PickList.Strings = (
          'KG'
          'XLKG'
          'ZCZH'
          'HWKG')
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24320#20851#31867#22411
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21069#32512
        Width = 42
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21518#32512
        Width = 175
        Visible = True
      end
      item
        Expanded = False
        FieldName = #22791#27880
        Visible = True
      end>
  end
  object DBNavigator1: TDBNavigator
    Left = 16
    Top = 8
    Width = 240
    Height = 25
    DataSource = DataSource
    Hints.Strings = (
      #31532#19968#26465#35760#24405
      #19978#19968#26465#35760#24405
      #19979#19968#26465#35760#24405
      #26368#21518#19968#26465#35760#24405
      #25554#20837
      #21024#38500
      #32534#36753
      #25552#20132
      #21462#28040
      #21047#26032)
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
  end
  object DBGrid_CZXH: TDBGrid
    Left = 560
    Top = 40
    Width = 185
    Height = 473
    DataSource = DataSource_CZXH
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #25805#20316#32534#21495
        Width = 53
        Visible = True
      end
      item
        Expanded = False
        FieldName = #25805#20316#36873#39033
        Width = 88
        Visible = True
      end
      item
        Expanded = False
        FieldName = #22791#27880
        Visible = True
      end>
  end
  object DBGrid_KGLX: TDBGrid
    Left = 757
    Top = 40
    Width = 161
    Height = 161
    DataSource = DataSource_KGLX
    ReadOnly = True
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #31867#22411#32534#21495
        Width = 58
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31867#22411#21517#31216
        Width = 65
        Visible = True
      end>
  end
  object ListBox1: TListBox
    Left = 760
    Top = 264
    Width = 65
    Height = 97
    ItemHeight = 13
    Items.Strings = (
      'KG'
      'XLKG'
      'ZCZH'
      'HWKG')
    TabOrder = 4
  end
  object ListBox2: TListBox
    Left = 827
    Top = 264
    Width = 89
    Height = 97
    ItemHeight = 13
    Items.Strings = (
      #20986#32447#24320#20851
      #20117#25490#32447#24320#20851
      #36716#20986#36716#22238#24320#20851
      #25143#22806#24320#20851)
    TabOrder = 5
  end
  object ADOQuery: TADOQuery
    Parameters = <>
    Left = 264
    Top = 8
  end
  object DataSource: TDataSource
    DataSet = ADOTable
    Left = 280
    Top = 200
  end
  object DataSource_CZXH: TDataSource
    DataSet = ADOTable_CZXH
    Left = 648
    Top = 184
  end
  object ADOTable_CZXH: TADOTable
    Left = 600
    Top = 184
  end
  object ADOTable_KGLX: TADOTable
    Left = 768
    Top = 96
  end
  object DataSource_KGLX: TDataSource
    DataSet = ADOTable_KGLX
    Left = 808
    Top = 96
  end
  object ADOTable: TADOTable
    Left = 184
    Top = 192
  end
end