firstdealcorpfrm.dfm

来自「群星医药系统源码」· DFM 代码 · 共 637 行

inherited FmFirstDealCorp: TFmFirstDealCorp
  Left = 223
  Top = 159
  Caption = #39318#27425#32463#33829#20225#19994#31649#29702' - '#30003#35831
  PixelsPerInch = 96
  TextHeight = 13
  inherited plMain: TPanel
    object Label1: TLabel
      Left = 24
      Top = 19
      Width = 48
      Height = 13
      Caption = #21333#25454#21495#65306
    end
    object Label2: TLabel
      Left = 276
      Top = 19
      Width = 60
      Height = 13
      Caption = #30003#35831#37096#38376#65306
    end
    object Label3: TLabel
      Left = 526
      Top = 19
      Width = 60
      Height = 13
      Caption = #22635#25253#26085#26399#65306
    end
    object Bevel1: TBevel
      Left = 24
      Top = 40
      Width = 709
      Height = 9
      Shape = bsBottomLine
    end
    object Label4: TLabel
      Left = 56
      Top = 63
      Width = 60
      Height = 13
      Caption = #20225#19994#21517#31216#65306
    end
    object Label5: TLabel
      Left = 56
      Top = 159
      Width = 60
      Height = 13
      Caption = #27861#20154#20195#34920#65306
    end
    object Label6: TLabel
      Left = 56
      Top = 87
      Width = 60
      Height = 13
      Caption = #20225#19994#22320#22336#65306
    end
    object Label7: TLabel
      Left = 384
      Top = 159
      Width = 48
      Height = 13
      Caption = #32852#31995#20154#65306
    end
    object Label9: TLabel
      Left = 396
      Top = 111
      Width = 36
      Height = 13
      Caption = #20256#30495#65306
    end
    object Label10: TLabel
      Left = 80
      Top = 111
      Width = 36
      Height = 13
      Caption = #30005#35805#65306
    end
    object Label11: TLabel
      Left = 56
      Top = 135
      Width = 60
      Height = 13
      Caption = #20225#19994#31867#22411#65306
    end
    object Label12: TLabel
      Left = 56
      Top = 207
      Width = 60
      Height = 13
      Caption = #20225#19994#24615#36136#65306
    end
    object Label14: TLabel
      Left = 56
      Top = 183
      Width = 60
      Height = 13
      Caption = #33829#19994#25191#29031#65306
    end
    object Label15: TLabel
      Left = 16
      Top = 230
      Width = 102
      Height = 13
      Caption = #32463#33829'('#29983#20135')'#35768#21487#35777#65306
    end
    object Label16: TLabel
      Left = 56
      Top = 277
      Width = 60
      Height = 13
      Caption = #32463#33829#33539#22260#65306
    end
    object Label17: TLabel
      Left = 372
      Top = 135
      Width = 60
      Height = 13
      Caption = #27880#20876#36164#37329#65306
    end
    object Label18: TLabel
      Left = 20
      Top = 253
      Width = 96
      Height = 13
      Caption = #29983#20135#20225#19994#21512#26684#35777#65306
    end
    object Label20: TLabel
      Left = 32
      Top = 301
      Width = 84
      Height = 13
      Caption = #36136#37327#20445#35777#20307#31995#65306
    end
    object Label21: TLabel
      Left = 56
      Top = 325
      Width = 60
      Height = 13
      Caption = #21806#21518#26381#21153#65306
    end
    object Label34: TLabel
      Left = 56
      Top = 349
      Width = 60
      Height = 13
      Caption = #30003#35831#21407#22240#65306
    end
    object Bevel2: TBevel
      Left = 24
      Top = 372
      Width = 709
      Height = 9
      Shape = bsBottomLine
    end
    object Label35: TLabel
      Left = 68
      Top = 395
      Width = 48
      Height = 13
      Caption = #21046#21333#20154#65306
    end
    object Label36: TLabel
      Left = 316
      Top = 395
      Width = 48
      Height = 13
      Caption = #20462#25913#32773#65306
    end
    object edBillNo: TRzDBEdit
      Left = 72
      Top = 14
      Width = 141
      Height = 21
      DataSource = dsMain
      DataField = 'BillNo'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 0
    end
    object edDepart: TRzDBButtonEdit
      Tag = -1
      Left = 336
      Top = 14
      Width = 141
      Height = 21
      DataSource = dsMain
      DataField = 'DepartName'
      ReadOnly = True
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 1
      OnButtonClick = edDepartButtonClick
      FlatButtons = True
    end
    object RzDBDateTimePicker1: TRzDBDateTimePicker
      Left = 586
      Top = 14
      Width = 141
      Height = 20
      Date = 37736.661550983800000000
      Time = 37736.661550983800000000
      ShowCheckbox = True
      Checked = False
      TabOrder = 20
      FlatButtons = True
      FrameVisible = True
      DataField = 'FDate'
      DataSource = dsMain
    end
    object RzDBEdit3: TRzDBEdit
      Left = 116
      Top = 58
      Width = 249
      Height = 21
      DataSource = dsMain
      DataField = 'CorpName'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 2
    end
    object RzDBEdit4: TRzDBEdit
      Left = 116
      Top = 154
      Width = 181
      Height = 21
      DataSource = dsMain
      DataField = 'LegalPerson'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 8
    end
    object RzDBEdit5: TRzDBEdit
      Left = 116
      Top = 82
      Width = 613
      Height = 21
      DataSource = dsMain
      DataField = 'CorpAddr'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 3
    end
    object RzDBEdit6: TRzDBEdit
      Left = 432
      Top = 154
      Width = 109
      Height = 21
      DataSource = dsMain
      DataField = 'Linkman'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 9
    end
    object RzDBEdit7: TRzDBEdit
      Left = 432
      Top = 106
      Width = 229
      Height = 21
      DataSource = dsMain
      DataField = 'Fax'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 5
    end
    object RzDBEdit9: TRzDBEdit
      Left = 116
      Top = 106
      Width = 237
      Height = 21
      DataSource = dsMain
      DataField = 'Phone'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 4
    end
    object RzDBEdit10: TRzDBEdit
      Left = 116
      Top = 130
      Width = 237
      Height = 21
      DataSource = dsMain
      DataField = 'Class'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 6
    end
    object RzDBEdit11: TRzDBEdit
      Left = 116
      Top = 202
      Width = 181
      Height = 21
      DataSource = dsMain
      DataField = 'Property'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 11
    end
    object RzDBEdit12: TRzDBEdit
      Left = 116
      Top = 178
      Width = 181
      Height = 21
      DataSource = dsMain
      DataField = 'Licence'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 10
    end
    object RzDBEdit13: TRzDBEdit
      Left = 116
      Top = 225
      Width = 181
      Height = 21
      DataSource = dsMain
      DataField = 'OperationPermit'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 12
    end
    object RzDBEdit14: TRzDBEdit
      Left = 116
      Top = 272
      Width = 181
      Height = 21
      DataSource = dsMain
      DataField = 'OperationRange'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 14
    end
    object RzDBEdit15: TRzDBEdit
      Left = 432
      Top = 130
      Width = 141
      Height = 21
      DataSource = dsMain
      DataField = 'Financing'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 7
    end
    object RzDBEdit16: TRzDBEdit
      Left = 116
      Top = 248
      Width = 181
      Height = 21
      DataSource = dsMain
      DataField = 'ManufactureLicence'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 13
    end
    object RzDBEdit18: TRzDBEdit
      Left = 116
      Top = 296
      Width = 181
      Height = 21
      DataSource = dsMain
      DataField = 'QualityWarrant'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 15
    end
    object RzDBEdit19: TRzDBEdit
      Left = 116
      Top = 320
      Width = 181
      Height = 21
      DataSource = dsMain
      DataField = 'AfterService'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 16
    end
    object RzDBEdit32: TRzDBEdit
      Left = 116
      Top = 344
      Width = 613
      Height = 21
      DataSource = dsMain
      DataField = 'ApplyReason'
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 17
    end
    object RzDBEdit33: TRzDBEdit
      Tag = -1
      Left = 116
      Top = 390
      Width = 141
      Height = 21
      DataSource = dsMain
      DataField = 'CreaterName'
      ReadOnly = True
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 18
    end
    object RzDBEdit34: TRzDBEdit
      Tag = -1
      Left = 364
      Top = 390
      Width = 141
      Height = 21
      DataSource = dsMain
      DataField = 'MenderName'
      ReadOnly = True
      FrameVisible = True
      TabOnEnter = True
      TabOrder = 19
    end
  end
  inherited ImageList1: TImageList
    Left = 612
    Top = 176
  end
  inherited ActionList1: TActionList
    inherited ActSave: TAction
      Enabled = False
    end
    inherited ActCancel: TAction
      Enabled = False
    end
    object ActShowAudited: TModlAction
      Category = 'Bill'
      Caption = #26174#31034#24050#23457#26680#30340#35760#24405
      Hint = #26174#31034#24050#23457#26680#30340#39318#33829#20225#19994#35760#24405
      OnExecute = ActShowAuditedExecute
      Flag2 = 0
      Remark = 'Q'
    end
  end
  inherited pMenuOthers: TPopupMenu
    object N1: TMenuItem
      Action = ActShowAudited
    end
  end
  inherited ImgPopMenu: TImageList
    Left = 680
    Top = 240
  end
  inherited cdsMain: TckClientDataSet
    Params = <
      item
        DataType = ftInteger
        Name = 'RecState'
        ParamType = ptInput
      end>
    AfterScroll = cdsMainAfterScroll
    AfterRefresh = cdsMainAfterRefresh
    OnNewRecord = cdsMainNewRecord
    Left = 617
    Top = 259
    object cdsMainBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsMainDepartID: TIntegerField
      FieldName = 'DepartID'
    end
    object cdsMainDepartName: TStringField
      FieldName = 'DepartName'
      ProviderFlags = []
    end
    object cdsMainFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object cdsMainCorpName: TStringField
      FieldName = 'CorpName'
      Size = 50
    end
    object cdsMainCorpAddr: TStringField
      FieldName = 'CorpAddr'
      Size = 60
    end
    object cdsMainLegalPerson: TStringField
      FieldName = 'LegalPerson'
      Size = 8
    end
    object cdsMainLinkman: TStringField
      FieldName = 'Linkman'
      Size = 8
    end
    object cdsMainPhone: TStringField
      FieldName = 'Phone'
      Size = 50
    end
    object cdsMainFax: TStringField
      FieldName = 'Fax'
    end
    object cdsMainClass: TStringField
      FieldName = 'Class'
      Size = 40
    end
    object cdsMainFinancing: TStringField
      FieldName = 'Financing'
      Size = 50
    end
    object cdsMainProperty: TStringField
      FieldName = 'Property'
      Size = 40
    end
    object cdsMainLicence: TStringField
      FieldName = 'Licence'
      Size = 100
    end
    object cdsMainOperationPermit: TStringField
      FieldName = 'OperationPermit'
      Size = 100
    end
    object cdsMainManufactureLicence: TStringField
      FieldName = 'ManufactureLicence'
      Size = 100
    end
    object cdsMainOperationRange: TStringField
      FieldName = 'OperationRange'
      Size = 255
    end
    object cdsMainQualityWarrant: TStringField
      FieldName = 'QualityWarrant'
      Size = 255
    end
    object cdsMainAfterService: TStringField
      FieldName = 'AfterService'
      Size = 255
    end
    object cdsMainApplyReason: TStringField
      FieldName = 'ApplyReason'
      Size = 255
    end
    object cdsMainDeptNotion: TStringField
      FieldName = 'DeptNotion'
      Size = 255
    end
    object cdsMainDeptResult: TStringField
      FieldName = 'DeptResult'
      Size = 10
    end
    object cdsMainDeptPrincipal: TStringField
      FieldName = 'DeptPrincipal'
      Size = 8
    end
    object cdsMainDeptPrincipalName: TStringField
      FieldName = 'DeptPrincipalName'
      ProviderFlags = []
      Size = 12
    end
    object cdsMainQCNotion: TStringField
      FieldName = 'QCNotion'
      Size = 255
    end
    object cdsMainQCResult: TStringField
      FieldName = 'QCResult'
      Size = 10
    end
    object cdsMainQCPrincipal: TStringField
      FieldName = 'QCPrincipal'
      Size = 8
    end
    object cdsMainQCPrincipalName: TStringField
      FieldName = 'QCPrincipalName'
      ProviderFlags = []
      Size = 12
    end
    object cdsMainManagerNotion: TStringField
      FieldName = 'ManagerNotion'
      Size = 255
    end
    object cdsMainManagerResult: TStringField
      FieldName = 'ManagerResult'
      Size = 10
    end
    object cdsMainManagerPrincipal: TStringField
      FieldName = 'ManagerPrincipal'
      Size = 8
    end
    object cdsMainManagerName: TStringField
      FieldName = 'ManagerName'
      ProviderFlags = []
      Size = 12
    end
    object cdsMainAudit: TBooleanField
      FieldName = 'Audit'
    end
    object cdsMainApprove: TBooleanField
      FieldName = 'Approve'
    end
    object cdsMainApprovalDate: TDateTimeField
      FieldName = 'ApprovalDate'
    end
    object cdsMainApprover: TStringField
      FieldName = 'Approver'
      Size = 8
    end
    object cdsMainCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object cdsMainApproverName: TStringField
      FieldName = 'ApproverName'
      ProviderFlags = []
      Size = 12
    end
    object cdsMainCreaterName: TStringField
      FieldName = 'CreaterName'
      ProviderFlags = []
      Size = 12
    end
    object cdsMainCreatTime: TDateTimeField
      FieldName = 'CreatTime'
    end
    object cdsMainMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object cdsMainMenderName: TStringField
      FieldName = 'MenderName'
      ProviderFlags = []
      Size = 12
    end
    object cdsMainUpdateTime: TDateTimeField
      FieldName = 'UpdateTime'
    end
    object cdsMainGrup: TIntegerField
      FieldName = 'Grup'
    end
  end
  inherited DCOMConnection1: TDCOMConnection
    Left = 421
    Top = 259
  end
  inherited dsMain: TDataSource
    Left = 541
    Top = 263
  end
end