D6HECHUAN/信息资源/u_info_plan_individual.pas

unit u_info_plan_individual;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, DB, ADODB, dxDBTLCl, dxGrClms, dxDBCtrl, dxDBGrid,
  dxTL, dxCntner, StdCtrls, ComCtrls, DBCtrls, bsSkinCtrls, bsdbctrls, Mask,
  ExtCtrls, wwdbdatetimepicker, wwmonthcalendar, wwdbedit, Wwdotdot,
  Wwdbcomb,DateUtils, bsSkinTabs, RxLookup;

type
  Tfrm_info_plan_individual = class(TForm)
    bsSkinPanel1: TbsSkinPanel;
    bsSkinPanel2: TbsSkinPanel;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    dxDBGrid1: TdxDBGrid;
    t_info_plan: TADOQuery;
    t_info_plan1: TDataSource;
    Panel1: TPanel;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    bsSkinButton8: TbsSkinButton;
    t_info_plan_detail1: TDataSource;
    t_info_plan_detail: TADOQuery;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column2: TdxDBGridMaskColumn;
    dxDBGrid1Column3: TdxDBGridMaskColumn;
    dxDBGrid1Column4: TdxDBGridMaskColumn;
    dxDBGrid1Column5: TdxDBGridMaskColumn;
    dxDBGrid1Column6: TdxDBGridDateColumn;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Notebook1: TbsSkinNotebook;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox7: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox6: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox5: TbsSkinCheckRadioBox;
    bsSkinPanel4: TbsSkinPanel;
    wwDBMonthCalendar2: TwwDBMonthCalendar;
    bsSkinPanel5: TbsSkinPanel;
    Label12: TLabel;
    DBEdit9: TDBEdit;
    Label13: TLabel;
    wwDBComboBox3: TwwDBComboBox;
    DBEdit10: TDBEdit;
    Label14: TLabel;
    bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
    Label15: TLabel;
    DBEdit11: TDBEdit;
    Label9: TLabel;
    DBEdit7: TDBEdit;
    Label10: TLabel;
    DBEdit8: TDBEdit;
    DBEdit12: TDBEdit;
    Label11: TLabel;
    wwDBComboBox2: TwwDBComboBox;
    Label16: TLabel;
    bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    Label8: TLabel;
    wwDBComboBox1: TwwDBComboBox;
    Label17: TLabel;
    bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton11: TbsSkinButton;
    dxDBGrid1Column7: TdxDBGridColumn;
    dxDBGrid1Column8: TdxDBGridColumn;
    dxDBGrid1Column9: TdxDBGridColumn;
    dxDBGrid1Column10: TdxDBGridColumn;
    t_crm_client_link: TADOQuery;
    t_crm_client_link1: TDataSource;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinTabSheet3: TbsSkinTabSheet;
    DBMemo1: TDBMemo;
    DBMemo4: TDBMemo;
    bsSkinPanel6: TbsSkinPanel;
    Label55: TLabel;
    Label18: TLabel;
    Label57: TLabel;
    Label58: TLabel;
    DBEdit49: TDBEdit;
    wwDBDateTimePicker5: TwwDBDateTimePicker;
    RxDBLookupCombo2: TRxDBLookupCombo;
    DBEdit46: TDBEdit;
    Label54: TLabel;
    wwDBComboBox4: TwwDBComboBox;
    Label56: TLabel;
    DBEdit47: TDBEdit;
    Label60: TLabel;
    RxDBLookupCombo8: TRxDBLookupCombo;
    Label61: TLabel;
    wwDBComboBox5: TwwDBComboBox;
    bsSkinGroupBox1: TbsSkinGroupBox;
    DBMemo5: TDBMemo;
    bsSkinPanel7: TbsSkinPanel;
    bsSkinPageControl2: TbsSkinPageControl;
    bsSkinTabSheet4: TbsSkinTabSheet;
    DBMemo2: TDBMemo;
    bsSkinTabSheet5: TbsSkinTabSheet;
    DBMemo6: TDBMemo;
    bsSkinTabSheet6: TbsSkinTabSheet;
    bsSkinPanel8: TbsSkinPanel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    DBEdit15: TDBEdit;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    RxDBLookupCombo1: TRxDBLookupCombo;
    DBEdit16: TDBEdit;
    wwDBComboBox6: TwwDBComboBox;
    DBEdit17: TDBEdit;
    RxDBLookupCombo3: TRxDBLookupCombo;
    wwDBComboBox7: TwwDBComboBox;
    bsSkinGroupBox3: TbsSkinGroupBox;
    DBMemo7: TDBMemo;
    bsSkinPanel9: TbsSkinPanel;
    bsSkinPageControl3: TbsSkinPageControl;
    bsSkinTabSheet7: TbsSkinTabSheet;
    DBMemo3: TDBMemo;
    bsSkinTabSheet8: TbsSkinTabSheet;
    DBMemo8: TDBMemo;
    bsSkinTabSheet9: TbsSkinTabSheet;
    bsSkinPanel10: TbsSkinPanel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    DBEdit18: TDBEdit;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    RxDBLookupCombo4: TRxDBLookupCombo;
    DBEdit19: TDBEdit;
    wwDBComboBox8: TwwDBComboBox;
    DBEdit20: TDBEdit;
    RxDBLookupCombo5: TRxDBLookupCombo;
    wwDBComboBox9: TwwDBComboBox;
    bsSkinGroupBox4: TbsSkinGroupBox;
    DBMemo9: TDBMemo;
    procedure bsSkinButton5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton7Click(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure t_info_planAfterInsert(DataSet: TDataSet);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure t_info_planAfterPost(DataSet: TDataSet);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure Panel1Resize(Sender: TObject);
    procedure t_info_plan_detailAfterInsert(DataSet: TDataSet);
    procedure t_info_planAfterScroll(DataSet: TDataSet);
    procedure t_info_plan_detailBeforeInsert(DataSet: TDataSet);
    procedure t_info_planBeforeInsert(DataSet: TDataSet);
    procedure bsSkinCheckRadioBox1Click(Sender: TObject);
    procedure bsSkinCheckRadioBox2Click(Sender: TObject);
    procedure bsSkinCheckRadioBox3Click(Sender: TObject);
    procedure bsSkinCheckRadioBox4Click(Sender: TObject);
    procedure bsSkinCheckRadioBox5Click(Sender: TObject);
    procedure bsSkinCheckRadioBox6Click(Sender: TObject);
    procedure bsSkinCheckRadioBox7Click(Sender: TObject);
    procedure wwDBMonthCalendar2Change(Sender: TObject);
    procedure bsSkinButton9Click(Sender: TObject);
    procedure t_info_planBeforeEdit(DataSet: TDataSet);
    procedure bsSkinButton11Click(Sender: TObject);
    procedure dxDBGrid1Column1CustomDraw(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
      const AText: String; AFont: TFont; var AColor: TColor; ASelected,
      AFocused: Boolean; var ADone: Boolean);
    procedure t_info_plan_detailBeforeEdit(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_info_plan_individual: Tfrm_info_plan_individual;

implementation

uses my_sys_function,u_info_plan_query, u_main, u_info_plan_over,
  u_info_plan_add;

{$R *.dfm}

procedure Tfrm_info_plan_individual.bsSkinButton5Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_info_plan_individual.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frm_info_plan_individual.Hide;
  frm_info_plan_individual.ManualFloat(frm_info_plan_individual.BoundsRect );
  frm_main.freeTabs('frm_info_plan_individual');
  action:=cafree;
  frm_info_plan_individual:=nil;
  frm_main.t_info_plan.Requery();
end;

procedure Tfrm_info_plan_individual.FormShow(Sender: TObject);
begin
  t_info_plan.Parameters[0].Value:=employee;
  t_info_plan.open;
  t_info_plan_detail.open;
  t_crm_client_link.open;
end;

procedure Tfrm_info_plan_individual.bsSkinButton7Click(Sender: TObject);
begin
  table_Prior(t_info_plan);
end;

procedure Tfrm_info_plan_individual.bsSkinButton6Click(Sender: TObject);
begin
  table_next(t_info_plan);
end;

procedure Tfrm_info_plan_individual.bsSkinButton8Click(Sender: TObject);
begin
  table_post(t_info_plan);
  table_post(t_info_plan_detail);
end;

procedure Tfrm_info_plan_individual.bsSkinButton4Click(Sender: TObject);
begin
  table_delete(t_info_plan);
end;

procedure Tfrm_info_plan_individual.bsSkinButton3Click(Sender: TObject);
begin
  table_cancel(t_info_plan_detail);
  table_cancel(t_info_plan);
end;

procedure Tfrm_info_plan_individual.bsSkinButton1Click(Sender: TObject);
begin
  try
    frm_info_plan_add:=tfrm_info_plan_add.Create (self);
    frm_info_plan_add.ShowModal;
  finally
    frm_info_plan_add.Free;
    frm_info_plan_add:=nil;
  end;
end;

procedure Tfrm_info_plan_individual.t_info_planAfterInsert(
  DataSet: TDataSet);
begin
  t_info_plan['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
  t_info_plan['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
end;

procedure Tfrm_info_plan_individual.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  CanClose:=close_query(t_info_plan);
  CanClose:=close_query(t_info_plan_detail);
end;

procedure Tfrm_info_plan_individual.bsSkinButton10Click(Sender: TObject);
begin
  try
    frm_info_plan_query:=tfrm_info_plan_query.Create (self);
    frm_info_plan_query.wwDBLookupCombo1.Text:=employee;
    frm_info_plan_query.wwDBLookupCombo1.ReadOnly:=true;
    frm_info_plan_query.Hint:='2';
    frm_info_plan_query.ShowModal;
  finally
    frm_info_plan_query.Free;
  end;
end;

procedure Tfrm_info_plan_individual.t_info_planAfterPost(
  DataSet: TDataSet);
begin
  frm_main.t_info_plan.Requery();
end;

procedure Tfrm_info_plan_individual.bsSkinButton2Click(Sender: TObject);
begin
  if t_info_plan_detail.IsEmpty then
    exit;
  if t_info_plan_detail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean then
  begin
    try
      modify_all:=true;
      t_info_plan_detail.edit;
      t_info_plan_detail['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
      t_info_plan_detail['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
      t_info_plan_detail.post;
    finally
      modify_all:=false;
    end;
  end
  else
  begin
    try
      modify_all:=true;
      frm_info_plan_over:=tfrm_info_plan_over.Create (self);
      frm_info_plan_over.DataSource1.DataSet:=t_info_plan_detail;
      if t_info_plan_detail.FieldByName('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>').asstring='<27>ͻ<EFBFBD><CDBB>ƻ<EFBFBD>'then
      begin
        frm_info_plan_over.t_crm_client_link.Open;
        frm_info_plan_over.bsSkinPanel2.Visible:=true;
        frm_info_plan_over.t_crm_client_link.insert;
        frm_info_plan_over.t_crm_client_link['PD_ID']:=t_info_plan_detail['PD_ID'];
      end;
      frm_info_plan_over.ShowModal;
    finally
      frm_info_plan_over.Free;
      frm_info_plan_over:=nil;
      modify_all:=false;
      t_crm_client_link.Requery();
    end;
  end;  
end;

procedure Tfrm_info_plan_individual.Panel1Resize(Sender: TObject);
var
  i:integer;
begin
  i:=round(panel1.Width/11);
  bsSkinButton7.Width:=i;
  bsSkinButton6.Width:=i;
  bsSkinButton10.Width:=i;
  bsSkinButton1.Width:=i;
  bsSkinButton2.Width:=i;
  bsSkinButton4.Width:=i;
  bsSkinButton3.Width:=i;
  bsSkinButton8.Width:=i;
  bsSkinButton9.Width:=i;
  bsSkinButton11.Width:=i;
end;

procedure Tfrm_info_plan_individual.t_info_plan_detailAfterInsert(
  DataSet: TDataSet);
begin
  t_info_plan_detail['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
end;                  

procedure Tfrm_info_plan_individual.t_info_planAfterScroll(
  DataSet: TDataSet);
begin
  if frm_info_plan_individual.t_info_plan['<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>']='' then
    Notebook1.Visible:=false
  else
    Notebook1.Visible:=true;
  if frm_info_plan_individual.t_info_plan['<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>']='<27><><EFBFBD>ƻ<EFBFBD>' then
  begin
    Notebook1.PageIndex:=0;
  end;
  if frm_info_plan_individual.t_info_plan['<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>']='<27>ܼƻ<DCBC>' then
  begin
    Notebook1.PageIndex:=1;
    bsSkinCheckRadioBox1.Checked:=true;
  end;
  if frm_info_plan_individual.t_info_plan['<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>']='<27>¼ƻ<C2BC>' then
  begin
    Notebook1.PageIndex:=2;
    wwDBMonthCalendar2.Date:=
    strtodate(t_info_plan.fieldbyname('<27><>').asstring+'-'
    +copy(t_info_plan.fieldbyname('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>').asstring,1,
    pos('<27><>',t_info_plan.fieldbyname('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>').asstring)-1)+'-'+'01');
  end;
end;

procedure Tfrm_info_plan_individual.t_info_plan_detailBeforeInsert(
  DataSet: TDataSet);
begin
  if t_info_plan.IsEmpty then
    abort;
end;

procedure Tfrm_info_plan_individual.t_info_planBeforeInsert(
  DataSet: TDataSet);
begin
  if not modify_all then
    abort;
end;

procedure Tfrm_info_plan_individual.bsSkinCheckRadioBox1Click(
  Sender: TObject);
begin
  if t_info_plan_detail.IsEmpty then
    exit;
  t_info_plan_detail.First;
end;

procedure Tfrm_info_plan_individual.bsSkinCheckRadioBox2Click(
  Sender: TObject);
begin
  if t_info_plan_detail.IsEmpty then
    exit;
  t_info_plan_detail.First;
  t_info_plan_detail.Next;
end;

procedure Tfrm_info_plan_individual.bsSkinCheckRadioBox3Click(
  Sender: TObject);
begin
  if t_info_plan_detail.IsEmpty then
    exit;
  t_info_plan_detail.First;
  t_info_plan_detail.Next;
  t_info_plan_detail.Next;
end;

procedure Tfrm_info_plan_individual.bsSkinCheckRadioBox4Click(
  Sender: TObject);
begin
  if t_info_plan_detail.IsEmpty then
    exit;
  t_info_plan_detail.First;
  t_info_plan_detail.Next;
  t_info_plan_detail.Next;
  t_info_plan_detail.Next;
end;

procedure Tfrm_info_plan_individual.bsSkinCheckRadioBox5Click(
  Sender: TObject);
begin
  if t_info_plan_detail.IsEmpty then
    exit;
  t_info_plan_detail.First;
  t_info_plan_detail.Next;
  t_info_plan_detail.Next;
  t_info_plan_detail.Next;
  t_info_plan_detail.Next;
end;

procedure Tfrm_info_plan_individual.bsSkinCheckRadioBox6Click(
  Sender: TObject);
begin
  if t_info_plan_detail.IsEmpty then
    exit;
  t_info_plan_detail.First;
  t_info_plan_detail.Next;
  t_info_plan_detail.Next;
  t_info_plan_detail.Next;
  t_info_plan_detail.Next;
  t_info_plan_detail.Next;
end;

procedure Tfrm_info_plan_individual.bsSkinCheckRadioBox7Click(
  Sender: TObject);
begin
  if t_info_plan_detail.IsEmpty then
    exit;
  t_info_plan_detail.last;
end;

procedure Tfrm_info_plan_individual.wwDBMonthCalendar2Change(
  Sender: TObject);
var
  i,j:integer;
begin
  if t_info_plan_detail.IsEmpty then
    exit;
  if (round(yearof(wwDBMonthCalendar2.date))<>strtoint(t_info_plan.FieldByName('<27><>').AsString))
  or (round(monthof(wwDBMonthCalendar2.date))<>strtoint(copy(t_info_plan.fieldbyname('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>').asstring,1,
    pos('<27><>',t_info_plan.fieldbyname('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>').asstring)-1))) then
  begin
    showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڳ<EFBFBD><DAB3><EFBFBD><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD>Χ!!');
    wwDBMonthCalendar2.Date:=
    strtodate(t_info_plan.fieldbyname('<27><>').asstring+'-'
    +copy(t_info_plan.fieldbyname('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>').asstring,1,
    pos('<27><>',t_info_plan.fieldbyname('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>').asstring)-1)+'-'+'01');
    exit;
  end;
  t_info_plan_detail.First;
  j:=round(wwDBMonthCalendar2.Date-strtodate(t_info_plan.fieldbyname('<27><>').asstring+'-'
    +copy(t_info_plan.fieldbyname('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>').asstring,1,
    pos('<27><>',t_info_plan.fieldbyname('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>').asstring)-1)+'-'+'01'));
  if j>1 then
  begin
    for i:=0 to j-2 do
    begin
      t_info_plan_detail.Next;
    end;
  end;
end;

procedure Tfrm_info_plan_individual.bsSkinButton9Click(Sender: TObject);
begin
  if t_info_plan.IsEmpty then
    exit;
  if t_info_plan.FieldByName('<27>ƻ<EFBFBD>״̬').asstring<>'¼<><C2BC>״̬' then
  begin
    showmessage('<27>ƻ<EFBFBD><C6BB><EFBFBD>ǰ״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD>ύ!!');
    exit;
  end;
  try
    t_info_plan.Edit;
    t_info_plan['<27>ƻ<EFBFBD>״̬']:='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>';
    t_info_plan.post;
  finally
    ;
  end;
end;

procedure Tfrm_info_plan_individual.t_info_planBeforeEdit(
  DataSet: TDataSet);
begin
  if not modify_all then
  if (t_info_plan.FieldByName('<27>ƻ<EFBFBD>״̬').asstring='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')
  or (t_info_plan.FieldByName('<27>ƻ<EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>')
  or (t_info_plan.FieldByName('<27>ƻ<EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') then
  begin
    showmessage('<27>ƻ<EFBFBD><C6BB><EFBFBD>ǰ״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>!!');
    abort;
  end;
end;

procedure Tfrm_info_plan_individual.bsSkinButton11Click(Sender: TObject);
begin
  if t_info_plan.IsEmpty then
    exit;
  if t_info_plan.FieldByName('<27>ƻ<EFBFBD>״̬').asstring<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>' then
  begin
    showmessage('<27>ƻ<EFBFBD><C6BB><EFBFBD>ǰ״̬<D7B4><CCAC><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD>ύ!!');
    exit;
  end;
  try
    modify_all:=true;
    t_info_plan.Edit;
    t_info_plan['<27>ƻ<EFBFBD>״̬']:='¼<><C2BC>״̬';
    t_info_plan.post;
  finally
    modify_all:=false;
  end;
end;

procedure Tfrm_info_plan_individual.dxDBGrid1Column1CustomDraw(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
  var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
  if ANode.Strings[dxDBGrid1Column1.Index]='¼<><C2BC>״̬' then
    AColor:=clWhite;
  if ANode.Strings[dxDBGrid1Column1.Index]='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>' then
    AColor:=$0080FFFF;
  if ANode.Strings[dxDBGrid1Column1.Index]='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>' then
    AColor:=$0000FF80;
  if ANode.Strings[dxDBGrid1Column1.Index]='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>' then
    AColor:=clAqua;
  AFont.Color:=clblack;
end;

procedure Tfrm_info_plan_individual.t_info_plan_detailBeforeEdit(
  DataSet: TDataSet);
begin
  if not modify_all then
  if (t_info_plan.FieldByName('<27>ƻ<EFBFBD>״̬').asstring='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')
  or (t_info_plan.FieldByName('<27>ƻ<EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>')
  or (t_info_plan.FieldByName('<27>ƻ<EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') then
  begin
    showmessage('<27>ƻ<EFBFBD><C6BB><EFBFBD>ǰ״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>!!');
    abort;
  end;
  if t_info_plan_detail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').asboolean then
  begin
    showmessage('<27>ƻ<EFBFBD><C6BB>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ɲ<EFBFBD><C9B2><EFBFBD><EFBFBD>޸<EFBFBD>!!');
    abort;
  end; 
end;

end.