danweichaxun.dfm

本系统为演示Delphi的功能而开发设计

object Formdanwei: TFormdanwei
  Left = 224
  Top = 162
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = '单位租车客户信用记录查询'
  ClientHeight = 348
  ClientWidth = 536
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010002002020100000000000E80200002600000010101000000000002801
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000000000000000000000000000000000800000800000008080008000
    0000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000003888738337700000000000000000038FBFFFB788B8837700000000000
    0788FBFFFBFFF7FF8B8883700000000007FBFFFBFFFBFF7BFFFB888700000000
    007FFBFFFBFFFB7FFBFFFBF3700000000007FFFBFFFBFFF7FFFBFF7777000000
    0007FBFFFBFFFBF7FB7777FFF800000000007FFBFFFBFFF777FBFFFBF8000000
    00007BFFFBFFFBFFFBFFFBFFF8000000000007FBFFFBFFFBFFFBFFFBF8000000
    000007FFFBFFFBFFFBFFFBFFF8000000000000000FFBFFFBFFFBFFFBF8000000
    0000066660FFFBFFFBFFFBFFF80000666000066660FBFFFBFFFBFFFBF8000666
    66000006660FFBFFFBFFFBFFF8000E6666066660660FFFFFFFFBFFFBF8000E66
    66066660660000000FFFFBFFF8000EE6660666606607777777FBFFFBF8000EE6
    660EEEE6660FFBFFFBFFFBFFF80000EEE0770E6660FBFFFBFFFBFFFBF8000000
    00000EEE60FFFBFFFBFFFBFFF8000000000000000FFBFFFBFFFBFFFBF8000000
    000007FFFBFFFBFFFBFFFBFFF8000000000007FBFFFBFFFBFFFBFFFBF8000000
    000007FFFBFFFBFFFBFFFBFFF8000000000007FBFFFBFFFBFFFBFFFBF8000000
    0000077777777777777777777700000000000000000000000000000000000000
    0000000000000000000000000000FFFFFFFFFFFFFFFFFFE003FFFF00007FFC00
    001FF800000FF8000007FC000003FE000001FE000001FF000001FF000001FF80
    0001FF800001FF800001C7000001830000010000000100000001000000010000
    00010000000180000001C7000001FF800001FF800001FF800001FF800001FF80
    0001FF800001FFFFFFFFFFFFFFFF280000001000000020000000010004000000
    0000C00000000000000000000000000000000000000000000000000080000080
    000000808000800000008000800080800000C0C0C000808080000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000000
    00000000000000087B77088800000008FFFBF0B7880000008BFFFB0FB7800000
    8FFBFF0F0080000008FFFB80FB700000000BFFFBFF7000000660FBFFFB700660
    0060FFFBFF700E60E06000FFFB700EE00EE0FFFBFF700000000FFBFFFB700000
    08FBFFFBFF7000000888888888800000000000000000FFFF0000F00F0000E003
    0000E0010000F0000000F0000000F8000000F800000090000000000000000000
    00000000000098000000F8000000F8000000FFFF0000}
  KeyPreview = True
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 14
  object GroupBox1: TGroupBox
    Left = 8
    Top = 0
    Width = 513
    Height = 73
    TabOrder = 0
    object Label1: TLabel
      Left = 209
      Top = 45
      Width = 56
      Height = 14
      Alignment = taRightJustify
      Caption = '单位名称'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object RadioButton3: TRadioButton
      Left = 19
      Top = 24
      Width = 126
      Height = 17
      Caption = '按单位名称查询'
      Checked = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      TabStop = True
      OnClick = RadioButton3Click
    end
    object RadioButton4: TRadioButton
      Left = 19
      Top = 48
      Width = 118
      Height = 17
      Caption = '按单位代码查询'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = RadioButton4Click
    end
    object Edit1: TEdit
      Left = 272
      Top = 40
      Width = 225
      Height = 22
      MaxLength = 15
      TabOrder = 2
      OnExit = ButtonStaticClick
    end
  end
  object ButtonStatic: TButton
    Left = 79
    Top = 304
    Width = 75
    Height = 25
    Caption = '查询(&S)'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = ButtonStaticClick
  end
  object ButtonClose: TButton
    Left = 363
    Top = 304
    Width = 75
    Height = 25
    Caption = '关闭(&C)'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ModalResult = 1
    ParentFont = False
    TabOrder = 3
    OnClick = ButtonCloseClick
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 79
    Width = 513
    Height = 201
    DataSource = DataSourceDanWei
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'lease_comp_name'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'car_type'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'begin_date'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'real_return_date'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'return_date'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'note'
        Visible = True
      end>
  end
  object QueryDanwei: TQuery
    DatabaseName = 'DataHuaXia'
    SQL.Strings = (
      
        'select lease_comp_name,car_type,comp_code, begin_date,real_retur' +
        'n_date,return_date,lease_car_info.note'
      'from lease_car_info,lease_comp_info'
      
        'where lease_car_info.lease_comp_code=lease_comp_info.lease_comp_' +
        'code'
      'and lease_car_info.comp_code=:code'
      
        'and (lease_car_info.lease_comp_code=:company or  lease_comp_name' +
        '=:company)'
      ' ')
    Left = 178
    Top = 303
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'code'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'company'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'company'
        ParamType = ptUnknown
      end>
    object QueryDanweilease_comp_name: TStringField
      Alignment = taCenter
      DisplayLabel = '单位名称'
      DisplayWidth = 24
      FieldName = 'lease_comp_name'
      Origin = 'DATAHUAXIA.lease_comp_info.lease_comp_name'
      FixedChar = True
      Size = 40
    end
    object QueryDanweicar_type: TStringField
      Alignment = taCenter
      DisplayLabel = '车型'
      FieldName = 'car_type'
      Origin = 'DATAHUAXIA.lease_car_info.car_type'
      FixedChar = True
      Size = 8
    end
    object QueryDanweibegin_date: TDateTimeField
      Alignment = taCenter
      DisplayLabel = '开始时间'
      FieldName = 'begin_date'
      Origin = 'DATAHUAXIA.lease_car_info.begin_date'
      DisplayFormat = 'dddddd'
    end
    object QueryDanweireal_return_date: TDateTimeField
      Alignment = taCenter
      DisplayLabel = '实际还车时间'
      FieldName = 'real_return_date'
      Origin = 'DATAHUAXIA.lease_car_info.real_return_date'
      DisplayFormat = 'dddddd'
    end
    object QueryDanweireturn_date: TDateTimeField
      Alignment = taCenter
      DisplayLabel = '应还车时间'
      FieldName = 'return_date'
      Origin = 'DATAHUAXIA.lease_car_info.return_date'
      DisplayFormat = 'dddddd'
    end
    object QueryDanweinote: TStringField
      DisplayLabel = '备注'
      FieldName = 'note'
      Origin = 'DATAHUAXIA.lease_car_info.note'
      FixedChar = True
      Size = 40
    end
  end
  object DataSourceDanWei: TDataSource
    DataSet = QueryDanwei
    Left = 218
    Top = 303
  end
end