hanxuntao
/
DONGSHENG6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '9abf05a513'
${ noResults }
DONGSHENG6/业务模块/u_op_open_select.pas

1207 lines
51 KiB
Plaintext
Raw Normal View History Unescape Escape

1
11 months ago
{$INCLUDE t_main.inc}
unit u_op_open_select;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB,ADODB, bsSkinCtrls, BusinessSkinForm;
type
Tfrm_op_open_select = class(TForm)
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
bsSkinButton1: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
yewu: TDataSource;
accept: TDataSource;
pay: TDataSource;
procedure bsSkinButton5Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure select_open_all();
procedure select_open_op();
procedure select_open_fee();
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_op_open_select: Tfrm_op_open_select;
open_select_num:integer;
implementation
uses u_op_seae_close, u_op_seai_close, u_op_aire_close, u_op_airi_close,
my_sys_chat{$IFDEF JGCHE}, u_op_airtruck_close{$ENDIF}, my_sys_function,
u_op_railway_close;
{$R *.dfm}
procedure Tfrm_op_open_select.select_open_all();
var
i:integer;
bookmark:Tbookmark;
begin
case open_select_num of
1:
begin
if (frm_op_seae_close.dxdbgrid1.SelectedCount>=1) and (frm_op_seae_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_seae_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_seae_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
{
Send_op_do('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
+',<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,'43',
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
end;
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
and (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
begin
if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
end else begin
yewu.DataSet.edit;
if (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'')
and (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString:=yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString
else
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'',yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring);
end;
{
Send_op_do('<27><><EFBFBD>˳<EFBFBD><CBB3>ڷ<EFBFBD><DAB7>ý<EFBFBD><C3BD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
+',<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,'44',
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
end;
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
begin
if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
end else begin
yewu.DataSet.edit;
if (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'')
and (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString:=yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString
else
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'',yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring);
end;
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
end;
2:
begin
if (frm_op_seai_close.dxdbgrid1.SelectedCount>=1) and (frm_op_seai_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_seai_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_seai_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
end;
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
begin
if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
end else begin
yewu.DataSet.edit;
if (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'')
and (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString:=yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString
else
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'',yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring);
end;
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
end;
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
begin
if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
end else begin
yewu.DataSet.edit;
if (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'')
and (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString:=yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString
else
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'',yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring);
end;
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
end;
3:
begin
if (frm_op_aire_close.dxdbgrid1.SelectedCount>=1) and (frm_op_aire_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_aire_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_aire_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
{
Send_op_do('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
+',<2C><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString,'43',
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
end;
if yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
end else begin
yewu.DataSet.edit;
if (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'')
and (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString:=yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString
else
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'',yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring);
end;
{
Send_op_do('<27><><EFBFBD>˳<EFBFBD><CBB3>ڷ<EFBFBD><DAB7>ý<EFBFBD><C3BD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
+',<2C><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString,'44',
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
{
Send_op_do('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
+',<2C><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString,'43',
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
end;
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
begin
if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
end else begin
yewu.DataSet.edit;
if (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'')
and (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString:=yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString
else
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'',yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring);
end;
{
Send_op_do('<27><><EFBFBD>˳<EFBFBD><CBB3>ڷ<EFBFBD><DAB7>ý<EFBFBD><C3BD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
+',<2C><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString,'44',
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
end;
4:
begin
if (frm_op_airi_close.dxdbgrid1.SelectedCount>=1) and (frm_op_airi_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_airi_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_airi_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
{
Send_op_do('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
+',<2C><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString,'43',
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
end;
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
begin
if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
end else begin
yewu.DataSet.edit;
if (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'')
and (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString:=yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString
else
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'',yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring);
end;
{
Send_op_do('<27><><EFBFBD>˽<EFBFBD><CBBD>ڷ<EFBFBD><DAB7>ý<EFBFBD><C3BD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
+',<2C><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString,'44',
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
{
Send_op_do('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
+',<2C><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString,'43',
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
end;
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
begin
if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
end else begin
yewu.DataSet.edit;
if (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'')
and (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString:=yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString
else
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'',yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring);
end;
{
Send_op_do('<27><><EFBFBD>˽<EFBFBD><CBBD>ڷ<EFBFBD><DAB7>ý<EFBFBD><C3BD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
+',<2C><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString,'44',
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
end;
5:
begin
if (frm_op_airtruck_close.dxdbgrid1.SelectedCount>=1) and (frm_op_airtruck_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_airtruck_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_airtruck_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
end;
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
begin
if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
end else begin
yewu.DataSet.edit;
if (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'')
and (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString:=yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString
else
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
end;
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
end;
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
begin
if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
end else begin
yewu.DataSet.edit;
if (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'')
and (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString:=yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString
else
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'',yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring);
end;
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
end;
6:
begin
if (frm_op_railway_close.dxdbgrid1.SelectedCount>=1) and (frm_op_railway_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_railway_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_railway_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
end;
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
begin
if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
end else begin
yewu.DataSet.edit;
if (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'')
and (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString:=yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString
else
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'',yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring);
end;
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
end;
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
begin
if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
end else begin
yewu.DataSet.edit;
if (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'')
and (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString:=yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString
else
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'',yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring);
end;
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
end;
end;
end;
procedure Tfrm_op_open_select.select_open_op();
var
i:integer;
bookmark:Tbookmark;
begin
case open_select_num of
1:
begin
if (frm_op_seae_close.dxdbgrid1.SelectedCount>=1) and (frm_op_seae_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_seae_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_seae_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
{
Send_op_do('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
+',<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,'43',
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
{
Send_op_do('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
+',<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,'43',
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
end;
2:
begin
if (frm_op_seai_close.dxdbgrid1.SelectedCount>=1) and (frm_op_seai_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_seai_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_seai_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
{
Send_op_do('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
+',<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,'43',
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
{
Send_op_do('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
+',<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,'43',
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
end;
3:
begin
if (frm_op_aire_close.dxdbgrid1.SelectedCount>=1) and (frm_op_aire_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_aire_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_aire_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
{
Send_op_do('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
+',<2C><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString,'43',
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
end;
4:
begin
if (frm_op_airi_close.dxdbgrid1.SelectedCount>=1) and (frm_op_airi_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_airi_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_airi_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
end;
5:
begin
if (frm_op_airtruck_close.dxdbgrid1.SelectedCount>=1) and (frm_op_airtruck_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_airtruck_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_airtruck_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
end;
6:
begin
if (frm_op_railway_close.dxdbgrid1.SelectedCount>=1) and (frm_op_railway_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_railway_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_airtruck_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,yewu.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring,'');
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
end;
end;
end;
procedure Tfrm_op_open_select.select_open_fee();
var
i:integer;
bookmark:Tbookmark;
begin
case open_select_num of
1:
begin
if (frm_op_seae_close.dxdbgrid1.SelectedCount>=1) and (frm_op_seae_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_seae_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_seae_close.dxdbgrid1.selectedrows[i]));
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
begin
if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
end else begin
yewu.DataSet.edit;
if (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'')
and (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString:=yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString
else
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'',yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring);
end;
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
begin
if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
end else begin
yewu.DataSet.edit;
if (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'')
and (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString:=yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString
else
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'',yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring);
end;
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
end;
2:
begin
if (frm_op_seai_close.dxdbgrid1.SelectedCount>=1) and (frm_op_seai_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_seai_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_seai_close.dxdbgrid1.selectedrows[i]));
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
begin
if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
end else begin
yewu.DataSet.edit;
if (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'')
and (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString:=yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString
else
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'',yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring);
end;
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
begin
if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
end else begin
yewu.DataSet.edit;
if (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'')
and (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString:=yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString
else
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'',yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring);
end;
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
end;
3:
begin
if (frm_op_aire_close.dxdbgrid1.SelectedCount>=1) and (frm_op_aire_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_aire_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_aire_close.dxdbgrid1.selectedrows[i]));
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
begin
if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
end else begin
yewu.DataSet.edit;
if (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'')
and (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString:=yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString
else
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'',yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring);
end;
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
begin
if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
end else begin
yewu.DataSet.edit;
if (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'')
and (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString:=yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString
else
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'',yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring);
end;
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
end;
4:
begin
if (frm_op_airi_close.dxdbgrid1.SelectedCount>=1) and (frm_op_airi_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_airi_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_airi_close.dxdbgrid1.selectedrows[i]));
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
begin
if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
end else begin
yewu.DataSet.edit;
if (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'')
and (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString:=yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString
else
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'',yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring);
end;
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
begin
if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
end else begin
yewu.DataSet.edit;
if (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'')
and (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString:=yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString
else
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'',yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring);
end;
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
end;
5:
begin
if (frm_op_airtruck_close.dxdbgrid1.SelectedCount>=1) and (frm_op_airtruck_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_airtruck_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_airtruck_close.dxdbgrid1.selectedrows[i]));
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
begin
if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
end else begin
yewu.DataSet.edit;
if (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'')
and (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString:=yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString
else
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'',yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring);
end;
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
begin
if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
end else begin
yewu.DataSet.edit;
if (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'')
and (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString:=yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString
else
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'',yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring);
end;
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
end;
6:
begin
if (frm_op_railway_close.dxdbgrid1.SelectedCount>=1) and (frm_op_railway_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_railway_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_airtruck_close.dxdbgrid1.selectedrows[i]));
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
begin
if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
end else begin
yewu.DataSet.edit;
if (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'')
and (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString:=yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString
else
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'',yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring);
end;
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
begin
if yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime<=Logininfo.endday then begin
MessageDlg('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>Ѿ<EFBFBD><D1BE><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܽ<EFBFBD><DCBD>⣡',mtWarning,[mbok],0);
end else begin
yewu.DataSet.edit;
if (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'')
and (Trim(yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString)<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString:=yewu.DataSet.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').AsString
else
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
yewu.DataSet.post;
CloseOpenLog(yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'',yewu.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring);
end;
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
end;
end;
end;
procedure Tfrm_op_open_select.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_open_select.bsSkinButton1Click(Sender: TObject);
begin
if bsSkinCheckRadioBox3.Checked then
begin
frm_op_open_select.select_open_all();
close;
exit;
end;
if bsSkinCheckRadioBox1.Checked then
begin
frm_op_open_select.select_open_op();
close;
exit;
end;
if bsSkinCheckRadioBox2.Checked then
begin
frm_op_open_select.select_open_fee();
close;
exit;
end;
end;
end.