unit_maintain.dfm

航空人身保险信息管理系统使用SQL和DELHPI开发

object FrmMaintain: TFrmMaintain
  Left = 192
  Top = 207
  Width = 757
  Height = 472
  Caption = #20445#38505#21333#32500#25252
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 104
    Top = 112
    Width = 90
    Height = 15
    Caption = #34987#20445#38505#20154#22995#21517
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Visible = False
  end
  object Label3: TLabel
    Left = 104
    Top = 144
    Width = 45
    Height = 15
    Caption = #33322#29677#21495
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Visible = False
  end
  object Label4: TLabel
    Left = 104
    Top = 176
    Width = 135
    Height = 15
    Caption = #21463#30410#20154#26159#34987#20445#38505#20154#30340
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Visible = False
  end
  object Label5: TLabel
    Left = 104
    Top = 208
    Width = 75
    Height = 15
    Caption = #21463#30410#20154#37038#32534
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Visible = False
  end
  object Label6: TLabel
    Left = 432
    Top = 112
    Width = 60
    Height = 15
    Caption = #36523#20221#35777#21495
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Visible = False
  end
  object Label7: TLabel
    Left = 432
    Top = 144
    Width = 60
    Height = 15
    Caption = #20056#26426#26085#26399
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Visible = False
  end
  object Label8: TLabel
    Left = 432
    Top = 176
    Width = 75
    Height = 15
    Caption = #21463#30410#20154#22995#21517
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Visible = False
  end
  object Label9: TLabel
    Left = 432
    Top = 208
    Width = 75
    Height = 15
    Caption = #21463#30410#20154#22320#22336
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Visible = False
  end
  object Edit5: TEdit
    Left = 248
    Top = 112
    Width = 121
    Height = 21
    TabOrder = 0
    Text = 'Edit5'
    Visible = False
  end
  object Edit6: TEdit
    Left = 248
    Top = 144
    Width = 121
    Height = 21
    TabOrder = 1
    Text = 'Edit6'
    Visible = False
  end
  object Edit7: TEdit
    Left = 248
    Top = 176
    Width = 121
    Height = 21
    TabOrder = 2
    Text = 'Edit7'
    Visible = False
  end
  object Edit8: TEdit
    Left = 248
    Top = 208
    Width = 121
    Height = 21
    TabOrder = 3
    Text = 'Edit8'
    Visible = False
  end
  object Edit9: TEdit
    Left = 520
    Top = 112
    Width = 129
    Height = 21
    TabOrder = 4
    Text = 'Edit9'
    Visible = False
  end
  object Edit10: TEdit
    Left = 520
    Top = 144
    Width = 129
    Height = 21
    TabOrder = 5
    Text = 'Edit10'
    Visible = False
  end
  object Edit11: TEdit
    Left = 520
    Top = 176
    Width = 129
    Height = 21
    TabOrder = 6
    Text = 'Edit11'
    Visible = False
  end
  object Edit12: TEdit
    Left = 520
    Top = 208
    Width = 129
    Height = 21
    TabOrder = 7
    Text = 'Edit12'
    Visible = False
  end
  object Button1: TButton
    Left = 408
    Top = 48
    Width = 85
    Height = 25
    Caption = #36864#20445'(&Y)'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 548
    Top = 48
    Width = 85
    Height = 25
    Caption = #21462#28040'(&C)'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    OnClick = Button2Click
  end
  object GroupBox1: TGroupBox
    Left = -1
    Top = 87
    Width = 731
    Height = 149
    Caption = #20445#38505#21333#34920
    TabOrder = 10
    object DBGridCustomers: TDBGrid
      Left = 2
      Top = 15
      Width = 727
      Height = 132
      Align = alClient
      DataSource = DataSourceInsuranceForm
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      PopupMenu = PopupMenuCancle
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDrawColumnCell = DBGridCustomersDrawColumnCell
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 240
    Width = 731
    Height = 93
    Caption = #23458#25143#22522#26412#20449#24687
    TabOrder = 11
    object DBGridInsuranceForm: TDBGrid
      Left = 2
      Top = 15
      Width = 727
      Height = 76
      Align = alClient
      DataSource = DataSourceCustomers
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 335
    Width = 731
    Height = 72
    Caption = #21463#30410#20154#22522#26412#20449#24687
    TabOrder = 12
    object DBGridBenefitForm: TDBGrid
      Left = 2
      Top = 15
      Width = 727
      Height = 55
      Align = alClient
      DataSource = DataSourceBenefitForm
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 8
    Width = 265
    Height = 81
    TabOrder = 13
    object Label1: TLabel
      Left = 5
      Top = 10
      Width = 76
      Height = 15
      Caption = #20445#38505#21333#21495': '
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object EditPECH: TEdit
      Left = 5
      Top = 47
      Width = 37
      Height = 21
      MaxLength = 4
      TabOrder = 0
      Text = 'PECH'
    end
    object EditYear: TEdit
      Left = 48
      Top = 47
      Width = 34
      Height = 21
      MaxLength = 4
      TabOrder = 1
      Text = '2006'
      OnChange = EditYearChange
    end
    object EditMonth: TEdit
      Left = 88
      Top = 47
      Width = 18
      Height = 21
      MaxLength = 2
      TabOrder = 2
      Text = '01'
      OnChange = EditYearChange
    end
    object EditZZZ: TEdit
      Left = 200
      Top = 47
      Width = 50
      Height = 21
      TabOrder = 3
      OnChange = EditYearChange
    end
    object EditDay: TEdit
      Left = 112
      Top = 47
      Width = 26
      Height = 21
      MaxLength = 2
      TabOrder = 4
      Text = '02'
      OnChange = EditYearChange
    end
    object EditHourMMSS: TEdit
      Left = 144
      Top = 47
      Width = 50
      Height = 21
      TabOrder = 5
      OnChange = EditYearChange
    end
  end
  object ADOQueryCustomers: TADOQuery
    Connection = Dtm.ADOConnection1
    CursorType = ctStatic
    DataSource = DataSourceInsuranceForm
    Parameters = <
      item
        Name = #27969#27700#21495
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 26
        Value = Null
      end>
    SQL.Strings = (
      'select '
      '[name] as  '#22995#21517',quanta as '#20221#25968','
      'airlineno as '#33322#29677#21495','
      'convert(char(10),aboarddate,126)  as '#30331#26426#26085#26399' '
      'from  InsuranceCustomer'
      ''
      'where CurrentNo=:'#27969#27700#21495)
    Left = 8
    Top = 272
  end
  object ADOQueryInsuranceForm: TADOQuery
    Connection = Dtm.ADOConnection1
    CursorType = ctStatic
    AfterScroll = ADOQueryInsuranceFormAfterScroll
    Parameters = <
      item
        Name = 'InsuranceNo'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 30
        Value = Null
      end>
    SQL.Strings = (
      'select  InsuranceNo as '#20445#38505#21495',signDate as  '#31614#21333#26085#26399
      
        ',  case status when 1  then  '#39#26377#25928#20445#21333#39' when 0 then '#39#26080#25928#20445#21333#39' end as  '#20445 +
        #21333#29366#24577
      ',CurrentNo as  '#27969#27700#21495
      'from  InsuranceForm'
      'where'
      'InsuranceNo like :InsuranceNo'
      'order by  InsuranceNo  desc'
      '  ')
    Left = 24
    Top = 80
  end
  object ADOQueryBenefitForm: TADOQuery
    Connection = Dtm.ADOConnection1
    CursorType = ctStatic
    DataSource = DataSourceInsuranceForm
    Parameters = <
      item
        Name = #20445#38505#21495
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 30
        Value = Null
      end>
    SQL.Strings = (
      'select insuranceno as  '#20445#38505#21495', [name] as  '#21463#30410#20154#22995#21517', '
      'relation as  '#19982#34987#20445#38505#20154#20851#31995', '
      'telno  as  '#30005#35805' , '
      ' address as '#22320#22336' ,postcode as  '#37038#25919#32534#30721'    from  BenefitPerson '
      'where  '
      'InsuranceNo=:'#20445#38505#21495)
    Left = 16
    Top = 376
  end
  object DataSourceCustomers: TDataSource
    DataSet = ADOQueryCustomers
    Left = 32
    Top = 272
  end
  object DataSourceBenefitForm: TDataSource
    DataSet = ADOQueryBenefitForm
    Left = 56
    Top = 376
  end
  object DataSourceInsuranceForm: TDataSource
    DataSet = ADOQueryInsuranceForm
    Left = 72
    Top = 80
  end
  object PopupMenuCancle: TPopupMenu
    Left = 535
    Top = 159
    object N1: TMenuItem
      Caption = #36864#20445
      OnClick = N1Click
    end
  end
end