unit1.~dfm

delphi数据库的程序代码

      EEEEE3E3E3EDEDEDE7E7E7E6E6E6E3E3E3E6E6E6F1F1F1EDEDEDE5E5E5DDDDDD
      DFDFDFD9D9D9E6E6E6DBDBDBE5E5E5EDEDEDECECECFFFFFFFFFFFFF6F6F6F9F9
      F9E9E9E9F2F2F2F2F2F2ECECECEFEFEFF8F8F8EEEEEEE9E9E9EFEFEFE7E7E7E2
      E2E2F6F6F6EBEBEBE7E7E7F6F6F6F2F2F2ECECECF7F7F7F3F3F3F9F9F9F3F3F3
      EEEEEEEDEDEDECECECE9E9E9E6E6E6E6E6E6E2E2E2E3E3E3E7E7E7E3E3E3DDDD
      DDDFDFDFE2E2E2DEDEDEE8E8E8E5E5E5E2E2E2E3E3E3E8E8E8E6E6E6E7E7E7EE
      EEEEEBEBEBEBEBEBEBEBEBF0F0F0FCFCFCFFFFFFF6F6F6EDEDEDE7E7E7E3E3E3
      F0F0F0EDEDEDE8E8E8E6E6E6E0E0E0EBEBEBE8E8E8F1F1F1EAEAEAE9E9E9E6E6
      E6E5E5E5F1F1F1EDEDEDF1F1F1F1F1F1F5F5F5FBFBFBFBFBFBF5F5F5EEEEEEEB
      EBEBECECECF1F1F1F3F3F3EDEDEDE6E6E6EEEEEEEDEDEDDDDDDDE8E8E8E7E7E7
      E9E9E9EEEEEEEEEEEEE9E9E9E5E5E5E3E3E3E7E7E7E7E7E7E3E3E3ECECECEAEA
      EAE3E3E3EAEAEAEFEFEFEBEBEBEAEAEAECECECF1F1F1F5F5F5F3F3F3F1F1F1EF
      EFEFE8E8E8F3F3F3EDEDEDEAEAEAE5E5E5E5E5E5F2F2F2EFEFEFDEDEDEE8E8E8
      E0E0E0E5E5E5E0E0E0EFEFEFE9E9E9EDEDEDFFFFFFFAFAFAFCFCFCFEFEFEF2F2
      F2EFEFEFF0F0F0FAFAFAFEFEFEEFEFEFEAEAEAE5E5E5E9E9E9E5E5E5DFDFDFFA
      FAFAEFEFEFF6F6F6E8E8E8EEEEEEFBFBFBF6F6F6F3F3F3ECECECF6F6F6F0F0F0
      ECECECEDEDEDEEEEEEE9E9E9E2E2E2DFDFDFDADADAE2E2E2E5E5E5DEDEDEDDDD
      DDE9E9E9EFEFEFE8E8E8E0E0E0E2E2E2E2E2E2E7E7E7EDEDEDE6E6E6E3E3E3F1
      F1F1E7E7E7EDEDEDEEEEEEE9E9E9EDEDEDEEEEEEEDEDEDE9E9E9E7E7E7DFDFDF
      DDDDDDE3E3E3EBEBEBEBEBEBE7E7E7E5E5E5F2F2F2ECECECEAEAEAF3F3F3FAFA
      FAF6F6F6EBEBEBE3E3E3EBEBEBE7E7E7EFEFEFF2F2F2ECECECE6E6E6E3E3E3EF
      EFEFDEDEDEE2E2E2E1E1E1ECECECE0E0E0E9E9E9E5E5E5E7E7E7E3E3E3EAEAEA
      F0F0F0F1F1F1F0F0F0EEEEEEEAEAEAE6E6E6ECECECE9E9E9E0E0E0DCDCDCE5E5
      E5EDEDEDEFEFEFF0F0F0EBEBEBF5F5F5F2F2F2EAEAEAEEEEEEF1F1F1F2F2F2F6
      F6F6EEEEEEE5E5E5E1E1E1E6E6E6E8E8E8E7E7E7EAEAEAF2F2F2DDDDDDE7E7E7
      EAEAEAE5E5E5E5E5E5EBEBEBF6F6F6FFFFFFFDFDFDFDFDFDFFFFFFFDFDFDF6F6
      F6F5F5F5F9F9F9FAFAFAEEEEEEE5E5E5EAEAEAE5E5E5EBEBEBF6F6F6EFEFEFF2
      F2F2FBFBFBF8F8F8EEEEEEEAEAEAF9F9F9FBFBFBEDEDEDEDEDEDEFEFEFEEEEEE
      EEEEEEECECECEAEAEAE8E8E8E5E5E5E3E3E3E0E0E0E5E5E5E7E7E7E6E6E6EAEA
      EAEFEFEFEAEAEAE0E0E0E7E7E7ECECECF2F2F2E7E7E7EAEAEAE6E6E6EBEBEBE6
      E6E6E3E3E3E9E9E9F2F2F2EBEBEBEFEFEFE5E5E5EFEFEFE2E2E2}
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 607
      Height = 43
      AutoSize = True
      ButtonHeight = 41
      ButtonWidth = 43
      Caption = 'ToolBar1'
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -18
      Font.Name = #21326#25991#26032#39759
      Font.Style = []
      Images = ImageList1
      ParentFont = False
      ShowCaptions = True
      TabOrder = 0
      Transparent = True
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Caption = #21521#21069
        ImageIndex = 0
        OnClick = ToolButton1Click
      end
      object ToolButton2: TToolButton
        Left = 43
        Top = 0
        Caption = #21521#21518
        ImageIndex = 1
        OnClick = ToolButton2Click
      end
      object ToolButton3: TToolButton
        Left = 86
        Top = 0
        Caption = #26368#21069
        ImageIndex = 2
        OnClick = ToolButton3Click
      end
      object ToolButton4: TToolButton
        Left = 129
        Top = 0
        Caption = #26368#21518
        ImageIndex = 3
        OnClick = ToolButton4Click
      end
      object ToolButton5: TToolButton
        Left = 172
        Top = 0
        Caption = #26032#21152
        ImageIndex = 4
        OnClick = ToolButton5Click
      end
      object ToolButton6: TToolButton
        Left = 215
        Top = 0
        Caption = #20462#25913
        ImageIndex = 5
        OnClick = ToolButton6Click
      end
      object ToolButton7: TToolButton
        Left = 258
        Top = 0
        Caption = #21024#38500
        ImageIndex = 6
        OnClick = ToolButton7Click
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 47
    Width = 624
    Height = 409
    Align = alBottom
    Caption = 'Panel1'
    TabOrder = 1
    object PageControl1: TPageControl
      Left = 1
      Top = 1
      Width = 622
      Height = 407
      ActivePage = TabSheet4
      Align = alClient
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -18
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabIndex = 3
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = #32463#21382
        object Panel3: TPanel
          Left = 0
          Top = 0
          Width = 614
          Height = 73
          Align = alTop
          TabOrder = 0
          object Label14: TLabel
            Left = 128
            Top = 32
            Width = 100
            Height = 20
            Caption = #30340#32463#21382#20449#24687
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -20
            Font.Name = #40657#20307
            Font.Style = []
            ParentFont = False
          end
          object DBText1: TDBText
            Left = 48
            Top = 32
            Width = 65
            Height = 25
            DataField = #22995#21517
            DataSource = DM.DS_basic
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -20
            Font.Name = #40657#20307
            Font.Style = []
            ParentFont = False
          end
          object Button_exp_add: TButton
            Left = 280
            Top = 24
            Width = 75
            Height = 25
            Caption = #28155#21152
            TabOrder = 0
            OnClick = Button_exp_addClick
          end
          object Button_M_exp: TButton
            Left = 392
            Top = 24
            Width = 75
            Height = 25
            Caption = #20462#25913
            TabOrder = 1
            OnClick = Button_M_expClick
          end
          object Button_D_exp: TButton
            Left = 504
            Top = 24
            Width = 75
            Height = 25
            Caption = #21024#38500
            TabOrder = 2
            OnClick = Button_D_expClick
          end
        end
        object DBGrid1: TDBGrid
          Left = 0
          Top = 73
          Width = 614
          Height = 301
          Align = alClient
          DataSource = DM.DS_exp
          ReadOnly = True
          TabOrder = 1
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -18
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = #32844#24037#21495
              Visible = True
            end
            item
              Expanded = False
              FieldName = #36215#22987#26102#38388
              Visible = True
            end
            item
              Expanded = False
              FieldName = #32456#27490#26102#38388
              Visible = True
            end
            item
              Expanded = False
              FieldName = #25152#22312#21333#20301
              Visible = True
            end
            item
              Expanded = False
              FieldName = #25152#22312#37096#38376
              Visible = True
            end
            item
              Expanded = False
              FieldName = #32844#21153
              Visible = True
            end
            item
              Expanded = False
              FieldName = #34892#25919#32423#21035
              Visible = True
            end
            item
              Expanded = False
              FieldName = #23703#20301
              Visible = True
            end
            item
              Expanded = False
              FieldName = #24037#31181
              Visible = True
            end>
        end
      end
      object TabSheet2: TTabSheet
        Caption = #23398#21382
        ImageIndex = 1
        object Panel4: TPanel
          Left = 0
          Top = 0
          Width = 614
          Height = 73
          Align = alTop
          TabOrder = 0
          object Label26: TLabel
            Left = 128
            Top = 32
            Width = 100
            Height = 20
            Caption = #30340#23398#21382#20449#24687
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -20
            Font.Name = #40657#20307
            Font.Style = []
            ParentFont = False
          end
          object DBText2: TDBText
            Left = 56
            Top = 32
            Width = 73
            Height = 25
            DataField = #22995#21517
            DataSource = DM.DS_basic
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -20
            Font.Name = #40657#20307
            Font.Style = []
            ParentFont = False
          end
          object Button_car_add: TButton