mrp_planner.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Planner: TFrm_Mrp_Planner
  Left = -38
  Top = 118
  Caption = '计划员'
  ClientHeight = 345
  ClientWidth = 736
  FormStyle = fsMDIChild
  Visible = True
  Windowstate = wsMaximized
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 736
  end
  inherited Pnl_Title: TPanel
    Width = 736
    Caption = '计划员'
  end
  inherited Pnl_Head: TPanel
    Width = 736
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 60
      Caption = '计划员代码'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 319
    Width = 736
    object Label1: TLabel
      Left = 10
      Top = 9
      Width = 72
      Height = 12
      Caption = '计划员代码：'
    end
    object Lbl_EmployeeCode: TLabel
      Left = 85
      Top = 9
      Width = 6
      Height = 12
    end
    object Label3: TLabel
      Left = 305
      Top = 9
      Width = 72
      Height = 12
      Caption = '计划员姓名：'
    end
    object Lbl_Name: TLabel
      Left = 375
      Top = 9
      Width = 6
      Height = 12
    end
    object Label5: TLabel
      Left = 575
      Top = 9
      Width = 60
      Height = 12
      Caption = '是否可用：'
    end
    object Lbl_IsNo: TLabel
      Left = 640
      Top = 9
      Width = 6
      Height = 12
    end
  end
  inherited Pnl_Body: TPanel
    Width = 736
    Height = 222
    inherited DBGridEh: TDBGridEh
      Width = 736
      Height = 222
      Columns = <
        Item
          FieldName = 'EmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计划员代码'
          Width = 74
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计划员姓名'
          Width = 90
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PlanNERUsable'
          PickList.Strings = (
            '否'
            '是')
          Title.Alignment = taCenter
          Title.Caption = '是否可用'
          Width = 54
          KeyList.Strings = (
            '0'
            '1')
          Checkboxes = False
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 533
    Top = 49
  end
  inherited ActionList: TActionList
    Left = 398
    Top = 59
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Data Source=192.168.0.8;Use procedure for PrepAr' +
      'e=1;Auto Translate=True;Packet Size=4096;Workstation ID=CABO'
    CurSorType = ctStatic
    SQL.Strings = (
      
        'select Buyer.*,Employee.EmployeeName, case buyer.buyerUsable whe' +
        'n 0 then '#39'??'#39
      'else '#39'???'#39
      
        '     end as isstop from Buyer  join Employee  ON Buyer.EmployeeC' +
        'ode=Employee.EmployeeCode')
    Left = 412
    Top = 201
    object AdoQry_MainEmployeeCode: TStringField
      FieldName = 'EmployeeCode'
      Origin = 'Planner'
      Size = 30
    end
    object AdoQry_MaInPlanNERUsable: TIntegerField
      FieldName = 'PlanNERUsable'
      Origin = 'Planner'
    end
    object AdoQry_MainEmployeeName: TStringField
      FieldName = 'EmployeeName'
      Origin = 'Employee'
      Size = 60
    end
  end
  inherited DataSource: TDataSource
    OnDataChange = DataSourceDataChange
    Left = 494
    Top = 41
  end
end