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 'master'
${ noResults }
DONGSHENG6/海运业务/u_op_seae_hbl.pas

1584 lines
44 KiB
Plaintext
Raw Permalink Normal View History Unescape Escape

1
11 months ago
unit u_op_seae_hbl;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,IdFTP,IdFTPCommon,DateUtils,
Dialogs, bsSkinCtrls, ExtCtrls, DB, ADODB, dxExEdtr, dxCntner, dxTL,
dxDBCtrl, dxDBGrid, ComCtrls, bsSkinTabs, RxLookup, StdCtrls, Mask,inifiles,
DBCtrls, wwdbdatetimepicker, wwdblook, u_op_sate, u_fee, u_op_card, Menus,
dxDBTLCl, dxGrClms, bsdbctrls, XPMenu, wwdbedit, Wwdotdot, Wwdbcomb,
Grids, Wwdbigrd, Wwdbgrid, FtpCli, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdIntercept, IdLogBase, IdLogEvent,DBClient,
IdAntiFreezeBase, IdAntiFreeze, dxEditor, dxEdLib, dxDBELib, DBCtrlsEh
,ComObj,DsWebService,SoapHTTPClient,InvokeRegistry,XMLIntf,XMLDoc, xmldom, Xmlxform,
msxmldom, bsSkinBoxCtrls,DyxtService,Service,jfczService,myService,CaragtQuery_Cxwl,IdHTTP,
kbmMemTable, cxControls, cxContainer, cxCheckListBox, cxDBCheckListBox,
OleCtrls, SHDocVw, IdExplicitTLSClientServerBase, cxTreeView;
type
Tfrm_op_seae_hbl = class(TForm)
Panel2: TPanel;
bsSkinButton7: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
bsSkinButton11: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
bsSkinButton38: TbsSkinButton;
Notebook1: TNotebook;
t_op_seae: TADOQuery;
t_op_seae1: TDataSource;
dxDBGrid1: TdxDBGrid;
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
bsSkinPanel1: TbsSkinPanel;
Label2: TLabel;
Label38: TLabel;
DBEdit9: TDBEdit;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column2: TdxDBGridMaskColumn;
dxDBGrid1Column6: TdxDBGridMaskColumn;
dxDBGrid1Column7: TdxDBGridMaskColumn;
dxDBGrid1Column8: TdxDBGridMaskColumn;
dxDBGrid1Column10: TdxDBGridMaskColumn;
dxDBGrid1Column11: TdxDBGridMaskColumn;
dxDBGrid1Column12: TdxDBGridDateColumn;
dxDBGrid1Column13: TdxDBGridMaskColumn;
dxDBGrid1Column14: TdxDBGridMaskColumn;
dxDBGrid1Column15: TdxDBGridMaskColumn;
dxDBGrid1Column16: TdxDBGridMaskColumn;
dxDBGrid1Column18: TdxDBGridMaskColumn;
dxDBGrid1Column19: TdxDBGridDateColumn;
dxDBGrid1Column17: TdxDBGridColumn;
XPMenu1: TXPMenu;
PopupMenu2: TPopupMenu;
N10: TMenuItem;
N11: TMenuItem;
N14: TMenuItem;
N13: TMenuItem;
N12: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
bsSkinPanel2: TbsSkinPanel;
Label47: TLabel;
Label49: TLabel;
Label51: TLabel;
wwDBDateTimePicker9: TwwDBDateTimePicker;
wwDBDateTimePicker11: TwwDBDateTimePicker;
Edit3: TEdit;
wwDBDateTimePicker12: TwwDBDateTimePicker;
Label52: TLabel;
wwDBDateTimePicker13: TwwDBDateTimePicker;
Label53: TLabel;
bsSkinButton8: TbsSkinButton;
bsSkinButton12: TbsSkinButton;
Label60: TLabel;
DBEdit10: TDBEdit;
dxDBGrid1Column65: TdxDBGridColumn;
dxDBGrid1Column67: TdxDBGridColumn;
Label48: TLabel;
wwDBComboBox2: TwwDBComboBox;
bsSkinGroupBox4: TbsSkinGroupBox;
Label54: TLabel;
Label55: TLabel;
Label56: TLabel;
Label59: TLabel;
t_op_ctn1: TDataSource;
t_op_ctn: TADOQuery;
strngfld_op_ctnDSDesigner2: TStringField;
strngfld_op_ctnDSDesigner6: TStringField;
intgrfld_op_ctnDSDesigner5: TIntegerField;
strngfld_op_ctnDSDesigner7: TStringField;
strngfld_op_ctnDSDesigner8: TStringField;
intgrfld_op_ctnDSDesigner9: TIntegerField;
strngfld_op_ctnDSDesigner10: TStringField;
bcdfld_op_ctnDSDesigner11: TBCDField;
bcdfld_op_ctnDSDesigner12: TBCDField;
strngfld_op_ctnDSDesigner14: TStringField;
intgrfld_op_ctnTEU: TIntegerField;
strngfld_op_ctnDSDesigner4: TStringField;
strngfld_op_ctnDSDesigner3: TStringField;
atncfld_op_ctnctn_id: TAutoIncField;
strngfld_op_ctnDSDesigner: TStringField;
wwDBComboBox3: TwwDBComboBox;
t_op_ctnDSDesigner: TStringField;
t_op_ctnPO: TStringField;
t_op_ctnSKU: TStringField;
t_op_ctnSKU2: TStringField;
t_op_ctnUN: TStringField;
t_op_ctnHTS: TStringField;
t_op_ctnDSDesigner2: TStringField;
t_op_ctnDSDesigner3: TBCDField;
bsSkinPanel5: TbsSkinPanel;
bsSkinGroupBox5: TbsSkinGroupBox;
DBMemo3: TDBMemo;
bsSkinGroupBox7: TbsSkinGroupBox;
DBMemo1: TDBMemo;
bsSkinGroupBox8: TbsSkinGroupBox;
DBMemo2: TDBMemo;
t_op_ctnDSDesigner4: TStringField;
SaveDialog1: TSaveDialog;
t_code_shiper: TADOQuery;
t_code_shiper1: TDataSource;
FtpClient1: TFtpClient;
IdFTP1: TIdFTP;
IdLogEvent1: TIdLogEvent;
Label77: TLabel;
Label78: TLabel;
dxDBGrid1Column20: TdxDBGridColumn;
dxDBGrid1Column21: TdxDBGridColumn;
Label80: TLabel;
Edit1: TEdit;
Label217: TLabel;
wwDBLookupCombo26: TwwDBLookupCombo;
Label218: TLabel;
Edit8: TEdit;
Label81: TLabel;
Edit2: TEdit;
wwDBLookupCombo21: TwwDBLookupCombo;
RxDBLookupCombo15: TRxDBLookupCombo;
wwDBLookupCombo20: TwwDBLookupCombo;
Label58: TLabel;
wwDBComboBoxOP: TwwDBComboBox;
bsSkinButton25: TbsSkinButton;
wwDBLookupCombo3: TwwDBLookupCombo;
wwDBLookupCombo52: TwwDBLookupCombo;
wwDBLookupCombo17: TwwDBLookupCombo;
OpenDialog1: TOpenDialog;
Panel1: TPanel;
bsSkinGroupBox6: TbsSkinGroupBox;
wwDBGrid1: TwwDBGrid;
bsSkinPanel9: TbsSkinPanel;
bsSkinButton56: TbsSkinButton;
bsSkinButton57: TbsSkinButton;
bsSkinButton58: TbsSkinButton;
bsSkinButton59: TbsSkinButton;
btnMarks: TbsSkinButton;
btnDesc: TbsSkinButton;
btnSeal: TbsSkinButton;
bsSkinButton15: TbsSkinButton;
wwDBLookupCombo16: TwwDBLookupCombo;
wwDBLookupComboctn: TwwDBLookupCombo;
wwDBComboBoxOwner: TwwDBComboBox;
PopupMenu5: TPopupMenu;
ABC1: TMenuItem;
kbmMemTable1: TkbmMemTable;
kbmMemTable1StringField: TStringField;
kbmMemTable1StringField2: TStringField;
kbmMemTable1IntegerField: TIntegerField;
kbmMemTable1StringField3: TStringField;
kbmMemTable1FloatField: TFloatField;
kbmMemTable1FloatField2: TFloatField;
kbmMemTable1StringField4: TStringField;
kbmMemTable1StringField5: TStringField;
kbmMemTable1StringField6: TStringField;
Label36: TLabel;
Label37: TLabel;
Label44: TLabel;
DBEdit38: TDBEdit;
DBEdit39: TDBEdit;
wwDBDateTimePicker1: TwwDBDateTimePicker;
N24: TMenuItem;
N26: TMenuItem;
dxDBGrid1Column22: TdxDBGridColumn;
dxDBGrid1Column24: TdxDBGridColumn;
dxDBGrid1Column25: TdxDBGridColumn;
dxDBGrid1Column26: TdxDBGridColumn;
bsSkinButton34: TbsSkinButton;
dxDBGrid1Column28: TdxDBGridColumn;
Label14: TLabel;
Edit9: TEdit;
Label19: TLabel;
Edit11: TEdit;
bsSkinGroupBox9: TbsSkinGroupBox;
Label169: TLabel;
Label63: TLabel;
Label64: TLabel;
Label65: TLabel;
Label66: TLabel;
Label67: TLabel;
Label69: TLabel;
DBEdit81: TDBEdit;
wwDBLookupCombo61: TwwDBLookupCombo;
DBEdit82: TDBEdit;
DBEdit83: TDBEdit;
DBMemo38: TDBMemo;
DBMemo39: TDBMemo;
bsSkinButton47: TbsSkinButton;
bsSkinButton24: TbsSkinButton;
Label5: TLabel;
DBEdit8: TDBEdit;
Label11: TLabel;
DBEdit12: TDBEdit;
Label3: TLabel;
DBEdit1: TDBEdit;
Label21: TLabel;
wwDBComboBox1: TwwDBComboBox;
Label28: TLabel;
DBEdit26: TDBEdit;
Label31: TLabel;
DBEdit27: TDBEdit;
bsSkinGroupBox1: TbsSkinGroupBox;
DBMemo4: TDBMemo;
Label1: TLabel;
DBEdit2: TDBEdit;
DBMemo5: TDBMemo;
Label4: TLabel;
bsSkinButton1: TbsSkinButton;
Label6: TLabel;
bsSkinButton9: TbsSkinButton;
DBMemo6: TDBMemo;
Label7: TLabel;
DBEdit3: 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 bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton3Click(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 bsSkinButton56Click(Sender: TObject);
procedure bsSkinButton57Click(Sender: TObject);
procedure bsSkinButton58Click(Sender: TObject);
procedure bsSkinButton59Click(Sender: TObject);
procedure wwDBLookupComboctnChange(Sender: TObject);
procedure btnMarksClick(Sender: TObject);
procedure btnDescClick(Sender: TObject);
procedure t_op_ctnAfterInsert(DataSet: TDataSet);
procedure wwDBGrid1ColEnter(Sender: TObject);
procedure t_op_ctn_detailBeforeInsert(DataSet: TDataSet);
procedure RxDBLookupCombo16Change(Sender: TObject);
procedure RxDBLookupCombo1Change(Sender: TObject);
procedure t_op_ctnBeforePost(DataSet: TDataSet);
procedure btnSealClick(Sender: TObject);
procedure wwDBComboBoxOPDropDown(Sender: TObject);
procedure bsSkinButton15Click(Sender: TObject);
procedure bsSkinButton47Click(Sender: TObject);
procedure bsSkinButton24Click(Sender: TObject);
procedure bsSkinButton25Click(Sender: TObject);
procedure bsSkinButton26Click(Sender: TObject);
procedure wwDBLookupCombo3Change(Sender: TObject);
procedure wwDBLookupCombo3Exit(Sender: TObject);
procedure wwDBLookupCombo52Change(Sender: TObject);
procedure wwDBLookupCombo52Exit(Sender: TObject);
procedure wwDBLookupCombo17Change(Sender: TObject);
procedure wwDBLookupCombo17Exit(Sender: TObject);
procedure t_op_seaeBeforeEdit(DataSet: TDataSet);
procedure t_op_ctnBeforeEdit(DataSet: TDataSet);
procedure t_op_seaeBeforeDelete(DataSet: TDataSet);
procedure t_op_seaeAfterInsert(DataSet: TDataSet);
procedure t_op_ctnNewRecord(DataSet: TDataSet);
procedure dxDBGrid1CustomDraw(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
AFocused: Boolean; var ADone: Boolean);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton9Click(Sender: TObject);
procedure t_op_ctnAfterPost(DataSet: TDataSet);
private
{ Private declarations }
AbortTransfer: Boolean;
TransferrignData: Boolean;
BytesToTransfer: LongWord;
STime: TDateTime;
mServiceSoap_Ds:DsWebServiceSoap;
mHttpRIO_ds:THTTPRIO;
mServiceSoap_dy:DyxtServiceSoap;
mServiceSoap_yzh:ServiceSoap;
mServiceSoap_zc:CaragtQuery_CxwlSoap;
mHttpRIO_dy,mHttpRIO_yzh,mHttpRIO_zc:THTTPRIO;
function DoPost(_URL:string;_Referer:string;_Order:TStringList):String; //<2F><><EFBFBD><EFBFBD>ҳ<EFBFBD><D2B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
procedure SetState(response:string) ;
procedure getwebservice_dy; //<2F><>ȡ
procedure getwebservice_yzh; //<2F><>ȡ
procedure getwebservice_zc; //<2F><>ȡ
procedure dewebservice; //<2F>ر<EFBFBD>
procedure GetdyczInfo_dy(s_caragt,s_key,s_billno,bsno:String);
procedure GetdyczInfo_yzh(s_caragt,s_key,s_billno,bsno:String);
procedure GetdyczInfo_jfcz(s_caragt,s_key,s_billno,bsno:String);
procedure GetdyczInfo_lhcz(s_caragt,s_key,s_billno,bsno:String);
procedure GetdyczInfo_zc(s_caragt,s_key,s_billno,bsno:String);
procedure getssczinfor(mblno:string);
procedure setconcolor; //<2F><><EFBFBD>ÿؼ<C3BF><D8BC><EFBFBD><EFBFBD><EFBFBD>ɫ
function getCtnAfr(code:string):string;
function getPkgAfr(code:string):string;
function formatAfrstr(str:string):string;
procedure PutToDebugLog(Operation, S1: String);
function isEditrue(DataSet:TDataSet): boolean;
public
{ Public declarations }
dbserver:string;
edi_addseai:boolean;
function GetStrChar(str:String):string;
function GetStrChar_1(str:String):string;
function GetpkgsEdi(pkgs: String): String;
procedure UpdateCTN(BSNO:STRING);
procedure getwebservice_ds;
function IsZhongwen(Str: String): Boolean;
function CreateSIEdiFile_XML:TStrings;
function GetCtnCode(ctnkind,ctnsize:String): String;
procedure UpdateInfor;
procedure SelectReciveData(bsno,mblno:string);
end;
var
frm_op_seae_hbl: Tfrm_op_seae_hbl;
AverageSpeed: Double = 0;
STATE,EVENT,_S:String;
implementation
uses u_main,u_data_share, my_sys_function, u_sys_progress;
{$R *.dfm}
procedure Tfrm_op_seae_hbl.SetState(response: string);
begin
end;
function Tfrm_op_seae_hbl.DoPost(_URL:string;_Referer:string;_order:TStringList):String;
begin
end;
procedure Tfrm_op_seae_hbl.getwebservice_dy;
begin
end;
procedure Tfrm_op_seae_hbl.getwebservice_zc;
begin
try
mHttpRIO_zc:=THTTPRIO.Create(nil);
mHttpRIO_zc.WSDLLocation:='http://www.cmlog.com.cn:8003/cmlwebservice/CaragtQuery_Cxwl.asmx?WSDL';
mHttpRIO_zc.URL:='http://www.cmlog.com.cn:8003/cmlwebservice/CaragtQuery_Cxwl.asmx';
mHttpRIO_zc.Port:='CaragtQuery_CxwlSoap';
mHttpRIO_zc.Service:='CaragtQuery_Cxwl';
mHttpRIO_zc.HTTPWebNode.UseUTF8InHeader:=true;
mServiceSoap_zc:=mHttpRIO_zc as CaragtQuery_CxwlSoap;
InvRegistry.RegisterInvokeOptions(TypeInfo(CaragtQuery_CxwlSoap),ioDocument );//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>
except
on E:Exception do
begin
ShowMessage(e.Message);
exit;
end;
end;
end;
procedure Tfrm_op_seae_hbl.getwebservice_yzh;
begin
try
mHttpRIO_yzh:=THTTPRIO.Create(nil);
mHttpRIO_yzh.WSDLLocation:='http://222.173.95.170:78/Service.asmx?WSDL';
mHttpRIO_yzh.URL:='http://222.173.95.170:78/Service.asmx';
mHttpRIO_yzh.Port:='ServiceSoap';
mHttpRIO_yzh.Service:='WebService';
mHttpRIO_yzh.HTTPWebNode.UseUTF8InHeader:=true;
mServiceSoap_yzh:=mHttpRIO_yzh as ServiceSoap;
InvRegistry.RegisterInvokeOptions(TypeInfo(ServiceSoap),ioDocument );//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>
{
mHttpRIO_yzh:=THTTPRIO.Create(nil);
mHttpRIO_yzh.WSDLLocation:='http://www.eimskipdepot.com:78/Service.asmx?WSDL';
mHttpRIO_yzh.URL:='http://www.eimskipdepot.com:78/Service.asmx';
mHttpRIO_yzh.Port:='ServiceSoap';
mHttpRIO_yzh.Service:='WebService';
mHttpRIO_yzh.HTTPWebNode.UseUTF8InHeader:=true;
mServiceSoap_yzh:=mHttpRIO_yzh as ServiceSoap;
InvRegistry.RegisterInvokeOptions(TypeInfo(ServiceSoap),ioDocument );//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>
}
except
on E:Exception do
begin
ShowMessage(e.Message);
exit;
end;
end;
end;
procedure Tfrm_op_seae_hbl.dewebservice;
begin
mHttpRIO_dy.Free;
end;
procedure Tfrm_op_seae_hbl.GetdyczInfo_jfcz(s_caragt,s_key,s_billno,bsno:String);
begin
end;
procedure Tfrm_op_seae_hbl.GetdyczInfo_dy(s_caragt,s_key,s_billno,bsno:String);
begin
end;
procedure Tfrm_op_seae_hbl.getssczinfor(mblno:string);//qqctu<74><75>ȡ<EFBFBD>˵ֱ<CBB5><D6B1><EFBFBD><EFBFBD>ͱ<EFBFBD><CDB1><EFBFBD><EFBFBD><EFBFBD>Ϣ
begin
end;
procedure Tfrm_op_seae_hbl.GetdyczInfo_zc(s_caragt,s_key,s_billno,bsno:String);
begin
end;
procedure Tfrm_op_seae_hbl.GetdyczInfo_yzh(s_caragt,s_key,s_billno,bsno:String);
begin
end;
procedure Tfrm_op_seae_hbl.GetdyczInfo_lhcz(s_caragt,s_key,s_billno,bsno:String);
begin
end;
procedure Tfrm_op_seae_hbl.setconcolor;
begin
end;
procedure Tfrm_op_seae_hbl.UpdateInfor;
begin
end;
function Tfrm_op_seae_hbl.GetStrChar_1(str:String):string;
var
i:integer;
begin
result:='';
if str='' then exit;
for i:=1 to length(Str) do begin
if str[i] in ['0','1','2','3','4','5','6','7','8','9','.']
then
else
result:=result+str[i];
end;
end;
function Tfrm_op_seae_hbl.GetStrChar(str:String):string;
var
i:integer;
begin
result:='';
if str='' then exit;
for i:=1 to length(Str) do begin
if str[i] in ['0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z']
then
else
result:=result+str[i];
end;
end;
function Tfrm_op_seae_hbl.IsZhongwen(Str: String): Boolean;
var
i:Integer;
begin
Result:=false;
if Str='' then Exit;
for i:=1 to Length(Str) do begin
// if Str[i]>Chr(127) then begin
if bytetype(Str[i],1)<>mbsinglebyte then begin
Result:=True;
Exit;
end;
end;
end;
function Tfrm_op_seae_hbl.GetCtnCode(ctnkind,ctnsize:String): String;
var
aQuery:TADOQuery;
begin
aQuery:=CreateAdoQuery;
ctnsize:=StringReplace(ctnsize,'''','''''',[rfReplaceAll]);
try
with aQuery do
begin
Close;SQL.Clear;
SQL.Add('Select <20><><EFBFBD><EFBFBD>EDI<44><49><EFBFBD><EFBFBD> EDI<44><49><EFBFBD><EFBFBD> from t_code_ctn where <20><><EFBFBD><EFBFBD>='''+ctnkind+''' and <20>ߴ<EFBFBD>='''+ctnsize+'''');
Open;
if not IsEmpty then
Result:=Trim(FieldByName('EDI<44><49><EFBFBD><EFBFBD>').asstring)
else
Result:='';
end;
finally
FreeAndNil(aQuery);
end;
end;
function Tfrm_op_seae_hbl.GetpkgsEdi(pkgs: String): String;
var
aQuery:TADOQuery;
begin
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('Select Edi<64><69><EFBFBD><EFBFBD> from t_code_package where <20><><EFBFBD><EFBFBD>='''+pkgs+'''');
Open;
if IsEmpty then
Result:=''
else
Result:=FieldByName('Edi<64><69><EFBFBD><EFBFBD>').AsString;
end;
finally
FreeAndNil(aQuery);
end;
end;
function Tfrm_op_seae_hbl.isEditrue(DataSet:TDataSet): boolean;
begin
end;
function Tfrm_op_seae_hbl.CreateSIEdiFile_XML:TStrings;
begin
end;
procedure Tfrm_op_seae_hbl.getwebservice_ds;
begin
end;
procedure Tfrm_op_seae_hbl.UpdateCTN(BSNO:STRING);
var
aAdoQuery:TAdoQuery;
p:Integer;
w,c:Double;
begin
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
try
close;
sql.clear;
sql.add('select sum(<28><><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD>, sum(<28><><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD> from t_op_ctn_HBL');
sql.add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=BSNO;
open;First;
if not IsEmpty then
begin
t_op_seae.Edit;
p:=FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger;
w:=FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
c:=FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
t_op_seae.Post;
close; sql.clear;
sql.add('Update t_op_seae_hbl set <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
sql.add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=p;
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=w;
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=c;
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=BSNO;
ExecSQL;
end;
finally
Free;
end;
end;
procedure Tfrm_op_seae_hbl.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_seae_hbl.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
savereggrid(dxdbgrid1,caption);
frm_op_seae_hbl.Hide;
frm_op_seae_hbl.ManualFloat(frm_op_seae_hbl.BoundsRect );
frm_main.freeTabs('frm_op_seae_hbl');
action:=cafree;
frm_op_seae_hbl:=nil;
end;
procedure Tfrm_op_seae_hbl.Panel2Resize(Sender: TObject);
var
i:integer;
begin
i:=round(Panel2.Width/9);
bsSkinButton7.Width:=i;
bsSkinButton6.Width:=i;
bsSkinButton11.Width:=i;
bsSkinButton2.Width:=i;
bsSkinButton4.Width:=i;
bsSkinButton3.Width:=i;
bsSkinButton38.Width:=i;
bsSkinButton25.Width:=i;
end;
procedure Tfrm_op_seae_hbl.bsSkinButton7Click(Sender: TObject);
begin
table_Prior(t_op_seae);
end;
procedure Tfrm_op_seae_hbl.bsSkinButton6Click(Sender: TObject);
begin
table_next(t_op_seae);
end;
procedure Tfrm_op_seae_hbl.bsSkinButton2Click(Sender: TObject);
begin
table_post(t_op_seae);
end;
procedure Tfrm_op_seae_hbl.bsSkinButton11Click(Sender: TObject);
var
answer:TModalResult;
begin
if bsSkinButton11.Caption='<27>༭<EFBFBD>޸<EFBFBD>' then
begin
Notebook1.PageIndex:=1;
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
//DBEdit3.OnChange(Sender);
end
else
begin
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
BEGIN
answer:=messagedlg( '<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>޸ģ<DEB8><C4A3>Ƿ񱣴棿',mtWarning,mbYesNoCancel,0);
if answer=mrYes then
begin
t_op_seae.post;
end;
if answer=mrNo then
begin
t_op_seae.cancel;
end;
if answer=mrCancel then
begin
exit;
end;
END;
Notebook1.PageIndex:=0;
bsSkinButton11.Caption:='<27>༭<EFBFBD>޸<EFBFBD>';
end;
end;
procedure Tfrm_op_seae_hbl.bsSkinButton4Click(Sender: TObject);
var
i,j:Integer;
strno:string;
aQuery:TADOQuery;
begin
if t_op_seae.FieldByName('EDI״̬').AsString='<27>ѷ<EFBFBD><D1B7><EFBFBD>' then begin
showmessage('<27>ѷ<EFBFBD><D1B7>Ͳ<EFBFBD><CDB2><EFBFBD><EFBFBD>޸<EFBFBD>,ɾ<><C9BE><EFBFBD><EFBFBD>');
Exit;
end;
j:=dxDBGrid1.SelectedCount;
strno:=' where 1=2 ';
for i:=0 to j-1 do
begin
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
strno:=strno+' or <20><><EFBFBD><EFBFBD>='''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'''';
end;
if MessageDlg('ȷ<><C8B7>Ҫɾ<D2AA><C9BE>ѡ<EFBFBD>е<EFBFBD>'+inttostr(j)+'Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',mtWarning,[mbyes,mbno],0)=mryes then begin
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add(' delete from t_op_ctn_detail_edi where ctn_id in (select ctn_id from t_op_ctn_HBL '+strno+')');
ExecSQL;
Close;SQL.Clear;
SQL.Add(' delete from t_op_ctn_HBL '+strno);
ExecSQL;
Close;SQL.Clear;
SQL.Add(' delete from t_op_seae_hbl '+strno);
ExecSQL;
end;
finally
FreeAndNil(aQuery);
end;
t_op_seae.Refresh;
end;
end;
procedure Tfrm_op_seae_hbl.bsSkinButton3Click(Sender: TObject);
begin
table_cancel(t_op_seae);
end;
procedure Tfrm_op_seae_hbl.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_hbl.FormShow(Sender: TObject);
var
inifile1:Tinifile;
s:string;
FromFileName,ToFileName:string;
begin
Notebook1.PageIndex:=0;
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
s:=inifile1.ReadString('database','Data Source','');
if Pos('\',s)>0 then
begin
dbserver:=Copy(s,1,Pos('\',s)-1);
end
else
if Pos(';',s)>0 then
begin
dbserver:=Copy(s,1,Pos(';',s)-1);
end
else
dbserver:=s;
FromFileName:='\\'+dbserver+'\<5C>ൺ<EFBFBD><E0B5BA><EFBFBD><EFBFBD>\midas.dll';
ToFileName:=ExtractFilePath(application.ExeName)+'midas.dll';
if not FileExists(ExtractFilePath(application.ExeName)+'midas.dll') then
CopyFile(pChar(FromFileName),pChar(ToFileName),False);
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 top 100 * from t_op_seae_hbl where '
+'(¼<><C2BC><EFBFBD><EFBFBD>='+''''+employee+''''+') order by ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc ');
t_op_seae.open;
t_op_ctn.Open;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
loadreggrid(dxdbgrid1,false,caption);
frm_sys_progress.close;
frm_sys_progress:=nil;
end;
procedure Tfrm_op_seae_hbl.N10Click(Sender: TObject);
begin
update_grid_view_no(dxdbgrid1);
end;
procedure Tfrm_op_seae_hbl.N14Click(Sender: TObject);
begin
update_grid_view_all(dxdbgrid1);
end;
procedure Tfrm_op_seae_hbl.N12Click(Sender: TObject);
begin
update_grid(dxdbgrid1,213);
end;
procedure Tfrm_op_seae_hbl.N16Click(Sender: TObject);
begin
grid_save_xls(dxdbgrid1);
end;
procedure Tfrm_op_seae_hbl.bsSkinButton8Click(Sender: TObject);
VAR
str:widestring;
begin
str:='where '+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no');
if Edit3.text<>''then
str:=str+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit3.text+'%'+'''';
if Edit1.text<>''then
str:=str+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit1.text+'%'+'''';
if wwDBComboBox2.text<>''then
str:=str+' and EDI״̬ like '+''''+wwDBComboBox2.text+'''';
if wwDBDateTimePicker9.text<>''then
str:=str+' and ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker9.text+'''';
if wwDBDateTimePicker12.text<>''then
str:=str+' and ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker12.text+'''';
if wwDBDateTimePicker11.text<>''then
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker11.text+'''';
if wwDBDateTimePicker13.text<>''then
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker13.text+'''';
if wwDBComboBoxOP.text<>''then
str:=str+' and ¼<><C2BC><EFBFBD><EFBFBD>='+''''+wwDBComboBoxOP.text+'''';
str:=query_tiaojian(1,str,'<27><><EFBFBD><EFBFBD>','ģ<><C4A3>',wwDBLookupCombo26.text);
str:=query_tiaojian(1,str,'<27><><EFBFBD><EFBFBD>','ģ<><C4A3>',Edit8.text);
str:=query_tiaojian(1,str,'<27><><EFBFBD><EFBFBD>˾','ģ<><C4A3>',Edit9.text);
str:=query_tiaojian(1,str,'ж<><D0B6><EFBFBD><EFBFBD>','ģ<><C4A3>',Edit11.text);
if Edit2.text<>''then
str:=str+' and <20><><EFBFBD><EFBFBD> in ( select <20><><EFBFBD><EFBFBD> from t_op_ctn_HBL where <20><><EFBFBD><EFBFBD> like '+''''+'%'+Edit2.text+'%'+''')';
t_op_seae.close;
t_op_seae.sql.clear;
t_op_seae.sql.add('select * from t_op_seae_hbl '+str+' order by <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>');
t_op_seae.open;
end;
procedure Tfrm_op_seae_hbl.bsSkinButton12Click(Sender: TObject);
begin
Edit3.text:='';
Edit8.text:='';
Edit2.text:='';
Edit1.text:='';
wwDBDateTimePicker9.text:='';
wwDBDateTimePicker12.text:='';
wwDBDateTimePicker11.text:='';
wwDBDateTimePicker13.text:='';
wwDBComboBox2.Text:='';
wwDBLookupCombo26.Clear;
end;
procedure Tfrm_op_seae_hbl.bsSkinButton56Click(Sender: TObject);
begin
t_op_ctn.insert;
end;
procedure Tfrm_op_seae_hbl.bsSkinButton57Click(Sender: TObject);
begin
table_post(t_op_ctn);
end;
procedure Tfrm_op_seae_hbl.bsSkinButton58Click(Sender: TObject);
begin
table_delete(t_op_ctn);
end;
procedure Tfrm_op_seae_hbl.bsSkinButton59Click(Sender: TObject);
begin
table_cancel(t_op_ctn);
end;
procedure Tfrm_op_seae_hbl.wwDBLookupComboctnChange(Sender: TObject);
begin
if (t_op_ctn.State=dsedit)or(t_op_ctn.State=dsinsert) then
begin
if frm_data_share.t_code_ctn.Locate('<27><><EFBFBD><EFBFBD>',wwDBLookupComboctn.text,[]) then
begin
t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ'];
t_op_ctn['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD>'];
t_op_ctn['<27>ߴ<EFBFBD>']:=frm_data_share.t_code_ctn['<27>ߴ<EFBFBD>'];
end
else
begin
t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:='';
t_op_ctn['<27><><EFBFBD><EFBFBD>']:='';
t_op_ctn['<27>ߴ<EFBFBD>']:='';
end;
end;
end;
procedure Tfrm_op_seae_hbl.btnMarksClick(Sender: TObject);
begin
frm_main.view_momo(t_op_ctn1,'<27><>ͷ');
end;
procedure Tfrm_op_seae_hbl.btnDescClick(Sender: TObject);
begin
frm_main.view_momo(t_op_ctn1,'<27><><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_seae_hbl.t_op_ctnAfterInsert(DataSet: TDataSet);
begin
t_op_ctn['<27><><EFBFBD><EFBFBD>']:=t_op_seae1.DataSet['<27><><EFBFBD><EFBFBD>'];
t_op_ctn['<27><><EFBFBD><EFBFBD>']:=1;
t_op_ctn['TEU']:=0;
end;
procedure Tfrm_op_seae_hbl.wwDBGrid1ColEnter(Sender: TObject);
begin
if (wwDBGrid1.GetActiveField.FieldName='<27><>ͷ') then begin
// bsSkinPanel4.Visible:=true;
// Label62.Visible:=True;
// Label61.Visible:=false;
// DBMemo5.Visible:=true;
// DBMemo4.Visible:=false;
end else if (wwDBGrid1.GetActiveField.FieldName='<27><><EFBFBD><EFBFBD>') then begin
// bsSkinPanel4.Visible:=true;
// Label62.Visible:=false;
// Label61.Visible:=True;
// DBMemo5.Visible:=false;
// DBMemo4.Visible:=true;
end else begin
// bsSkinPanel4.Visible:=False;
end;
end;
function Tfrm_op_seae_hbl.getCtnAfr(code: string): string;
var
aQuery:TADOQuery;
begin
result:='';
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;
SQL.Text:='select AFR<46><52><EFBFBD><EFBFBD> from t_code_ctn where <20><><EFBFBD><EFBFBD>='''+code+'''';
Open;
Result:=aQuery.fieldbyname('AFR<46><52><EFBFBD><EFBFBD>').AsString;
end;
finally
FreeAndNil(aQuery);
end;
end;
function Tfrm_op_seae_hbl.getPkgAfr(code: string): string;
var
aQuery:TADOQuery;
begin
result:='';
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;
SQL.Text:='select AFR<46><52><EFBFBD><EFBFBD> from t_code_package where <20><><EFBFBD><EFBFBD>='''+code+'''';
Open;
if not IsEmpty then
Result:=aQuery.fieldbyname('AFR<46><52><EFBFBD><EFBFBD>').AsString;
end;
finally
FreeAndNil(aQuery);
end;
end;
function Tfrm_op_seae_hbl.formatAfrstr(str: string): string;
begin
Result:=Trim(str);
Result:=StringReplace(Result,'&','&amp;',[rfReplaceAll]);
Result:=StringReplace(Result,'<','&lt;',[rfReplaceAll]);
Result:=StringReplace(Result,'"','&quot;',[rfReplaceAll]);
Result:=StringReplace(Result,'>','&gt;',[rfReplaceAll]);
Result:=StringReplace(Result,'''','&apos;',[rfReplaceAll]);
end;
procedure Tfrm_op_seae_hbl.t_op_ctn_detailBeforeInsert(DataSet: TDataSet);
begin
if t_op_ctn.State in [dsedit,dsinsert] then t_op_ctn.Post;
end;
procedure Tfrm_op_seae_hbl.RxDBLookupCombo16Change(Sender: TObject);
begin
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit)then
begin
end;
end;
procedure Tfrm_op_seae_hbl.RxDBLookupCombo1Change(Sender: TObject);
begin
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit)then
begin
end;
end;
procedure Tfrm_op_seae_hbl.PutToDebugLog(Operation, S1: String);
begin
end;
procedure Tfrm_op_seae_hbl.t_op_ctnBeforePost(DataSet: TDataSet);
begin
if frm_data_share.t_code_ctn.Locate('<27><><EFBFBD><EFBFBD>',t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,[]) then
begin
t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ'];
t_op_ctn['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD>'];
t_op_ctn['<27>ߴ<EFBFBD>']:=frm_data_share.t_code_ctn['<27>ߴ<EFBFBD>'];
end
else
begin
t_op_ctn['<27><><EFBFBD><EFBFBD>']:='';
t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:='';
t_op_ctn['<27><><EFBFBD><EFBFBD>']:='';
t_op_ctn['<27>ߴ<EFBFBD>']:='';
end;
end;
procedure Tfrm_op_seae_hbl.btnSealClick(Sender: TObject);
begin
frm_main.view_momo(t_op_ctn1,'<27><><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_seae_hbl.wwDBComboBoxOPDropDown(Sender: TObject);
var AdoQuery1:TAdoQuery;
begin
wwDBComboBoxOP.items.clear;
AdoQuery1:=CreateAdoQuery;
with AdoQuery1 do
try
Close;sql.Clear;
SQL.Add('select * from t_sys_employee where ״̬=''<27><>ְ''');
SQL.Add('Order by <20><><EFBFBD><EFBFBD>');
Open;first;
while not Eof do
begin
wwDBComboBoxOP.Items.Add(AdoQuery1.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
Next;
end;
finally
Free;
end;
end;
procedure Tfrm_op_seae_hbl.bsSkinButton15Click(Sender: TObject);
var
aAdoQuery:TAdoQuery;
bok:Tbookmark;
if_first:boolean;
s1,s2,s3,s4,s:widestring;
begin
if (t_op_ctn.State=dsinsert)or(t_op_ctn.State=dsedit) then
t_op_ctn.post;
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
try
close;
sql.clear;
sql.add('select sum(<28><><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD>, sum(<28><><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD> from t_op_ctn_HBL');
sql.add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
open;First;
if not IsEmpty then
begin
if t_op_seae=nil then
exit;
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
t_op_seae.post;
t_op_seae.Edit;
t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger:=FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger;
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']
:='SAY TOTAL '+ntoc(FieldByName('<27><><EFBFBD><EFBFBD>').asfloat,true)
+t_op_seae.FieldByName('<27><>װ').asstring+' ONLY.';
t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
t_op_seae.Post;
end;
Close;
sql.clear;
sql.add('select <20>ߴ<EFBFBD>,<2C><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD> from t_op_ctn_hbl where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
sql.add(' group by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C>ߴ<EFBFBD>');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
Open;First;
while not Eof do
begin
if s='' then
s:=fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'*'+fieldbyname('<27>ߴ<EFBFBD>').asstring+''''+fieldbyname('<27><><EFBFBD><EFBFBD>').asstring
else
s:=s+' '+fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'*'+fieldbyname('<27>ߴ<EFBFBD>').asstring+''''+fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
Next;
end;
t_op_seae.Edit;
t_op_seae['<27><>װ<EFBFBD><D7B0>']:=s;
t_op_seae.Post;
finally
Free;
end;
bok:=t_op_ctn.GetBookmark;
try
t_op_ctn.DisableControls;
t_op_ctn.First;
while not t_op_ctn.Eof do
begin
if 1=1 then
begin
if if_first then
begin
if (Trim(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>'') then
s1:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring
+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring
+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS'
+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM';
if_first:=false;
end
else
begin
if (Trim(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>'') then
s1:=s1+#13#10+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring
+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring
+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS'
+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM';
end;
end;
t_op_ctn.next;
end;
finally
t_op_seae1.DataSet.Edit;
t_op_seae1.DataSet.FieldByName('<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>').AsString:=s1;
t_op_ctn.EnableControls;
t_op_ctn.GotoBookmark(bok);
end;
if (t_op_seae1.DataSet.State=dsinsert)or(t_op_seae1.DataSet.State=dsedit) then
t_op_seae1.DataSet.post;
end;
procedure Tfrm_op_seae_hbl.bsSkinButton47Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae1,'<27><>ͷ');
end;
procedure Tfrm_op_seae_hbl.bsSkinButton24Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae1,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_seae_hbl.bsSkinButton25Click(Sender: TObject);
var
bok:Tbookmark;
if_first:boolean;
s1,s2,s3,s4:string;
begin
if t_op_seae1.DataSet=nil then
exit;
bok:=t_op_ctn.GetBookmark;
try
t_op_ctn.DisableControls;
t_op_ctn.First;
while not t_op_ctn.Eof do
begin
if 1=1 then
begin
if if_first then
begin
if (Trim(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>'') then
s1:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
s2:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring;
s3:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS';
s4:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM';
if_first:=false;
end
else
begin
if (Trim(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>'') then
s1:=s1+#13#10+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
s2:=s2+#13#10+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring;
s3:=s3+#13#10+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS';
s4:=s4+#13#10+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM';
end;
end;
t_op_ctn.next;
end;
finally
t_op_seae1.DataSet.Edit;
t_op_seae1.DataSet.FieldByName('EDI״̬').AsString:='<27>Ѵ<EFBFBD>ӡ';
t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').AsString:=s2;
t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=s3;
t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=s4;
t_op_ctn.EnableControls;
t_op_ctn.GotoBookmark(bok);
end;
if (t_op_seae1.DataSet.State=dsinsert)or(t_op_seae1.DataSet.State=dsedit) then
t_op_seae1.DataSet.post;
sys_print('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>',2,t_op_seae1,t_op_ctn1,nil,nil,nil,nil,nil,nil,nil,nil,nil);
end;
procedure Tfrm_op_seae_hbl.bsSkinButton26Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae1,'<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>');
end;
procedure Tfrm_op_seae_hbl.wwDBLookupCombo3Change(Sender: TObject);
begin
if t_op_seae1.DataSet=nil then
exit;
if (t_op_seae1.DataSet.state=dsedit)or(t_op_seae1.DataSet.state=dsinsert)then
begin
if frm_data_share.t_code_loaport.Locate('Ӣ<><D3A2><EFBFBD><EFBFBD>',wwDBLookupCombo3.text,[]) then
begin
t_op_seae1.DataSet['װ<>۴<EFBFBD><DBB4><EFBFBD>']:=frm_data_share.t_code_loaport['EDI<44><49><EFBFBD><EFBFBD>'];
end;
end;
end;
procedure Tfrm_op_seae_hbl.wwDBLookupCombo3Exit(Sender: TObject);
begin
if t_op_seae1.DataSet=nil then
exit;
if (t_op_seae1.DataSet.state=dsedit)or(t_op_seae1.DataSet.state=dsinsert)then
begin
if frm_data_share.t_code_loaport.Locate('Ӣ<><D3A2><EFBFBD><EFBFBD>',wwDBLookupCombo3.text,[]) then
begin
t_op_seae1.DataSet['װ<>۴<EFBFBD><DBB4><EFBFBD>']:=frm_data_share.t_code_loaport['EDI<44><49><EFBFBD><EFBFBD>'];
end;
end;
end;
procedure Tfrm_op_seae_hbl.wwDBLookupCombo52Change(Sender: TObject);
begin
if t_op_seae1.DataSet=nil then
exit;
if (t_op_seae1.DataSet.state=dsedit)or(t_op_seae1.DataSet.state=dsinsert)then
begin
if frm_data_share.t_code_disport.Locate('Ӣ<><D3A2><EFBFBD><EFBFBD>',wwDBLookupCombo52.text,[]) then
begin
t_op_seae1.DataSet['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_disport['EDI<44><49><EFBFBD><EFBFBD>'];
end;
end;
end;
procedure Tfrm_op_seae_hbl.wwDBLookupCombo52Exit(Sender: TObject);
begin
if t_op_seae1.DataSet=nil then
exit;
if (t_op_seae1.DataSet.state=dsedit)or(t_op_seae1.DataSet.state=dsinsert)then
begin
if frm_data_share.t_code_disport.Locate('Ӣ<><D3A2><EFBFBD><EFBFBD>',wwDBLookupCombo52.text,[]) then
begin
t_op_seae1.DataSet['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_disport['EDI<44><49><EFBFBD><EFBFBD>'];
end;
end;
end;
procedure Tfrm_op_seae_hbl.wwDBLookupCombo17Change(Sender: TObject);
begin
if t_op_seae1.DataSet=nil then
exit;
if (t_op_seae1.DataSet.state=dsedit)or(t_op_seae1.DataSet.state=dsinsert)then
begin
if frm_data_share.t_code_disport.Locate('Ӣ<><D3A2><EFBFBD><EFBFBD>',wwDBLookupCombo17.text,[]) then
begin
t_op_seae1.DataSet['Ŀ<>Ĵ<EFBFBD><C4B4><EFBFBD>']:=frm_data_share.t_code_disport['EDI<44><49><EFBFBD><EFBFBD>'];
end;
end;
end;
procedure Tfrm_op_seae_hbl.wwDBLookupCombo17Exit(Sender: TObject);
begin
if t_op_seae1.DataSet=nil then
exit;
if (t_op_seae1.DataSet.state=dsedit)or(t_op_seae1.DataSet.state=dsinsert)then
begin
if frm_data_share.t_code_disport.Locate('Ӣ<><D3A2><EFBFBD><EFBFBD>',wwDBLookupCombo17.text,[]) then
begin
t_op_seae1.DataSet['Ŀ<>Ĵ<EFBFBD><C4B4><EFBFBD>']:=frm_data_share.t_code_disport['EDI<44><49><EFBFBD><EFBFBD>'];
end;
end;
end;
procedure Tfrm_op_seae_hbl.SelectReciveData(bsno,mblno:string);
var xmldoc:IXMLDocument;
cds:TClientDataSet;
XMLTransformProvider1:TXMLTransformProvider;
s_web: WideString;
i :Integer;
aAdoQuery,bAdoQuery:TAdoQuery;
AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond:Word;
STATUS:string;
begin
cds:=TClientDataSet.Create(nil);
XMLTransformProvider1:=TXMLTransformProvider.Create(NIL);
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
begin
Close;Sql.Clear;
SQL.Add('Insert Into t_op_state (<28><><EFBFBD><EFBFBD> ,ҵ<><D2B5>״̬ ,<2C>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,¼<><C2BC><EFBFBD><EFBFBD> ,¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>,<2C><>ע)');
SQL.Add('values (:<3A><><EFBFBD><EFBFBD>,:ҵ<><D2B5>״̬ ,:<3A>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>,:<3A><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>,:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,:¼<><C2BC><EFBFBD><EFBFBD>,:¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,:ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>,:<3A><>ע)');
Close;
end;
bAdoQuery:=CreateAdoQuery;
with bAdoQuery do
begin
Close;Sql.Clear;
SQL.Add('select ҵ<><D2B5>״̬,<2C><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1> from t_op_state');
SQL.Add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
SQL.Add('order by <20><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1> desc');
end;
try
cds.Active:=false;
xmldoc:=NewXMLDocument;
xmldoc.Encoding:='UTF-8';
xmldoc.Options:=[doNamespaceDecl];
s_web:=mServiceSoap_Ds.LoadCustomMainfastStatus(mblno);
xmldoc.LoadFromXML(s_web);
XMLTransformProvider1.TransformRead.TransformationFile:='\\'+dbserver+'\<5C>ൺ<EFBFBD><E0B5BA><EFBFBD><EFBFBD>\dscustom.xtr';
XMLTransformProvider1.TransformRead.SourceXmlDocument:=xmldoc.GetDOMDocument;
cds.Data:=XMLTransformProvider1.Data;
cds.Active:=true;
with cds do
begin
First;
while not Eof do
begin
aAdoQuery.Close;
aAdoQuery.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=bsno;
if Copy(FieldByName('STATUS').AsString,1,5)='11104' then
STATUS:='<27>յ<EFBFBD><D5B5><EFBFBD><EFBFBD>乤<EFBFBD><E4B9A4><EFBFBD><EFBFBD>Ԥ<EFBFBD><D4A4><EFBFBD><EFBFBD>̬'
else
if Copy(FieldByName('STATUS').AsString,1,5)='11124' then
STATUS:='<27><><EFBFBD>ѷ<EFBFBD><D1B7>в<EFBFBD><D0B2><EFBFBD><EFBFBD><EFBFBD>ƴ<EFBFBD><C6B4>'
else
if Copy(FieldByName('STATUS').AsString,1,5)='15302' then
STATUS:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>洫<EFBFBD><E6B4AB><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>쳣'
else
if Copy(FieldByName('STATUS').AsString,1,5)='21102' then
STATUS:='<27>յ<EFBFBD><D5B5><EFBFBD><EFBFBD>乤<EFBFBD><E4B9A4>δ<EFBFBD><CEB4><EFBFBD><EFBFBD>'
else
if Copy(FieldByName('STATUS').AsString,1,5)='21106' then
STATUS:='<27>ᣨ<EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>'
else
if Copy(FieldByName('STATUS').AsString,1,5)='21107' then
STATUS:='<27><><EFBFBD>ᣨ<EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>δ<EFBFBD>򺣹ش<F2BAA3B9><D8B4><EFBFBD>'
else
if Copy(FieldByName('STATUS').AsString,1,5)='21301' then
STATUS:='Ԥ<><D4A4><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD><EFBFBD>ɹ<EFBFBD>'
else
if Copy(FieldByName('STATUS').AsString,1,5)='22103' then
STATUS:=' δ<>ҵ<EFBFBD><D2B5><EFBFBD>Ӧ<EFBFBD>ᣨ<EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>'
else
if Copy(FieldByName('STATUS').AsString,1,5)='22201' then
STATUS:='Ԥ<><D4A4><EFBFBD>յ<EFBFBD><D5B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>걨<EFBFBD><EAB1A8><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'
else
if Copy(FieldByName('STATUS').AsString,1,5)='23105' then
STATUS:='<27><><EFBFBD>ᣨ<EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD><EFBFBD>Ѻ<EFBFBD>ע'
else
if Copy(FieldByName('STATUS').AsString,1,5)='23301' then
STATUS:='Ԥ<><D4A4><EFBFBD>յ<EFBFBD><D5B5>޸<EFBFBD><DEB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'
else
if Copy(FieldByName('STATUS').AsString,1,5)='24103' then
STATUS:='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD>ᣨ<EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
else
if Copy(FieldByName('STATUS').AsString,1,5)='24301' then
STATUS:='Ԥ<><D4A4><EFBFBD>յ<EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'
else
if Copy(FieldByName('STATUS').AsString,1,5)='25201' then
STATUS:='<27><><EFBFBD><EFBFBD><EFBFBD>˵ֱ<CBB5><D6B1>洫<EFBFBD><E6B4AB><EFBFBD>ɹ<EFBFBD>'
else
if Copy(FieldByName('STATUS').AsString,1,5)='99001' then
STATUS:=' <20><><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƹ淶'
else STATUS:=FieldByName('STATUS').AsString;
aAdoQuery.Parameters.ParamByName('ҵ<><D2B5>״̬').Value:=STATUS;
aAdoQuery.Parameters.ParamByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').Value:=true;
aAdoQuery.Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=employee;
AYear:=StrToInt(Copy(FieldByName('DATESTR').AsString,1,4));
AMonth:=StrToInt(Copy(FieldByName('DATESTR').AsString,5,2));
ADay:=StrToInt(Copy(FieldByName('DATESTR').AsString,7,2));
AHour:=StrToInt(Copy(FieldByName('DATESTR').AsString,9,2));
AMinute:=StrToInt(Copy(FieldByName('DATESTR').AsString,11,2));
aAdoQuery.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').Value:=EncodeDatetime(AYear,AMonth,ADay,AHour,AMinute,ASecond, AMilliSecond); //DATASTR
aAdoQuery.Parameters.ParamByName('¼<><C2BC><EFBFBD><EFBFBD>').Value:=employee;
aAdoQuery.Parameters.ParamByName('¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=FormatDateTime('YYYY-MM-DD',Now);
aAdoQuery.Parameters.ParamByName('ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>').Value:=True;
aAdoQuery.Parameters.ParamByName('<27><>ע').Value:=FieldByName('STATUS').AsString;
aAdoQuery.ExecSQL;
Next;
end;
end;
finally
bAdoQuery.Close;
bAdoQuery.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=bsno;
bAdoQuery.Open;
bAdoQuery.First;
modify_all:=True;
t_op_seae.Edit;
if bAdoQuery.FieldByName('ҵ<><D2B5>״̬').AsString<>'' then
begin
if bAdoQuery.FieldByName('ҵ<><D2B5>״̬').AsString='Ԥ<><D4A4><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD><EFBFBD>ɹ<EFBFBD>' then
t_op_seae.FieldByName('<27><>ǰ״̬').AsString:='<27><>Ҫ<EFBFBD><D2AA><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD><EFBFBD>ɹ<EFBFBD>'
else
if bAdoQuery.FieldByName('ҵ<><D2B5>״̬').AsString='Ԥ<><D4A4><EFBFBD>յ<EFBFBD><D5B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>걨<EFBFBD><EAB1A8><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>' then
t_op_seae.FieldByName('<27><>ǰ״̬').AsString:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'
else
if bAdoQuery.FieldByName('ҵ<><D2B5>״̬').AsString='<27>˵ֱȶԽ<C8B6><D4BD><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD>' then
t_op_seae.FieldByName('<27><>ǰ״̬').AsString:='<27><><EFBFBD>˵<EFBFBD>'
else
if bAdoQuery.FieldByName('ҵ<><D2B5>״̬').AsString='<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD>' then
t_op_seae.FieldByName('<27><>ǰ״̬').AsString:='<27>ѷ<EFBFBD><D1B7><EFBFBD>'
else
if bAdoQuery.FieldByName('ҵ<><D2B5>״̬').AsString='Ԥ<><D4A4><EFBFBD>յ<EFBFBD><D5B5>޸<EFBFBD><DEB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>' then
t_op_seae.FieldByName('<27><>ǰ״̬').AsString:='<27>޸<EFBFBD>ͨ<EFBFBD><CDA8>'
end;
t_op_seae.Post;
aAdoQuery.Free;
XMLTransformProvider1.Free;
cds.Free;
bAdoQuery.Free;
modify_all:=False;
end;
end;
procedure Tfrm_op_seae_hbl.t_op_seaeBeforeEdit(DataSet: TDataSet);
begin
if not modify_all then begin
if t_op_seae.FieldByName('EDI״̬').AsString='<27>ѷ<EFBFBD><D1B7><EFBFBD>' then begin
showmessage('<27>ѷ<EFBFBD><D1B7>Ͳ<EFBFBD><CDB2><EFBFBD><EFBFBD>޸<EFBFBD>,ɾ<><C9BE><EFBFBD><EFBFBD>');
abort;
end;
end;
end;
procedure Tfrm_op_seae_hbl.t_op_ctnBeforeEdit(DataSet: TDataSet);
begin
if not modify_all then begin
if t_op_seae.FieldByName('EDI״̬').AsString='<27>ѷ<EFBFBD><D1B7><EFBFBD>' then begin
showmessage('<27>ѷ<EFBFBD><D1B7>Ͳ<EFBFBD><CDB2><EFBFBD><EFBFBD>޸ģ<DEB8>');
abort;
end;
end;
end;
procedure Tfrm_op_seae_hbl.t_op_seaeBeforeDelete(DataSet: TDataSet);
begin
if t_op_seae.FieldByName('EDI״̬').AsString='<27>ѷ<EFBFBD><D1B7><EFBFBD>' then begin
showmessage('<27>ѷ<EFBFBD><D1B7>Ͳ<EFBFBD><CDB2><EFBFBD><EFBFBD>޸<EFBFBD>,ɾ<><C9BE><EFBFBD><EFBFBD>');
abort;
end;
end;
procedure Tfrm_op_seae_hbl.t_op_seaeAfterInsert(DataSet: TDataSet);
begin
t_op_seae.FieldByName('<27><>ǰ״̬').Asstring:='δ<><CEB4><EFBFBD><EFBFBD>';
t_op_seae.FieldByName('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').Asstring:='QINGDAO,CHINA';
end;
procedure Tfrm_op_seae_hbl.t_op_ctnNewRecord(DataSet: TDataSet);
begin
t_op_ctn['<27><>װ']:=t_op_seae.FieldByName('<27><>װ').AsString;
end;
procedure Tfrm_op_seae_hbl.dxDBGrid1CustomDraw(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 uppercase(ANode.Strings[dxDBGrid1Column28.Index])='TRUE' then begin
AColor:=clRed;
exit;
end;
end;
procedure Tfrm_op_seae_hbl.bsSkinButton1Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae1,'<27><>ע');
end;
procedure Tfrm_op_seae_hbl.bsSkinButton9Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae1,'<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>');
end;
procedure Tfrm_op_seae_hbl.t_op_ctnAfterPost(DataSet: TDataSet);
begin
bsSkinButton15.OnClick(bsSkinButton15);
end;
end.