hanxuntao
/
D6HECHUAN
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 '4e4df949a6'
${ noResults }
D6HECHUAN/新建文件夹/海运业务/u_op_seae.~pas

5048 lines
156 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.

{$INCLUDE t_main.inc}
unit u_op_seae;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
dxExEdtr, XPMenu, Menus, DB, ADODB, bsSkinCtrls, bsdbctrls, wwdbedit,
Wwdotdot, Wwdbcomb, wwdbdatetimepicker, wwdblook, StdCtrls, DBCtrls,
ComCtrls, bsSkinTabs, RxLookup, Mask, dxDBTLCl, dxGrClms, dxDBGrid, dxTL,
dxDBCtrl, dxCntner, ExtCtrls, Dialogs, ExtDlgs, Wwdbdlg, shellapi,
Grids, DBGrids,inifiles, cxControls, cxContainer, cxEdit, cxTextEdit,
cxMaskEdit, cxButtonEdit, cxDBEdit, Wwdbigrd, Wwdbgrid;
type
Tfrm_op_seae = class(TForm)
t_op_seae: TADOQuery;
t_op_seae1: TDataSource;
t_op_seae_fen: TADOQuery;
t_op_seae_fen1: TDataSource;
t_op_seae2: TDataSource;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N6: TMenuItem;
N8: TMenuItem;
N19: TMenuItem;
N21: TMenuItem;
N4: TMenuItem;
N20: TMenuItem;
N24: TMenuItem;
N7: TMenuItem;
N22: TMenuItem;
EXCEL1: TMenuItem;
XPMenu1: TXPMenu;
Panel2: TPanel;
bsSkinButton7: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
bsSkinButton10: TbsSkinButton;
bsSkinButton1: TbsSkinButton;
bsSkinButton11: TbsSkinButton;
bsSkinButton8: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
Notebook1: TNotebook;
bsSkinPanel1: TbsSkinPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label37: TLabel;
Label5: TLabel;
Label38: TLabel;
Label4: TLabel;
Label36: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit8: TDBEdit;
DBEdit4: TDBEdit;
DBEdit9: TDBEdit;
RxDBLookupCombo1: TRxDBLookupCombo;
DBEdit7: TDBEdit;
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet6: TbsSkinTabSheet;
bsSkinTabSheet1: TbsSkinTabSheet;
bsSkinTabSheet7: TbsSkinTabSheet;
bsSkinTabSheet2: TbsSkinTabSheet;
bsSkinTabSheet4: TbsSkinTabSheet;
Panel3: TPanel;
dxDBGrid1: TdxDBGrid;
t_ch_fee: TADOQuery;
DBEdit18: TDBEdit;
Label65: TLabel;
bsSkinButton13: TbsSkinButton;
Label20: TLabel;
RxDBLookupCombo29: TRxDBLookupCombo;
Label42: TLabel;
RxDBLookupCombo30: TRxDBLookupCombo;
PopupMenu2: TPopupMenu;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
PopupMenu3: TPopupMenu;
N17: TMenuItem;
N18: TMenuItem;
N34: TMenuItem;
N35: TMenuItem;
N36: TMenuItem;
N37: TMenuItem;
N38: TMenuItem;
N39: TMenuItem;
N40: TMenuItem;
N41: TMenuItem;
N42: TMenuItem;
N43: TMenuItem;
N46: TMenuItem;
N47: TMenuItem;
N48: TMenuItem;
N50: TMenuItem;
N51: TMenuItem;
N52: TMenuItem;
N53: TMenuItem;
N54: TMenuItem;
N55: TMenuItem;
PopupMenu4: TPopupMenu;
N27: TMenuItem;
N28: TMenuItem;
N29: TMenuItem;
N61: TMenuItem;
t_op_seae_huanhuo1: TDataSource;
N25: TMenuItem;
N62: TMenuItem;
N63: TMenuItem;
N64: TMenuItem;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column2: TdxDBGridMaskColumn;
dxDBGrid1Column3: TdxDBGridMaskColumn;
dxDBGrid1Column4: TdxDBGridDateColumn;
dxDBGrid1Column5: TdxDBGridMaskColumn;
dxDBGrid1Column6: TdxDBGridMaskColumn;
dxDBGrid1Column7: TdxDBGridMaskColumn;
dxDBGrid1Column8: TdxDBGridMaskColumn;
dxDBGrid1Column9: TdxDBGridMaskColumn;
dxDBGrid1Column10: TdxDBGridMaskColumn;
dxDBGrid1Column11: TdxDBGridMaskColumn;
dxDBGrid1Column12: TdxDBGridMaskColumn;
dxDBGrid1Column13: TdxDBGridMaskColumn;
dxDBGrid1Column14: TdxDBGridMaskColumn;
dxDBGrid1Column15: TdxDBGridMaskColumn;
dxDBGrid1Column16: TdxDBGridMaskColumn;
dxDBGrid1Column17: TdxDBGridMaskColumn;
dxDBGrid1Column18: TdxDBGridDateColumn;
dxDBGrid1Column19: TdxDBGridDateColumn;
dxDBGrid1Column20: TdxDBGridDateColumn;
dxDBGrid1Column22: TdxDBGridMaskColumn;
dxDBGrid1Column23: TdxDBGridMaskColumn;
dxDBGrid1Column28: TdxDBGridMaskColumn;
dxDBGrid1Column29: TdxDBGridMaskColumn;
dxDBGrid1Column30: TdxDBGridMaskColumn;
dxDBGrid1Column31: TdxDBGridMaskColumn;
dxDBGrid1Column32: TdxDBGridMaskColumn;
dxDBGrid1Column33: TdxDBGridDateColumn;
dxDBGrid1Column34: TdxDBGridMaskColumn;
dxDBGrid1Column35: TdxDBGridMaskColumn;
dxDBGrid1Column36: TdxDBGridMaskColumn;
dxDBGrid1Column37: TdxDBGridMaskColumn;
dxDBGrid1Column38: TdxDBGridMaskColumn;
dxDBGrid1Column39: TdxDBGridMaskColumn;
dxDBGrid1Column40: TdxDBGridMaskColumn;
dxDBGrid1Column41: TdxDBGridColumn;
dxDBGrid1Column42: TdxDBGridColumn;
dxDBGrid11: TdxDBGridMaskColumn;
dxDBGrid12: TdxDBGridMaskColumn;
dxDBGrid13: TdxDBGridMaskColumn;
dxDBGrid14: TdxDBGridMaskColumn;
dxDBGrid15: TdxDBGridMaskColumn;
dxDBGrid16: TdxDBGridMaskColumn;
dxDBGrid17: TdxDBGridMaskColumn;
dxDBGrid18: TdxDBGridMaskColumn;
dxDBGrid19: TdxDBGridMaskColumn;
dxDBGrid110: TdxDBGridMaskColumn;
dxDBGrid1Column63: TdxDBGridMaskColumn;
dxDBGrid1TEU: TdxDBGridMaskColumn;
dxDBGrid1Column65: TdxDBGridMaskColumn;
dxDBGrid1Column66: TdxDBGridMaskColumn;
dxDBGrid1Column67: TdxDBGridDateColumn;
dxDBGrid1Column68: TdxDBGridMaskColumn;
dxDBGrid1Column69: TdxDBGridMaskColumn;
dxDBGrid1Column70: TdxDBGridMaskColumn;
dxDBGrid1Column71: TdxDBGridMaskColumn;
dxDBGrid1Column72: TdxDBGridMaskColumn;
dxDBGrid1Column97: TdxDBGridMaskColumn;
N66: TMenuItem;
N67: TMenuItem;
N68: TMenuItem;
N69: TMenuItem;
N70: TMenuItem;
N71: TMenuItem;
N72: TMenuItem;
bsSkinButton15: TbsSkinButton;
N73: TMenuItem;
N74: TMenuItem;
bsSkinButton38: TbsSkinButton;
N76: TMenuItem;
N77: TMenuItem;
N78: TMenuItem;
N79: TMenuItem;
N80: TMenuItem;
N81: TMenuItem;
N82: TMenuItem;
N83: TMenuItem;
N84: TMenuItem;
bsSkinPanel5: TbsSkinPanel;
Label82: TLabel;
DBMemo12: TDBMemo;
Label83: TLabel;
DBEdit23: TDBEdit;
Label84: TLabel;
RxDBLookupCombo34: TRxDBLookupCombo;
Label85: TLabel;
RxDBLookupCombo35: TRxDBLookupCombo;
Label86: TLabel;
RxDBLookupCombo36: TRxDBLookupCombo;
dxDBGrid1Column114: TdxDBGridColumn;
bsSkinDBText1: TbsSkinDBText;
bsSkinPanel6: TbsSkinPanel;
Label110: TLabel;
wwDBLookupCombo12: TwwDBLookupCombo;
N87: TMenuItem;
WORD1: TMenuItem;
bsSkinPanel9: TbsSkinPanel;
Label116: TLabel;
Edit1: TEdit;
Label131: TLabel;
Edit2: TEdit;
bsSkinButton44: TbsSkinButton;
N90: TMenuItem;
N91: TMenuItem;
N92: TMenuItem;
N93: TMenuItem;
N94: TMenuItem;
N95: TMenuItem;
N96: TMenuItem;
N98: TMenuItem;
N99: TMenuItem;
bsSkinSpeedButton1: TbsSkinSpeedButton;
OpenDialog1: TOpenDialog;
bsSkinButton45: TbsSkinButton;
PopupMenu5: TPopupMenu;
N101: TMenuItem;
N102: TMenuItem;
N103: TMenuItem;
dxDBGrid1Column119: TdxDBGridColumn;
dxDBGrid1Column120: TdxDBGridColumn;
N108: TMenuItem;
N113: TMenuItem;
N114: TMenuItem;
dxDBGrid1Column122: TdxDBGridCheckColumn;
dxDBGrid1Column124: TdxDBGridColumn;
dxDBGrid1Column125: TdxDBGridColumn;
dxDBGrid1Column126: TdxDBGridColumn;
SaveDialog1: TSaveDialog;
N26: TMenuItem;
TabCtn: TbsSkinTabSheet;
t_op_ctn: TADOQuery;
t_op_ctn1: TDataSource;
wwDBLookupCombo13: TwwDBLookupCombo;
wwDBLookupCombo14: TwwDBLookupCombo;
wwDBGrid1: TwwDBGrid;
bsSkinPanel3: TbsSkinPanel;
bsSkinButton22: TbsSkinButton;
bsSkinButton35: TbsSkinButton;
bsSkinButton40: TbsSkinButton;
bsSkinButton41: TbsSkinButton;
bsSkinButton42: TbsSkinButton;
bsSkinButton46: TbsSkinButton;
Memo4: TMemo;
Memo3: TMemo;
Memo2: TMemo;
Memo1: TMemo;
bsSkinPanel4: TbsSkinPanel;
Label19: TLabel;
RxDBLookupCombo12: TRxDBLookupCombo;
Label134: TLabel;
RxDBLookupCombo49: TRxDBLookupCombo;
Label16: TLabel;
RxDBLookupCombo14: TRxDBLookupCombo;
RxDBLookupCombo31: TRxDBLookupCombo;
Label41: TLabel;
Label17: TLabel;
wwDBComboBox9: TwwDBComboBox;
wwDBComboBox2: TwwDBComboBox;
dxDBGrid1Column81: TdxDBGridColumn;
wwDBComboBoxcns: TwwDBComboBox;
bsSkinPanel2: TbsSkinPanel;
Label11: TLabel;
DBEdit10: TDBEdit;
Label40: TLabel;
wwDBComboBoxwd: TwwDBComboBox;
Label47: TLabel;
DBEdit15: TDBEdit;
Label48: TLabel;
DBEdit16: TDBEdit;
Label10: TLabel;
DBEdit6: TDBEdit;
bsSkinPanel7: TbsSkinPanel;
Label43: TLabel;
DBEdit11: TDBEdit;
Label44: TLabel;
DBEdit12: TDBEdit;
Label45: TLabel;
DBEdit13: TDBEdit;
Label49: TLabel;
DBEdit17: TDBEdit;
Label50: TLabel;
DBEdit19: TDBEdit;
Label51: TLabel;
DBEdit20: TDBEdit;
bsSkinPanel8: TbsSkinPanel;
Label163: TLabel;
Label164: TLabel;
Label165: TLabel;
Label166: TLabel;
Label167: TLabel;
Label168: TLabel;
Label169: TLabel;
Label170: TLabel;
DBMemo38: TDBMemo;
bsSkinButton21: TbsSkinButton;
DBMemo39: TDBMemo;
DBMemo40: TDBMemo;
DBMemo41: TDBMemo;
DBMemo42: TDBMemo;
DBEdit80: TDBEdit;
DBEdit81: TDBEdit;
wwDBLookupCombo61: TwwDBLookupCombo;
DBEdit82: TDBEdit;
DBEdit83: TDBEdit;
RxDBLookupCombo11: TRxDBLookupCombo;
bsSkinButton16: TbsSkinButton;
bsSkinButton18: TbsSkinButton;
bsSkinButton19: TbsSkinButton;
bsSkinButton20: TbsSkinButton;
bsSkinButton12: TbsSkinButton;
bsSkinPanel10: TbsSkinPanel;
Label13: TLabel;
Label122: TLabel;
Label121: TLabel;
Label123: TLabel;
Label6: TLabel;
Label125: TLabel;
Label126: TLabel;
Label124: TLabel;
Label7: TLabel;
Label146: TLabel;
Label145: TLabel;
Label15: TLabel;
Label25: TLabel;
Label18: TLabel;
Label73: TLabel;
Label32: TLabel;
Label21: TLabel;
Label35: TLabel;
Label26: TLabel;
Label27: TLabel;
Label30: TLabel;
Label31: TLabel;
Label28: TLabel;
Label9: TLabel;
Label12: TLabel;
Label119: TLabel;
Label22: TLabel;
wwDBLookupCombo48: TwwDBLookupCombo;
wwDBLookupCombo46: TwwDBLookupCombo;
wwDBLookupCombo47: TwwDBLookupCombo;
RxDBLookupCombo3: TRxDBLookupCombo;
DBEdit5: TDBEdit;
DBMemo35: TDBMemo;
DBMemo34: TDBMemo;
DBMemo33: TDBMemo;
RxDBLookupCombo2: TRxDBLookupCombo;
RxDBLookupCombo4: TRxDBLookupCombo;
RxDBLookupCombo5: TRxDBLookupCombo;
DBMemo1: TDBMemo;
wwDBLookupCombo49: TwwDBLookupCombo;
DBEdit63: TDBEdit;
wwDBDateTimePicker2: TwwDBDateTimePicker;
wwDBDateTimePicker6: TwwDBDateTimePicker;
wwDBDateTimePicker3: TwwDBDateTimePicker;
wwDBLookupCombo21: TwwDBLookupCombo;
wwDBDateTimePicker4: TwwDBDateTimePicker;
DBEdit25: TDBEdit;
DBEdit27: TDBEdit;
DBEdit26: TDBEdit;
RxDBLookupCombo6: TRxDBLookupCombo;
RxDBLookupCombo9: TRxDBLookupCombo;
bsSkinButton23: TbsSkinButton;
bsSkinButton24: TbsSkinButton;
bsSkinButton25: TbsSkinButton;
bsSkinButton26: TbsSkinButton;
RxDBLookupCombo20: TRxDBLookupCombo;
RxDBLookupCombo21: TRxDBLookupCombo;
RxDBLookupCombo22: TRxDBLookupCombo;
RxDBLookupCombo15: TRxDBLookupCombo;
RxDBLookupCombo28: TRxDBLookupCombo;
Button1: TButton;
wwDBLookupCombo7: TwwDBLookupCombo;
RxDBLookupCombo43: TRxDBLookupCombo;
RxDBLookupCombo7: TRxDBLookupCombo;
wwDBComboBoxBLNUM: TwwDBComboBox;
wwDBComboBox8: TwwDBComboBox;
DBEdit21: TDBEdit;
DBEdit22: TDBEdit;
DBEdit24: TDBEdit;
DBEdit28: TDBEdit;
bsSkinPageControl2: TbsSkinPageControl;
bsskintabsheet_1: TbsSkinTabSheet;
Label23: TLabel;
Label24: TLabel;
Label29: TLabel;
Label33: TLabel;
RxDBLookupCombo16: TRxDBLookupCombo;
bsSkinButton27: TbsSkinButton;
DBMemo3: TDBMemo;
bsSkinButton28: TbsSkinButton;
RxDBLookupCombo17: TRxDBLookupCombo;
DBMemo4: TDBMemo;
RxDBLookupCombo18: TRxDBLookupCombo;
bsSkinButton29: TbsSkinButton;
DBMemo5: TDBMemo;
bsSkinButton30: TbsSkinButton;
RxDBLookupCombo19: TRxDBLookupCombo;
DBMemo6: TDBMemo;
wwDBLookupCombo2: TwwDBLookupCombo;
wwDBLookupCombo5: TwwDBLookupCombo;
wwDBLookupCombo6: TwwDBLookupCombo;
wwDBLookupCombo8: TwwDBLookupCombo;
bsSkinButton39: TbsSkinButton;
bsskintabsheet_2: TbsSkinTabSheet;
dxDBGrid2: TdxDBGrid;
dxDBGrid2Column1: TdxDBGridMaskColumn;
dxDBGrid2Column2: TdxDBGridMaskColumn;
dxDBGrid2Column3: TdxDBGridMaskColumn;
dxDBGrid2Column4: TdxDBGridMaskColumn;
dxDBGrid2Column5: TdxDBGridMaskColumn;
dxDBGrid2Column6: TdxDBGridMaskColumn;
dxDBGrid2Column7: TdxDBGridDateColumn;
dxDBGrid2Column8: TdxDBGridMaskColumn;
dxDBGrid2Column9: TdxDBGridMaskColumn;
dxDBGrid2Column10: TdxDBGridMaskColumn;
dxDBGrid2Column11: TdxDBGridColumn;
dxDBGrid2Column12: TdxDBGridColumn;
dxDBGrid2Column13: TdxDBGridMaskColumn;
dxDBGrid2Column14: TdxDBGridMaskColumn;
dxDBGrid2Column15: TdxDBGridMaskColumn;
dxDBGrid2Column16: TdxDBGridMaskColumn;
Panel1: TPanel;
bsSkinButton31: TbsSkinButton;
bsSkinButton32: TbsSkinButton;
bsSkinButton33: TbsSkinButton;
bsSkinButton34: TbsSkinButton;
bsSkinButton36: TbsSkinButton;
bsSkinButton14: TbsSkinButton;
Label14: TLabel;
DBMemo2: TDBMemo;
bsSkinButton17: TbsSkinButton;
bsSkinPanel11: TbsSkinPanel;
Label153: TLabel;
wwDBLookupCombo11: TwwDBLookupCombo;
bsSkinButton37: TbsSkinButton;
DBMemo10: TDBMemo;
bsSkinGroupBox1: TbsSkinGroupBox;
t_op_seae_edi: TADOQuery;
Label8: TLabel;
wwDBLookupCombo1: TwwDBLookupCombo;
Label34: TLabel;
Edit7: TEdit;
t_op_seae_main: TADOQuery;
Label46: TLabel;
DBEdit14: TDBEdit;
DBEdit29: TDBEdit;
Label39: TLabel;
Label52: TLabel;
RxDBLookupCombo8: TRxDBLookupCombo;
DBEdit30: TDBEdit;
wwDBComboBoxPackge: TwwDBComboBox;
Label53: TLabel;
Label54: TLabel;
RxDBLookupCombo10: TRxDBLookupCombo;
Label55: TLabel;
RxDBLookupCombo13: TRxDBLookupCombo;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bsSkinButton5Click(Sender: TObject);
procedure t_op_seaeBeforePost(DataSet: TDataSet);
procedure FormShow(Sender: TObject);
procedure t_op_seae_fenBeforePost(DataSet: TDataSet);
procedure bsSkinButton7Click(Sender: TObject);
procedure bsSkinButton6Click(Sender: TObject);
procedure wwDBComboBox2Change(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure bsSkinButton33Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton32Click(Sender: TObject);
procedure bsSkinButton36Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure t_op_seaeBeforeDelete(DataSet: TDataSet);
procedure t_op_seae_fenBeforeDelete(DataSet: TDataSet);
procedure bsSkinButton8Click(Sender: TObject);
procedure bsSkinButton9Click(Sender: TObject);
procedure RxDBLookupCombo2Change(Sender: TObject);
procedure RxDBLookupCombo3Change(Sender: TObject);
procedure RxDBLookupCombo4Change(Sender: TObject);
procedure RxDBLookupCombo16Change(Sender: TObject);
procedure RxDBLookupCombo17Change(Sender: TObject);
procedure RxDBLookupCombo18Change(Sender: TObject);
procedure bsSkinButton26Click(Sender: TObject);
procedure bsSkinButton25Click(Sender: TObject);
procedure bsSkinButton24Click(Sender: TObject);
procedure bsSkinButton23Click(Sender: TObject);
procedure bsSkinButton21Click(Sender: TObject);
procedure bsSkinButton22Click(Sender: TObject);
procedure bsSkinButton16Click(Sender: TObject);
procedure bsSkinButton17Click(Sender: TObject);
procedure bsSkinButton18Click(Sender: TObject);
procedure bsSkinButton19Click(Sender: TObject);
procedure bsSkinButton20Click(Sender: TObject);
procedure DBMemo40Change(Sender: TObject);
procedure DBMemo41Change(Sender: TObject);
procedure DBMemo42Change(Sender: TObject);
procedure DBMemo41Exit(Sender: TObject);
procedure DBMemo42Exit(Sender: TObject);
procedure wwDBLookupCombo61Change(Sender: TObject);
procedure bsSkinButton37Click(Sender: TObject);
procedure DBEdit5Click(Sender: TObject);
procedure bsSkinPageControl1Change(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure N22Click(Sender: TObject);
procedure N27Click(Sender: TObject);
procedure N29Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure bsSkinButton34Click(Sender: TObject);
procedure RxDBLookupCombo19Change(Sender: TObject);
procedure RxDBLookupCombo11Change(Sender: TObject);
procedure RxDBLookupCombo5Change(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure dxDBGrid1Column3CustomDraw(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 dxDBGrid2Column3CustomDraw(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 FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure EXCEL1Click(Sender: TObject);
procedure Panel2Resize(Sender: TObject);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo12KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo19KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo49KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit63KeyPress(Sender: TObject; var Key: Char);
procedure wwDBDateTimePicker2KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo3KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo52KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo20KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo21KeyPress(Sender: TObject; var Key: Char);
procedure wwDBComboBoxBLNUMKeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo15KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit26KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit27KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo6KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo9KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo7KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo8KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo10KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo14KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo11KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit80KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit81KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo61KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit82KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo4KeyPress(Sender: TObject; var Key: Char);
procedure bsSkinDBCheckRadioBox1KeyPress(Sender: TObject;
var Key: Char);
procedure bsSkinDBCheckRadioBox2KeyPress(Sender: TObject;
var Key: Char);
procedure RxDBLookupCombo24KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo25KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo27KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo26KeyPress(Sender: TObject; var Key: Char);
procedure wwDBComboBox12KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit71KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit73KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit109KeyPress(Sender: TObject; var Key: Char);
procedure wwDBComboBox11KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit114KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit112KeyPress(Sender: TObject; var Key: Char);
procedure wwDBDateTimePicker4KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo28KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit25KeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject);
procedure DBEdit18KeyPress(Sender: TObject; var Key: Char);
procedure t_op_seae_fenAfterInsert(DataSet: TDataSet);
procedure DBEdit3Change(Sender: TObject);
procedure DBEdit2Change(Sender: TObject);
procedure wwDBLookupCombo46Enter(Sender: TObject);
procedure wwDBLookupCombo47Enter(Sender: TObject);
procedure wwDBLookupCombo48Enter(Sender: TObject);
procedure RxDBLookupCombo2Enter(Sender: TObject);
procedure RxDBLookupCombo3Enter(Sender: TObject);
procedure RxDBLookupCombo4Enter(Sender: TObject);
procedure wwDBLookupCombo46Change(Sender: TObject);
procedure wwDBLookupCombo46Exit(Sender: TObject);
procedure wwDBLookupCombo47Change(Sender: TObject);
procedure wwDBLookupCombo48Change(Sender: TObject);
procedure wwDBLookupCombo47Exit(Sender: TObject);
procedure wwDBLookupCombo48Exit(Sender: TObject);
procedure wwDBLookupCombo46KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo47KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo48KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo3KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo4KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo5KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo6KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo16KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo17KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo18KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo2Exit(Sender: TObject);
procedure wwDBLookupCombo5Exit(Sender: TObject);
procedure wwDBLookupCombo6Exit(Sender: TObject);
procedure wwDBLookupCombo2Change(Sender: TObject);
procedure wwDBLookupCombo5Change(Sender: TObject);
procedure wwDBLookupCombo6Change(Sender: TObject);
procedure RxDBLookupCombo29KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo30KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo12Change(Sender: TObject);
procedure RxDBLookupCombo14Change(Sender: TObject);
procedure wwDBComboBox3KeyPress(Sender: TObject; var Key: Char);
procedure bsSkinDBCheckRadioBox4KeyPress(Sender: TObject;
var Key: Char);
procedure bsSkinDBCheckRadioBox3KeyPress(Sender: TObject;
var Key: Char);
procedure bsSkinDBCheckRadioBox5KeyPress(Sender: TObject;
var Key: Char);
procedure N12Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure N17Click(Sender: TObject);
procedure bsSkinButton13Click(Sender: TObject);
procedure N34Click(Sender: TObject);
procedure N36Click(Sender: TObject);
procedure N37Click(Sender: TObject);
procedure RxDBLookupCombo1Enter(Sender: TObject);
procedure RxDBLookupCombo1Exit(Sender: TObject);
procedure RxDBLookupCombo9Enter(Sender: TObject);
procedure RxDBLookupCombo6Enter(Sender: TObject);
procedure RxDBLookupCombo8Enter(Sender: TObject);
procedure RxDBLookupCombo7Enter(Sender: TObject);
procedure RxDBLookupCombo10Enter(Sender: TObject);
procedure RxDBLookupCombo9Exit(Sender: TObject);
procedure RxDBLookupCombo6Exit(Sender: TObject);
procedure RxDBLookupCombo8Exit(Sender: TObject);
procedure RxDBLookupCombo7Exit(Sender: TObject);
procedure RxDBLookupCombo10Exit(Sender: TObject);
procedure RxDBLookupCombo2Exit(Sender: TObject);
procedure RxDBLookupCombo3Exit(Sender: TObject);
procedure RxDBLookupCombo4Exit(Sender: TObject);
procedure RxDBLookupCombo5Enter(Sender: TObject);
procedure RxDBLookupCombo5Exit(Sender: TObject);
procedure RxDBLookupCombo16Enter(Sender: TObject);
procedure RxDBLookupCombo17Enter(Sender: TObject);
procedure RxDBLookupCombo18Enter(Sender: TObject);
procedure RxDBLookupCombo16Exit(Sender: TObject);
procedure RxDBLookupCombo17Exit(Sender: TObject);
procedure RxDBLookupCombo18Exit(Sender: TObject);
procedure RxDBLookupCombo19Enter(Sender: TObject);
procedure RxDBLookupCombo19Exit(Sender: TObject);
procedure RxDBLookupCombo28Enter(Sender: TObject);
procedure RxDBLookupCombo28Exit(Sender: TObject);
procedure RxDBLookupCombo15Enter(Sender: TObject);
procedure RxDBLookupCombo15Exit(Sender: TObject);
procedure RxDBLookupCombo20Enter(Sender: TObject);
procedure RxDBLookupCombo20Exit(Sender: TObject);
procedure RxDBLookupCombo11Enter(Sender: TObject);
procedure RxDBLookupCombo11Exit(Sender: TObject);
procedure N40Click(Sender: TObject);
procedure N42Click(Sender: TObject);
procedure N44Click(Sender: TObject);
procedure N46Click(Sender: TObject);
procedure Label4Click(Sender: TObject);
procedure Label23Click(Sender: TObject);
procedure Label24Click(Sender: TObject);
procedure Label29Click(Sender: TObject);
procedure Label33Click(Sender: TObject);
procedure Label12Click(Sender: TObject);
procedure Label9Click(Sender: TObject);
procedure Label11Click(Sender: TObject);
procedure Label10Click(Sender: TObject);
procedure wwDBLookupCombo2DblClick(Sender: TObject);
procedure Label125Click(Sender: TObject);
procedure Label7Click(Sender: TObject);
procedure Label35Click(Sender: TObject);
procedure Label30Click(Sender: TObject);
procedure Label73Click(Sender: TObject);
procedure Label164Click(Sender: TObject);
procedure wwDBLookupCombo61DblClick(Sender: TObject);
procedure bsSkinButton12Click(Sender: TObject);
procedure bsSkinButton14Click(Sender: TObject);
procedure N55Click(Sender: TObject);
procedure N51Click(Sender: TObject);
procedure N53Click(Sender: TObject);
procedure RxDBLookupCombo31Enter(Sender: TObject);
procedure RxDBLookupCombo31Exit(Sender: TObject);
procedure bsSkinDBCheckRadioBox9KeyPress(Sender: TObject;
var Key: Char);
procedure bsSkinDBCheckRadioBox10KeyPress(Sender: TObject;
var Key: Char);
procedure wwDBLookupCombo7Enter(Sender: TObject);
procedure wwDBLookupCombo7Exit(Sender: TObject);
procedure wwDBLookupCombo7KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo5KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo7Change(Sender: TObject);
procedure wwDBLookupCombo8KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo8Change(Sender: TObject);
procedure wwDBLookupCombo8Exit(Sender: TObject);
procedure bsSkinButton35Click(Sender: TObject);
procedure RxDBLookupCombo1Change(Sender: TObject);
procedure N62Click(Sender: TObject);
procedure N64Click(Sender: TObject);
procedure dxDBGrid1Column2CustomDraw(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 dxDBGrid2Column2CustomDraw(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
AFocused: Boolean; var ADone: Boolean);
procedure t_op_seaePostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
procedure N66Click(Sender: TObject);
procedure t_op_seaeAfterPost(DataSet: TDataSet);
procedure N68Click(Sender: TObject);
procedure N70Click(Sender: TObject);
procedure N72Click(Sender: TObject);
procedure Notebook1PageChanged(Sender: TObject);
procedure bsSkinButton15Click(Sender: TObject);
procedure wwDBDateTimePicker14KeyPress(Sender: TObject; var Key: Char);
procedure N74Click(Sender: TObject);
procedure t_op_seae_fenPostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
procedure bsSkinButton38Click(Sender: TObject);
procedure N76Click(Sender: TObject);
procedure N78Click(Sender: TObject);
procedure N80Click(Sender: TObject);
procedure wwDBLookupCombo11KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo11Change(Sender: TObject);
procedure wwDBLookupCombo11Exit(Sender: TObject);
procedure wwDBLookupCombo11DblClick(Sender: TObject);
procedure t_op_seaeBeforeEdit(DataSet: TDataSet);
procedure t_op_seae_fenBeforeEdit(DataSet: TDataSet);
procedure t_op_seae_fenBeforeCancel(DataSet: TDataSet);
procedure t_op_seaeBeforeCancel(DataSet: TDataSet);
procedure RxDBLookupCombo32KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo33KeyPress(Sender: TObject; var Key: Char);
procedure N82Click(Sender: TObject);
procedure N84Click(Sender: TObject);
procedure RxDBLookupCombo36Enter(Sender: TObject);
procedure RxDBLookupCombo36Exit(Sender: TObject);
procedure bsSkinButton39Click(Sender: TObject);
procedure bsSkinButton42Click(Sender: TObject);
procedure bsSkinButton40Click(Sender: TObject);
procedure bsSkinButton41Click(Sender: TObject);
procedure dxDBGrid1Column114CustomDraw(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 RxDBLookupCombo43KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
procedure WORD1Click(Sender: TObject);
procedure wwDBLookupCombo49Change(Sender: TObject);
procedure bsSkinButton44Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure N92Click(Sender: TObject);
procedure N93Click(Sender: TObject);
procedure N96Click(Sender: TObject);
procedure DBEdit41KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo49KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo31KeyPress(Sender: TObject; var Key: Char);
procedure N99Click(Sender: TObject);
procedure RxDBLookupCombo15Change(Sender: TObject);
procedure bsSkinSpeedButton1Click(Sender: TObject);
procedure bsSkinButton31Click(Sender: TObject);
procedure bsSkinButton45Click(Sender: TObject);
procedure wwDBComboBox9DropDown(Sender: TObject);
procedure RxDBLookupCombo31Change(Sender: TObject);
procedure wwDBComboBox9KeyPress(Sender: TObject; var Key: Char);
procedure N103Click(Sender: TObject);
procedure N105Click(Sender: TObject);
procedure N114Click(Sender: TObject);
procedure t_op_fangdanBeforeEdit(DataSet: TDataSet);
procedure t_op_fangdanBeforeInsert(DataSet: TDataSet);
procedure wwDBLookupCombo16KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo17KeyPress(Sender: TObject; var Key: Char);
procedure bsSkinButton47Click(Sender: TObject);
procedure EDI1Click(Sender: TObject);
procedure bsSkinButton46Click(Sender: TObject);
procedure wwDBLookupCombo13Change(Sender: TObject);
procedure t_op_ctnAfterPost(DataSet: TDataSet);
procedure t_op_ctnAfterInsert(DataSet: TDataSet);
procedure t_op_ctnBeforeDelete(DataSet: TDataSet);
procedure t_op_ctnBeforeEdit(DataSet: TDataSet);
procedure t_op_ctnBeforePost(DataSet: TDataSet);
procedure RxDBLookupCombo21Enter(Sender: TObject);
procedure RxDBLookupCombo21Exit(Sender: TObject);
procedure RxDBLookupCombo21Change(Sender: TObject);
procedure RxDBLookupCombo22Change(Sender: TObject);
procedure RxDBLookupCombo7Change(Sender: TObject);
procedure RxDBLookupCombo43Change(Sender: TObject);
procedure wwDBComboBox8Change(Sender: TObject);
procedure RxDBLookupCombo8Change(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure DBMemo39Change(Sender: TObject);
private
procedure setconcolor;
procedure UpLoadPro(fname:string); //fname<6D><65><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD><C2B7><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
procedure DownLoadPro(fname:string); //<2F><><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><DDBF>ı<EFBFBD><C4B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
{ Private declarations }
public
psqlstr:widestring;
assup:boolean;
{ Public declarations }
end;
var
frm_op_seae: Tfrm_op_seae;
frm_op_seae_list_type:integer;
frm_op_seae_create:boolean;
implementation
uses u_main,u_data_share, my_sys_function, u_op_seae_add,
u_op_ctn, u_op_add_ctn,u_op_seae_excel,
u_ch_fee_se, {$IFDEF ZTGENGZONG} u_op_seae_state,u_op_seae_state_up,{$ENDIF} u_op_seae_assistant,
u_op_seae_vessel, u_sys_progress, u_ch_fee_zhupiao,
u_ch_piliang_seae, u_op_date_change, u_op_seae_print_mul,
u_op_seae_edi_hk, u_op_seae_word, u_sys_tab_sort,
u_op_seae_history, u_op_letter;
{$R *.dfm}
procedure Tfrm_op_seae.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
savereggrid(dxdbgrid1,caption);
savereggrid(dxdbgrid2,caption+'1');
if assigned(frm_ch_fee_sea) then
frm_ch_fee_sea.close;
if assigned(frm_op_letter) then
frm_op_letter.close;
{$IFDEF ZTGENGZONG}
if assigned(frm_op_seae_state) then
frm_op_seae_state.close;
if assigned(frm_op_seae_state_up) then
begin
frm_op_seae_state_up.close;
frm_op_seae_state_up.free;
frm_op_seae_state_up:=nil;
end;
{$ENDIF}
if assigned(frm_op_seae_assistant) then
frm_op_seae_assistant.close;
frm_op_seae.Hide;
frm_op_seae.ManualFloat(frm_op_seae.BoundsRect );
frm_main.freeTabs('frm_op_seae');
frm_op_seae_create:=false;
action:=cafree;
frm_op_seae:=nil;
end;
procedure Tfrm_op_seae.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_seae.t_op_seaeBeforePost(DataSet: TDataSet);
var
aQuery:TAdoQuery;
begin
if not EdiAdd then begin
table_before_post(t_op_seae,'ί<>е<EFBFBD>λ');
table_before_post(t_op_seae,'<27><><EFBFBD><EFBFBD>Ա');
table_before_post(t_op_seae,'<27>ͷ<EFBFBD>Ա');
table_before_post(t_op_seae,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_op_seae,'װ<>˷<EFBFBD>ʽ');
table_before_post(t_op_seae,'װ<><D7B0><EFBFBD><EFBFBD>');
// table_before_post(t_op_seae,'ж<><D0B6><EFBFBD><EFBFBD>');
// table_before_post(t_op_seae,'ҵ<><D2B5><EFBFBD><EFBFBD>Դ');
if pos('ָ<><D6B8>',t_op_seae.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString)>0 then begin
end else begin
// table_before_post(t_op_seae,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
// table_before_post(t_op_seae,'<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
end;
table_before_post(t_op_seae,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then
if t_op_seae.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull or (trim(t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>'])='') then
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>ڹ<EFBFBD><DAB9><EFBFBD>').Asstring)='<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>' then
t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
else
t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
if not EdiAdd then begin
op_empty('t_op_seae',t_op_seae);
{
if t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='' then
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><D5A3><EFBFBD>');
}
if t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').oldvalue<>t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
if (t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>'<27><><EFBFBD>ĵ<EFBFBD>') and (Logininfo.endday>=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime) then begin
showmessage('<27>˿<EFBFBD><CBBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC><EFBFBD><EFBFBD><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>ҵ<EFBFBD>񣡣<EFBFBD>');
abort;
end;
{
if t_op_seae.fieldbyname('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
begin
if t_op_seae.fieldbyname('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>').asdatetime>t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
begin
showmessage('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD>ڲ<EFBFBD><DAB2>ܴ<EFBFBD><DCB4>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
abort;
end;
end;
}
if t_op_seae.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
begin
if t_op_seae.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime<t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
begin
showmessage('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
abort;
end;
end;
if t_op_seae.fieldbyname('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
begin
if t_op_seae.fieldbyname('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime<t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
begin
showmessage('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
abort;
end;
end;
if t_op_seae.FieldByName('ί<>е<EFBFBD>λ').OldValue<>t_op_seae.FieldByName('ί<>е<EFBFBD>λ').asstring then
begin
if frm_data_share.t_crm_client_all.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_op_seae.FieldByName('ί<>е<EFBFBD>λ').asstring,[])then
begin
if frm_data_share.t_crm_client_all.fieldbyname('<27>ͻ<EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD>'then
begin
showmessage('<27><>ǰҵ<C7B0><D2B5>ί<EFBFBD>е<EFBFBD>λ<EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>棬<EFBFBD><E6A3AC><EFBFBD><EFBFBD><EFBFBD>ٽ<EFBFBD><D9BD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>лָ<D0BB><D6B8>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
abort;
end;
end;
end;
end;
if t_op_seae.State=dsinsert then
begin
if t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring=''then
begin
t_op_seae['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_no(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime,getbsno(Logininfo.SeaExpBsNo,'SE'));
t_op_seae['<27><><EFBFBD><EFBFBD>']:=get_id;
end;
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
t_op_seae['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
t_op_seae['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
end
else
begin
if not EdiAdd then begin
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
begin
// if (Trim(t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)<>'<27><><EFBFBD>ĵ<EFBFBD>') then
// table_before_post(t_op_seae,'<27><>װ<EFBFBD><D7B0>');
end;
end;
end;
t_op_seae['Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>']:=date_eng(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
if strtobool(get_parameters_value(31,'false')) then
begin
if (trim(t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring)='') or (Trim(t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>') or (t_op_seae.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ') then
begin
t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=Logininfo.subcompcode+t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
end;
end
else
begin
t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
end;
if strtobool(get_parameters_value(32,'false')) then
begin
if (trim(t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring)='') or (Trim(t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=Logininfo.subcompcode+t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
end;
end
else
begin
t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
end;
if strtobool(get_parameters_value(33,'false')) then
begin
if (trim(t_op_seae.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring)='') or (t_op_seae.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ') or (Trim(t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_seae['ί<>б<EFBFBD>׼']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_seae['ί<>б<EFBFBD>׼']:=t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>'];
end;
end
else
begin
t_op_seae['ί<>б<EFBFBD>׼']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
end;
end;
procedure Tfrm_op_seae.FormShow(Sender: TObject);
var
inifile1,seabandini:Tinifile;
i,j,n:integer;
sl:TStrings;
begin
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:=35;
frm_sys_progress.bsSkinGauge1.MinValue:=0;
frm_sys_progress.bsSkinGauge1.Value:=0;
frm_sys_progress.Update;
frm_op_seae_list_type:=1;
Label37.Caption:=Logininfo.seaewtno;
dxDBGrid1Column8.Caption:=Logininfo.seaewtno;
{
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then begin
DBEdit8.Width:=119;
bsSkinSpeedButton1.Visible:=false;
if frm_data_share.t_sys_noset.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6>༭').AsBoolean then begin
DBEdit8.ReadOnly:=false;
end else begin
DBEdit8.ReadOnly:=true;
end;
end else if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>ֶ<EFBFBD>ȡ<EFBFBD><C8A1>' then begin
DBEdit8.Width:=99;
bsSkinSpeedButton1.Visible:=true;
if frm_data_share.t_sys_noset.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6>༭').AsBoolean then begin
DBEdit8.ReadOnly:=false;
end else begin
DBEdit8.ReadOnly:=true;
end;
end else if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>ֶ<EFBFBD><D6B6>༭' then begin
DBEdit8.ReadOnly:=false;
DBEdit8.Width:=119;
bsSkinSpeedButton1.Visible:=false;
end;
}
// t_op_msg.close;
t_op_seae_fen.close;
// t_op_seae_huanhuo.close;
t_op_seae.Close;
t_op_seae.SQL.clear;
if strtobool(get_parameters_value(132,'true')) then begin
// t_op_seae.SQL.Add('select top 100 * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and װ<>˷<EFBFBD>ʽ<>''<27><><EFBFBD><EFBFBD>'' and '
t_op_seae.SQL.Add('select top 100 * from t_op_seae where װ<>˷<EFBFBD>ʽ<>''<27><>Ʊ<EFBFBD><C6B1>ϸ'' and '
+'(¼<><C2BC><EFBFBD><EFBFBD>='+''''+employee+''''+' or <20><><EFBFBD><EFBFBD>Ա='+''''+employee+''''
+' or <20>ͷ<EFBFBD>Ա='+''''+employee+''''+')'
+' order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> DESC,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>');
end else begin
// t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and װ<>˷<EFBFBD>ʽ<>''<27><><EFBFBD><EFBFBD>'' and '
t_op_seae.SQL.Add('select * from t_op_seae where װ<>˷<EFBFBD>ʽ<>''<27><>Ʊ<EFBFBD><C6B1>ϸ'' and '
+' SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7)='''+FormatDateTime('YYYY',Date)+'/'+FormatDateTime('MM',Date)+''' and '
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> DESC,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>');
end;
t_op_seae.open;
psqlstr:='';
prnlist:=false;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
t_op_seae_fen.open;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_tiaokuan.open;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
{
fra_op_card1.t_op_card.DataSource:=t_op_seae2;
fra_op_card1.t_op_card.open;
}
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
loadreggrid(dxdbgrid1,true,caption);
loadreggrid(dxdbgrid2,false,caption+'1');
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_op_seae.wwDBComboBox2Change(Sender);
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_op_seae_create:=true;
frm_data_share.t_sys_employee.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_crm_client.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_crm_client_ship.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_crm_client_changzhan.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
// frm_data_share.t_crm_client_truck.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
// frm_data_share.t_crm_client_baoguan.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_crm_client_weituo.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_crm_client_daili.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
// frm_data_share.t_crm_client_huodai.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_crm_client_shiper.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_crm_client_shouhuo.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_crm_client_tongzhi.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_crm_client_other.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_code.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_vessel.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_loaport.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_disport.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_items.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_free.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_signbill.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_goods.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_package.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_fee.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_currency.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_trade.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
// frm_data_share.t_code_card.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_source.requery;
if not frm_data_share.t_code_cargo_port.Active then
frm_data_share.t_code_cargo_port.open;
if not frm_data_share.t_code_cargo_yard.Active then
frm_data_share.t_code_cargo_yard.open;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
bsSkinTabSheet2.TabVisible:= if_open('293') or if_open('294');
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'data.ini');
bsSkinPanel9.Visible:=inifile1.Readbool('other','qdisp',false);
if bsSkinPanel9.Visible then begin
bsSkinPanel9.Visible:=true;
bsSkinButton13.Top:=3+bsSkinPanel9.Height;
bsSkinButton15.Top:=3+bsSkinPanel9.Height;
end;
inifile1.free;
seabandini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'bandno.ini');
sl:=TStringList.Create;
try
seabandini.ReadSection('seaexp',sl);
for j:=0 to sl.Count-1 do begin
n:=seabandini.Readinteger('seaexp',sl[j],0);
for i:=0 to bsSkinPageControl1.PageCount-1 do begin
if bsSkinPageControl1.Pages[i].Name=sl[j] then begin
bsSkinPageControl1.Pages[i].PageIndex:=n;
end;
end;
end;
finally
freeandnil(seabandini);
freeandnil(sl);
end;
{$IFDEF ZTGENGZONG}
if not if_reg(195) then begin
bsSkinTabSheet7.TabVisible:=false;
N42.Visible:=false;
bsSkinButton15.Visible:=false;
end;
{$ELSE}
bsSkinTabSheet7.TabVisible:=false;
N42.Visible:=false;
bsSkinButton15.Visible:=false;
{$ENDIF}
assup:=false;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_sys_progress.close;
frm_sys_progress:=nil;
end;
procedure Tfrm_op_seae.t_op_seae_fenBeforePost(DataSet: TDataSet);
begin
table_before_post(t_op_seae_fen,'ί<>е<EFBFBD>λ');
table_before_post(t_op_seae_fen,'<27><><EFBFBD><EFBFBD>Ա');
table_before_post(t_op_seae_fen,'<27>ͷ<EFBFBD>Ա');
table_before_post(t_op_seae_fen,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_op_seae_fen,'װ<><D7B0><EFBFBD><EFBFBD>');
table_before_post(t_op_seae_fen,'ж<><D0B6><EFBFBD><EFBFBD>');
table_before_post(t_op_seae_fen,'ҵ<><D2B5><EFBFBD><EFBFBD>Դ');
if pos('ָ<><D6B8>',t_op_seae_fen.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString)>0 then begin
end else begin
table_before_post(t_op_seae_fen,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_op_seae_fen,'<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
end;
table_before_post(t_op_seae_fen,'<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
table_before_post(t_op_seae_fen,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then
if t_op_seae_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']='' then
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>ڹ<EFBFBD><DAB9><EFBFBD>').Asstring)='<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>' then
t_op_seae_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
else
t_op_seae_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
op_empty('t_op_seae',t_op_seae_fen);
if t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').oldvalue<>t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
if (t_op_seae_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>'<27><><EFBFBD>ĵ<EFBFBD>') and (Logininfo.endday>=t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime) then begin
showmessage('<27>˿<EFBFBD><CBBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC><EFBFBD><EFBFBD><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>ҵ<EFBFBD>񣡣<EFBFBD>');
abort;
end;
if t_op_seae_fen.fieldbyname('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
begin
if t_op_seae_fen.fieldbyname('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>').asdatetime>t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
begin
showmessage('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD>ڲ<EFBFBD><DAB2>ܴ<EFBFBD><DCB4>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
abort;
end;
end;
if t_op_seae_fen.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
begin
if t_op_seae_fen.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime<t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
begin
showmessage('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
abort;
end;
end;
if t_op_seae_fen.fieldbyname('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
begin
if t_op_seae_fen.fieldbyname('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime<t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
begin
showmessage('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
abort;
end;
end;
if t_op_seae_fen.FieldByName('ί<>е<EFBFBD>λ').OldValue<>t_op_seae_fen.FieldByName('ί<>е<EFBFBD>λ').asstring then
begin
if frm_data_share.t_crm_client_all.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_op_seae_fen.FieldByName('ί<>е<EFBFBD>λ').asstring,[])then
begin
if frm_data_share.t_crm_client_all.fieldbyname('<27>ͻ<EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD>'then
begin
showmessage('<27><>ǰҵ<C7B0><D2B5>ί<EFBFBD>е<EFBFBD>λ<EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>棬<EFBFBD><E6A3AC><EFBFBD><EFBFBD><EFBFBD>ٽ<EFBFBD><D9BD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>лָ<D0BB><D6B8>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
abort;
end;
end;
end;
if t_op_seae_fen.State=dsinsert then
begin
if t_op_seae_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring=''then
begin
t_op_seae_fen['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_no(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime,getbsno(Logininfo.SeaExpBsNo,'SE'));
t_op_seae_fen['<27><><EFBFBD><EFBFBD>']:=get_id;
end;
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
t_op_seae_fen['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
t_op_seae_fen['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
end;
t_op_seae_fen['Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>']:=date_eng(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
if strtobool(get_parameters_value(31,'false')) then
begin
if (trim(t_op_seae_fen.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring)='') or (t_op_seae_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=Logininfo.subcompcode+t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
end;
end
else
begin
t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
end;
if strtobool(get_parameters_value(32,'false')) then
begin
if (trim(t_op_seae_fen.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring)='') or (t_op_seae_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=Logininfo.subcompcode+t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
end;
end
else
begin
t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
end;
if strtobool(get_parameters_value(33,'false')) then
begin
if (trim(t_op_seae_fen.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring)='') or (t_op_seae_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_seae_fen['ί<>б<EFBFBD>׼']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_seae_fen['ί<>б<EFBFBD>׼']:=t_op_seae_fen['ί<>б<EFBFBD><D0B1><EFBFBD>'];
end;
end
else
begin
t_op_seae_fen['ί<>б<EFBFBD>׼']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
end;
end;
procedure Tfrm_op_seae.bsSkinButton7Click(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if not t_op_seae2.DataSet.Bof then
t_op_seae2.DataSet.Prior;
end;
procedure Tfrm_op_seae.bsSkinButton6Click(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if not t_op_seae2.DataSet.eof then
t_op_seae2.DataSet.next;
end;
procedure Tfrm_op_seae.wwDBComboBox2Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (wwDBComboBox2.text='<27><>Ʊ<EFBFBD><C6B1>ϸ') or (wwDBComboBox2.text='<27><>Ʊ<EFBFBD><C6B1>Ʊ') then
bsSkinTabSheet2.TabVisible:=false
else
bsSkinTabSheet2.TabVisible:=true;
if (wwDBComboBox2.text='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ') or (wwDBComboBox2.text='<27><>Ʊ<EFBFBD><C6B1>Ʊ') or (wwDBComboBox2.text='<27><>Ʊ<EFBFBD><C6B1>Ʊ') then
begin
Label14.Caption:='<27>ֵ<EFBFBD><D6B5>б<EFBFBD>';
DBMemo2.DataField:='<27>ֵ<EFBFBD><D6B5>б<EFBFBD>';
bsSkinButton37.Visible:=true;
wwDBLookupCombo11.Visible:=false;
bsSkinPageControl2.Visible:=true;
bsSkinButton12.Visible:=true;
// bsSkinButton14.Visible:=true;
RxDBLookupCombo2.Visible:=false;
RxDBLookupCombo3.Visible:=false;
RxDBLookupCombo4.Visible:=false;
RxDBLookupCombo5.Visible:=false;
DBMemo33.Visible:=false;
DBMemo34.Visible:=false;
DBMemo35.Visible:=false;
DBMemo1.Visible:=false;
wwDBLookupCombo46.Visible:=false;
wwDBLookupCombo47.Visible:=false;
wwDBLookupCombo48.Visible:=false;
wwDBLookupCombo7.Visible:=false;
if strtobool(get_parameters_value(131,'false')) then begin
end else begin
DBEdit7.Color:=clBtnFace;
DBEdit7.ReadOnly:=true;
end;
end
else
begin
Label14.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
DBMemo2.DataField:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
bsSkinButton37.Visible:=false;
// wwDBLookupCombo11.Visible:=true;
bsSkinPageControl2.Visible:=false;
bsSkinButton12.Visible:=false;
bsSkinButton14.Visible:=false;
RxDBLookupCombo2.Visible:=true;
RxDBLookupCombo3.Visible:=true;
RxDBLookupCombo4.Visible:=true;
RxDBLookupCombo5.Visible:=true;
DBMemo33.Visible:=true;
DBMemo34.Visible:=true;
DBMemo35.Visible:=true;
DBMemo1.Visible:=true;
wwDBLookupCombo46.Visible:=true;
wwDBLookupCombo47.Visible:=true;
wwDBLookupCombo48.Visible:=true;
wwDBLookupCombo7.Visible:=true;
DBEdit7.Color:=clWindow;
DBEdit7.ReadOnly:=false;
end;
end;
procedure Tfrm_op_seae.bsSkinButton11Click(Sender: TObject);
var
answer:TModalResult;
begin
if bsSkinButton11.Caption='<27>༭<EFBFBD>޸<EFBFBD>' then
begin
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
Notebook1.PageIndex:=1;
exit;
end;
if bsSkinButton11.Caption='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>' then
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;
bsSkinButton11.Caption:='<27>༭<EFBFBD>޸<EFBFBD>';
Notebook1.PageIndex:=0;
exit;
end;
if bsSkinButton11.Caption='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ' then
begin
if (t_op_seae_fen.State=dsinsert)or(t_op_seae_fen.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_fen.post;
end;
if answer=mrNo then
begin
t_op_seae_fen.cancel;
end;
if answer=mrCancel then
begin
exit;
end;
END;
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
try
t_op_seae2.Enabled:=false;
t_op_seae2.DataSet:=t_op_seae;
finally
t_op_seae2.Enabled:=true;
end;
Notebook1.PageIndex:=1;
exit;
end;
end;
procedure Tfrm_op_seae.bsSkinButton33Click(Sender: TObject);
begin
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
try
t_op_seae2.Enabled:=false;
t_op_seae2.DataSet:=t_op_seae_fen;
finally
t_op_seae2.Enabled:=true;
end;
end;
procedure Tfrm_op_seae.bsSkinButton2Click(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
t_op_seae2.DataSet.post;
end;
procedure Tfrm_op_seae.bsSkinButton3Click(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
t_op_seae2.DataSet.cancel;
end;
procedure Tfrm_op_seae.bsSkinButton4Click(Sender: TObject);
var
answer:TModalResult;
begin
if t_op_seae2.DataSet=nil then
exit;
if t_op_seae2.DataSet.IsEmpty then
exit;
t_ch_fee.close;
t_ch_fee.Parameters[0].value:=t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
t_ch_fee.open;
if not t_ch_fee.IsEmpty then
begin
application.MessageBox('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD>ڷ<EFBFBD><DAB7>ò<EFBFBD><C3B2><EFBFBD>ֱ<EFBFBD><D6B1>ɾ<EFBFBD><C9BE>!','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL);
t_ch_fee.close;
exit;
end;
if (t_op_seae2.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ') or (t_op_seae2.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>Ʊ<EFBFBD><C6B1>Ʊ') or (t_op_seae2.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>Ʊ<EFBFBD><C6B1>Ʊ') then
begin
if not t_op_seae_fen.IsEmpty then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>ڷ<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
end;
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then begin
t_op_seae2.DataSet.delete;
end;
end;
procedure Tfrm_op_seae.bsSkinButton32Click(Sender: TObject);
begin
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
t_op_seae.post;
if (t_op_seae_fen.State=dsinsert)or(t_op_seae_fen.State=dsedit) then
t_op_seae_fen.post;
try
frm_op_seae_add:=tfrm_op_seae_add.Create (self);
frm_op_seae_add.data1.Enabled:=false;
frm_op_seae_add.data1.DataSet:=t_op_seae_fen;
frm_op_seae_add.data1.Enabled:=true;
frm_op_seae_add.bsSkinCheckRadioBox3.Checked:=true;
frm_op_seae_add.bsSkinCheckRadioBox1.Enabled:=false;
frm_op_seae_add.bsSkinCheckRadioBox2.Enabled:=false;
frm_op_seae_add.bsSkinCheckRadioBox3.Enabled:=false;
frm_op_seae_add.bsSkinCheckRadioBox4.Enabled:=false;
frm_op_seae_add.bsSkinCheckRadioBox5.Enabled:=false;
frm_op_seae_add.bsSkinCheckRadioBox6.Enabled:=false;
frm_op_seae_add_num:=3;
frm_op_seae_add.ShowModal;
finally
frm_op_seae_add.Free;
end;
end;
procedure Tfrm_op_seae.bsSkinButton36Click(Sender: TObject);
begin
if (t_op_seae_fen.State=dsinsert)or(t_op_seae_fen.State=dsedit) then
t_op_seae_fen.post;
end;
procedure Tfrm_op_seae.bsSkinButton1Click(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
t_op_seae2.DataSet.post;
try
frm_op_seae_add:=tfrm_op_seae_add.Create (self);
if t_op_seae2.DataSet=t_op_seae then
begin
frm_op_seae_add.data1.Enabled:=false;
frm_op_seae_add.data1.DataSet:=t_op_seae;
frm_op_seae_add.data1.Enabled:=true;
frm_op_seae_add_num:=1;
end
else
begin
frm_op_seae_add.data1.Enabled:=false;
frm_op_seae_add.data1.DataSet:=t_op_seae_fen;
frm_op_seae_add.data1.Enabled:=true;
frm_op_seae_add.bsSkinCheckRadioBox3.Checked:=true;
frm_op_seae_add.bsSkinCheckRadioBox1.Enabled:=false;
frm_op_seae_add.bsSkinCheckRadioBox2.Enabled:=false;
frm_op_seae_add.bsSkinCheckRadioBox3.Enabled:=false;
frm_op_seae_add.bsSkinCheckRadioBox4.Enabled:=false;
frm_op_seae_add.bsSkinCheckRadioBox5.Enabled:=false;
frm_op_seae_add.bsSkinCheckRadioBox6.Enabled:=false;
frm_op_seae_add_num:=2;
end;
if frm_op_seae_add.ShowModal<>mrCancel then begin
if not frm_op_seae.bsSkinTabSheet1.Showing then
frm_op_seae.bsSkinTabSheet1.Show;
end;
finally
frm_op_seae_add.Free;
end;
end;
procedure Tfrm_op_seae.t_op_seaeBeforeDelete(DataSet: TDataSet);
begin
op_befor_post(t_op_seae,'0001');
delete_add(1,t_op_seae);
if not t_op_seae.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
delwtno(t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>']);
end;
procedure Tfrm_op_seae.t_op_seae_fenBeforeDelete(DataSet: TDataSet);
begin
op_befor_post(t_op_seae_fen,'0001');
delete_add(1,t_op_seae_fen);
if not t_op_seae_fen.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
delwtno(t_op_seae_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']);
end;
procedure Tfrm_op_seae.bsSkinButton8Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton8.ClientToScreen(Point(0,bsSkinButton8.Height));
PopupMenu1.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_op_seae.bsSkinButton9Click(Sender: TObject);
begin
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڵ<EFBFBD>֤',2,t_op_seae2,nil,nil,nil,t_op_seae_fen1,t_op_ctn1,nil,nil,nil,nil,nil);
end;
procedure Tfrm_op_seae.RxDBLookupCombo2Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then
begin
if RxDBLookupCombo2.DisplayValue<>'' then
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seae.RxDBLookupCombo3Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then
begin
if RxDBLookupCombo3.DisplayValue<>'' then
t_op_seae2.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seae.RxDBLookupCombo4Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then
begin
if RxDBLookupCombo4.DisplayValue<>'' then
t_op_seae2.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seae.RxDBLookupCombo16Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then
begin
if RxDBLookupCombo16.DisplayValue<>'' then
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seae.RxDBLookupCombo17Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then
begin
if RxDBLookupCombo17.DisplayValue<>'' then
t_op_seae2.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seae.RxDBLookupCombo18Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then
begin
if RxDBLookupCombo17.DisplayValue<>'' then
t_op_seae2.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seae.bsSkinButton26Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>');
end;
procedure Tfrm_op_seae.bsSkinButton25Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae2,'<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>');
end;
procedure Tfrm_op_seae.bsSkinButton24Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae2,'֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>');
end;
procedure Tfrm_op_seae.bsSkinButton23Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_seae.bsSkinButton21Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae2,'<27><>ͷ');
end;
procedure Tfrm_op_seae.bsSkinButton22Click(Sender: TObject);
begin
t_op_ctn.insert;
end;
procedure Tfrm_op_seae.bsSkinButton16Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_seae.bsSkinButton17Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae2,DBMemo2.DataField);
end;
procedure Tfrm_op_seae.bsSkinButton18Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ');
end;
procedure Tfrm_op_seae.bsSkinButton19Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_seae.bsSkinButton20Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_seae.DBMemo40Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
begin
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>']:=total_num(DBMemo40);
t_op_seae2.DataSet['<27><>װ']:=total_package(dbmemo40);
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']
:='SAY:'+ntoc(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').asfloat,true)
+t_op_seae2.DataSet.FieldByName('<27><>װ').asstring+' ONLY.';
end;
end;
procedure Tfrm_op_seae.DBMemo41Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
begin
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>']:=total_num(DBMemo41);
end;
end;
procedure Tfrm_op_seae.DBMemo42Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
begin
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>']:=total_num(DBMemo42);
end;
end;
procedure Tfrm_op_seae.DBMemo41Exit(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
begin
kgs_cbm(DBMemo41,'KGS');
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=DBMemo41.text;
end;
end;
procedure Tfrm_op_seae.DBMemo42Exit(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
begin
kgs_cbm(DBMemo42,'CBM');
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=DBMemo42.text;
end;
end;
procedure Tfrm_op_seae.wwDBLookupCombo61Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
begin
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']
:='SAY:'+ntoc(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').asfloat,true)
+wwDBLookupCombo61.text+' ONLY.';
if frm_data_share.t_code_package.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',wwDBLookupCombo61.text,[])then
begin
t_op_seae2.DataSet['<27><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>']:=frm_data_share.t_code_package['<27><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>'];
end;
end;
end;
procedure Tfrm_op_seae.bsSkinButton37Click(Sender: TObject);
var
if_first:boolean;
max,j:integer;
begin
if t_op_seae.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊҵ<C6B1><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ɣ<EFBFBD><C9A3><EFBFBD><EFBFBD>ܼ<EFBFBD><DCBC>룡<EFBFBD><EBA3A1>');
exit;
end;
if not t_op_seae_fen.IsEmpty then
begin
t_op_seae.Edit;
t_op_seae_fen.First;
if_first:=true;
while not t_op_seae_fen.eof do
begin
if if_first then
begin
DBMemo2.text:=t_op_seae_fen.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring;
DBMemo39.text:=t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
DBMemo40.text:=t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').asstring;
DBMemo41.text:=t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
DBMemo42.text:=t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
if_first:=false;
end
else
begin
max:=DBMemo2.Lines.Count;
if DBMemo39.Lines.Count>max then max:=DBMemo39.Lines.Count;
if DBMemo40.Lines.Count>max then max:=DBMemo40.Lines.Count;
if DBMemo41.Lines.Count>max then max:=DBMemo41.Lines.Count;
if DBMemo42.Lines.Count>max then max:=DBMemo42.Lines.Count;
if max=DBMemo2.Lines.Count then
begin
DBMemo2.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring);
end
else
begin
for j:=1 to (max-DBMemo2.Lines.Count) do
begin
DBMemo2.Lines.Add(' ');
end;
DBMemo2.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring);
end;
if max=DBMemo39.Lines.Count then
begin
DBMemo39.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
end
else
begin
for j:=1 to (max-DBMemo39.Lines.Count) do
begin
DBMemo39.Lines.Add(' ');
end;
DBMemo39.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
end;
if max=DBMemo40.Lines.Count then
begin
DBMemo40.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').asstring);
end
else
begin
for j:=1 to (max-DBMemo40.Lines.Count) do
begin
DBMemo40.Lines.Add(' ');
end;
DBMemo40.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').asstring);
end;
if max=DBMemo41.Lines.Count then
begin
DBMemo41.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
end
else
begin
for j:=1 to (max-DBMemo41.Lines.Count) do
begin
DBMemo41.Lines.Add(' ');
end;
DBMemo41.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
end;
if max=DBMemo42.Lines.Count then
begin
DBMemo42.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
end
else
begin
for j:=1 to (max-DBMemo42.Lines.Count) do
begin
DBMemo42.Lines.Add(' ');
end;
DBMemo42.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
end;
end;
t_op_seae_fen.next;
end;
t_op_seae['<27><>װ']:='PACKAGES';
t_op_seae.post;
end;
end;
procedure Tfrm_op_seae.DBEdit5Click(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.State=dsinsert)then
t_op_seae2.DataSet.post;
if t_op_seae2.DataSet.IsEmpty then
exit;
{
if (t_op_seae2.DataSet.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ')
or (t_op_seae2.DataSet.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring='ƴ<>䵥Ʊ')then
exit;
}
try
frm_op_ctn:=tfrm_op_ctn.Create (self);
frm_op_ctn.t_op_ctn.DataSource:=t_op_seae2;
frm_op_ctn_type:=true;
op_ctn_limited:='0001';
frm_op_ctn.ShowModal;
finally
frm_op_ctn.Free;
if t_op_ctn.Active then
t_op_ctn.Requery;
end;
end;
procedure Tfrm_op_seae.bsSkinPageControl1Change(Sender: TObject);
begin
if frm_op_seae_create=false then
exit;
if bsSkinPageControl1.ActivePage=TabCtn then
begin
if not t_op_ctn.Active then t_op_ctn.open;
Exit;
end else begin
if t_op_ctn.State in [dsedit,dsinsert] then t_op_ctn.Post;
end;
{
if bsSkinPageControl1.ActivePage=bsSkinTabSheet8 then
begin
if not t_op_ams.Active then t_op_ams.open;
end else begin
if t_op_ams.State in [dsedit,dsinsert] then t_op_ams.Post;
end;
}
if t_op_seae2.DataSet.state in [dsedit,dsinsert] then t_op_seae2.DataSet.post;
if bsSkinPageControl1.ActivePage=bsSkinTabSheet4 then
begin
if not assigned(frm_op_letter) then
begin
frm_op_letter:=tfrm_op_letter.Create (self);
frm_op_letter.t_op_letter.DataSource:=t_op_seae2;
frm_op_letter.ManualDock(bsSkinGroupBox1,nil,alClient);
frm_op_letter.show;
end;
exit;
end;
{
if bsSkinPageControl1.ActivePage=bsSkinTabSheet3 then
begin
bsSkinGroupBox5.CaptionMode:=false;
bsSkinGroupBox6.CaptionMode:=false;
bsSkinGroupBox7.CaptionMode:=false;
bsSkinGroupBox8.CaptionMode:=false;
exit;
end;
}
if bsSkinPageControl1.ActivePage=bsSkinTabSheet2 then
begin
if if_open('293') or if_open('294') then
begin
if not assigned(frm_ch_fee_sea) then
begin
frm_ch_fee_sea:=tfrm_ch_fee_sea.Create (self);
frm_ch_fee_sea.ManualDock(bsSkinTabSheet2,nil,alClient);
frm_ch_fee_sea.Show;
end;
end
else
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>');
end;
exit;
end;
{$IFDEF ZTGENGZONG}
if bsSkinPageControl1.ActivePage=bsSkinTabSheet7 then
begin
if not assigned(frm_op_seae_state) then
begin
frm_op_seae_state:=tfrm_op_seae_state.Create (self);
frm_op_seae_state.fra_op_state1.t_op_state.DataSource:=t_op_seae2;
frm_op_seae_state.fra_op_state1.t_op_state.open;
frm_op_seae_state.fra_op_state1.edit_state.Text:='1';
frm_op_seae_state.ManualDock(bsSkinTabSheet7,nil,alClient);
frm_op_seae_state.show;
end;
exit;
end;
{$ENDIF}
if bsSkinPageControl1.ActivePage=bsSkinTabSheet6 then
begin
if not assigned(frm_op_seae_assistant) then
begin
frm_op_seae_assistant:=tfrm_op_seae_assistant.Create (self);
frm_op_seae_assistant.t_op_seae_assistant.DataSource:=t_op_seae2;
frm_op_seae_assistant.ManualDock(bsSkinTabSheet6,nil,alClient);
frm_op_seae_assistant.show;
end;
exit;
end else begin
if assigned(frm_op_seae_assistant) then
if frm_op_seae_assistant.t_op_seae_assistant.State in [dsedit,dsinsert] then frm_op_seae_assistant.t_op_seae_assistant.Post;
end;
end;
procedure Tfrm_op_seae.N2Click(Sender: TObject);
begin
if t_op_seae.IsEmpty then
exit;
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
exit;
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
begin
if not t_op_seae_fen.IsEmpty then
begin
showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>䣡<EFBFBD><E4A3A1>');
exit;
end;
end;
t_op_seae.edit;
t_op_seae['װ<>˷<EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD>';
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
t_op_seae.post;
end;
procedure Tfrm_op_seae.N5Click(Sender: TObject);
begin
if t_op_seae.IsEmpty then
exit;
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
exit;
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
begin
if not t_op_seae_fen.IsEmpty then
begin
showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>أ<EFBFBD><D8A3><EFBFBD>');
exit;
end;
end;
t_op_seae.edit;
t_op_seae['װ<>˷<EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD>';
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
t_op_seae.post;
end;
procedure Tfrm_op_seae.N6Click(Sender: TObject);
begin
if t_op_seae.IsEmpty then
exit;
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
exit;
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
begin
if not t_op_seae_fen.IsEmpty then
begin
showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
end;
t_op_seae.edit;
t_op_seae['װ<>˷<EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD>';
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
t_op_seae.post;
end;
procedure Tfrm_op_seae.N4Click(Sender: TObject);
begin
if t_op_seae.IsEmpty then
exit;
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
exit;
t_op_seae.edit;
t_op_seae['װ<>˷<EFBFBD>ʽ']:='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ';
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
t_op_seae.post;
end;
procedure Tfrm_op_seae.N24Click(Sender: TObject);
var
aQuery:TAdoQuery;
begin
if t_op_seae.IsEmpty then
exit;
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
exit;
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
begin
if not t_op_seae_fen.IsEmpty then
begin
showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊƴ<CEAA><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
exit;
end;
end;
if t_op_seae.FieldByName('<27><>װ<EFBFBD><D7B0>').asstring<>''then
begin
if MessageDlg('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊƴ<CEAA>䵥Ʊ<E4B5A5><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD>',mtWarning,[mbyes,mbno],0)=mrno then
exit;
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('delete from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''');
ExecSQL;
end;
finally
FreeAndNil(aQuery);
end;
end;
t_op_seae.edit;
t_op_seae['װ<>˷<EFBFBD>ʽ']:='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ';
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
t_op_seae['<27><>װ<EFBFBD><D7B0>']:='';
t_op_seae['<27><><EFBFBD><EFBFBD>1']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>2']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>3']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>4']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>5']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>6']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>7']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>8']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>9']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>10']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_op_seae['<27><>TEU']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:='';
t_op_seae.post;
end;
procedure Tfrm_op_seae.N22Click(Sender: TObject);
var
aQuery:TAdoQuery;
begin
if t_op_seae.IsEmpty then
exit;
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<>䵥Ʊ' then
exit;
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
begin
if not t_op_seae_fen.IsEmpty then
begin
showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊƴ<CEAA>䵥Ʊ<E4B5A5><C6B1><EFBFBD><EFBFBD>');
exit;
end;
end;
if t_op_seae.FieldByName('<27><>װ<EFBFBD><D7B0>').asstring<>''then
begin
if MessageDlg('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊƴ<CEAA>䵥Ʊ<E4B5A5><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD>',mtWarning,[mbyes,mbno],0)=mrno then
exit;
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('delete from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''');
ExecSQL;
end;
finally
FreeAndNil(aQuery);
end;
end;
t_op_seae.edit;
t_op_seae['װ<>˷<EFBFBD>ʽ']:='ƴ<>䵥Ʊ';
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
t_op_seae['<27><>װ<EFBFBD><D7B0>']:='';
t_op_seae['<27><><EFBFBD><EFBFBD>1']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>2']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>3']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>4']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>5']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>6']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>7']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>8']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>9']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>10']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_op_seae['<27><>TEU']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:='';
t_op_seae.post;
end;
procedure Tfrm_op_seae.N27Click(Sender: TObject);
begin
if t_op_seae_fen.IsEmpty then
exit;
t_op_seae_fen.edit;
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
t_op_seae_fen['װ<>˷<EFBFBD>ʽ']:='ƴ<>䵥Ʊ';
t_op_seae_fen.post;
t_op_seae_fen.Requery();
end;
procedure Tfrm_op_seae.N29Click(Sender: TObject);
begin
if t_op_seae_fen.IsEmpty then
exit;
t_op_seae_fen.edit;
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
t_op_seae_fen.post;
t_op_seae_fen.Requery();
end;
procedure Tfrm_op_seae.N9Click(Sender: TObject);
begin
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
t_op_seae.post;
try
frm_op_add_ctn:=tfrm_op_add_ctn.Create (self);
frm_op_add_ctn.ShowModal;
finally
frm_op_add_ctn.Free;
end;
end;
procedure Tfrm_op_seae.bsSkinButton34Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton34.ClientToScreen(Point(0,bsSkinButton34.Height));
PopupMenu4.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_op_seae.RxDBLookupCombo19Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then
begin
// if RxDBLookupCombo19.DisplayValue<>'' then
// exit;
// if trim(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)=''then
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_daili['<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>'];
end;
end;
procedure Tfrm_op_seae.RxDBLookupCombo11Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then
begin
if RxDBLookupCombo11.DisplayValue='' then
exit;
t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring:=t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+#13#10+frm_data_share.t_code_goods['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
// if trim(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)=''then
// DBMemo39.Lines.Append(frm_data_share.t_code_goods['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
// TMemoField(t_op_seae2.Fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')).
// :=frm_data_share.t_code_goods['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end;
procedure Tfrm_op_seae.RxDBLookupCombo5Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then
begin
if RxDBLookupCombo5.DisplayValue='' then
exit;
// if trim(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)=''then
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_daili['<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>'];
end;
end;
procedure Tfrm_op_seae.bsSkinButton10Click(Sender: TObject);
begin
query_seae(1,'0001');
end;
procedure Tfrm_op_seae.dxDBGrid1Column3CustomDraw(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
AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid1Column3.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_op_seae.dxDBGrid2Column3CustomDraw(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
AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid2Column3.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_op_seae.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
CanClose:=frm_close_query(t_op_seae);
CanClose:=frm_close_query(t_op_seae_fen);
end;
procedure Tfrm_op_seae.EXCEL1Click(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if t_op_seae2.DataSet.IsEmpty then
exit;
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
t_op_seae2.DataSet.post;
try
frm_op_seae_excel:=tfrm_op_seae_excel.Create (self);
frm_op_seae_excel.tradetype:='SEA';
frm_op_seae_excel.ShowModal;
finally
frm_op_seae_excel.Free;
end;
end;
procedure Tfrm_op_seae.Panel2Resize(Sender: TObject);
var
i:integer;
begin
i:=round(Panel2.Width/12);
bsSkinButton7.Width:=i;
bsSkinButton6.Width:=i;
bsSkinButton9.Width:=i;
bsSkinButton10.Width:=i;
bsSkinButton1.Width:=i;
bsSkinButton11.Width:=i;
bsSkinButton8.Width:=i;
bsSkinButton2.Width:=i;
bsSkinButton4.Width:=i;
bsSkinButton3.Width:=i;
bsSkinButton38.Width:=i;
bsSkinButton13.Left:=Panel2.Width-bsSkinButton13.Width-20;
bsSkinButton15.left:=bsSkinButton13.Left-75;
end;
procedure Tfrm_op_seae.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
key_dbedit(Key,DBEdit2);
end;
procedure Tfrm_op_seae.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
key_dbedit(Key,DBEdit3);
end;
procedure Tfrm_op_seae.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
key_dbedit(Key,DBEdit4);
end;
procedure Tfrm_op_seae.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
key_dbedit(Key,DBEdit18);
end;
procedure Tfrm_op_seae.RxDBLookupCombo1KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo12);
end;
procedure Tfrm_op_seae.RxDBLookupCombo12KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBedit(Key,DBEDIT8);
end;
procedure Tfrm_op_seae.DBEdit8KeyPress(Sender: TObject; var Key: Char);
begin
key_dbedit(Key,DBEdit9);
end;
procedure Tfrm_op_seae.DBEdit9KeyPress(Sender: TObject; var Key: Char);
begin
key_dbedit(Key,DBEdit7);
end;
procedure Tfrm_op_seae.RxDBLookupCombo2KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo46);
end;
procedure Tfrm_op_seae.RxDBLookupCombo19KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo8);
end;
procedure Tfrm_op_seae.wwDBLookupCombo49KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit63);
end;
procedure Tfrm_op_seae.DBEdit63KeyPress(Sender: TObject; var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker2);
end;
procedure Tfrm_op_seae.wwDBDateTimePicker2KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker6);
end;
procedure Tfrm_op_seae.wwDBLookupCombo3KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo21);
end;
procedure Tfrm_op_seae.wwDBLookupCombo52KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo22);
end;
procedure Tfrm_op_seae.RxDBLookupCombo20KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo49);
end;
procedure Tfrm_op_seae.wwDBLookupCombo21KeyPress(Sender: TObject;
var Key: Char);
begin
// key_wwDBComboBox(Key,wwDBComboBox1);
end;
procedure Tfrm_op_seae.wwDBComboBoxBLNUMKeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo28);
end;
procedure Tfrm_op_seae.RxDBLookupCombo15KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit26);
end;
procedure Tfrm_op_seae.DBEdit26KeyPress(Sender: TObject; var Key: Char);
begin
key_dbedit(Key,DBEdit27);
end;
procedure Tfrm_op_seae.DBEdit27KeyPress(Sender: TObject; var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo20);
end;
procedure Tfrm_op_seae.RxDBLookupCombo6KeyPress(Sender: TObject;
var Key: Char);
begin
// key_RxDBLookupCombo(Key,RxDBLookupCombo8);
end;
procedure Tfrm_op_seae.RxDBLookupCombo9KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo6);
end;
procedure Tfrm_op_seae.RxDBLookupCombo7KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBComboBox(Key,wwDBComboBox2);
end;
procedure Tfrm_op_seae.RxDBLookupCombo8KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo7);
end;
procedure Tfrm_op_seae.RxDBLookupCombo10KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo38);
end;
procedure Tfrm_op_seae.RxDBLookupCombo14KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo31);
end;
procedure Tfrm_op_seae.RxDBLookupCombo11KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo39);
end;
procedure Tfrm_op_seae.DBEdit80KeyPress(Sender: TObject; var Key: Char);
begin
key_dbedit(Key,DBEdit81);
end;
procedure Tfrm_op_seae.DBEdit81KeyPress(Sender: TObject; var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo61);
end;
procedure Tfrm_op_seae.wwDBLookupCombo61KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit82);
end;
procedure Tfrm_op_seae.DBEdit82KeyPress(Sender: TObject; var Key: Char);
begin
key_dbedit(Key,DBEdit83);
end;
procedure Tfrm_op_seae.wwDBLookupCombo4KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit12);
end;
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox1KeyPress(Sender: TObject;
var Key: Char);
begin
// key_RxDBLookupCombo(Key,RxDBLookupCombo32);
end;
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox2KeyPress(Sender: TObject;
var Key: Char);
begin
// key_RxDBLookupCombo(Key,RxDBLookupCombo33);
end;
procedure Tfrm_op_seae.RxDBLookupCombo24KeyPress(Sender: TObject;
var Key: Char);
begin
// key_RxDBLookupCombo(Key,RxDBLookupCombo25);
end;
procedure Tfrm_op_seae.RxDBLookupCombo25KeyPress(Sender: TObject;
var Key: Char);
begin
// key_RxDBLookupCombo(Key,RxDBLookupCombo27);
end;
procedure Tfrm_op_seae.RxDBLookupCombo27KeyPress(Sender: TObject;
var Key: Char);
begin
// key_RxDBLookupCombo(Key,RxDBLookupCombo26);
end;
procedure Tfrm_op_seae.RxDBLookupCombo26KeyPress(Sender: TObject;
var Key: Char);
begin
// key_wwDBComboBox(Key,wwDBComboBox12);
end;
procedure Tfrm_op_seae.wwDBComboBox12KeyPress(Sender: TObject;
var Key: Char);
begin
// key_dbedit(Key,DBEdit71);
end;
procedure Tfrm_op_seae.DBEdit71KeyPress(Sender: TObject; var Key: Char);
begin
// key_dbedit(Key,DBEdit73);
end;
procedure Tfrm_op_seae.DBEdit73KeyPress(Sender: TObject; var Key: Char);
begin
// key_dbedit(Key,DBEdit109);
end;
procedure Tfrm_op_seae.DBEdit109KeyPress(Sender: TObject; var Key: Char);
begin
// key_wwDBComboBox(Key,wwDBComboBox11);
end;
procedure Tfrm_op_seae.wwDBComboBox11KeyPress(Sender: TObject;
var Key: Char);
begin
// key_dbedit(Key,DBEdit114);
end;
procedure Tfrm_op_seae.DBEdit114KeyPress(Sender: TObject; var Key: Char);
begin
// key_dbedit(Key,DBEdit112);
end;
procedure Tfrm_op_seae.DBEdit112KeyPress(Sender: TObject; var Key: Char);
begin
// key_dbedit(Key,DBEdit111);
end;
procedure Tfrm_op_seae.wwDBDateTimePicker4KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo15);
end;
procedure Tfrm_op_seae.RxDBLookupCombo28KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit25);
end;
procedure Tfrm_op_seae.DBEdit25KeyPress(Sender: TObject; var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker4);
end;
procedure Tfrm_op_seae.Button1Click(Sender: TObject);
begin
if t_op_seae2.DataSet.IsEmpty then
exit;
try
frm_op_seae_vessel:=tfrm_op_seae_vessel.Create (self);
frm_op_seae_vessel.v_vessel_voyage.open;
frm_op_seae_vessel.wwIncrementalSearch1.Text:=wwDBLookupCombo49.text;
op_seae_vessel_num:=1;
frm_op_seae_vessel.ShowModal;
finally
frm_op_seae_vessel.Free;
frm_op_seae_vessel:=nil;
end;
end;
procedure Tfrm_op_seae.DBEdit18KeyPress(Sender: TObject; var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo1);
end;
procedure Tfrm_op_seae.t_op_seae_fenAfterInsert(DataSet: TDataSet);
begin
t_op_seae_fen['<27><>վ']:=t_op_seae['<27><>վ'];
t_op_seae_fen['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
t_op_seae_fen['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_fen['<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_fen['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_fen['<27><><EFBFBD>˸<EFBFBD>']:=t_op_seae['<27><><EFBFBD>˸<EFBFBD>'];
t_op_seae_fen['װ<><D7B0><EFBFBD><EFBFBD>']:=t_op_seae['װ<><D7B0><EFBFBD><EFBFBD>'];
t_op_seae_fen['װ<>۴<EFBFBD><DBB4><EFBFBD>']:=t_op_seae['װ<>۴<EFBFBD><DBB4><EFBFBD>'];
t_op_seae_fen['ж<><D0B6><EFBFBD><EFBFBD>']:=t_op_seae['ж<><D0B6><EFBFBD><EFBFBD>'];
t_op_seae_fen['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_fen['<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_fen['<27><><EFBFBD≯ۿ<CCB8>']:=t_op_seae['<27><><EFBFBD≯ۿ<CCB8>'];
t_op_seae_fen['<27><><EFBFBD>̴<EFBFBD><CCB4><EFBFBD>']:=t_op_seae['<27><><EFBFBD>̴<EFBFBD><CCB4><EFBFBD>'];
t_op_seae_fen['<27><><EFBFBD>̺<EFBFBD><CCBA><EFBFBD>']:=t_op_seae['<27><><EFBFBD>̺<EFBFBD><CCBA><EFBFBD>'];
t_op_seae_fen['Ŀ<>ĵ<EFBFBD>']:=t_op_seae['Ŀ<>ĵ<EFBFBD>'];
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>'];
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_fen['<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>']:=t_op_seae['<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>'];
t_op_seae_fen['ǩ<><C7A9><EFBFBD><EFBFBD>ʽ']:=t_op_seae['ǩ<><C7A9><EFBFBD><EFBFBD>ʽ'];
t_op_seae_fen['ǩ<><C7A9><EFBFBD>ص<EFBFBD>']:=t_op_seae['ǩ<><C7A9><EFBFBD>ص<EFBFBD>'];
t_op_seae_fen['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_fen['<27><><EFBFBD>ѷ<EFBFBD>ʽ']:=t_op_seae['<27><><EFBFBD>ѷ<EFBFBD>ʽ'];
t_op_seae_fen['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>']:=t_op_seae['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>'];
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>'];
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_fen['<27><>ͷ']:=t_op_seae['<27><>ͷ'];
t_op_seae_fen['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>']:=t_op_seae['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>'];
t_op_seae_fen['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
t_op_seae_fen['<27><><EFBFBD><EFBFBD>˾']:=t_op_seae['<27><><EFBFBD><EFBFBD>˾'];
end;
procedure Tfrm_op_seae.DBEdit3Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
DBEdit3.Color:=dxgrid_color_fee(DBEdit3.text);
end;
procedure Tfrm_op_seae.DBEdit2Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
DBEdit2.Color:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',DBEdit2.text);
end;
procedure Tfrm_op_seae.wwDBLookupCombo46Enter(Sender: TObject);
begin
with frm_data_share do
begin
t_code_code.Filtered:=false;
t_code_code.Filter:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=1';
t_code_code.Filtered:=true;
end;
end;
procedure Tfrm_op_seae.wwDBLookupCombo47Enter(Sender: TObject);
begin
with frm_data_share do
begin
t_code_code.Filtered:=false;
t_code_code.Filter:='<27>ջ<EFBFBD><D5BB><EFBFBD>=1';
t_code_code.Filtered:=true;
end;
end;
procedure Tfrm_op_seae.wwDBLookupCombo48Enter(Sender: TObject);
begin
with frm_data_share do
begin
t_code_code.Filtered:=false;
t_code_code.Filter:='֪ͨ<CDA8><D6AA>=1';
t_code_code.Filtered:=true;
end;
end;
procedure Tfrm_op_seae.RxDBLookupCombo2Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo2);
end;
procedure Tfrm_op_seae.RxDBLookupCombo3Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo3);
end;
procedure Tfrm_op_seae.RxDBLookupCombo4Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo4);
end;
procedure Tfrm_op_seae.wwDBLookupCombo46Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo46.text,[]) then
begin
t_op_seae2.DataSet.edit;
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seae.wwDBLookupCombo46Exit(Sender: TObject);
begin
wwDBLookupCombo46.Clear;
end;
procedure Tfrm_op_seae.wwDBLookupCombo47Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo47.text,[]) then
begin
t_op_seae2.DataSet.edit;
t_op_seae2.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seae.wwDBLookupCombo48Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo48.text,[]) then
begin
t_op_seae2.DataSet.edit;
t_op_seae2.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seae.wwDBLookupCombo47Exit(Sender: TObject);
begin
wwDBLookupCombo47.Clear;
end;
procedure Tfrm_op_seae.wwDBLookupCombo48Exit(Sender: TObject);
begin
wwDBLookupCombo48.Clear;
end;
procedure Tfrm_op_seae.wwDBLookupCombo46KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo33);
end;
procedure Tfrm_op_seae.wwDBLookupCombo47KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo34);
end;
procedure Tfrm_op_seae.wwDBLookupCombo48KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo35);
end;
procedure Tfrm_op_seae.RxDBLookupCombo3KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo47);
end;
procedure Tfrm_op_seae.RxDBLookupCombo4KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo48);
end;
procedure Tfrm_op_seae.wwDBLookupCombo2KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo3);
end;
procedure Tfrm_op_seae.wwDBLookupCombo5KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo4);
end;
procedure Tfrm_op_seae.wwDBLookupCombo6KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo5);
end;
procedure Tfrm_op_seae.RxDBLookupCombo16KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo2);
end;
procedure Tfrm_op_seae.RxDBLookupCombo17KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo5);
end;
procedure Tfrm_op_seae.RxDBLookupCombo18KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo6);
end;
procedure Tfrm_op_seae.wwDBLookupCombo2Exit(Sender: TObject);
begin
wwDBLookupCombo2.Clear;
end;
procedure Tfrm_op_seae.wwDBLookupCombo5Exit(Sender: TObject);
begin
wwDBLookupCombo5.Clear;
end;
procedure Tfrm_op_seae.wwDBLookupCombo6Exit(Sender: TObject);
begin
wwDBLookupCombo6.Clear;
end;
procedure Tfrm_op_seae.wwDBLookupCombo2Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo2.text,[]) then
begin
t_op_seae2.DataSet.edit;
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seae.wwDBLookupCombo5Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo5.text,[]) then
begin
t_op_seae2.DataSet.edit;
t_op_seae2.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seae.wwDBLookupCombo6Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo6.text,[]) then
begin
t_op_seae2.DataSet.edit;
t_op_seae2.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seae.RxDBLookupCombo29KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo14);
end;
procedure Tfrm_op_seae.RxDBLookupCombo30KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo9);
end;
procedure Tfrm_op_seae.RxDBLookupCombo12Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then
begin
if RxDBLookupCombo12.DisplayValue='' then
exit;
if frm_data_share.t_sys_employee.locate('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo12.DisplayValue,[]) then
t_op_seae2.DataSet['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end;
procedure Tfrm_op_seae.RxDBLookupCombo14Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then
begin
if RxDBLookupCombo14.DisplayValue='' then
exit;
if frm_data_share.t_sys_employee.locate('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo14.DisplayValue,[]) then
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end;
procedure Tfrm_op_seae.wwDBComboBox3KeyPress(Sender: TObject;
var Key: Char);
begin
// key_RxDBLookupCombo(Key,RxDBLookupCombo10);
end;
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox4KeyPress(Sender: TObject;
var Key: Char);
begin
// key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox9);
end;
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox3KeyPress(Sender: TObject;
var Key: Char);
begin
// key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox5);
end;
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox5KeyPress(Sender: TObject;
var Key: Char);
begin
// key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox4);
end;
procedure Tfrm_op_seae.N12Click(Sender: TObject);
begin
update_grid(dxdbgrid1,1);
end;
procedure Tfrm_op_seae.N14Click(Sender: TObject);
begin
update_grid_view_all(dxdbgrid1);
end;
procedure Tfrm_op_seae.N10Click(Sender: TObject);
begin
update_grid_view_no(dxdbgrid1);
end;
procedure Tfrm_op_seae.N16Click(Sender: TObject);
begin
grid_save_xls(dxdbgrid1);
end;
procedure Tfrm_op_seae.dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort(Column,t_op_seae,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_seae.N17Click(Sender: TObject);
begin
if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
psqlstr:=t_op_seae.sql.Text;
t_op_seae.Close;
t_op_seae.SQL.clear;
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='
+''''+'¼<><C2BC>״̬'+''''+')) '
+default_sort(53,'t_op_seae','','desc'));
t_op_seae.open;
end;
procedure Tfrm_op_seae.bsSkinButton13Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton13.ClientToScreen(Point(0,bsSkinButton13.Height));
PopupMenu3.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_op_seae.N34Click(Sender: TObject);
begin
if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
psqlstr:=t_op_seae.sql.Text;
t_op_seae.Close;
t_op_seae.SQL.clear;
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>ύ'+''''+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><>ֹɾ<D6B9><C9BE>'+''''+'))) '
+default_sort(53,'t_op_seae','','desc'));
t_op_seae.open;
end;
procedure Tfrm_op_seae.N36Click(Sender: TObject);
begin
if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
psqlstr:=t_op_seae.sql.Text;
t_op_seae.Close;
t_op_seae.SQL.clear;
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+'))) '
+default_sort(53,'t_op_seae','','desc'));
t_op_seae.open;
end;
procedure Tfrm_op_seae.N37Click(Sender: TObject);
begin
if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
psqlstr:=t_op_seae.sql.Text;
t_op_seae.Close;
t_op_seae.SQL.clear;
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_state where <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><>1)) '
+default_sort(53,'t_op_seae','','desc'));
t_op_seae.open;
end;
procedure Tfrm_op_seae.RxDBLookupCombo1Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo1);
end;
procedure Tfrm_op_seae.RxDBLookupCombo1Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo1);
end;
procedure Tfrm_op_seae.RxDBLookupCombo9Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo9);
end;
procedure Tfrm_op_seae.RxDBLookupCombo6Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo6);
end;
procedure Tfrm_op_seae.RxDBLookupCombo8Enter(Sender: TObject);
begin
// RxLookupComboEnter(RxDBLookupCombo8);
end;
procedure Tfrm_op_seae.RxDBLookupCombo7Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo7);
end;
procedure Tfrm_op_seae.RxDBLookupCombo10Enter(Sender: TObject);
begin
// RxLookupComboEnter(RxDBLookupCombo10);
end;
procedure Tfrm_op_seae.RxDBLookupCombo9Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo9);
end;
procedure Tfrm_op_seae.RxDBLookupCombo6Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo6);
end;
procedure Tfrm_op_seae.RxDBLookupCombo8Exit(Sender: TObject);
begin
// RxLookupComboExit(RxDBLookupCombo8);
end;
procedure Tfrm_op_seae.RxDBLookupCombo7Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo7);
end;
procedure Tfrm_op_seae.RxDBLookupCombo10Exit(Sender: TObject);
begin
// RxLookupComboExit(RxDBLookupCombo10);
end;
procedure Tfrm_op_seae.RxDBLookupCombo2Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo2);
end;
procedure Tfrm_op_seae.RxDBLookupCombo3Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo3);
end;
procedure Tfrm_op_seae.RxDBLookupCombo4Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo4);
end;
procedure Tfrm_op_seae.RxDBLookupCombo5Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo5);
end;
procedure Tfrm_op_seae.RxDBLookupCombo5Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo5);
end;
procedure Tfrm_op_seae.RxDBLookupCombo16Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo16);
end;
procedure Tfrm_op_seae.RxDBLookupCombo17Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo17);
end;
procedure Tfrm_op_seae.RxDBLookupCombo18Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo18);
end;
procedure Tfrm_op_seae.RxDBLookupCombo16Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo16);
end;
procedure Tfrm_op_seae.RxDBLookupCombo17Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo17);
end;
procedure Tfrm_op_seae.RxDBLookupCombo18Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo18);
end;
procedure Tfrm_op_seae.RxDBLookupCombo19Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo19);
end;
procedure Tfrm_op_seae.RxDBLookupCombo19Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo19);
end;
procedure Tfrm_op_seae.RxDBLookupCombo28Enter(Sender: TObject);
begin
RxDBLookupCombo28.LookupDisplay:='<27><><EFBFBD><EFBFBD>;ǩ<><C7A9><EFBFBD><EFBFBD>ʽ';
end;
procedure Tfrm_op_seae.RxDBLookupCombo28Exit(Sender: TObject);
begin
RxDBLookupCombo28.LookupDisplay:='ǩ<><C7A9><EFBFBD><EFBFBD>ʽ';
end;
procedure Tfrm_op_seae.RxDBLookupCombo15Enter(Sender: TObject);
begin
RxDBLookupCombo15.LookupDisplay:='<27><><EFBFBD><EFBFBD>;<3B><><EFBFBD>ѷ<EFBFBD>ʽ';
end;
procedure Tfrm_op_seae.RxDBLookupCombo15Exit(Sender: TObject);
begin
RxDBLookupCombo15.LookupDisplay:='<27><><EFBFBD>ѷ<EFBFBD>ʽ';
end;
procedure Tfrm_op_seae.RxDBLookupCombo20Enter(Sender: TObject);
begin
RxDBLookupCombo20.LookupDisplay:='<27><><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD>;<3B><><EFBFBD><EFBFBD>';
end;
procedure Tfrm_op_seae.RxDBLookupCombo20Exit(Sender: TObject);
begin
RxDBLookupCombo20.LookupDisplay:='<27><><EFBFBD><EFBFBD>';
end;
procedure Tfrm_op_seae.RxDBLookupCombo11Enter(Sender: TObject);
begin
RxDBLookupCombo11.LookupDisplay:='<27><><EFBFBD><EFBFBD>;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end;
procedure Tfrm_op_seae.RxDBLookupCombo11Exit(Sender: TObject);
begin
RxDBLookupCombo11.LookupDisplay:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end;
procedure Tfrm_op_seae.N40Click(Sender: TObject);
begin
if t_op_seae.IsEmpty then
exit;
Notebook1.PageIndex:=1;
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
bsSkinTabSheet2.show;
if if_open('293') or if_open('294') then
begin
if not assigned(frm_ch_fee_sea) then
begin
frm_ch_fee_sea:=tfrm_ch_fee_sea.Create (self);
frm_ch_fee_sea.ManualDock(bsSkinTabSheet2,nil,alClient);
frm_ch_fee_sea.Show;
end;
end
else
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>');
end;
end;
procedure Tfrm_op_seae.N42Click(Sender: TObject);
begin
if t_op_seae.IsEmpty then
exit;
Notebook1.PageIndex:=1;
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
bsSkinTabSheet7.show;
{$IFDEF ZTGENGZONG}
if not assigned(frm_op_seae_state) then
begin
frm_op_seae_state:=tfrm_op_seae_state.Create (self);
frm_op_seae_state.fra_op_state1.t_op_state.DataSource:=t_op_seae2;
frm_op_seae_state.fra_op_state1.t_op_state.open;
frm_op_seae_state.fra_op_state1.edit_state.Text:='1';
frm_op_seae_state.ManualDock(bsSkinTabSheet7,nil,alClient);
frm_op_seae_state.show;
end;
{$ENDIF}
end;
procedure Tfrm_op_seae.N44Click(Sender: TObject);
begin
if t_op_seae.IsEmpty then
exit;
Notebook1.PageIndex:=1;
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
end;
procedure Tfrm_op_seae.N46Click(Sender: TObject);
begin
if t_op_seae.IsEmpty then
exit;
Notebook1.PageIndex:=1;
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
bsSkinTabSheet6.show;
if not assigned(frm_op_seae_assistant) then
begin
frm_op_seae_assistant:=tfrm_op_seae_assistant.Create (self);
frm_op_seae_assistant.t_op_seae_assistant.DataSource:=t_op_seae2;
frm_op_seae_assistant.ManualDock(bsSkinTabSheet6,nil,alClient);
frm_op_seae_assistant.show;
end;
end;
procedure Tfrm_op_seae.Label4Click(Sender: TObject);
begin
client_view(t_op_seae2.DataSet.fieldbyname('ί<>е<EFBFBD>λ').asstring,frm_data_share.t_crm_client_weituo);
end;
procedure Tfrm_op_seae.Label23Click(Sender: TObject);
begin
client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,frm_data_share.t_crm_client_shiper);
end;
procedure Tfrm_op_seae.Label24Click(Sender: TObject);
begin
client_view(t_op_seae2.DataSet.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD>').asstring,frm_data_share.t_crm_client_shouhuo);
end;
procedure Tfrm_op_seae.Label29Click(Sender: TObject);
begin
client_view(t_op_seae2.DataSet.fieldbyname('֪ͨ<CDA8><D6AA>').asstring,frm_data_share.t_crm_client_tongzhi);
end;
procedure Tfrm_op_seae.Label33Click(Sender: TObject);
begin
client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,frm_data_share.t_crm_client_daili);
end;
procedure Tfrm_op_seae.Label12Click(Sender: TObject);
begin
client_view(t_op_seae2.DataSet.fieldbyname('<27><>վ').asstring,frm_data_share.t_crm_client_changzhan);
end;
procedure Tfrm_op_seae.Label9Click(Sender: TObject);
begin
// client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˾').asstring,frm_data_share.t_crm_client_ship);
end;
procedure Tfrm_op_seae.Label11Click(Sender: TObject);
begin
// client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').asstring,frm_data_share.t_crm_client_huodai);
end;
procedure Tfrm_op_seae.Label10Click(Sender: TObject);
begin
// client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,frm_data_share.t_crm_client_baoguan);
end;
procedure Tfrm_op_seae.wwDBLookupCombo2DblClick(Sender: TObject);
begin
open_code_edit('016');
end;
procedure Tfrm_op_seae.Label125Click(Sender: TObject);
begin
open_code_edit('097');
end;
procedure Tfrm_op_seae.Label7Click(Sender: TObject);
begin
open_code_edit('011');
end;
procedure Tfrm_op_seae.Label35Click(Sender: TObject);
begin
open_code_edit('071');
end;
procedure Tfrm_op_seae.Label30Click(Sender: TObject);
begin
open_code_edit('015');
end;
procedure Tfrm_op_seae.Label73Click(Sender: TObject);
begin
open_code_edit('012');
end;
procedure Tfrm_op_seae.Label164Click(Sender: TObject);
begin
open_code_edit('007');
end;
procedure Tfrm_op_seae.wwDBLookupCombo61DblClick(Sender: TObject);
begin
open_code_edit('013');
end;
procedure Tfrm_op_seae.bsSkinButton12Click(Sender: TObject);
begin
t_op_seae_fen.first;
while not t_op_seae_fen.Eof do
begin
t_op_seae_fen.edit;
t_op_seae_fen['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>']:=t_op_seae['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>'];
t_op_seae_fen.post;
t_op_seae_fen.next;
end;
end;
procedure Tfrm_op_seae.bsSkinButton14Click(Sender: TObject);
begin
if not (if_open('293') or if_open('294')) then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>');
exit;
end;
if not assigned(frm_ch_fee_zhupiao) then
frm_ch_fee_zhupiao:=tfrm_ch_fee_zhupiao.Create (self);
frm_ch_fee_zhupiao.fra_fee_zhu1.fenpiao1.DataSet:=t_op_seae_fen;
with frm_ch_fee_zhupiao do
begin
if if_open('293') then
begin
fra_fee_zhu1.t_ch_accept.close;
fra_fee_zhu1.t_ch_accept.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
fra_fee_zhu1.t_ch_accept.open;
fra_fee_zhu1.zhupiao1.DataSet:=t_op_seae;
fra_fee_zhu1.dxDBGrid1.FullExpand;
fra_fee_zhu1.bsSkinPanel3.visible:=true;
end
else
fra_fee_zhu1.bsSkinPanel3.visible:=false;
if if_open('294') then
begin
fra_fee_zhu1.t_ch_pay.close;
fra_fee_zhu1.t_ch_pay.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
fra_fee_zhu1.t_ch_pay.open;
fra_fee_zhu1.zhupiao1.DataSet:=t_op_seae;
fra_fee_zhu1.dxDBGrid2.FullExpand;
fra_fee_zhu1.bsSkinPanel4.visible:=true;
end
else
fra_fee_zhu1.bsSkinPanel4.visible:=false;
if fra_fee_zhu1.bsSkinPanel3.visible and
fra_fee_zhu1.bsSkinPanel4.visible then
begin
fra_fee_zhu1.t_op_gain.close;
fra_fee_zhu1.t_op_gain.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
fra_fee_zhu1.t_op_gain.open;
fra_fee_zhu1.t_op_gain_fen.close;
fra_fee_zhu1.t_op_gain_fen.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
fra_fee_zhu1.t_op_gain_fen.open;
end
else
begin
fra_fee_zhu1.t_op_gain.close;
fra_fee_zhu1.t_op_gain_fen.close;
fra_fee_zhu1.bsSkinTabSheet2.TabVisible:=false;
end;
fra_fee_zhu1.dxDBGrid3.FullExpand;
end;
frm_ch_fee_zhupiao.ShowModal;
end;
procedure Tfrm_op_seae.N55Click(Sender: TObject);
var
str:widestring;
begin
if t_op_seae.IsEmpty then
exit;
if if_open('293') and if_open('294') then
begin
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
t_op_seae.post;
try
frm_ch_piliang_seae:=tfrm_ch_piliang_seae.Create (self);
t_op_seae.DisableControls;
t_op_seae.first;
while not t_op_seae.eof do
begin
if str='' then
str:=''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+''''
else
str:=str+','+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
t_op_seae.next;
end;
str:='('+str+')';
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD> in '+str+default_sort(53,'t_op_seae','','desc');
frm_ch_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
frm_ch_piliang_seae.t_op_seae.open;
frm_ch_piliang_seae.ShowModal;
finally
t_op_seae.EnableControls;
frm_ch_piliang_seae.Free;
frm_ch_piliang_seae:=nil;
end;
end
else
begin
showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
end;
end;
procedure Tfrm_op_seae.N51Click(Sender: TObject);
var
str:widestring;
begin
if t_op_seae.IsEmpty then
exit;
if not if_open('230') then begin
showmessage('<27><>û<EFBFBD><C3BB>Ȩ<EFBFBD>޴<EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
if if_open('293') and if_open('294') then
begin
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
t_op_seae.post;
try
frm_ch_piliang_seae:=tfrm_ch_piliang_seae.Create (self);
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD>='
+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
frm_ch_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
frm_ch_piliang_seae.t_op_seae.open;
frm_ch_piliang_seae.ShowModal;
finally
frm_ch_piliang_seae.Free;
frm_ch_piliang_seae:=nil;
end;
end
else
begin
showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
end;
end;
procedure Tfrm_op_seae.N53Click(Sender: TObject);
var
str:widestring;
i:integer;
begin
if t_op_seae.IsEmpty then
exit;
if dxDBGrid1.SelectedCount<1 then
begin
showmessage('<27><>ѡ<EFBFBD><D1A1>Ҫ<EFBFBD><D2AA>ӡ<EFBFBD><D3A1>ҵ<EFBFBD><D2B5><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
if if_open('293') and if_open('294') then
begin
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
t_op_seae.post;
try
frm_ch_piliang_seae:=tfrm_ch_piliang_seae.Create (self);
t_op_seae.DisableControls;
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
if str='' then
str:=''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+''''
else
str:=str+','+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
end;
str:='('+str+')';
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD> in '+str+default_sort(53,'t_op_seae','','desc');
frm_ch_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
frm_ch_piliang_seae.t_op_seae.open;
frm_ch_piliang_seae.ShowModal;
finally
t_op_seae.EnableControls;
frm_ch_piliang_seae.Free;
frm_ch_piliang_seae:=nil;
end;
end
else
begin
showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
end;
end;
procedure Tfrm_op_seae.RxDBLookupCombo31Enter(Sender: TObject);
begin
RxDBLookupCombo31.LookupDisplay:='<27><><EFBFBD><EFBFBD>;ҵ<><D2B5><EFBFBD><EFBFBD>Դ';
end;
procedure Tfrm_op_seae.RxDBLookupCombo31Exit(Sender: TObject);
begin
RxDBLookupCombo31.LookupDisplay:='ҵ<><D2B5><EFBFBD><EFBFBD>Դ';
end;
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox9KeyPress(Sender: TObject;
var Key: Char);
begin
// key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox10);
end;
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox10KeyPress(Sender: TObject;
var Key: Char);
begin
// key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox11);
end;
procedure Tfrm_op_seae.wwDBLookupCombo7Enter(Sender: TObject);
begin
with frm_data_share do
begin
t_code_code.Filtered:=false;
t_code_code.Filter:='<27><><EFBFBD><EFBFBD>=1';
t_code_code.Filtered:=true;
end;
end;
procedure Tfrm_op_seae.wwDBLookupCombo7Exit(Sender: TObject);
begin
wwDBLookupCombo7.Clear;
end;
procedure Tfrm_op_seae.wwDBLookupCombo7KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo1);
end;
procedure Tfrm_op_seae.RxDBLookupCombo5KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo7);
end;
procedure Tfrm_op_seae.wwDBLookupCombo7Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo7.text,[]) then
begin
t_op_seae2.DataSet.edit;
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seae.wwDBLookupCombo8KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo6);
end;
procedure Tfrm_op_seae.wwDBLookupCombo8Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo8.text,[]) then
begin
t_op_seae2.DataSet.edit;
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seae.wwDBLookupCombo8Exit(Sender: TObject);
begin
wwDBLookupCombo8.Clear;
end;
procedure Tfrm_op_seae.bsSkinButton35Click(Sender: TObject);
begin
table_post(t_op_ctn);
end;
procedure Tfrm_op_seae.RxDBLookupCombo1Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if t_op_seae2.DataSet.State=dsinsert then
begin
if frm_data_share.t_crm_client_weituo.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',RxDBLookupCombo1.DisplayValues[1],[])then
begin
if frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asboolean then
begin
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=RxDBLookupCombo1.DisplayValues[1];
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
end;
if frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
begin
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
end;
end;
end;
end;
procedure Tfrm_op_seae.N62Click(Sender: TObject);
begin
if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
psqlstr:=t_op_seae.sql.Text;
t_op_seae.Close;
t_op_seae.SQL.clear;
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and not exists (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where t_ch_fee.<2E><><EFBFBD><EFBFBD>=t_op_seae.<2E><><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
+default_sort(53,'t_op_seae','','desc'));
t_op_seae.open;
end;
procedure Tfrm_op_seae.N64Click(Sender: TObject);
begin
if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
psqlstr:=t_op_seae.sql.Text;
t_op_seae.Close;
t_op_seae.SQL.clear;
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and not exists (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where t_ch_fee.<2E><><EFBFBD><EFBFBD>=t_op_seae.<2E><><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
+default_sort(53,'t_op_seae','','desc'));
t_op_seae.open;
end;
procedure Tfrm_op_seae.dxDBGrid1Column2CustomDraw(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
AColor:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid1Column2.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_op_seae.dxDBGrid2Column2CustomDraw(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
AColor:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid2Column2.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_op_seae.t_op_seaePostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
var
str:widestring;
begin
update_wenti(E);
if pos('SOME VALUES MAY HAVE BEEN CHANGED',UpperCase(E.Message))<>0 then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB>޸ģ<DEB8><C4A3><EFBFBD>ǰ<EFBFBD>޸IJ<DEB8><C4B2>ܱ<EFBFBD><DCB1><EFBFBD>'+#13#10+'<27><>ˢ<EFBFBD><CBA2><EFBFBD><EFBFBD><EFBFBD>ݺ<EFBFBD><DDBA><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>');
abort;
end;
if pos('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼',UpperCase(E.Message))<>0 then
begin
str:='select * from t_op_seae where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼='+''''+t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']+'''';
double_seae(str,1);
abort;
end;
if pos('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼',UpperCase(E.Message))<>0 then
begin
str:='select * from t_op_seae where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼='+''''+t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']+'''';
double_seae(str,2);
abort;
end;
if pos('ί<>б<EFBFBD>׼',UpperCase(E.Message))<>0 then
begin
str:='select * from t_op_seae where ί<>б<EFBFBD>׼='+''''+t_op_seae['ί<>б<EFBFBD>׼']+'''';
double_seae(str,3);
abort;
end;
end;
procedure Tfrm_op_seae.N66Click(Sender: TObject);
begin
if t_op_seae2.DataSet.IsEmpty then
exit;
if not do_data('0001',t_op_seae2.DataSet.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').asstring
,t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring
,t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
,t_op_seae2.DataSet.FieldByName('<27>ͷ<EFBFBD>Ա').asstring
,''
,'') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
abort;
end;
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
showmessage('<27><>Ʊҵ<C6B1><D2B5>״̬<D7B4>Ѿ<EFBFBD>Ϊҵ<CEAA><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8>');
abort;
end;
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
t_op_seae2.DataSet.post;
try
frm_op_date_change:=tfrm_op_date_change.Create (self);
frm_op_date_change.DataSource1.Enabled:=false;
frm_op_date_change.DataSource1.DataSet:=t_op_seae2.DataSet;
frm_op_date_change.DataSource1.Enabled:=true;
frm_op_date_change.ShowModal;
finally
frm_op_date_change.Free;
frm_op_date_change:=nil;
end;
end;
procedure Tfrm_op_seae.t_op_seaeAfterPost(DataSet: TDataSet);
begin
telll_sales;
end;
procedure Tfrm_op_seae.N68Click(Sender: TObject);
var
str:widestring;
begin
if t_op_seae.IsEmpty then
exit;
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
t_op_seae.post;
try
frm_op_seae_print_mul:=tfrm_op_seae_print_mul.Create (self);
str:='select * from t_op_seae_assistant where <20><><EFBFBD><EFBFBD>='
+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
frm_op_seae_print_mul.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
frm_op_seae_print_mul.t_op_seae.open;
frm_op_seae_print_mul.ShowModal;
finally
frm_op_seae_print_mul.Free;
frm_op_seae_print_mul:=nil;
end;
end;
procedure Tfrm_op_seae.N70Click(Sender: TObject);
var
str:widestring;
i:integer;
begin
if t_op_seae.IsEmpty then
exit;
if dxDBGrid1.SelectedCount<1 then
begin
showmessage('<27><>ѡ<EFBFBD><D1A1>Ҫ<EFBFBD><D2AA>ӡ<EFBFBD><D3A1>ҵ<EFBFBD>񣡣<EFBFBD>');
exit;
end;
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
t_op_seae.post;
try
frm_op_seae_print_mul:=tfrm_op_seae_print_mul.Create (self);
t_op_seae.DisableControls;
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
if str='' then
str:=''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+''''
else
str:=str+','+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
end;
str:='('+str+')';
str:='select * from t_op_seae_assistant where <20><><EFBFBD><EFBFBD> in '+str+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
frm_op_seae_print_mul.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
frm_op_seae_print_mul.t_op_seae.open;
frm_op_seae_print_mul.ShowModal;
finally
t_op_seae.EnableControls;
frm_op_seae_print_mul.Free;
frm_op_seae_print_mul:=nil;
end;
end;
procedure Tfrm_op_seae.N72Click(Sender: TObject);
var
str:widestring;
begin
if t_op_seae.IsEmpty then
exit;
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
t_op_seae.post;
try
frm_op_seae_print_mul:=tfrm_op_seae_print_mul.Create (self);
t_op_seae.DisableControls;
t_op_seae.first;
while not t_op_seae.eof do
begin
if str='' then
str:=''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+''''
else
str:=str+','+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
t_op_seae.next;
end;
str:='('+str+')';
str:='select * from t_op_seae_assistant where <20><><EFBFBD><EFBFBD> in '+str+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
frm_op_seae_print_mul.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
frm_op_seae_print_mul.t_op_seae.open;
frm_op_seae_print_mul.ShowModal;
finally
t_op_seae.EnableControls;
frm_op_seae_print_mul.Free;
frm_op_seae_print_mul:=nil;
end;
end;
procedure Tfrm_op_seae.Notebook1PageChanged(Sender: TObject);
begin
if Notebook1.PageIndex<>0 then
begin
setconcolor;
{$IFDEF ZTGENGZONG}
if assigned(frm_op_seae_state_up) then
frm_op_seae_state_up.Hide;
{$ENDIF}
end;
end;
procedure Tfrm_op_seae.bsSkinButton15Click(Sender: TObject);
begin
{$IFDEF ZTGENGZONG}
if not assigned(frm_op_seae_state_up) then
frm_op_seae_state_up:=tfrm_op_seae_state_up.Create (self);
frm_op_seae_state_up.show;
frm_op_seae_state_up.Left:=bsSkinButton15.left+Notebook1.left+2;
frm_op_seae_state_up.top:=70+Notebook1.top;
{$ENDIF}
end;
procedure Tfrm_op_seae.wwDBDateTimePicker14KeyPress(Sender: TObject;
var Key: Char);
begin
// key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox1);
end;
procedure Tfrm_op_seae.N74Click(Sender: TObject);
begin
update_grid_sort(dxdbgrid1,1);
end;
procedure Tfrm_op_seae.t_op_seae_fenPostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
var
str:widestring;
begin
if pos('SOME VALUES MAY HAVE BEEN CHANGED',UpperCase(E.Message))<>0 then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB>޸ģ<DEB8><C4A3><EFBFBD>ǰ<EFBFBD>޸IJ<DEB8><C4B2>ܱ<EFBFBD><DCB1><EFBFBD>'+#13#10+'<27><>ˢ<EFBFBD><CBA2><EFBFBD><EFBFBD><EFBFBD>ݺ<EFBFBD><DDBA><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>');
abort;
end;
if pos('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼',UpperCase(E.Message))<>0 then
begin
str:='select * from t_op_seae where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼='+''''+t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']+'''';
double_seae(str,1);
abort;
end;
if pos('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼',UpperCase(E.Message))<>0 then
begin
str:='select * from t_op_seae where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼='+''''+t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']+'''';
double_seae(str,2);
abort;
end;
if pos('ί<>б<EFBFBD>׼',UpperCase(E.Message))<>0 then
begin
str:='select * from t_op_seae where ί<>б<EFBFBD>׼='+''''+t_op_seae_fen['ί<>б<EFBFBD>׼']+'''';
double_seae(str,3);
abort;
end;
end;
procedure Tfrm_op_seae.bsSkinButton38Click(Sender: TObject);
var
book1:Tbookmark;
begin
if t_op_seae2.DataSet=nil then
exit;
book1:=t_op_seae2.DataSet.GetBookmark;
t_op_seae2.DataSet.Refresh;
t_op_seae2.DataSet.GotoBookmark(book1);
end;
procedure Tfrm_op_seae.N76Click(Sender: TObject);
begin
update_grid_view_no(dxdbgrid2);
end;
procedure Tfrm_op_seae.N78Click(Sender: TObject);
begin
update_grid_view_all(dxdbgrid2);
end;
procedure Tfrm_op_seae.N80Click(Sender: TObject);
begin
update_grid(dxdbgrid2,25);
end;
procedure Tfrm_op_seae.wwDBLookupCombo11KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo2);
end;
procedure Tfrm_op_seae.wwDBLookupCombo11Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if frm_data_share.t_code_tiaokuan.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo11.text,[]) then
begin
t_op_seae2.DataSet.edit;
if t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='' then
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_tiaokuan.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
else
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+#13#10+frm_data_share.t_code_tiaokuan.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
end;
end;
procedure Tfrm_op_seae.wwDBLookupCombo11Exit(Sender: TObject);
begin
wwDBLookupCombo11.TEXT:='';
end;
procedure Tfrm_op_seae.wwDBLookupCombo11DblClick(Sender: TObject);
begin
open_code_edit('188');
end;
procedure Tfrm_op_seae.t_op_seaeBeforeEdit(DataSet: TDataSet);
begin
op_befor_post(t_op_seae,'0001');
end;
procedure Tfrm_op_seae.t_op_seae_fenBeforeEdit(DataSet: TDataSet);
begin
op_befor_post(t_op_seae_fen,'0001');
end;
procedure Tfrm_op_seae.t_op_seae_fenBeforeCancel(DataSet: TDataSet);
begin
delete_no(t_op_seae_fen);
if t_op_seae_fen.State=dsinsert then
if not t_op_seae_fen.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
delwtno(t_op_seae_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']);
end;
procedure Tfrm_op_seae.t_op_seaeBeforeCancel(DataSet: TDataSet);
begin
delete_no(t_op_seae);
if t_op_seae.State=dsinsert then
if not t_op_seae.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
delwtno(t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>']);
end;
procedure Tfrm_op_seae.RxDBLookupCombo32KeyPress(Sender: TObject;
var Key: Char);
begin
// key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox2);
end;
procedure Tfrm_op_seae.RxDBLookupCombo33KeyPress(Sender: TObject;
var Key: Char);
begin
// key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox3);
end;
procedure Tfrm_op_seae.N82Click(Sender: TObject);
begin
if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
psqlstr:=t_op_seae.sql.Text;
t_op_seae.Close;
t_op_seae.SQL.clear;
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and not exists (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where t_ch_fee.<2E><><EFBFBD><EFBFBD>=t_op_seae.<2E><><EFBFBD><EFBFBD>)'
+default_sort(53,'t_op_seae','','desc'));
t_op_seae.open;
end;
procedure Tfrm_op_seae.N84Click(Sender: TObject);
begin
if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
psqlstr:=t_op_seae.sql.Text;
t_op_seae.Close;
t_op_seae.SQL.clear;
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')'
+default_sort(53,'t_op_seae','','desc'));
t_op_seae.open;
end;
procedure Tfrm_op_seae.RxDBLookupCombo36Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo36);
end;
procedure Tfrm_op_seae.RxDBLookupCombo36Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo36);
end;
procedure Tfrm_op_seae.bsSkinButton39Click(Sender: TObject);
begin
t_op_seae_fen.first;
while not t_op_seae_fen.Eof do
begin
t_op_seae_fen.edit;
t_op_seae_fen['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_fen.post;
t_op_seae_fen.next;
end;
end;
procedure Tfrm_op_seae.bsSkinButton42Click(Sender: TObject);
var
bok:Tbookmark;
if_first:boolean;
pkgs:integer;
kgs,cbm:double;
aQuery:TADOQuery;
begin
if t_op_ctn.IsEmpty then
exit;
// op_befor_post(frm_op_seae.t_op_seae,op_ctn_limited);
t_op_ctn.First;
if_first:=true;
pkgs:=0;
kgs:=0.00;
cbm:=0.00;
bok:=t_op_ctn.GetBookmark;
while not t_op_ctn.Eof do
begin
if strtobool(get_parameters_value(139,'true')) then begin
if if_first then
begin
memo1.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
memo2.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring;
memo3.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS';
memo4.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM';
pkgs:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asinteger;
kgs:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
cbm:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
if_first:=false;
end
else
begin
memo1.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
memo2.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring);
memo3.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS');
memo4.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM');
pkgs:=pkgs+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asinteger;
kgs:=kgs+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
cbm:=cbm+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end else begin
if if_first then
begin
memo1.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><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';
memo2.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring;
memo3.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS';
memo4.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM';
pkgs:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asinteger;
kgs:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
cbm:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
if_first:=false;
end
else
begin
memo1.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><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'
);
memo2.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring);
memo3.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS');
memo4.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM');
pkgs:=pkgs+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asinteger;
kgs:=kgs+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
cbm:=cbm+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
t_op_ctn.next;
end;
t_op_ctn.DataSource.DataSet.edit;
t_op_ctn.DataSource.DataSet['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>']:=memo1.Lines.Text;
// t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ']:=memo2.Lines.Text;
// t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=memo3.Lines.Text;
// t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=memo4.Lines.Text;
// t_op_ctn.DataSource.DataSet.post;
t_op_ctn.GotoBookmark(bok);
end;
procedure Tfrm_op_seae.bsSkinButton40Click(Sender: TObject);
begin
table_delete(t_op_ctn);
end;
procedure Tfrm_op_seae.bsSkinButton41Click(Sender: TObject);
begin
table_cancel(t_op_ctn);
end;
procedure Tfrm_op_seae.dxDBGrid1Column114CustomDraw(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 Trim(ANode.Strings[dxDBGrid1Column114.Index])='<27><><EFBFBD>ĵ<EFBFBD>' then
AColor:=clred;
AFont.Color:=clblack;
end;
procedure Tfrm_op_seae.RxDBLookupCombo43KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo21);
end;
procedure Tfrm_op_seae.DBEdit11KeyPress(Sender: TObject; var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo43);
end;
procedure Tfrm_op_seae.WORD1Click(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if t_op_seae2.DataSet.IsEmpty then
exit;
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
t_op_seae2.DataSet.post;
try
frm_op_seae_word:=tfrm_op_seae_word.Create (self);
frm_op_seae_word.ShowModal;
finally
frm_op_seae_word.Free;
end;
end;
procedure Tfrm_op_seae.wwDBLookupCombo49Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
{
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
begin
if frm_data_share.t_code_vessel.Locate('Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>',wwDBLookupCombo49.text,[]) then
begin
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>˾']:=frm_data_share.t_code_vessel['<27><><EFBFBD><EFBFBD>˾'];
end;
end;
}
end;
procedure Tfrm_op_seae.bsSkinButton44Click(Sender: TObject);
var
str:widestring;
begin
str:='';
str:=query_tiaojian(1,str,'t_op_seae.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','ģ<><C4A3>',Edit1.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>','ģ<><C4A3>',Edit2.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>',wwDBLookupCombo1.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD>','ģ<><C4A3>',Edit7.text);
if trim(str)='' then
begin
str:='where '+open_data('0001','t_op_seae.¼<><C2BC><EFBFBD><EFBFBD>',
't_op_seae.<2E><><EFBFBD><EFBFBD>Ա','no','no','no');
end
else
begin
str:=str+' and '+open_data('0001','t_op_seae.¼<><C2BC><EFBFBD><EFBFBD>',
't_op_seae.<2E><><EFBFBD><EFBFBD>Ա','no','no','no');
end;
// str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and װ<>˷<EFBFBD>ʽ<>''<27><><EFBFBD><EFBFBD>'''+' and <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae '
str:='select * from t_op_seae where װ<>˷<EFBFBD>ʽ<>''<27><>Ʊ<EFBFBD><C6B1>ϸ'' and <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from t_op_seae '
+str+')'+default_sort(53,'t_op_seae','','desc');
if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
psqlstr:=t_op_seae.sql.Text;
t_op_seae.close;
t_op_seae.sql.clear;
t_op_seae.sql.add(str);
t_op_seae.Open;
if t_op_seae.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
exit;
end;
end;
procedure Tfrm_op_seae.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
bsSkinButton44.OnClick(Sender);
end;
procedure Tfrm_op_seae.N92Click(Sender: TObject);
var
inifile1:Tinifile;
begin
bsSkinPanel9.Visible:=true;
bsSkinButton13.Top:=3+bsSkinPanel9.Height;
bsSkinButton15.Top:=3+bsSkinPanel9.Height;
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'data.ini');
inifile1.WriteBool('other','qdisp',bsSkinPanel9.Visible);
inifile1.free;
end;
procedure Tfrm_op_seae.N93Click(Sender: TObject);
var
inifile1:Tinifile;
begin
bsSkinPanel9.Visible:=false;
bsSkinButton13.Top:=3;
bsSkinButton15.Top:=3;
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'data.ini');
inifile1.WriteBool('other','qdisp',bsSkinPanel9.Visible);
inifile1.free;
end;
procedure Tfrm_op_seae.N96Click(Sender: TObject);
begin
if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
psqlstr:=t_op_seae.sql.Text;
t_op_seae.Close;
t_op_seae.SQL.clear;
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD><><3E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>='''+'<27><>'+''''+' )'
+default_sort(53,'t_op_seae','','desc'));
t_op_seae.open ;
end;
procedure Tfrm_op_seae.DBEdit41KeyPress(Sender: TObject; var Key: Char);
begin
if bsSkinPageControl2.Visible then
key_RxDBLookupCombo(Key,RxDBLookupCombo16)
else
key_RxDBLookupCombo(Key,RxDBLookupCombo2);
end;
procedure Tfrm_op_seae.RxDBLookupCombo49KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo14);
end;
procedure Tfrm_op_seae.RxDBLookupCombo31KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBComboBox(Key,wwDBComboBox9);
end;
procedure Tfrm_op_seae.N99Click(Sender: TObject);
var
i,j,l:integer;
s:string;
seabandini:tinifile ;
begin
seabandini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'bandno.ini');
frm_sys_tab_sort:=tfrm_sys_tab_sort.create(self);
try
frm_sys_tab_sort.ListBox2.Clear;
for i:=0 to bsSkinPageControl1.PageCount-1 do begin
frm_sys_tab_sort.ListBox2.Items.Add(bsSkinPageControl1.Pages[i].Caption+':'+bsSkinPageControl1.Pages[i].Name);
end;
frm_sys_tab_sort.ShowModal;
if frm_sys_tab_sort.ModalResult=mrOk then begin
for j:=0 to frm_sys_tab_sort.ListBox2.Items.Count-1 do begin
s:=frm_sys_tab_sort.ListBox2.Items[j];
l:=pos(':',s)+1;
for i:=0 to bsSkinPageControl1.PageCount-1 do begin
if bsSkinPageControl1.Pages[i].Name=copy(s,l,length(s)-l+1) then begin
bsSkinPageControl1.Pages[i].PageIndex:=j;
seabandini.Writeinteger('seaexp',copy(s,l,length(s)-l+1),j);
end;
end;
end;
end;
finally
FreeAndNil(frm_sys_tab_sort);
freeandnil(seabandini);
end;
end;
procedure Tfrm_op_seae.setconcolor;
procedure consetcolor(fielname:String);
var
i:integer;
scolor:string;
begin
scolor:=get_parameters_value(144,'clInfoBk');
with bsSkinTabSheet1 do begin
for i:=0 to ControlCount-1 do begin
if Controls[i] is TwwDBComboBox then begin
if TwwDBComboBox(Controls[i]).DataField=fielname then begin
TwwDBComboBox(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TwwDBLookupCombo then begin
if TwwDBLookupCombo(Controls[i]).DataField=fielname then begin
TwwDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TDBEdit then begin
if TDBEdit(Controls[i]).DataField=fielname then begin
TDBEdit(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TwwDBDateTimePicker then begin
if TwwDBDateTimePicker(Controls[i]).DataField=fielname then begin
TwwDBDateTimePicker(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TDBMemo then begin
if TDBMemo(Controls[i]).DataField=fielname then begin
TDBMemo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TRxDBLookupCombo then begin
if TRxDBLookupCombo(Controls[i]).DataField=fielname then begin
TRxDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end;
end;
end;
with bsSkinPanel1 do begin
for i:=0 to ControlCount-1 do begin
if Controls[i] is TDBEdit then begin
if TDBEdit(Controls[i]).DataField=fielname then begin
TDBEdit(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TRxDBLookupCombo then begin
if TRxDBLookupCombo(Controls[i]).DataField=fielname then begin
TRxDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end;
end;
end;
end;
begin
frm_data_share.t_code_empty.Filtered:=false;
frm_data_share.t_code_empty.Filter:='<27><>=''t_op_seae''';
frm_data_share.t_code_empty.Filtered:=true;
frm_data_share.t_code_empty.First;
while not frm_data_share.t_code_empty.Eof do
begin
if (frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>') or (frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>') then begin
if t_op_seae2.DataSet.FindField('װ<>˷<EFBFBD>ʽ')<>nil then begin
if pos('<27><>Ʊ',t_op_seae2.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring)>0 then begin
end else begin
consetcolor(frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring);
end;
end else begin
consetcolor(frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring);
end;
end else begin
consetcolor(frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring);
end;
frm_data_share.t_code_empty.next;
end;
end;
procedure Tfrm_op_seae.RxDBLookupCombo15Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if RxDBLookupCombo15.DisplayValues[1]='FREIGHT PREPAID' then begin
t_op_seae2.DataSet['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>']:=t_op_seae2.DataSet['װ<><D7B0><EFBFBD><EFBFBD>'];
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:='';
end;
if RxDBLookupCombo15.DisplayValues[1]='FREIGHT COLLECT' then begin
t_op_seae2.DataSet['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>']:='';
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:='DESTINATION';
end;
end;
procedure Tfrm_op_seae.bsSkinSpeedButton1Click(Sender: TObject);
begin
if t_op_seae2.dataset.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').isnull or (t_op_seae2.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']='') then begin
t_op_seae2.DataSet.Edit;
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>ڹ<EFBFBD><DAB9><EFBFBD>').Asstring)='<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>' then
t_op_seae2.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
else
t_op_seae2.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
end;
end;
procedure Tfrm_op_seae.bsSkinButton31Click(Sender: TObject);
begin
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڵ<EFBFBD>֤',2,t_op_seae2,nil,nil,nil,t_op_seae_fen1,nil,nil,nil,nil,nil,nil);
end;
procedure Tfrm_op_seae.bsSkinButton45Click(Sender: TObject);
var
tempstr:widestring;
begin
if psqlstr<>'' then begin
tempstr:=psqlstr;
t_op_seae.close;
if t_op_seae.sql.Text<>'' then
psqlstr:=t_op_seae.sql.Text;
t_op_seae.sql.clear;
t_op_seae.sql.add(tempstr);
t_op_seae.Open;
end;
end;
procedure Tfrm_op_seae.wwDBComboBox9DropDown(Sender: TObject);
var
aQuery:TAdoQuery;
begin
wwDBComboBox9.Items.Clear;
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString='' then begin
exit;
end;
aQuery:=CreateAdoQuery;
try
with aQuery do begin
close;sql.Clear;
sql.Add('select <20><>Դ<EFBFBD><D4B4>ϸ from t_code_source_dl where ҵ<><D2B5><EFBFBD><EFBFBD>Դ='''+t_op_seae2.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString+''' order by <20><>Դ<EFBFBD><D4B4>ϸ ');
open;
first;
while not eof do begin
wwDBComboBox9.Items.Add(FieldByName('<27><>Դ<EFBFBD><D4B4>ϸ').AsString);
next;
end;
end;
finally
FreeAndNil(aQuery);
end;
end;
procedure Tfrm_op_seae.RxDBLookupCombo31Change(Sender: TObject);
begin
t_op_seae2.DataSet.FieldByName('<27><>Դ<EFBFBD><D4B4>ϸ').AsString:='';
end;
procedure Tfrm_op_seae.wwDBComboBox9KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo9);
end;
procedure Tfrm_op_seae.N103Click(Sender: TObject);
begin
if t_op_seae2.dataset.state in [dsedit,dsinsert] then t_op_seae2.dataset.post;
if t_op_seae2.dataset.IsEmpty then exit;
t_op_seae2.DataSet.Edit;
t_op_seae2.DataSet.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('<27><>ͷ').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><>ͷ').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('<27>ֵ<EFBFBD><D6B5>б<EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27>ֵ<EFBFBD><D6B5>б<EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('ж<><D0B6><EFBFBD><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('ж<><D0B6><EFBFBD><EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('Ŀ<>ĵ<EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('Ŀ<>ĵ<EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('Ԥ<><D4A4><EFBFBD>ص<EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('Ԥ<><D4A4><EFBFBD>ص<EFBFBD>').AsString);
t_op_seae2.DataSet.post;
end;
procedure Tfrm_op_seae.N105Click(Sender: TObject);
var
can_do:boolean;
gdo,xdo:smallint;
begin
if t_op_seae2.DataSet.IsEmpty then
exit;
if not do_data('0001',t_op_seae2.DataSet.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').asstring
,t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring
,t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
,t_op_seae2.DataSet.FieldByName('<27>ͷ<EFBFBD>Ա').asstring
,''
,'') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
abort;
end;
if t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
showmessage('<27><>Ʊҵ<C6B1><D2B5>״̬<D7B4>Ѿ<EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>״̬<D7B4><CCAC>');
abort;
end;
t_ch_fee.close;
t_ch_fee.Parameters[0].value:=t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
t_ch_fee.open;
can_do:=true;
t_ch_fee.first;
while not t_ch_fee.eof do
begin
if can_do then
begin
if (t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD>еķ<D0B5><C4B7><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD>ܷ<EFBFBD><DCB7>÷<EFBFBD><C3B7>ʣ<EFBFBD>');
exit;
end;
end;
t_ch_fee.next;
end;
gdo:=strtoint(get_parameters_value(137,'0'));
xdo:=strtoint(get_parameters_value(138,'0'));
t_ch_fee.close;
if can_do then
begin
prnlist:=true;
try
t_op_seae2.DataSet.edit;
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
t_op_seae2.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if (gdo<>0) or (xdo<>0) then begin
if trim(t_op_seae2.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(t_op_seae2.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then begin
if t_op_seae2.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=t_op_seae2.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end;
end;
t_op_seae2.DataSet.post;
finally
prnlist:=false;
end;
end;
end;
procedure Tfrm_op_seae.N114Click(Sender: TObject);
begin
try
if not assigned(frm_op_seae_history) then
frm_op_seae_history:=tfrm_op_seae_history.Create (self);
frm_op_seae_history.op_type.text:='1';
frm_op_seae_history.t_do_bill.Enabled:=false;
frm_op_seae_history.t_do_bill.DataSet:=t_op_seae2.dataset;
frm_op_seae_history.t_do_bill.Enabled:=true;
frm_op_seae_history.ShowModal;
finally
frm_op_seae_history.free;
frm_op_seae_history:=nil;
end;
end;
procedure Tfrm_op_seae.t_op_fangdanBeforeEdit(DataSet: TDataSet);
begin
op_befor_post(t_op_seae,'0001');
end;
procedure Tfrm_op_seae.t_op_fangdanBeforeInsert(DataSet: TDataSet);
begin
op_befor_post(t_op_seae,'0001');
end;
procedure Tfrm_op_seae.wwDBLookupCombo16KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker3);
end;
procedure Tfrm_op_seae.wwDBLookupCombo17KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo43);
end;
procedure Tfrm_op_seae.bsSkinButton47Click(Sender: TObject);
var
book1:Tbookmark;
begin
if t_op_seae2.DataSet=nil then
exit;
book1:=t_op_seae2.DataSet.GetBookmark;
TAdoQuery(t_op_seae2.DataSet).Requery;
t_op_seae2.DataSet.GotoBookmark(book1);
end;
procedure Tfrm_op_seae.DownLoadPro(fname: string);
begin
end;
procedure Tfrm_op_seae.UpLoadPro(fname: string);
begin
end;
procedure Tfrm_op_seae.EDI1Click(Sender: TObject);
begin
if t_op_seae.isempty then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>е<EFBFBD><D0B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44>ļ<EFBFBD><C4BC><EFBFBD>');
exit;
end;
try
if not assigned(frm_op_seae_edi_hk) then
frm_op_seae_edi_hk:=tfrm_op_seae_edi_hk.Create(application);
frm_op_seae_edi_hk.ShowModal;
finally
frm_op_seae_edi_hk.free;
frm_op_seae_edi_hk:=nil;
end;
end;
procedure Tfrm_op_seae.bsSkinButton46Click(Sender: TObject);
begin
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>װ<EFBFBD>䵥',2,t_op_ctn.DataSource,nil,nil,nil,nil,nil,t_op_ctn1,nil,nil,nil,nil);
end;
procedure Tfrm_op_seae.wwDBLookupCombo13Change(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>',wwDBLookupCombo13.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>'];
t_op_ctn['<27><>Ƥ<EFBFBD><C6A4>']:=frm_data_share.t_code_ctn['<27><>Ƥ<EFBFBD><C6A4>'];
end
else
begin
t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:='';
t_op_ctn['<27><><EFBFBD><EFBFBD>']:='';
t_op_ctn['<27>ߴ<EFBFBD>']:='';
t_op_ctn['<27><>Ƥ<EFBFBD><C6A4>']:=0;
end;
end;
end;
procedure Tfrm_op_seae.t_op_ctnAfterPost(DataSet: TDataSet);
begin
update_ctn(t_op_ctn);
end;
procedure Tfrm_op_seae.t_op_ctnAfterInsert(DataSet: TDataSet);
begin
t_op_ctn['<27><><EFBFBD><EFBFBD>']:=t_op_ctn.DataSource.DataSet['<27><><EFBFBD><EFBFBD>'];
t_op_ctn['<27><><EFBFBD><EFBFBD>']:=1;
t_op_ctn['<27><>״̬']:='F';
end;
procedure Tfrm_op_seae.t_op_ctnBeforeDelete(DataSet: TDataSet);
begin
if t_op_ctn.RecordCount=1 then
begin
if t_op_ctn.DataSource.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
begin
if (Trim(t_op_ctn.DataSource.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)<>'<27><><EFBFBD>ĵ<EFBFBD>') then begin
showmessage('ҵ<><D2B5><EFBFBD><EFBFBD>װ<EFBFBD>䲻<EFBFBD><E4B2BB>Ϊ<EFBFBD>գ<EFBFBD><D5A3>㲻<EFBFBD><E3B2BB>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
abort;
end;
end;
end;
op_befor_post(frm_op_seae.t_op_seae,'0001');
end;
procedure Tfrm_op_seae.t_op_ctnBeforeEdit(DataSet: TDataSet);
begin
op_befor_post(frm_op_seae.t_op_seae,'0001');
end;
procedure Tfrm_op_seae.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>ʽ'];
if frm_data_share.t_code_ctn.FieldByName('<27>ߴ<EFBFBD>').asstring='20'then
t_op_ctn['TEU']:=1*t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').asinteger;
if (frm_data_share.t_code_ctn.FieldByName('<27>ߴ<EFBFBD>').asstring='40')OR
(frm_data_share.t_code_ctn.FieldByName('<27>ߴ<EFBFBD>').asstring='45')then
t_op_ctn['TEU']:=2*t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').asinteger;
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;
table_before_post(t_op_ctn,'<27><><EFBFBD><EFBFBD>');
table_before_post(t_op_ctn,'<27><><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_seae.RxDBLookupCombo21Enter(Sender: TObject);
begin
TRxDBLookupCombo(Sender).LookupDisplay:='Ӣ<><D3A2><EFBFBD><EFBFBD>;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>;<3B>ۿڴ<DBBF><DAB4><EFBFBD>'
end;
procedure Tfrm_op_seae.RxDBLookupCombo21Exit(Sender: TObject);
begin
TRxDBLookupCombo(Sender).LookupDisplay:='<27>ۿڴ<DBBF><DAB4><EFBFBD>'
end;
procedure Tfrm_op_seae.RxDBLookupCombo21Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if t_op_seae2.DataSet.State in [dsinsert,dsedit] then
begin
if frm_data_share.t_code_loaport.Locate('<27>ۿڴ<DBBF><DAB4><EFBFBD>',RxDBLookupCombo21.DisplayValues[2],[])then
begin
t_op_seae2.DataSet['װ<><D7B0><EFBFBD><EFBFBD>']:=frm_data_share.t_code_loaport.fieldbyname('Ӣ<><D3A2><EFBFBD><EFBFBD>').asstring;
end;
end;
end;
procedure Tfrm_op_seae.RxDBLookupCombo22Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if t_op_seae2.DataSet.State in [dsinsert,dsedit] then
begin
if frm_data_share.t_code_loaport.Locate('<27>ۿڴ<DBBF><DAB4><EFBFBD>',RxDBLookupCombo22.DisplayValues[2],[])then
begin
t_op_seae2.DataSet['ж<><D0B6><EFBFBD><EFBFBD>']:=frm_data_share.t_code_loaport.fieldbyname('Ӣ<><D3A2><EFBFBD><EFBFBD>').asstring;
end;
end;
end;
procedure Tfrm_op_seae.RxDBLookupCombo7Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if t_op_seae2.DataSet.State in [dsinsert,dsedit] then
begin
if frm_data_share.t_code_loaport.Locate('<27>ۿڴ<DBBF><DAB4><EFBFBD>',RxDBLookupCombo7.DisplayValues[2],[])then
begin
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=frm_data_share.t_code_loaport.fieldbyname('Ӣ<><D3A2><EFBFBD><EFBFBD>').asstring;
end;
end;
end;
procedure Tfrm_op_seae.RxDBLookupCombo43Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if t_op_seae2.DataSet.State in [dsinsert,dsedit] then
begin
if frm_data_share.t_code_loaport.Locate('<27>ۿڴ<DBBF><DAB4><EFBFBD>',RxDBLookupCombo43.DisplayValues[2],[])then
begin
t_op_seae2.DataSet['Ŀ<>ĵ<EFBFBD>']:=frm_data_share.t_code_loaport.fieldbyname('Ӣ<><D3A2><EFBFBD><EFBFBD>').asstring;
end;
end;
end;
procedure Tfrm_op_seae.wwDBComboBox8Change(Sender: TObject);
begin
if wwDBComboBox8.Text='R<><52><EFBFBD><EFBFBD>' then begin
bsSkinPanel2.Visible:=true;
bsSkinPanel7.Visible:=false;
end else if wwDBComboBox8.Text='DΣ<44><CEA3>Ʒ' then begin
bsSkinPanel2.Visible:=false;
bsSkinPanel7.Visible:=True;
end else begin
bsSkinPanel2.Visible:=false;
bsSkinPanel7.Visible:=false;
end;
end;
procedure Tfrm_op_seae.RxDBLookupCombo8Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if t_op_seae2.DataSet.State in [dsinsert,dsedit] then
begin
if frm_data_share.t_code_loaport.Locate('<27>ۿڴ<DBBF><DAB4><EFBFBD>',RxDBLookupCombo8.DisplayValues[2],[])then
begin
t_op_seae2.DataSet['<27>ջ<EFBFBD><D5BB><EFBFBD>']:=frm_data_share.t_code_loaport.fieldbyname('Ӣ<><D3A2><EFBFBD><EFBFBD>').asstring;
end;
end;
end;
procedure Tfrm_op_seae.Button2Click(Sender: TObject);
var
sl:TStrings;
begin
sl:=TStringList.Create;
try
sl.Text:=t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').AsString;
ShowMessage(sl.Strings[0]);
finally
FreeAndNil(sl);
end;
end;
procedure Tfrm_op_seae.DBMemo39Change(Sender: TObject);
var
sl:TStrings;
begin
if t_op_seae2.DataSet=nil then
exit;
if t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӣ').AsString<>'' then Exit;
if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then
begin
if DBMemo39.Text='' then
exit;
sl:=TStringList.Create;
try
sl.Add(DBMemo39.Text);
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӣ']:=sl.Strings[0];
finally
FreeAndNil(sl);
end;
end;
end;
end.
Reference in New Issue View Git Blame Copy Permalink