charge.~dfm

软件类别: 数据库 软件大小: 2.60M 运行环境: Win9xNT/2000/XP 一套车辆管理系统,此版本为商业版,大家一定用的着。

object frm_Charge: Tfrm_Charge
  Left = 84
  Top = 124
  Width = 707
  Height = 553
  AutoSize = True
  Caption = 'frm_Charge'
  Color = clSkyBlue
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 699
    Height = 526
    Align = alClient
    BevelOuter = bvNone
    Color = clSkyBlue
    TabOrder = 0
    object Panel3: TPanel
      Left = 0
      Top = 0
      Width = 699
      Height = 24
      Align = alTop
      BevelOuter = bvNone
      Color = clCream
      TabOrder = 0
      object Label2: TLabel
        Left = 20
        Top = 6
        Width = 128
        Height = 15
        Alignment = taCenter
        Caption = #9670#36710#36742#20132#36153#31649#29702#9670
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
    object Panel2: TPanel
      Left = 0
      Top = 136
      Width = 699
      Height = 390
      Align = alClient
      BevelOuter = bvNone
      Caption = 'Panel2'
      Color = clSkyBlue
      TabOrder = 1
      object Panel5: TPanel
        Left = 0
        Top = 0
        Width = 699
        Height = 24
        Align = alTop
        BevelOuter = bvNone
        Color = clCream
        TabOrder = 0
        object Label1: TLabel
          Left = 20
          Top = 6
          Width = 137
          Height = 15
          Alignment = taCenter
          Caption = #9670#36710#36742#20132#36153#26126#32454' '#9670
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -15
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
        end
      end
      object ToolBar1: TToolBar
        Left = 0
        Top = 363
        Width = 699
        Height = 27
        Align = alBottom
        ButtonHeight = 24
        Caption = 'ToolBar1'
        Color = clCream
        ParentColor = False
        TabOrder = 1
        object Cmd_Add: TSpeedButton
          Left = 0
          Top = 2
          Width = 66
          Height = 24
          Caption = #22686#21152
          OnClick = Cmd_AddClick
        end
        object Cmd_Save: TSpeedButton
          Left = 66
          Top = 2
          Width = 66
          Height = 24
          Caption = #25910#36153
          Enabled = False
          OnClick = Cmd_SaveClick
        end
        object Cmd_Exit: TSpeedButton
          Left = 132
          Top = 2
          Width = 66
          Height = 24
          Caption = #21462#28040
          OnClick = Cmd_ExitClick
        end
        object SpeedButton8: TSpeedButton
          Left = 198
          Top = 2
          Width = 66
          Height = 24
          Caption = #25171#21360
          OnClick = SpeedButton8Click
        end
        object SpeedButton7: TSpeedButton
          Left = 264
          Top = 2
          Width = 66
          Height = 24
          Caption = #25253#34920
          OnClick = SpeedButton7Click
        end
        object SpeedButton6: TSpeedButton
          Left = 330
          Top = 2
          Width = 66
          Height = 24
        end
        object SpeedButton5: TSpeedButton
          Left = 396
          Top = 2
          Width = 66
          Height = 24
        end
        object SpeedButton2: TSpeedButton
          Left = 462
          Top = 2
          Width = 66
          Height = 24
        end
      end
      object Panel8: TPanel
        Left = 0
        Top = 24
        Width = 699
        Height = 339
        Align = alClient
        BevelOuter = bvNone
        Caption = 'Panel8'
        ParentColor = True
        TabOrder = 2
        object Panel9: TPanel
          Left = 0
          Top = 0
          Width = 699
          Height = 339
          Align = alClient
          BevelOuter = bvNone
          Caption = 'Panel9'
          Color = clSkyBlue
          TabOrder = 0
          object DBGrid1: TDBGrid
            Left = 0
            Top = 246
            Width = 699
            Height = 93
            Hint = #21452#20987#20250#20986#29616#26126#32454#34920#30340#24773#20917
            Align = alBottom
            DataSource = frm_Data.Data_Pro_Charge_View
            FixedColor = clSkyBlue
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
            ParentShowHint = False
            ReadOnly = True
            ShowHint = True
            TabOrder = 0
            TitleFont.Charset = GB2312_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -13
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            Visible = False
            OnCellClick = DBGrid1CellClick
            OnDblClick = DBGrid1DblClick
            Columns = <
              item
                Expanded = False
                FieldName = 'List_No'
                Title.Caption = #21333#25454#32534#21495
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'C_ID'
                Title.Caption = #36710#29260#21495#30721
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Charager'
                Title.Caption = #25910#36153#20154#21592
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Charge_Date'
                Title.Caption = #25910#36153#26085#26399
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Charge_Mond'
                Title.Caption = #25910#36153#21333#20301
                Visible = True
              end>
          end
          object Panel6: TPanel
            Left = 0
            Top = 0
            Width = 699
            Height = 246
            Align = alClient
            BevelOuter = bvNone
            Caption = 'Panel6'
            TabOrder = 1
            object Panel4: TPanel
              Left = 0
              Top = 0
              Width = 54
              Height = 246
              Align = alLeft
              Color = clSkyBlue
              TabOrder = 0
              object SpeedButton3: TSpeedButton
                Left = 5
                Top = 24
                Width = 46
                Height = 22
                Caption = #22686#34892
                OnClick = SpeedButton3Click
              end
              object SpeedButton4: TSpeedButton
                Left = 5
                Top = 48
                Width = 46
                Height = 22
                Caption = #20943#34892
                OnClick = SpeedButton4Click
              end
            end
            object StringGrid1: TStringGrid
              Left = 54
              Top = 0
              Width = 645
              Height = 246
              Hint = #21487#20197#21452#20987#20250#20986#29616#36873#25321#26639
              Align = alClient
              Color = clWhite
              DefaultRowHeight = 20
              FixedColor = clSkyBlue
              RowCount = 2
              Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goRowSizing, goColSizing, goRowMoving, goColMoving, goEditing, goTabs, goThumbTracking]
              ParentShowHint = False
              ShowHint = True
              TabOrder = 1
              OnDblClick = StringGrid1DblClick
              OnDrawCell = StringGrid1DrawCell
              ColWidths = (
                64
                64
                64
                64
                64)
            end
          end