hanxuntao
/
DS6JIEFENG
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 '48f045977c'
${ noResults }
DS6JIEFENG/网上订舱/u_op_seae_web_si.pas

780 lines
31 KiB
Plaintext
Raw Blame History Unescape Escape

This file contains ambiguous Unicode characters!

This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.

unit u_op_seae_web_si;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, bsSkinCtrls, ExtCtrls, DB, ADODB, dxExEdtr, dxCntner, dxTL,
dxDBCtrl, dxDBGrid, ComCtrls, bsSkinTabs, RxLookup, StdCtrls, Mask,
DBCtrls, wwdbdatetimepicker, wwdblook, u_op_sate, u_fee, u_op_card, Menus,
dxDBTLCl, dxGrClms, bsdbctrls, XPMenu, wwdbedit, Wwdotdot, Wwdbcomb,
Grids, Wwdbigrd, Wwdbgrid;
type
Tfrm_op_seae_web_si = class(TForm)
Panel2: TPanel;
bsSkinButton7: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
bsSkinButton11: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
bsSkinButton38: TbsSkinButton;
Notebook1: TNotebook;
t_op_seae: TADOQuery;
t_op_seae1: TDataSource;
bsSkinPanel1: TbsSkinPanel;
XPMenu1: TXPMenu;
PopupMenu2: TPopupMenu;
N10: TMenuItem;
N11: TMenuItem;
N14: TMenuItem;
N13: TMenuItem;
N12: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
bsSkinPanel2: TbsSkinPanel;
Label47: TLabel;
Label49: TLabel;
wwDBDateTimePicker9: TwwDBDateTimePicker;
Edit3: TEdit;
wwDBDateTimePicker12: TwwDBDateTimePicker;
Label52: TLabel;
Label54: TLabel;
RxDBLookupCombo2: TRxDBLookupCombo;
bsSkinButton8: TbsSkinButton;
bsSkinButton12: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton1: TbsSkinButton;
Label45: TLabel;
wwDBComboBox8: TwwDBComboBox;
wwDBDateTimePicker11: TwwDBDateTimePicker;
Label48: TLabel;
wwDBDateTimePicker13: TwwDBDateTimePicker;
Label50: TLabel;
Panel1: TPanel;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column29: TdxDBGridColumn;
dxDBGrid1Column4: TdxDBGridDateColumn;
dxDBGrid1Column9: TdxDBGridMaskColumn;
dxDBGrid1Column19: TdxDBGridColumn;
dxDBGrid1Column20: TdxDBGridColumn;
dxDBGrid1Column10: TdxDBGridMaskColumn;
dxDBGrid1Column11: TdxDBGridMaskColumn;
dxDBGrid1Column12: TdxDBGridDateColumn;
dxDBGrid1Column13: TdxDBGridMaskColumn;
dxDBGrid1Column14: TdxDBGridMaskColumn;
dxDBGrid1Column15: TdxDBGridMaskColumn;
dxDBGrid1Column16: TdxDBGridMaskColumn;
dxDBGrid1Column17: TdxDBGridColumn;
dxDBGrid1Column23: TdxDBGridColumn;
dxDBGrid1Column26: TdxDBGridColumn;
dxDBGrid1Column25: TdxDBGridMemoColumn;
bsSkinPanel3: TbsSkinPanel;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
Label8: TLabel;
DBMemo3: TDBMemo;
Label9: TLabel;
Label10: TLabel;
bsSkinPanel4: TbsSkinPanel;
DBMemo1: TDBMemo;
DBMemo4: TDBMemo;
DBMemo5: TDBMemo;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
DBMemo38: TDBMemo;
Label14: TLabel;
Label15: TLabel;
DBMemo2: TDBMemo;
DBEdit9: TDBEdit;
Label16: TLabel;
DBEdit10: TDBEdit;
Label17: TLabel;
Label18: TLabel;
DBEdit11: TDBEdit;
Label19: TLabel;
DBEdit12: TDBEdit;
Label21: TLabel;
DBEdit14: TDBEdit;
Label22: TLabel;
DBEdit15: TDBEdit;
Label23: TLabel;
Label24: TLabel;
DBEdit17: TDBEdit;
wwDBComboBox15: TwwDBComboBox;
Label20: TLabel;
DBEdit13: TDBEdit;
Label25: TLabel;
DBEdit16: TDBEdit;
Label26: TLabel;
DBEdit18: TDBEdit;
Label27: TLabel;
DBEdit19: TDBEdit;
Label28: TLabel;
DBEdit20: TDBEdit;
Label29: TLabel;
DBEdit21: TDBEdit;
Label30: TLabel;
DBEdit22: TDBEdit;
Label31: TLabel;
DBEdit23: TDBEdit;
t_op_ctn1: TDataSource;
Label32: TLabel;
DBEdit24: TDBEdit;
DBEdit25: TDBEdit;
Label33: TLabel;
Label34: TLabel;
DBEdit26: TDBEdit;
DBEdit27: TDBEdit;
Label35: TLabel;
Label36: TLabel;
DBEdit28: TDBEdit;
Label38: TLabel;
DBEdit30: TDBEdit;
Label39: TLabel;
DBEdit31: TDBEdit;
DBEdit32: TDBEdit;
Label40: TLabel;
Label41: TLabel;
DBEdit33: TDBEdit;
Label44: TLabel;
DBEdit36: TDBEdit;
t_op_seae_insert: TADOQuery;
t_op_seae_insert1: TDataSource;
t_op_ctn_insert: TADOQuery;
dxDBGrid1Column18: TdxDBGridColumn;
wwDBGrid1: TwwDBGrid;
dxDBGrid1Column21: TdxDBGridColumn;
t_op_ctn: TADOQuery;
t_op_seae_assistant: TADOQuery;
DBEdit29: TDBEdit;
t_op_seae_order: TADOQuery;
Label37: TLabel;
DBEdit34: TDBEdit;
Label42: TLabel;
DBEdit35: TDBEdit;
Label43: TLabel;
DBEdit37: TDBEdit;
DBEdit38: TDBEdit;
Label46: TLabel;
Label51: TLabel;
DBEdit39: TDBEdit;
procedure bsSkinButton5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Panel2Resize(Sender: TObject);
procedure bsSkinButton7Click(Sender: TObject);
procedure bsSkinButton6Click(Sender: TObject);
procedure bsSkinButton9Click(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure bsSkinButton38Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure bsSkinButton8Click(Sender: TObject);
procedure bsSkinButton12Click(Sender: TObject);
procedure Notebook1PageChanged(Sender: TObject);
procedure RxDBLookupCombo5Enter(Sender: TObject);
procedure RxDBLookupCombo5Exit(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure dxDBGrid1DblClick(Sender: TObject);
procedure DBEdit29Change(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
private
{ Private declarations }
procedure setconcolor; //<2F><><EFBFBD>ÿؼ<C3BF><D8BC><EFBFBD><EFBFBD><EFBFBD>ɫ
public
{ Public declarations }
end;
var
frm_op_seae_web_si: Tfrm_op_seae_web_si;
implementation
uses u_main,u_data_share, my_sys_function, u_sys_progress,
u_op_add_code, u_op_date_change, u_op_ctn,
u_op_seae_web_add;
{$R *.dfm}
procedure Tfrm_op_seae_web_si.setconcolor;
begin
if t_op_seae.IsEmpty then Exit;
t_op_seae_order.Close;
t_op_seae_order.SQL.Text:='select * from t_op_seae where ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_op_seae.fieldbyname('BSNO').AsString+'''';
t_op_seae_order.Open;
if t_op_seae_order.IsEmpty then begin
// MessageDlg('<27>޷<EFBFBD><DEB7><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>', mtConfirmation, [mbYes],0);
exit;
end;
t_op_seae_assistant.Close;
t_op_seae_assistant.SQL.Text:='select * from t_op_seae_assistant where ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_op_seae.fieldbyname('BSNO').AsString+'''';
t_op_seae_assistant.Open;
if not t_op_seae_assistant.IsEmpty then begin
if AnsiCompareStr(t_op_seae.Fieldbyname('VESSEL').asstring ,
t_op_seae_assistant.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>0 then
DBEdit13.Font.Color:=clred
else DBEdit13.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('VOYNO').asstring ,
t_op_seae_assistant.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>0 then
DBEdit16.Font.Color:=clred
else DBEdit16.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('PORTLOAD').asstring ,
t_op_seae_assistant.fieldbyname('װ<><D7B0><EFBFBD><EFBFBD>').asstring)<>0 then
DBEdit10.Font.Color:=clred
else DBEdit10.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('PORTDISCHARGE').asstring ,
t_op_seae_assistant.fieldbyname('ж<><D0B6><EFBFBD><EFBFBD>').asstring)<>0 then
DBEdit11.Font.Color:=clred
else DBEdit11.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('PLACEDELIVERY').asstring ,
t_op_seae_assistant.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').asstring)<>0 then
DBEdit34.Font.Color:=clred
else DBEdit34.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('DESTINATION').asstring ,
t_op_seae_assistant.fieldbyname('Ŀ<>ĵ<EFBFBD>').asstring)<>0 then
DBEdit18.Font.Color:=clred
else DBEdit18.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('BLFRT').asstring ,
t_op_seae_assistant.fieldbyname('<27><><EFBFBD>ѷ<EFBFBD>ʽ').asstring)<>0 then
DBEdit20.Font.Color:=clred
else DBEdit20.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('PREPARDAT').asstring ,
t_op_seae_assistant.fieldbyname('Ԥ<><D4A4><EFBFBD>ص<EFBFBD>').asstring)<>0 then
DBEdit21.Font.Color:=clred
else DBEdit21.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('PAYABLEAT').asstring ,
t_op_seae_assistant.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').asstring)<>0 then
DBEdit38.Font.Color:=clred
else DBEdit38.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('ISSUETYPE').asstring ,
t_op_seae_assistant.fieldbyname('ǩ<><C7A9><EFBFBD><EFBFBD>ʽ').asstring)<>0 then
DBEdit22.Font.Color:=clred
else DBEdit22.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('NOBILL').asstring ,
t_op_seae_assistant.fieldbyname('<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>').asstring)<>0 then
DBEdit39.Font.Color:=clred
else DBEdit39.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('SERVICE').asstring ,
t_op_seae_assistant.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)<>0 then
DBEdit39.Font.Color:=clred
else DBEdit39.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('PKGS').asstring ,
t_op_seae_assistant.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>0 then
DBEdit24.Font.Color:=clred
else DBEdit24.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('KINDPKGS').asstring ,
t_op_seae_assistant.fieldbyname('<27><>װ').asstring)<>0 then
DBEdit25.Font.Color:=clred
else DBEdit25.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('KGS').asstring ,
t_op_seae_assistant.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>0 then
DBEdit26.Font.Color:=clred
else DBEdit26.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('CBM').asstring ,
t_op_seae_assistant.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>0 then
DBEdit27.Font.Color:=clred
else DBEdit27.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('TOTALNO').asstring ,
t_op_seae_assistant.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').asstring)<>0 then
DBEdit37.Font.Color:=clred
else DBEdit37.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('SHIPPER').asstring ,
t_op_seae_assistant.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').asstring)<>0 then
DBMemo1.Font.Color:=clred
else DBMemo1.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('NOTIFYPARTY').asstring ,
t_op_seae_assistant.fieldbyname('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').asstring)<>0 then
DBMemo5.Font.Color:=clred
else DBMemo5.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('CONSIGNEE').asstring ,
t_op_seae_assistant.fieldbyname('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').asstring)<>0 then
DBMemo4.Font.Color:=clred
else DBMemo4.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('MARKS').asstring ,
t_op_seae_assistant.fieldbyname('<27><>ͷ').asstring)<>0 then
DBMemo38.Font.Color:=clred
else DBMemo38.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('DESCRIPTION').asstring ,
t_op_seae_assistant.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)<>0 then
DBMemo2.Font.Color:=clred
else DBMemo2.Font.Color:=clblack ;
end else begin
if AnsiCompareStr(t_op_seae.Fieldbyname('VESSEL').asstring ,
t_op_seae_order.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>0 then
DBEdit13.Font.Color:=clred
else DBEdit13.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('VOYNO').asstring ,
t_op_seae_order.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>0 then
DBEdit16.Font.Color:=clred
else DBEdit16.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('PORTLOAD').asstring ,
t_op_seae_order.fieldbyname('װ<><D7B0><EFBFBD><EFBFBD>').asstring)<>0 then
DBEdit10.Font.Color:=clred
else DBEdit10.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('PORTDISCHARGE').asstring ,
t_op_seae_order.fieldbyname('ж<><D0B6><EFBFBD><EFBFBD>').asstring)<>0 then
DBEdit11.Font.Color:=clred
else DBEdit11.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('PLACEDELIVERY').asstring ,
t_op_seae_order.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').asstring)<>0 then
DBEdit34.Font.Color:=clred
else DBEdit34.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('DESTINATION').asstring ,
t_op_seae_order.fieldbyname('Ŀ<>ĵ<EFBFBD>').asstring)<>0 then
DBEdit18.Font.Color:=clred
else DBEdit18.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('BLFRT').asstring ,
t_op_seae_order.fieldbyname('<27><><EFBFBD>ѷ<EFBFBD>ʽ').asstring)<>0 then
DBEdit20.Font.Color:=clred
else DBEdit20.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('PREPARDAT').asstring ,
t_op_seae_order.fieldbyname('Ԥ<><D4A4><EFBFBD>ص<EFBFBD>').asstring)<>0 then
DBEdit21.Font.Color:=clred
else DBEdit21.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('PAYABLEAT').asstring ,
t_op_seae_order.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').asstring)<>0 then
DBEdit38.Font.Color:=clred
else DBEdit38.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('ISSUETYPE').asstring ,
t_op_seae_order.fieldbyname('ǩ<><C7A9><EFBFBD><EFBFBD>ʽ').asstring)<>0 then
DBEdit22.Font.Color:=clred
else DBEdit22.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('NOBILL').asstring ,
t_op_seae_order.fieldbyname('<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>').asstring)<>0 then
DBEdit39.Font.Color:=clred
else DBEdit39.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('SERVICE').asstring ,
t_op_seae_order.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)<>0 then
DBEdit39.Font.Color:=clred
else DBEdit39.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('PKGS').asstring ,
t_op_seae_order.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>0 then
DBEdit24.Font.Color:=clred
else DBEdit24.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('KINDPKGS').asstring ,
t_op_seae_order.fieldbyname('<27><>װ').asstring)<>0 then
DBEdit25.Font.Color:=clred
else DBEdit25.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('KGS').asstring ,
t_op_seae_order.fieldbyname('ë<><C3AB>').asstring)<>0 then
DBEdit26.Font.Color:=clred
else DBEdit26.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('CBM').asstring ,
t_op_seae_order.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>0 then
DBEdit27.Font.Color:=clred
else DBEdit27.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('TOTALNO').asstring ,
t_op_seae_order.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').asstring)<>0 then
DBEdit37.Font.Color:=clred
else DBEdit37.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('SHIPPER').asstring ,
t_op_seae_order.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').asstring)<>0 then
DBMemo1.Font.Color:=clred
else DBMemo1.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('NOTIFYPARTY').asstring ,
t_op_seae_order.fieldbyname('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').asstring)<>0 then
DBMemo5.Font.Color:=clred
else DBMemo5.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('CONSIGNEE').asstring ,
t_op_seae_order.fieldbyname('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').asstring)<>0 then
DBMemo4.Font.Color:=clred
else DBMemo4.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('MARKS').asstring ,
t_op_seae_order.fieldbyname('<27><>ͷ').asstring)<>0 then
DBMemo38.Font.Color:=clred
else DBMemo38.Font.Color:=clblack ;
if AnsiCompareStr(t_op_seae.Fieldbyname('DESCRIPTION').asstring ,
t_op_seae_order.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)<>0 then
DBMemo2.Font.Color:=clred
else DBMemo2.Font.Color:=clblack ;
end;
end;
procedure Tfrm_op_seae_web_si.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_seae_web_si.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
savereggrid(dxdbgrid1,caption);
frm_op_seae_web_si.Hide;
frm_op_seae_web_si.ManualFloat(frm_op_seae_web_si.BoundsRect );
frm_main.freeTabs('frm_op_seae_web_si');
action:=cafree;
frm_op_seae_web_si:=nil;
end;
procedure Tfrm_op_seae_web_si.Panel2Resize(Sender: TObject);
var
i:integer;
begin
i:=round(Panel2.Width/12);
bsSkinButton7.Width:=i;
bsSkinButton6.Width:=i;
bsSkinButton9.Width:=i;
bsSkinButton1.Width:=i;
bsSkinButton11.Width:=i;
bsSkinButton2.Width:=i;
bsSkinButton38.Width:=i;
end;
procedure Tfrm_op_seae_web_si.bsSkinButton7Click(Sender: TObject);
begin
table_Prior(t_op_seae);
end;
procedure Tfrm_op_seae_web_si.bsSkinButton6Click(Sender: TObject);
begin
table_next(t_op_seae);
end;
procedure Tfrm_op_seae_web_si.bsSkinButton9Click(Sender: TObject);
begin
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڱ<EFBFBD><DAB1>ر<EFBFBD><D8B1><EFBFBD>',2,t_op_seae1,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil);
end;
procedure Tfrm_op_seae_web_si.bsSkinButton11Click(Sender: TObject);
var
answer:TModalResult;
begin
if bsSkinButton11.Caption='<27>鿴' then
begin
Notebook1.PageIndex:=1;
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
end
else
begin
Notebook1.PageIndex:=0;
bsSkinButton11.Caption:='<27>鿴';
end;
end;
procedure Tfrm_op_seae_web_si.bsSkinButton38Click(Sender: TObject);
var
book1:Tbookmark;
begin
book1:=t_op_seae.GetBookmark;
t_op_seae.Refresh;
t_op_seae.GotoBookmark(book1);
end;
procedure Tfrm_op_seae_web_si.FormShow(Sender: TObject);
begin
Notebook1.PageIndex:=0;
if not ASSIGNED(frm_sys_progress) then
frm_sys_progress:=tfrm_sys_progress.Create(self);
frm_sys_progress.bsSkinGauge1.ProgressText:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ⱥ򡣡<C8BA><F2A1A3A1><EFBFBD>';
frm_sys_progress.Show;
frm_sys_progress.bsSkinGauge1.MaxValue:=28;
frm_sys_progress.bsSkinGauge1.MinValue:=0;
frm_sys_progress.bsSkinGauge1.Value:=0;
frm_sys_progress.Update;
//ί<>б<EFBFBD><D0B1>Ŵ<EFBFBD><C5B4><EFBFBD>
t_op_seae.Close;
t_op_seae.SQL.clear;
t_op_seae.SQL.Add('select B.*,(CASE ORSTATUS WHEN ''8'' THEN ''ȷ<>Ͻص<CFBD>'' WHEN ''0'' THEN ''ȷ<>Ͻص<CFBD>'' WHEN ''1'' THEN ''<27>ύ<EFBFBD>ص<EFBFBD>'' WHEN ''2'' THEN ''<27><><EFBFBD>ؽص<D8BD>''');
t_op_seae.SQL.Add(' WHEN ''4'' THEN ''<27>˲<EFBFBD>'' else ''¼<><C2BC>״̬'' end) as ORSTATUSREF ');
t_op_seae.SQL.Add(' from op_seaesi B where B.ORSTATUS<>''9'' and op='''+employee+''''
+' order by B.ETD DESC');
t_op_seae.open;
t_op_ctn.Open;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
loadreggrid(dxdbgrid1,false,caption);
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_sys_progress.close;
frm_sys_progress:=nil;
end;
procedure Tfrm_op_seae_web_si.N10Click(Sender: TObject);
begin
update_grid_view_no(dxdbgrid1);
end;
procedure Tfrm_op_seae_web_si.N14Click(Sender: TObject);
begin
update_grid_view_all(dxdbgrid1);
end;
procedure Tfrm_op_seae_web_si.N12Click(Sender: TObject);
begin
update_grid(dxdbgrid1,101);
end;
procedure Tfrm_op_seae_web_si.N16Click(Sender: TObject);
begin
grid_save_xls(dxdbgrid1);
end;
procedure Tfrm_op_seae_web_si.bsSkinButton8Click(Sender: TObject);
VAR
str:widestring;
begin
if Edit3.text<>''then
str:=str+' and MBLNO like '+''''+'%'+Edit3.text+'%'+'''';
if RxDBLookupCombo2.DisplayValue<>''then
str:=str+' and CUSTOMERNAME='+''''+RxDBLookupCombo2.DisplayValues[1]+'''';
if wwDBComboBox8.Value<>''then
str:=str+' and ORSTATUS='+''''+wwDBComboBox8.Value+'''';
if (wwDBDateTimePicker9.text<>'') OR (wwDBDateTimePicker12.text<>'') then BEGIN
if wwDBDateTimePicker9.text<>''then
str:=str+' and CONFIRMDATE>='+''''+wwDBDateTimePicker9.text+'''';
if wwDBDateTimePicker12.text<>''then
str:=str+' and CONFIRMDATE<='+''''+wwDBDateTimePicker12.text+' 23:59:59'' ';
END;
if wwDBDateTimePicker13.text<>''then
str:=str+' and ETD>='+''''+wwDBDateTimePicker13.text+'''';
if wwDBDateTimePicker11.text<>''then
str:=str+' and ETD<='+''''+wwDBDateTimePicker11.text+'''';
t_op_seae.close;
t_op_seae.sql.clear;
t_op_seae.SQL.Add('select B.*,(CASE ORSTATUS WHEN ''8'' THEN ''ȷ<>Ͻص<CFBD>'' WHEN ''0'' THEN ''ȷ<>Ͻص<CFBD>'' WHEN ''1'' THEN ''<27>ύ<EFBFBD>ص<EFBFBD>'' WHEN ''2'' THEN ''<27><><EFBFBD>ؽص<D8BD>''');
t_op_seae.SQL.Add(' WHEN ''4'' THEN ''<27>˲<EFBFBD>'' else ''¼<><C2BC>״̬'' end) as ORSTATUSREF ');
t_op_seae.SQL.Add(' from op_seaesi B where B.ORSTATUS<>''9'' and op='''+employee+'''' +str
+' order by B.ETD DESC');
t_op_seae.open;
end;
procedure Tfrm_op_seae_web_si.bsSkinButton12Click(Sender: TObject);
begin
Edit3.text:='';
RxDBLookupCombo2.ClearValue;
wwDBDateTimePicker9.text:='';
wwDBDateTimePicker12.text:='';
wwDBDateTimePicker11.text:='';
wwDBDateTimePicker13.text:='';
end;
procedure Tfrm_op_seae_web_si.Notebook1PageChanged(Sender: TObject);
begin
setconcolor;
end;
procedure Tfrm_op_seae_web_si.RxDBLookupCombo5Enter(Sender: TObject);
begin
TRxDBLookupCombo(Sender).LookupDisplay:='<27><><EFBFBD><EFBFBD>;<3B><><EFBFBD><EFBFBD>' ;
end;
procedure Tfrm_op_seae_web_si.RxDBLookupCombo5Exit(Sender: TObject);
begin
TRxDBLookupCombo(Sender).LookupDisplay:='<27><><EFBFBD><EFBFBD>';
end;
procedure Tfrm_op_seae_web_si.bsSkinButton2Click(Sender: TObject);
var
afield : variant;
i: Integer;
begin
if t_op_seae.FieldByName('ORSTATUSREF').AsString<>'<27>ύ<EFBFBD>ص<EFBFBD>' then
begin
MessageDlg('<27><>ǰ״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɶ<EFBFBD><C9B6>գ<EFBFBD>', mtConfirmation, [mbYes],0);
exit;
end;
t_op_seae_order.Close;
t_op_seae_order.SQL.Text:='select * from t_op_seae where ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_op_seae.fieldbyname('BSNO').AsString+'''';
t_op_seae_order.Open;
if t_op_seae_order.IsEmpty then begin
MessageDlg('<27>޷<EFBFBD><DEB7><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>', mtConfirmation, [mbYes],0);
exit;
end;
t_op_seae_assistant.Close;
t_op_seae_assistant.SQL.Text:='select * from t_op_seae_assistant where ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_op_seae.fieldbyname('BSNO').AsString+'''';
t_op_seae_assistant.Open;
if not t_op_seae_assistant.IsEmpty then begin
t_op_seae_assistant.Edit;
t_op_seae_assistant.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('PORTLOAD').AsString;
t_op_seae_assistant.FieldByName('װ<>۴<EFBFBD><DBB4><EFBFBD>').AsString:=t_op_seae.FieldByName('PORTLOADID').AsString; //////??????
t_op_seae_assistant.FieldByName('<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('NOBILL').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('SERVICE').AsString;
t_op_seae_assistant.FieldByName('<27><>ͷ').AsString:=t_op_seae.FieldByName('MARKS').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('DESCRIPTION').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').AsString:=t_op_seae.FieldByName('SHIPPER').AsString;
t_op_seae_assistant.FieldByName('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').AsString:=t_op_seae.FieldByName('CONSIGNEE').AsString;
t_op_seae_assistant.FieldByName('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').AsString:=t_op_seae.FieldByName('NOTIFYPARTY').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD>ѷ<EFBFBD>ʽ').AsString:=t_op_seae.FieldByName('BLFRT').AsString;
t_op_seae_assistant.FieldByName('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').AsString:=t_op_seae.FieldByName('ISSUEPLACE').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').AsString:=t_op_seae.FieldByName('PKGS').AsString+t_op_seae.FieldByName('KINDPKGS').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('KGS').AsString+'KGS';
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('CBM').AsString+'CBM';
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger:=t_op_seae.FieldByName('PKGS').AsInteger;
t_op_seae_assistant.FieldByName('<27><>װ').AsString:=t_op_seae.FieldByName('KINDPKGS').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=t_op_seae.FieldByName('KGS').AsFloat;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=t_op_seae.FieldByName('CBM').AsFloat;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').AsString:=t_op_seae.fieldbyname('TOTALNO').AsString;
{
t_op_seae_assistant.FieldByName('Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('DCLASS').AsString;
t_op_seae_assistant.FieldByName('Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('DUNNO').AsString;
}
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('VESSEL').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('VOYNO').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=t_op_seae.FieldByName('ETD').Value;
t_op_seae_assistant.FieldByName('ж<><D0B6><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('PORTDISCHARGE').AsString;
t_op_seae_assistant.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('PORTDISCHARGEID').AsString;
t_op_seae_assistant.FieldByName('Ŀ<>ĵ<EFBFBD>').AsString:=t_op_seae.FieldByName('DESTINATION').AsString;
t_op_seae_assistant.FieldByName('Ŀ<>ĵش<C4B5><D8B4><EFBFBD>').AsString:=t_op_seae.FieldByName('DESTINATIONID').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').AsString:=t_op_seae.FieldByName('PLACEDELIVERY').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('PLACEDELIVERYID').AsString;
t_op_seae_assistant.FieldByName('<27><>װ<EFBFBD><D7B0>').AsString:=t_op_seae.FieldByName('CNTRTOTAL').AsString;
t_op_seae_assistant.FieldByName('Ԥ<><D4A4><EFBFBD>ص<EFBFBD>').AsString:=t_op_seae.FieldByName('PREPARDAT').AsString;
t_op_seae_assistant.FieldByName('ǩ<><C7A9><EFBFBD><EFBFBD>ʽ').AsString:=t_op_seae.FieldByName('ISSUETYPE').AsString;
t_op_seae_assistant.FieldByName('Ԥ<><D4A4><EFBFBD>ص<EFBFBD>').AsString:=t_op_seae.FieldByName('PREPARDAT').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').AsString:=t_op_seae.FieldByName('PAYABLEAT').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('SERVICE').AsString;
t_op_seae_assistant.Post;
end else begin
t_op_seae_assistant.Insert;
for i:=0 to (t_op_seae_order.fieldcount-1) do
begin
try
if t_op_seae_assistant.FindField(t_op_seae_order.fields[i].FieldName)<>nil then
t_op_seae_assistant[t_op_seae_order.fields[i].FieldName]:=
t_op_seae_order.fields[i].value;
except
;
end;
end;
t_op_seae_assistant.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('PORTLOAD').AsString;
t_op_seae_assistant.FieldByName('װ<>۴<EFBFBD><DBB4><EFBFBD>').AsString:=t_op_seae.FieldByName('PORTLOADID').AsString; //////??????
t_op_seae_assistant.FieldByName('<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('NOBILL').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('SERVICE').AsString;
t_op_seae_assistant.FieldByName('<27><>ͷ').AsString:=t_op_seae.FieldByName('MARKS').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('DESCRIPTION').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').AsString:=t_op_seae.FieldByName('SHIPPER').AsString;
t_op_seae_assistant.FieldByName('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').AsString:=t_op_seae.FieldByName('CONSIGNEE').AsString;
t_op_seae_assistant.FieldByName('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').AsString:=t_op_seae.FieldByName('NOTIFYPARTY').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD>ѷ<EFBFBD>ʽ').AsString:=t_op_seae.FieldByName('BLFRT').AsString;
t_op_seae_assistant.FieldByName('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').AsString:=t_op_seae.FieldByName('ISSUEPLACE').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').AsString:=t_op_seae.FieldByName('PKGS').AsString+t_op_seae.FieldByName('KINDPKGS').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('KGS').AsString+'KGS';
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('CBM').AsString+'CBM';
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger:=t_op_seae.FieldByName('PKGS').AsInteger;
t_op_seae_assistant.FieldByName('<27><>װ').AsString:=t_op_seae.FieldByName('KINDPKGS').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=t_op_seae.FieldByName('KGS').AsFloat;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=t_op_seae.FieldByName('CBM').AsFloat;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').AsString:=t_op_seae.fieldbyname('TOTALNO').AsString;
{
t_op_seae_assistant.FieldByName('Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('DCLASS').AsString;
t_op_seae_assistant.FieldByName('Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('DUNNO').AsString;
}
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('VESSEL').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('VOYNO').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=t_op_seae.FieldByName('ETD').Value;
t_op_seae_assistant.FieldByName('ж<><D0B6><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('PORTDISCHARGE').AsString;
t_op_seae_assistant.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('PORTDISCHARGEID').AsString;
t_op_seae_assistant.FieldByName('Ŀ<>ĵ<EFBFBD>').AsString:=t_op_seae.FieldByName('DESTINATION').AsString;
t_op_seae_assistant.FieldByName('Ŀ<>ĵش<C4B5><D8B4><EFBFBD>').AsString:=t_op_seae.FieldByName('DESTINATIONID').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').AsString:=t_op_seae.FieldByName('PLACEDELIVERY').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('PLACEDELIVERYID').AsString;
t_op_seae_assistant.FieldByName('<27><>װ<EFBFBD><D7B0>').AsString:=t_op_seae.FieldByName('CNTRTOTAL').AsString;
t_op_seae_assistant.FieldByName('Ԥ<><D4A4><EFBFBD>ص<EFBFBD>').AsString:=t_op_seae.FieldByName('PREPARDAT').AsString;
t_op_seae_assistant.FieldByName('ǩ<><C7A9><EFBFBD><EFBFBD>ʽ').AsString:=t_op_seae.FieldByName('ISSUETYPE').AsString;
t_op_seae_assistant.FieldByName('Ԥ<><D4A4><EFBFBD>ص<EFBFBD>').AsString:=t_op_seae.FieldByName('PREPARDAT').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').AsString:=t_op_seae.FieldByName('PAYABLEAT').AsString;
t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=t_op_seae.FieldByName('SERVICE').AsString;
t_op_seae_assistant.Post;
end;
ShowMessage('<27>Ѹ<EFBFBD><D1B8>½ص<C2BD><D8B5><EFBFBD>Ϣ<EFBFBD><CFA2>');
end;
procedure Tfrm_op_seae_web_si.dxDBGrid1DblClick(Sender: TObject);
begin
Notebook1.PageIndex:=1;
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
end;
procedure Tfrm_op_seae_web_si.DBEdit29Change(Sender: TObject);
begin
if (Notebook1.PageIndex=1) then setconcolor;
end;
procedure Tfrm_op_seae_web_si.bsSkinButton1Click(Sender: TObject);
begin
t_op_seae.Edit;
t_op_seae.fieldbyname('ORSTATUS').AsString:='2';
t_op_seae.Post;
t_op_seae.Refresh;
end;
end.
Reference in New Issue View Git Blame Copy Permalink