D6HECHUAN/海运业务/u_op_seae_unlock.~pas

unit u_op_seae_unlock;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, XPMenu, Menus, DB, ADODB, dxDBTLCl, dxGrClms,
  dxDBCtrl, dxDBGrid, dxTL, dxCntner, Mask, wwdbedit, Wwdotdot, Wwdbcomb,
  wwdblook, RxLookup, wwdbdatetimepicker, StdCtrls, bsSkinCtrls, ExtCtrls,
  ComCtrls, bsSkinTabs, DBCtrls, bsSkinBoxCtrls, bsdbctrls, Grids,
  Wwdbigrd, Wwdbgrid;

type
  Tfrm_op_seae_unlock = class(TForm)
    Panel2: TPanel;
    Panel3: TPanel;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    bsSkinPanel1: TbsSkinPanel;
    Label6: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label10: TLabel;
    Label5: TLabel;
    Label9: TLabel;
    Label8: TLabel;
    Label11: TLabel;
    Label30: TLabel;
    Label125: TLabel;
    Label16: TLabel;
    Label7: TLabel;
    Label4: TLabel;
    Label12: TLabel;
    Edit1: TEdit;
    Edit4: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    RxDBLookupCombo2: TRxDBLookupCombo;
    wwDBDateTimePicker3: TwwDBDateTimePicker;
    wwDBDateTimePicker4: TwwDBDateTimePicker;
    Edit7: TEdit;
    wwDBLookupCombo49: TwwDBLookupCombo;
    RxDBLookupCombo6: TRxDBLookupCombo;
    wwDBComboBox1: TwwDBComboBox;
    wwDBDateTimePicker5: TwwDBDateTimePicker;
    wwDBDateTimePicker6: TwwDBDateTimePicker;
    t_op_seae: TADOQuery;
    t_op_seae1: TDataSource;
    PopupMenu2: TPopupMenu;
    N10: TMenuItem;
    N11: TMenuItem;
    N14: TMenuItem;
    N13: TMenuItem;
    N12: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    XPMenu1: TXPMenu;
    Label13: TLabel;
    RxDBLookupCombo1: TRxDBLookupCombo;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column84: TdxDBGridCheckColumn;
    dxDBGrid1Column85: TdxDBGridColumn;
    dxDBGrid1Column89: TdxDBGridColumn;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column2: TdxDBGridMaskColumn;
    dxDBGrid1Column3: TdxDBGridMaskColumn;
    dxDBGrid1Column4: TdxDBGridMaskColumn;
    dxDBGrid1Column5: TdxDBGridMaskColumn;
    dxDBGrid1Column6: TdxDBGridMaskColumn;
    dxDBGrid1Column7: TdxDBGridMaskColumn;
    dxDBGrid1Column8: TdxDBGridMaskColumn;
    dxDBGrid1Column78: TdxDBGridColumn;
    dxDBGrid1Column9: TdxDBGridMaskColumn;
    dxDBGrid1Column10: TdxDBGridMaskColumn;
    dxDBGrid1Column11: TdxDBGridMaskColumn;
    dxDBGrid1Column12: TdxDBGridMaskColumn;
    dxDBGrid1Column13: TdxDBGridMaskColumn;
    dxDBGrid1Column14: TdxDBGridMaskColumn;
    dxDBGrid1Column15: TdxDBGridMaskColumn;
    dxDBGrid1Column16: TdxDBGridDateColumn;
    dxDBGrid1Column17: TdxDBGridDateColumn;
    dxDBGrid1Column18: TdxDBGridDateColumn;
    dxDBGrid1Column19: TdxDBGridMaskColumn;
    dxDBGrid1Column20: TdxDBGridMaskColumn;
    dxDBGrid1Column22: TdxDBGridDateColumn;
    dxDBGrid1Column23: TdxDBGridMaskColumn;
    dxDBGrid1Column24: TdxDBGridMaskColumn;
    dxDBGrid1Column25: TdxDBGridMaskColumn;
    dxDBGrid1Column26: TdxDBGridMaskColumn;
    dxDBGrid1Column27: TdxDBGridMaskColumn;
    dxDBGrid1Column28: TdxDBGridMaskColumn;
    dxDBGrid1Column29: TdxDBGridMaskColumn;
    dxDBGrid1Column30: TdxDBGridMaskColumn;
    dxDBGrid1Column31: TdxDBGridDateColumn;
    dxDBGrid1Column32: TdxDBGridMaskColumn;
    dxDBGrid1Column33: TdxDBGridMaskColumn;
    dxDBGrid1Column34: TdxDBGridMaskColumn;
    dxDBGrid1Column35: TdxDBGridMaskColumn;
    dxDBGrid1Column36: TdxDBGridMaskColumn;
    dxDBGrid1Column37: TdxDBGridMaskColumn;
    dxDBGrid1Column38: TdxDBGridMaskColumn;
    dxDBGrid1Column39: TdxDBGridColumn;
    dxDBGrid1Column40: TdxDBGridColumn;
    dxDBGrid11: TdxDBGridMaskColumn;
    dxDBGrid12: TdxDBGridMaskColumn;
    dxDBGrid13: TdxDBGridMaskColumn;
    dxDBGrid14: TdxDBGridMaskColumn;
    dxDBGrid15: TdxDBGridMaskColumn;
    dxDBGrid16: TdxDBGridMaskColumn;
    dxDBGrid17: TdxDBGridMaskColumn;
    dxDBGrid18: TdxDBGridMaskColumn;
    dxDBGrid19: TdxDBGridMaskColumn;
    dxDBGrid110: TdxDBGridMaskColumn;
    dxDBGrid111: TdxDBGridMaskColumn;
    dxDBGrid112: TdxDBGridMaskColumn;
    dxDBGrid113: TdxDBGridMaskColumn;
    dxDBGrid114: TdxDBGridMaskColumn;
    dxDBGrid115: TdxDBGridMaskColumn;
    dxDBGrid116: TdxDBGridMaskColumn;
    dxDBGrid117: TdxDBGridMaskColumn;
    dxDBGrid118: TdxDBGridMaskColumn;
    dxDBGrid119: TdxDBGridMaskColumn;
    dxDBGrid120: TdxDBGridMaskColumn;
    dxDBGrid1Column61: TdxDBGridMaskColumn;
    dxDBGrid1TEU: TdxDBGridMaskColumn;
    dxDBGrid1Column63: TdxDBGridMaskColumn;
    dxDBGrid1Column64: TdxDBGridMaskColumn;
    dxDBGrid1Column65: TdxDBGridDateColumn;
    dxDBGrid1Column66: TdxDBGridMaskColumn;
    dxDBGrid1Column67: TdxDBGridMaskColumn;
    dxDBGrid1Column72: TdxDBGridMaskColumn;
    dxDBGrid1Column68: TdxDBGridMaskColumn;
    dxDBGrid1Column69: TdxDBGridMaskColumn;
    dxDBGrid1Column70: TdxDBGridMaskColumn;
    dxDBGrid1Column74: TdxDBGridMaskColumn;
    dxDBGrid1Column75: TdxDBGridMaskColumn;
    dxDBGrid1Column73: TdxDBGridColumn;
    dxDBGrid1Column76: TdxDBGridColumn;
    dxDBGrid1Column77: TdxDBGridCheckColumn;
    dxDBGrid1Column79: TdxDBGridColumn;
    dxDBGrid1Column80: TdxDBGridColumn;
    dxDBGrid1Column81: TdxDBGridColumn;
    dxDBGrid1Column82: TdxDBGridCheckColumn;
    dxDBGrid1Column83: TdxDBGridColumn;
    dxDBGrid1Column86: TdxDBGridCheckColumn;
    dxDBGrid1Column87: TdxDBGridCheckColumn;
    dxDBGrid1Column88: TdxDBGridColumn;
    bsSkinButton13: TbsSkinButton;
    bsSkinButton1: TbsSkinButton;
    t_ch_accept: TADOQuery;
    t_ch_accept1: TDataSource;
    t_op_gain: TADOQuery;
    t_op_gain1: TDataSource;
    t_ch_pay: TADOQuery;
    t_ch_pay1: TDataSource;
    bsSkinPanel5: TbsSkinPanel;
    Label14: TLabel;
    Label15: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    RxDBLookupCombo3: TRxDBLookupCombo;
    DBEdit4: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    RxDBLookupCombo12: TRxDBLookupCombo;
    RxDBLookupCombo13: TRxDBLookupCombo;
    Panel1: TPanel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinStdLabel7: TbsSkinStdLabel;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinStdLabel9: TbsSkinStdLabel;
    bsSkinStdLabel10: TbsSkinStdLabel;
    bsSkinDBEdit6: TbsSkinDBEdit;
    bsSkinDBEdit4: TbsSkinDBEdit;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinDBEdit3: TbsSkinDBEdit;
    bsSkinDBEdit5: TbsSkinDBEdit;
    bsSkinDBEdit2: TbsSkinDBEdit;
    bsSkinDBEdit8: TbsSkinDBEdit;
    bsSkinDBEdit7: TbsSkinDBEdit;
    bsSkinDBEdit9: TbsSkinDBEdit;
    bsSkinDBEdit10: TbsSkinDBEdit;
    wwDBGrid1: TwwDBGrid;
    wwDBGrid2: TwwDBGrid;
    dxdbgrdclmnDBGrid1Column90: TdxDBGridColumn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
    procedure dxDBGrid1ColumnSorting(Sender: TObject;
      Column: TdxDBTreeListColumn; var Allow: Boolean);
    procedure N10Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton9Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinButton13Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinTabSheet2Resize(Sender: TObject);
    procedure dxdbgrdclmnDBGrid1Column90CustomDraw(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
      AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
      var AColor: TColor; ASelected, AFocused: Boolean;
      var ADone: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_op_seae_unlock: Tfrm_op_seae_unlock;

implementation

uses u_main, my_sys_function, my_sys_chat;

{$R *.dfm}

procedure Tfrm_op_seae_unlock.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  savereggrid(dxdbgrid1,caption);
  frm_op_seae_unlock.Hide;
  frm_op_seae_unlock.ManualFloat(frm_op_seae_unlock.BoundsRect );
  frm_main.freeTabs('frm_op_seae_unlock');
  action:=cafree;
  frm_op_seae_unlock:=nil;
end;

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

procedure Tfrm_op_seae_unlock.bsSkinButton10Click(Sender: TObject);
var
  str:widestring;
begin
  if Edit1.text<>''then
    str:=str+' and ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit1.text+'%'+'''';
  if Edit4.text<>''then
    str:=str+' and ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit4.text+'%'+'''';
  if Edit2.text<>''then
    str:=str+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit2.text+'%'+'''';
  if Edit3.text<>''then
    str:=str+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit3.text+'%'+'''';
  if wwDBDateTimePicker1.text<>''then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker1.text+'''';
  if wwDBDateTimePicker2.text<>''then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker2.text+'''';
  if wwDBDateTimePicker3.text<>''then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>>='+''''+wwDBDateTimePicker3.text+'''';
  if wwDBDateTimePicker4.text<>''then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><='+''''+wwDBDateTimePicker4.text+'''';
  if RxDBLookupCombo2.DisplayValues[1]<>''then
    str:=str+' and ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo2.DisplayValues[1]+'''';
  if RxDBLookupCombo6.DisplayValues[0]<>''then
    str:=str+' and <20><><EFBFBD><EFBFBD>Ա='+''''+RxDBLookupCombo6.DisplayValues[0]+'''';
  if wwDBLookupCombo49.text<>''then
    str:=str+' and <20><><EFBFBD><EFBFBD> like '+''''+'%'+wwDBLookupCombo49.text+'%'+'''';
  if Edit7.text<>''then
    str:=str+' and <20><><EFBFBD><EFBFBD> like '+''''+'%'+Edit7.text+'%'+'''';
  if RxDBLookupCombo1.DisplayValues[0]<>''then
    str:=str+' and <20><><EFBFBD><EFBFBD>Ա='+''''+RxDBLookupCombo1.DisplayValues[0]+'''';
  if wwDBComboBox1.ItemIndex<>-1 then
  begin
    if wwDBComboBox1.ItemIndex=0 then
      str:=str+' and <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><>1'
    else
      str:=str+' and <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>=1';
  end;
  if wwDBDateTimePicker5.text<>'' then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker5.text+'''';
  if wwDBDateTimePicker6.text<>'' then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker6.text+'''';

  if str<>''then
    str:=' where '+copy(str,5,length(str)-4);

  t_ch_accept.close;
  t_ch_pay.close;
  t_op_gain.close;
  t_op_seae.close;
  t_op_seae.sql.clear;
  t_op_seae.sql.add('select * from t_op_seae '+str+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  t_op_seae.open;
  t_ch_accept.open;
  t_ch_pay.open;
  t_op_gain.open;
end;

procedure Tfrm_op_seae_unlock.bsSkinButton6Click(Sender: TObject);
begin
  Edit1.text:='';
  Edit4.text:='';
  Edit2.text:='';
  Edit3.text:='';
  wwDBDateTimePicker1.text:='';
  wwDBDateTimePicker2.text:='';
  RxDBLookupCombo2.ClearValue;
  wwDBDateTimePicker3.text:='';
  wwDBDateTimePicker4.text:='';
  wwDBLookupCombo49.text:='';
  Edit7.text:='';
  RxDBLookupCombo1.ClearValue;
  RxDBLookupCombo6.ClearValue;
  wwDBComboBox1.text:='';
  wwDBDateTimePicker5.text:='';
  wwDBDateTimePicker6.text:='';
end;

procedure Tfrm_op_seae_unlock.dxDBGrid1ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort(Column,t_op_seae,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;

procedure Tfrm_op_seae_unlock.N10Click(Sender: TObject);
begin
  update_grid_view_no(dxdbgrid1);
end;

procedure Tfrm_op_seae_unlock.N14Click(Sender: TObject);
begin
  update_grid_view_all(dxdbgrid1);
end;

procedure Tfrm_op_seae_unlock.N12Click(Sender: TObject);
begin
  update_grid(dxdbgrid1,4);
end;

procedure Tfrm_op_seae_unlock.N16Click(Sender: TObject);
begin
  grid_save_xls(dxdbgrid1);
end;

procedure Tfrm_op_seae_unlock.FormShow(Sender: TObject);
begin
  loadreggrid(dxdbgrid1,true,caption);
end;

procedure Tfrm_op_seae_unlock.bsSkinButton9Click(Sender: TObject);
begin
  sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڷ<EFBFBD><DAB7>ý<EFBFBD><C3BD><EFBFBD>',2,nil,nil,nil,nil,t_op_seae1,nil,nil,nil,nil,nil,nil);
end;

procedure Tfrm_op_seae_unlock.Edit1KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key=#13 then
  begin
    key:=#0;
    frm_op_seae_unlock.bsSkinButton10Click(Sender);
  end;
end;

procedure Tfrm_op_seae_unlock.bsSkinButton13Click(Sender: TObject);
var
  i:integer;
begin
  if t_op_seae.IsEmpty then
    exit;
  if t_op_seae.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').asboolean then
  begin
    showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    exit;
  end;
  if t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
  begin
    showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD>');
    exit;
  end;
  if dxDBGrid1.SelectedCount<=1 then
  begin
      t_op_seae.Edit;
      t_op_seae['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
      t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
      t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
      t_op_seae.post;
{
      Send_op_do('<27><><EFBFBD>˷<EFBFBD><CBB7>ý<EFBFBD><C3BD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
            +',<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:'+t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,'50',
            t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
            t_op_seae.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
            t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
  end
  else
  begin
    for i:=0 to dxDBGrid1.SelectedCount-1 do
    begin
      t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
      t_op_seae.Edit;
      t_op_seae['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
      t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
      t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
      t_op_seae.post;
{
      Send_op_do('<27><><EFBFBD>˷<EFBFBD><CBB7>ý<EFBFBD><C3BD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
            +',<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:'+t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,'50',
            t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
            t_op_seae.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
            t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}            
    end;
  end;
  showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>');
end;

procedure Tfrm_op_seae_unlock.bsSkinButton1Click(Sender: TObject);
var
  i:integer;
begin
  if t_op_seae.IsEmpty then
    exit;
  if not t_op_seae.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').asboolean then
  begin
    showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD><EFBFBD>û<EFBFBD>н<EFBFBD><D0BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    exit;
  end;
  if t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
  begin
    showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD>');
    exit;
  end;
  if dxDBGrid1.SelectedCount<=1 then
  begin
    t_op_seae.Edit;
    t_op_seae['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
    t_op_seae.post;
  end
  else
  begin
    for i:=0 to dxDBGrid1.SelectedCount-1 do
    begin
      t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
      t_op_seae.Edit;
      t_op_seae['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
      t_op_seae.post;
    end;
  end;
  showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>');
end;

procedure Tfrm_op_seae_unlock.bsSkinTabSheet2Resize(Sender: TObject);
begin
  wwDBGrid1.Height:=round((bsSkinTabSheet2.Height-bsSkinPanel5.Height-Panel2.Height)/2);
end;

procedure Tfrm_op_seae_unlock.dxdbgrdclmnDBGrid1Column90CustomDraw(
  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  (dxdbgrdclmnDBGrid1Column90.Field.Value='<27>ѷ<EFBFBD><D1B7><EFBFBD><EFBFBD><EFBFBD>') then begin
        AColor:=clRed;
  end else begin
        AColor:=clwhite;
           end;
  AFont.Color:=clblack;
end;

end.