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

4689 lines
145 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_seai_sf;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, bsSkinCtrls, ExtCtrls, ComCtrls, bsSkinTabs, DB, ADODB,
RxLookup, StdCtrls, Mask, DBCtrls, wwdblook, wwdbdatetimepicker,IniFiles,
wwdbedit, Wwdotdot, Wwdbcomb, u_fee, dxExEdtr, dxCntner, dxTL,
dxDBCtrl, dxDBGrid, dxDBTLCl, dxGrClms, XPMenu, Menus, bsdbctrls,
u_op_card, u_op_letter_free, Grids, DBGrids, u_op_sate,shellapi,DateUtils;
type
Tfrm_op_seai_sf = class(TForm)
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;
t_op_seai: TADOQuery;
t_op_seai1: TDataSource;
bsSkinPanel1: TbsSkinPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label37: TLabel;
Label5: TLabel;
Label38: TLabel;
Label4: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit8: TDBEdit;
DBEdit4: TDBEdit;
DBEdit9: TDBEdit;
RxDBLookupCombo1: TRxDBLookupCombo;
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
bsSkinTabSheet2: TbsSkinTabSheet;
Label9: TLabel;
DBEdit7: TDBEdit;
Label125: TLabel;
wwDBLookupCombo49: TwwDBLookupCombo;
Label126: TLabel;
DBEdit63: TDBEdit;
Label10: TLabel;
wwDBLookupCombo3: TwwDBLookupCombo;
Label124: TLabel;
wwDBLookupCombo52: TwwDBLookupCombo;
Label26: TLabel;
wwDBDateTimePicker4: TwwDBDateTimePicker;
Label11: TLabel;
DBEdit10: TDBEdit;
Label12: TLabel;
DBEdit11: TDBEdit;
Label13: TLabel;
DBEdit12: TDBEdit;
Label22: TLabel;
wwDBComboBox2: TwwDBComboBox;
Label164: TLabel;
RxDBLookupCombo11: TRxDBLookupCombo;
Label14: TLabel;
DBEdit13: TDBEdit;
DBEdit81: TDBEdit;
wwDBLookupCombo61: TwwDBLookupCombo;
DBEdit82: TDBEdit;
DBEdit83: TDBEdit;
Label15: TLabel;
Label16: TLabel;
Label18: TLabel;
Label20: TLabel;
Label73: TLabel;
RxDBLookupCombo20: TRxDBLookupCombo;
RxDBLookupCombo10: TRxDBLookupCombo;
Label21: TLabel;
Label23: TLabel;
RxDBLookupCombo7: TRxDBLookupCombo;
RxDBLookupCombo6: TRxDBLookupCombo;
Label24: TLabel;
Label25: TLabel;
RxDBLookupCombo9: TRxDBLookupCombo;
RxDBLookupCombo8: TRxDBLookupCombo;
Label27: TLabel;
Label33: TLabel;
RxDBLookupCombo19: TRxDBLookupCombo;
DBMemo1: TDBMemo;
Label28: TLabel;
Label29: TLabel;
DBMemo2: TDBMemo;
fra_fee1: Tfra_fee;
bsSkinTabSheet3: TbsSkinTabSheet;
PopupMenu1: TPopupMenu;
N31: TMenuItem;
XPMenu1: TXPMenu;
t_ch_fee: TADOQuery;
fra_op_state1: Tfra_op_state;
Label30: TLabel;
DBEdit14: TDBEdit;
DBEdit15: TDBEdit;
Label31: TLabel;
Label32: TLabel;
wwDBComboBox3: TwwDBComboBox;
Label65: TLabel;
DBEdit18: TDBEdit;
Label6: TLabel;
RxDBLookupCombo2: TRxDBLookupCombo;
Label34: TLabel;
DBEdit16: TDBEdit;
Label7: TLabel;
wwDBComboBox1: TwwDBComboBox;
Label8: TLabel;
DBEdit5: TDBEdit;
DBMemo3: TDBMemo;
Label35: TLabel;
DBMemo4: TDBMemo;
Label36: TLabel;
Label39: TLabel;
RxDBLookupCombo29: TRxDBLookupCombo;
RxDBLookupCombo30: TRxDBLookupCombo;
Label42: TLabel;
bsSkinTabSheet4: TbsSkinTabSheet;
PopupMenu2: TPopupMenu;
N10: TMenuItem;
N11: TMenuItem;
N14: TMenuItem;
N13: TMenuItem;
N12: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
bsSkinGroupBox5: TbsSkinGroupBox;
bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox4: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox5: TbsSkinDBCheckRadioBox;
fra_op_card1: Tfra_op_card;
PopupMenu3: TPopupMenu;
N37: TMenuItem;
N38: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N34: TMenuItem;
N35: TMenuItem;
N36: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
bsSkinTabSheet5: TbsSkinTabSheet;
fra_op_letter_free1: Tfra_op_letter_free;
N23: TMenuItem;
N24: TMenuItem;
N25: TMenuItem;
N26: TMenuItem;
N27: TMenuItem;
N28: TMenuItem;
N29: TMenuItem;
N30: TMenuItem;
bsSkinPanel2: TbsSkinPanel;
bsSkinDBText2: TbsSkinDBText;
bsSkinTabSheet6: TbsSkinTabSheet;
bsSkinGroupBox7: TbsSkinGroupBox;
bsSkinPanel7: TbsSkinPanel;
Label100: TLabel;
Label101: TLabel;
Label102: TLabel;
DBEdit31: TDBEdit;
DBEdit32: TDBEdit;
DBEdit33: TDBEdit;
bsSkinButton38: TbsSkinButton;
Label80: TLabel;
RxDBLookupCombo32: TRxDBLookupCombo;
Label81: TLabel;
RxDBLookupCombo33: TRxDBLookupCombo;
t_op_seai_fen: TADOQuery;
t_op_seai_fen1: TDataSource;
PopupMenu4: TPopupMenu;
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;
MenuItem3: TMenuItem;
N61: TMenuItem;
N76: TMenuItem;
N77: TMenuItem;
N78: TMenuItem;
Label40: TLabel;
DBMemo5: TDBMemo;
RxDBLookupCombo14: TRxDBLookupCombo;
wwDBLookupCombo1: TwwDBLookupCombo;
Label43: TLabel;
RxDBLookupCombo15: TRxDBLookupCombo;
wwDBLookupCombo4: TwwDBLookupCombo;
DBMemo6: TDBMemo;
DBMemo7: TDBMemo;
Label44: TLabel;
RxDBLookupCombo16: TRxDBLookupCombo;
wwDBLookupCombo7: TwwDBLookupCombo;
N32: TMenuItem;
N33: TMenuItem;
N39: TMenuItem;
N40: TMenuItem;
N41: TMenuItem;
N42: TMenuItem;
N43: TMenuItem;
N44: TMenuItem;
N45: TMenuItem;
t_op_seai2: TDataSource;
N46: TMenuItem;
N47: TMenuItem;
Label41: TLabel;
RxDBLookupCombo31: TRxDBLookupCombo;
Label19: TLabel;
RxDBLookupCombo12: TRxDBLookupCombo;
Label45: TLabel;
Label46: TLabel;
RxDBLookupCombo18: TRxDBLookupCombo;
DBText1: TDBText;
N48: TMenuItem;
N49: TMenuItem;
N50: TMenuItem;
N51: TMenuItem;
bsSkinPageControl2: TbsSkinPageControl;
tabsheet1: TbsSkinTabSheet;
Label122: TLabel;
Label121: TLabel;
Label123: TLabel;
DBMemo33: TDBMemo;
DBMemo34: TDBMemo;
DBMemo35: TDBMemo;
wwDBLookupCombo5: TwwDBLookupCombo;
RxDBLookupCombo4: TRxDBLookupCombo;
wwDBLookupCombo2: TwwDBLookupCombo;
RxDBLookupCombo3: TRxDBLookupCombo;
RxDBLookupCombo5: TRxDBLookupCombo;
wwDBLookupCombo6: TwwDBLookupCombo;
tabsheet2: TbsSkinTabSheet;
Panel1: TPanel;
bsSkinButton31: TbsSkinButton;
bsSkinButton32: TbsSkinButton;
bsSkinButton33: TbsSkinButton;
bsSkinButton34: TbsSkinButton;
bsSkinButton36: TbsSkinButton;
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;
N52: TMenuItem;
N53: TMenuItem;
bsSkinPanel3: TbsSkinPanel;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column2: TdxDBGridMaskColumn;
dxDBGrid1Column67: TdxDBGridColumn;
dxDBGrid1Column3: TdxDBGridMaskColumn;
dxDBGrid1Column4: TdxDBGridMaskColumn;
dxDBGrid1Column5: TdxDBGridMaskColumn;
dxDBGrid1Column62: TdxDBGridColumn;
dxDBGrid1Column6: TdxDBGridMaskColumn;
dxDBGrid1Column7: TdxDBGridMaskColumn;
dxDBGrid1Column8: TdxDBGridDateColumn;
dxDBGrid1Column61: TdxDBGridColumn;
dxDBGrid1Column9: TdxDBGridDateColumn;
dxDBGrid1Column10: TdxDBGridMaskColumn;
dxDBGrid1Column11: TdxDBGridMaskColumn;
dxDBGrid1Column12: TdxDBGridMaskColumn;
dxDBGrid1Column13: TdxDBGridMaskColumn;
dxDBGrid1Column14: TdxDBGridMaskColumn;
dxDBGrid1Column15: TdxDBGridMaskColumn;
dxDBGrid1Column16: TdxDBGridMaskColumn;
dxDBGrid1Column17: TdxDBGridMaskColumn;
dxDBGrid1Column18: TdxDBGridMaskColumn;
dxDBGrid11: TdxDBGridMaskColumn;
dxDBGrid12: TdxDBGridMaskColumn;
dxDBGrid13: TdxDBGridMaskColumn;
dxDBGrid14: TdxDBGridMaskColumn;
dxDBGrid15: TdxDBGridMaskColumn;
dxDBGrid16: TdxDBGridMaskColumn;
dxDBGrid17: TdxDBGridMaskColumn;
dxDBGrid18: TdxDBGridMaskColumn;
dxDBGrid19: TdxDBGridMaskColumn;
dxDBGrid110: TdxDBGridMaskColumn;
dxDBGrid1Column39: TdxDBGridMaskColumn;
dxDBGrid1TEU: TdxDBGridMaskColumn;
dxDBGrid1Column41: TdxDBGridMaskColumn;
dxDBGrid1Column42: TdxDBGridMaskColumn;
dxDBGrid1Column43: TdxDBGridMaskColumn;
dxDBGrid1Column44: TdxDBGridColumn;
dxDBGrid1Column45: TdxDBGridColumn;
dxDBGrid1Column46: TdxDBGridMaskColumn;
dxDBGrid1Column47: TdxDBGridMaskColumn;
dxDBGrid1Column48: TdxDBGridDateColumn;
dxDBGrid1Column49: TdxDBGridMaskColumn;
dxDBGrid1Column50: TdxDBGridMaskColumn;
dxDBGrid1Column51: TdxDBGridMaskColumn;
dxDBGrid1Column52: TdxDBGridMaskColumn;
dxDBGrid1Column53: TdxDBGridMaskColumn;
dxDBGrid1Column54: TdxDBGridMaskColumn;
dxDBGrid1Column55: TdxDBGridMaskColumn;
dxDBGrid1Column56: TdxDBGridMaskColumn;
dxDBGrid1Column57: TdxDBGridMaskColumn;
dxDBGrid1Column58: TdxDBGridColumn;
dxDBGrid1Column59: TdxDBGridCheckColumn;
dxDBGrid1Column60: TdxDBGridColumn;
dxDBGrid1Column63: TdxDBGridColumn;
dxDBGrid1Column64: TdxDBGridColumn;
dxDBGrid1Column65: TdxDBGridColumn;
dxDBGrid1Column66: TdxDBGridColumn;
dxDBGrid1Column68: TdxDBGridColumn;
dxDBGrid1Column69: TdxDBGridColumn;
dxDBGrid1Column70: TdxDBGridColumn;
bsSkinPanel9: TbsSkinPanel;
Label116: TLabel;
Label130: TLabel;
Label131: TLabel;
Label132: TLabel;
Edit1: TEdit;
Edit4: TEdit;
Edit2: TEdit;
Edit3: TEdit;
bsSkinButton44: TbsSkinButton;
bsSkinButton13: TbsSkinButton;
bsSkinGroupBox1: TbsSkinGroupBox;
Label47: TLabel;
wwDBLookupCombo8: TwwDBLookupCombo;
Label48: TLabel;
DBEdit6: TDBEdit;
Label49: TLabel;
wwDBDateTimePicker1: TwwDBDateTimePicker;
Label50: TLabel;
wwDBLookupCombo9: TwwDBLookupCombo;
RxDBLookupCombo22: TRxDBLookupCombo;
Label52: TLabel;
Label53: TLabel;
wwDBDateTimePicker2: TwwDBDateTimePicker;
Label54: TLabel;
wwDBDateTimePicker3: TwwDBDateTimePicker;
Label55: TLabel;
wwDBDateTimePicker5: TwwDBDateTimePicker;
Label56: TLabel;
wwDBLookupCombo21: TwwDBLookupCombo;
bsSkinTabSheet7: TbsSkinTabSheet;
bsSkinButton21: TbsSkinButton;
bsSkinButton12: TbsSkinButton;
bsSkinButton14: TbsSkinButton;
bsSkinButton15: TbsSkinButton;
DBMemo8: TDBMemo;
Label58: TLabel;
Label59: TLabel;
DBMemo9: TDBMemo;
dxDBGrid1Column71: TdxDBGridColumn;
dxDBGrid1Column72: TdxDBGridColumn;
bsSkinPanel10: TbsSkinPanel;
lblhbl: TLabel;
bsSkinPanel4: TbsSkinPanel;
lblwt: TLabel;
Label17: TLabel;
RxDBLookupCombo13: TRxDBLookupCombo;
Label133: TLabel;
DBEdit41: TDBEdit;
bsSkinPanel12: TbsSkinPanel;
lbldc: TLabel;
bsSkinSpeedButton1: TbsSkinSpeedButton;
bsSkinButton16: TbsSkinButton;
wwDBComboBox9: TwwDBComboBox;
N54: TMenuItem;
N55: TMenuItem;
Label51: TLabel;
RxDBLookupCombo28: TRxDBLookupCombo;
Label57: TLabel;
wwDBDateTimePicker6: TwwDBDateTimePicker;
Label60: TLabel;
wwDBDateTimePicker7: TwwDBDateTimePicker;
N56: TMenuItem;
EDI1: TMenuItem;
EDI2: TMenuItem;
N57: TMenuItem;
N58: TMenuItem;
N59: TMenuItem;
N60: TMenuItem;
Label61: TLabel;
RxDBLookupCombo21: TRxDBLookupCombo;
RxDBLookupCombo17: TRxDBLookupCombo;
Label62: TLabel;
dxDBGrid1Column73: TdxDBGridColumn;
dxDBGrid1Column74: TdxDBGridColumn;
dxDBGrid2Column17: TdxDBGridColumn;
dxDBGrid1Column75: TdxDBGridColumn;
dxDBGrid1Column76: TdxDBGridCheckColumn;
bsSkinButton45: TbsSkinButton;
N62: TMenuItem;
N63: TMenuItem;
bsSkinGroupBox2: TbsSkinGroupBox;
wwDBDateTimePicker8: TwwDBDateTimePicker;
Label63: TLabel;
Label66: TLabel;
DBEdit19: TDBEdit;
DBEdit20: TDBEdit;
Label67: TLabel;
Label68: TLabel;
DBEdit21: TDBEdit;
bsSkinGroupBox3: TbsSkinGroupBox;
Label69: TLabel;
Label70: TLabel;
Label74: TLabel;
Label75: TLabel;
Label76: TLabel;
Label77: TLabel;
Label82: TLabel;
Label154: TLabel;
wwDBDateTimePicker9: TwwDBDateTimePicker;
DBEdit22: TDBEdit;
DBEdit24: TDBEdit;
wwDBDateTimePicker10: TwwDBDateTimePicker;
DBEdit25: TDBEdit;
DBEdit26: TDBEdit;
DBEdit28: TDBEdit;
DBEdit50: TDBEdit;
t_op_file: TADOQuery;
dsrFuJian: TDataSource;
bsSkinGroupBox13: TbsSkinGroupBox;
bsSkinPanel14: TbsSkinPanel;
bsSkinButton48: TbsSkinButton;
bsSkinButton49: TbsSkinButton;
bsSkinButton50: TbsSkinButton;
bsSkinButton51: TbsSkinButton;
dxDBGrid3: TdxDBGrid;
dxDBGrid2fid: TdxDBGridMaskColumn;
dxDBGrid2rl_id: TdxDBGridMaskColumn;
dxDBGridColumn1: TdxDBGridColumn;
dxDBGridColumn2: TdxDBGridColumn;
dxDBGridColumn3: TdxDBGridColumn;
dxDBGridDateColumn1: TdxDBGridDateColumn;
dxDBGridColumn4: TdxDBGridColumn;
dxDBGridColumn5: TdxDBGridColumn;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
dxDBGrid1Column77: TdxDBGridColumn;
Label71: TLabel;
DBEdit23: TDBEdit;
Label72: TLabel;
DBEdit29: TDBEdit;
dxDBGrid1Column78: TdxDBGridColumn;
bsSkinButton17: TbsSkinButton;
dxDBGrid1Column79: TdxDBGridCheckColumn;
dxDBGrid1Column80: TdxDBGridCheckColumn;
bsSkinPanel5: TbsSkinPanel;
Label79: TLabel;
wwDBDateTimePicker11: TwwDBDateTimePicker;
Label83: TLabel;
wwDBDateTimePicker12: TwwDBDateTimePicker;
Label84: TLabel;
DBEdit30: TDBEdit;
bsSkinButton18: TbsSkinButton;
bsSkinButton19: TbsSkinButton;
bsSkinDBCheckRadioBox6: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox7: TbsSkinDBCheckRadioBox;
Label85: TLabel;
DBEdit34: TDBEdit;
Label112: TLabel;
RxDBLookupCombo43: TRxDBLookupCombo;
Label111: TLabel;
DBEdit40: TDBEdit;
Label86: TLabel;
DBEdit35: TDBEdit;
t_op_seae_danwei: TADOQuery;
t_op_seae_danwei1: TDataSource;
Label182: TLabel;
RxDBLookupCombo23: TRxDBLookupCombo;
N64: TMenuItem;
N65: TMenuItem;
N66: TMenuItem;
N67: TMenuItem;
N68: TMenuItem;
N69: TMenuItem;
N70: TMenuItem;
bsSkinButton60: TbsSkinButton;
N71: TMenuItem;
N72: TMenuItem;
N73: TMenuItem;
N74: TMenuItem;
Label78: TLabel;
DBEdit27: TDBEdit;
N75: TMenuItem;
N79: TMenuItem;
N80: TMenuItem;
N81: TMenuItem;
N82: TMenuItem;
procedure bsSkinButton7Click(Sender: TObject);
procedure bsSkinButton6Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bsSkinButton9Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure bsSkinButton8Click(Sender: TObject);
procedure Panel2Resize(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure t_op_seaiBeforeEdit(DataSet: TDataSet);
procedure t_op_seaiBeforePost(DataSet: TDataSet);
procedure DBEdit13Click(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 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 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 RxDBLookupCombo13KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo49KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit63KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo52KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo3KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit14KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit12KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit15KeyPress(Sender: TObject; var Key: Char);
procedure wwDBComboBox2KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo3Change(Sender: TObject);
procedure RxDBLookupCombo4Change(Sender: TObject);
procedure RxDBLookupCombo5Change(Sender: TObject);
procedure DBEdit18KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit16KeyPress(Sender: TObject; var Key: Char);
procedure wwDBComboBox1KeyPress(Sender: TObject; var Key: Char);
procedure wwDBComboBox3KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo20KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo9KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo8KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo6KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo7KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo19KeyPress(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 DBEdit83KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit81Change(Sender: TObject);
procedure DBEdit2Change(Sender: TObject);
procedure DBEdit3Change(Sender: TObject);
procedure wwDBLookupCombo2Enter(Sender: TObject);
procedure wwDBLookupCombo5Enter(Sender: TObject);
procedure wwDBLookupCombo6Enter(Sender: TObject);
procedure wwDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo5KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo6KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo3KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo4KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo5KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo2Change(Sender: TObject);
procedure wwDBLookupCombo5Change(Sender: TObject);
procedure wwDBLookupCombo6Change(Sender: TObject);
procedure wwDBLookupCombo2Exit(Sender: TObject);
procedure wwDBLookupCombo5Exit(Sender: TObject);
procedure wwDBLookupCombo6Exit(Sender: TObject);
procedure RxDBLookupCombo29KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo30KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo12Change(Sender: TObject);
procedure RxDBLookupCombo2Change(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure N10Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure bsSkinButton13Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N34Click(Sender: TObject);
procedure N36Click(Sender: TObject);
procedure N37Click(Sender: TObject);
procedure RxDBLookupCombo1Enter(Sender: TObject);
procedure RxDBLookupCombo3Enter(Sender: TObject);
procedure RxDBLookupCombo4Enter(Sender: TObject);
procedure RxDBLookupCombo5Enter(Sender: TObject);
procedure RxDBLookupCombo9Enter(Sender: TObject);
procedure RxDBLookupCombo6Enter(Sender: TObject);
procedure RxDBLookupCombo19Enter(Sender: TObject);
procedure RxDBLookupCombo10Enter(Sender: TObject);
procedure RxDBLookupCombo7Enter(Sender: TObject);
procedure RxDBLookupCombo8Enter(Sender: TObject);
procedure RxDBLookupCombo1Exit(Sender: TObject);
procedure RxDBLookupCombo3Exit(Sender: TObject);
procedure RxDBLookupCombo4Exit(Sender: TObject);
procedure RxDBLookupCombo5Exit(Sender: TObject);
procedure RxDBLookupCombo9Exit(Sender: TObject);
procedure RxDBLookupCombo8Exit(Sender: TObject);
procedure RxDBLookupCombo6Exit(Sender: TObject);
procedure RxDBLookupCombo7Exit(Sender: TObject);
procedure RxDBLookupCombo19Exit(Sender: TObject);
procedure RxDBLookupCombo10Exit(Sender: TObject);
procedure RxDBLookupCombo20Enter(Sender: TObject);
procedure RxDBLookupCombo20Exit(Sender: TObject);
procedure RxDBLookupCombo11Enter(Sender: TObject);
procedure RxDBLookupCombo11Exit(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Label4Click(Sender: TObject);
procedure Label122Click(Sender: TObject);
procedure Label121Click(Sender: TObject);
procedure Label123Click(Sender: TObject);
procedure Label33Click(Sender: TObject);
procedure Label25Click(Sender: TObject);
procedure Label24Click(Sender: TObject);
procedure Label27Click(Sender: TObject);
procedure Label23Click(Sender: TObject);
procedure Label21Click(Sender: TObject);
procedure wwDBLookupCombo2DblClick(Sender: TObject);
procedure Label125Click(Sender: TObject);
procedure Label16Click(Sender: TObject);
procedure Label10Click(Sender: TObject);
procedure Label73Click(Sender: TObject);
procedure Label164Click(Sender: TObject);
procedure N22Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure RxDBLookupCombo31KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo31Enter(Sender: TObject);
procedure RxDBLookupCombo31Exit(Sender: TObject);
procedure wwDBLookupCombo52Change(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure N26Click(Sender: TObject);
procedure N31Click(Sender: TObject);
procedure t_op_seaiPostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
procedure t_op_seaiBeforeDelete(DataSet: TDataSet);
procedure t_op_seaiBeforeCancel(DataSet: TDataSet);
procedure N27Click(Sender: TObject);
procedure N30Click(Sender: TObject);
procedure dxDBGrid1Column67CustomDraw(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 bsSkinPageControl1Change(Sender: TObject);
procedure bsSkinButton38Click(Sender: TObject);
procedure t_op_seai_fenAfterInsert(DataSet: TDataSet);
procedure t_op_seai_fenBeforeCancel(DataSet: TDataSet);
procedure t_op_seai_fenBeforeDelete(DataSet: TDataSet);
procedure t_op_seai_fenBeforeEdit(DataSet: TDataSet);
procedure t_op_seai_fenBeforePost(DataSet: TDataSet);
procedure bsSkinButton33Click(Sender: TObject);
procedure bsSkinButton34Click(Sender: TObject);
procedure bsSkinButton36Click(Sender: TObject);
procedure MenuItem1Click(Sender: TObject);
procedure MenuItem3Click(Sender: TObject);
procedure RxDBLookupCombo14KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo7KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo4KeyPress(Sender: TObject; var Key: Char);
procedure N39Click(Sender: TObject);
procedure N41Click(Sender: TObject);
procedure N43Click(Sender: TObject);
procedure N45Click(Sender: TObject);
procedure wwDBComboBox2Change(Sender: TObject);
procedure bsSkinButton32Click(Sender: TObject);
procedure N47Click(Sender: TObject);
procedure RxDBLookupCombo17KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo18KeyPress(Sender: TObject; var Key: Char);
procedure bsSkinButton44Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure N50Click(Sender: TObject);
procedure N51Click(Sender: TObject);
procedure N53Click(Sender: TObject);
procedure wwDBDateTimePicker2KeyPress(Sender: TObject; var Key: Char);
procedure wwDBDateTimePicker3KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo21KeyPress(Sender: TObject; var Key: Char);
procedure wwDBDateTimePicker5KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo21KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo22KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo10KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo11KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit13KeyPress(Sender: TObject; var Key: Char);
procedure bsSkinButton21Click(Sender: TObject);
procedure bsSkinButton12Click(Sender: TObject);
procedure bsSkinButton14Click(Sender: TObject);
procedure bsSkinButton15Click(Sender: TObject);
procedure Notebook1PageChanged(Sender: TObject);
procedure RxDBLookupCombo16Change(Sender: TObject);
procedure RxDBLookupCombo16Enter(Sender: TObject);
procedure RxDBLookupCombo16Exit(Sender: TObject);
procedure RxDBLookupCombo15Change(Sender: TObject);
procedure RxDBLookupCombo15Enter(Sender: TObject);
procedure RxDBLookupCombo15Exit(Sender: TObject);
procedure RxDBLookupCombo11Change(Sender: TObject);
procedure DBEdit16DblClick(Sender: TObject);
procedure DBEdit16Exit(Sender: TObject);
procedure t_op_seai_fenPostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
procedure wwDBDateTimePicker4KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit8DblClick(Sender: TObject);
procedure DBEdit8Exit(Sender: TObject);
procedure DBEdit41KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit41Exit(Sender: TObject);
procedure DBEdit41DblClick(Sender: TObject);
procedure bsSkinSpeedButton1Click(Sender: TObject);
procedure bsSkinButton16Click(Sender: TObject);
procedure wwDBComboBox9KeyPress(Sender: TObject; var Key: Char);
procedure wwDBComboBox9DropDown(Sender: TObject);
procedure RxDBLookupCombo31Change(Sender: TObject);
procedure N55Click(Sender: TObject);
procedure RxDBLookupCombo28KeyPress(Sender: TObject; var Key: Char);
procedure wwDBDateTimePicker6KeyPress(Sender: TObject; var Key: Char);
procedure wwDBDateTimePicker7KeyPress(Sender: TObject; var Key: Char);
procedure EDI2Click(Sender: TObject);
procedure N58Click(Sender: TObject);
procedure N60Click(Sender: TObject);
procedure bsSkinButton45Click(Sender: TObject);
procedure N63Click(Sender: TObject);
procedure t_op_fileBeforeEdit(DataSet: TDataSet);
procedure bsSkinButton48Click(Sender: TObject);
procedure bsSkinButton49Click(Sender: TObject);
procedure bsSkinButton50Click(Sender: TObject);
procedure bsSkinButton51Click(Sender: TObject);
procedure fra_op_state1bsSkinButton11Click(Sender: TObject);
procedure fra_op_state1bsSkinButton7Click(Sender: TObject);
procedure dxDBGrid1Column77CustomDraw(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 bsSkinButton17Click(Sender: TObject);
procedure wwDBDateTimePicker4Change(Sender: TObject);
procedure bsSkinButton18Click(Sender: TObject);
procedure bsSkinButton19Click(Sender: TObject);
procedure RxDBLookupCombo23Enter(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N66Click(Sender: TObject);
procedure N68Click(Sender: TObject);
procedure N70Click(Sender: TObject);
procedure bsSkinButton60Click(Sender: TObject);
procedure fra_op_state1bsSkinButton1Click(Sender: TObject);
procedure N72Click(Sender: TObject);
procedure N74Click(Sender: TObject);
procedure N80Click(Sender: TObject);
procedure N82Click(Sender: TObject);
procedure t_op_seaiAfterPost(DataSet: TDataSet);
procedure fra_op_state1bsSkinButton8Click(Sender: TObject);
private
frm_op_seai_sf_create:Boolean;
Letter_flag:Integer;
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>
function UpdateopseaeStatus(bsNO,Salas:string):Boolean;
function CalcCQXSF(bsNo,Carrer:string):Double;
{ Private declarations }
public
seaipsqlstr:widestring;
{ Public declarations }
end;
var
frm_op_seai_sf: Tfrm_op_seai_sf;
edi_addseaisf:boolean;
implementation
uses u_main,my_sys_function, u_op_seai_add, u_op_ctn,
u_data_share, u_sys_progress, u_op_seai_double, u_ch_piliang_seai,
u_op_date_change, {$IFDEF DLFENZHANG}u_op_seae_fenzhang,{$ENDIF} u_op_add_seai, u_sys_tab_sort,
u_op_seai_assistant, u_ch_fee_zhupiao,
u_op_seae_state_up, u_op_letter, u_op_seai_edi_yd, u_seai_sf_status,
u_seai_sf_xsf;
{$R *.dfm}
function Tfrm_op_seai_sf.CalcCQXSF(bsNo,Carrer:string):Double;
var aAdoQuery,bAdoQuery:TAdoQuery;
CQDay,days,FreeDays:Integer;
begin
result:=0;
aAdoQuery:=CreateAdoQuery;
bAdoQuery:=CreateAdoQuery;
with bAdoQuery do
begin
Close;SQL.Clear;
SQL.Add('select *');
SQL.Add('from t_ctn_cqfee');
SQL.Add('where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ=:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ');
end;
FreeDays:=t_op_seai1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʹ<EFBFBD><CAB9><EFBFBD><EFBFBD>').AsInteger;
if t_op_seai1.DataSet.FieldByName('<27>Ż<EFBFBD><C5BB><EFBFBD><EFBFBD><EFBFBD>').IsNull then
begin
CQDay:=daysBetween(Date,t_op_seai1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDatetime)-t_op_seai1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʹ<EFBFBD><CAB9><EFBFBD><EFBFBD>').AsInteger;
days:=daysBetween(Date,t_op_seai1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDatetime);
end
else
begin
CQDay:=daysBetween(t_op_seai1.DataSet.FieldByName('<27>Ż<EFBFBD><C5BB><EFBFBD><EFBFBD><EFBFBD>').AsDateTime,t_op_seai1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDatetime)-t_op_seai1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʹ<EFBFBD><CAB9><EFBFBD><EFBFBD>').AsInteger;
days:=daysBetween(t_op_seai1.DataSet.FieldByName('<27>Ż<EFBFBD><C5BB><EFBFBD><EFBFBD><EFBFBD>').AsDateTime,t_op_seai1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDatetime);
end;
with aAdoQuery do
try
Close;SQL.Clear;
SQL.Add('select *');
SQL.Add('from t_op_ctn');
SQL.Add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=bsNo;
Open;First;
while not Eof do
begin
bAdoQuery.Close;
bAdoQuery.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=Carrer;
bAdoQuery.Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').Value:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').Value;
bAdoQuery.Open;
if bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>ʹ<EFBFBD><CAB9>').asFloat=0 then
begin
if CQDay<=bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>1').AsInteger then
begin
result:=result+CQDay*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>1').asFloat;
end
else
if (CQDay>bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>1').AsInteger) and (CQDay<=bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>2').AsInteger) then
begin
result:=result+CQDay*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>2').asFloat;
end
else
if (CQDay>bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>2').AsInteger) and (CQDay<=bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>3').AsInteger) then
begin
result:=result+CQDay*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>3').asFloat;
end
else
if (CQDay>bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>3').AsInteger) and (CQDay<=bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>4').AsInteger) then
begin
result:=result+CQDay*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>4').asFloat;
end
else
if (CQDay>bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>4').AsInteger) and (CQDay<=bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>5').AsInteger) then
begin
result:=result+CQDay*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>5').asFloat;
end
else
if CQDay>bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>5').AsInteger then
begin
result:=result+CQDay*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>5').asFloat;
end;
end
else //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
if (Days>bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>5').AsInteger) then
begin
if FreeDays<Days then
begin
result:=result+(Days-FreeDays)*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>5').asFloat;
end;
end
else
if (Days>bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>4').AsInteger) and (Days<=bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>5').AsInteger) then
begin
if (FreeDays>bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>4').AsInteger) and (FreeDays<=bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>5').AsInteger) then
begin
if FreeDays<Days then
begin
result:=result+(Days-FreeDays)*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>5').asFloat;
end;
end
else
if (FreeDays>bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>3').AsInteger) and (FreeDays<=bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>4').AsInteger) then
begin
result:=result+(Days-bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>4').AsInteger)*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>5').asFloat;
if FreeDays<bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>4').AsInteger then
begin
result:=result+(bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>4').AsInteger-FreeDays)*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>4').asFloat;
end;
end
else
if (FreeDays>bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>2').AsInteger) and (FreeDays<=bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>3').AsInteger) then
begin
result:=result+(Days-bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>4').AsInteger)*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>5').asFloat;
result:=result+(bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>4').AsInteger-bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>3').AsInteger)*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>4').asFloat;
if FreeDays<bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>3').AsInteger then
begin
result:=result+(bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>3').AsInteger-FreeDays)*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>3').asFloat;
end;
end
else
if (FreeDays>bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>1').AsInteger) and (FreeDays<=bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>2').AsInteger) then
begin
result:=result+(Days-bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>4').AsInteger)*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>5').asFloat;
result:=result+(bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>4').AsInteger-bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>3').AsInteger)*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>4').asFloat;
result:=result+(bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>3').AsInteger-bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>2').AsInteger)*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>3').asFloat;
if FreeDays<bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>2').AsInteger then
begin
result:=result+(bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>2').AsInteger-FreeDays)*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>2').asFloat;
end;
end;
end
else
if (Days>bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>3').AsInteger) and (Days<=bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>4').AsInteger) then
begin
if (FreeDays>bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>3').AsInteger) and (FreeDays<=bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>4').AsInteger) then
begin
if FreeDays<Days then
begin
result:=result+(Days-FreeDays)*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>4').asFloat;
end;
end
else
if (FreeDays>bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>2').AsInteger) and (FreeDays<=bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>3').AsInteger) then
begin
result:=result+(Days-bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>3').AsInteger)*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>4').asFloat;
if FreeDays<bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>3').AsInteger then
begin
result:=result+(bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>3').AsInteger-FreeDays)*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>3').asFloat;
end;
end
else
if (FreeDays>bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>1').AsInteger) and (FreeDays<=bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>2').AsInteger) then
begin
result:=result+(Days-bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>3').AsInteger)*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>4').asFloat;
result:=result+(bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>3').AsInteger-bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>2').AsInteger)*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>3').asFloat;
if FreeDays<bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>2').AsInteger then
begin
result:=result+(bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>2').AsInteger-FreeDays)*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>2').asFloat;
end;
end;
end
else
if (Days>bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>2').AsInteger) and (Days<=bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>3').AsInteger) then
begin
if (FreeDays>bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>2').AsInteger) and (FreeDays<=bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>3').AsInteger) then
begin
if FreeDays<Days then
begin
result:=result+(Days-FreeDays)*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>3').asFloat;
end;
end
else
if (FreeDays>bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>1').AsInteger) and (FreeDays<=bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>2').AsInteger) then
begin
result:=result+(Days-bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>2').AsInteger)*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>3').asFloat;
if FreeDays<bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>2').AsInteger then
begin
result:=result+(bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>2').AsInteger-FreeDays)*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>2').asFloat;
end;
end;
end
else
if (Days>bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>1').AsInteger) and (Days<=bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>2').AsInteger) then
begin
if FreeDays<bAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>2').AsInteger then
begin
result:=result+(Days-FreeDays)*bAdoQuery.FieldByName('<27><>ʹ<EFBFBD><CAB9>2').asFloat;
end;
end;
end;
Next;
end;
Close;SQL.Clear;
SQL.Add('Update t_op_seai set <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʹ<EFBFBD><CAB9>=:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʹ<EFBFBD><CAB9>');
SQL.Add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=bsNo;
if CQDay>=0 then
Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=CQDay
else Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=0;
if result>=0 then
Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʹ<EFBFBD><CAB9>').Value:=result
else Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʹ<EFBFBD><CAB9>').Value:=0;
ExecSQL;
finally
aAdoQuery.Free;
bAdoQuery.Free;
end;
end;
procedure Tfrm_op_seai_sf.bsSkinButton7Click(Sender: TObject);
begin
table_Prior(t_op_seai);
end;
procedure Tfrm_op_seai_sf.bsSkinButton6Click(Sender: TObject);
begin
table_next(t_op_seai);
end;
procedure Tfrm_op_seai_sf.bsSkinButton2Click(Sender: TObject);
begin
if t_op_seai1.DataSet=nil then
Exit;
if t_op_seai1.DataSet.State in [dsedit,dsinsert] then
t_op_seai1.DataSet.Post;
end;
procedure Tfrm_op_seai_sf.bsSkinButton4Click(Sender: TObject);
begin
if t_op_seai1.DataSet=nil then
exit;
if t_op_seai1.DataSet.IsEmpty then
exit;
t_ch_fee.close;
t_ch_fee.Parameters[0].value:=t_op_seai1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
t_ch_fee.open;
if not t_ch_fee.IsEmpty then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
if t_op_seai1.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
begin
if not t_op_seai_fen.IsEmpty then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><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
t_op_seai1.DataSet.delete;
end;
procedure Tfrm_op_seai_sf.bsSkinButton3Click(Sender: TObject);
begin
if t_op_seai1.DataSet=nil then
exit;
if (t_op_seai1.DataSet.State=dsinsert)or(t_op_seai1.DataSet.State=dsedit) then
t_op_seai1.DataSet.cancel;
end;
procedure Tfrm_op_seai_sf.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_seai_sf.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
savereggrid(dxdbgrid1,caption);
savereggrid(dxdbgrid2,caption+'2');
savewwgrid(fra_fee1.wwDBGrid1,'<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
savewwgrid(fra_fee1.wwDBGrid2,'<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
{$IFDEF DLFENZHANG}
if assigned(frm_op_seae_fenzhang) then
begin
FreeAndNil(frm_op_seae_fenzhang);
end;
{$ENDIF}
if assigned(frm_op_seai_assistant) then
frm_op_seai_assistant.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;
frm_op_seai_sf.Hide;
frm_op_seai_sf.ManualFloat(frm_op_seai_sf.BoundsRect );
frm_main.freeTabs('frm_op_seai_sf');
frm_op_seai_sf_create:=false;
action:=cafree;
frm_op_seai_sf:=nil;
end;
procedure Tfrm_op_seai_sf.bsSkinButton9Click(Sender: TObject);
begin
sys_print('<27><><EFBFBD>˽<EFBFBD><CBBD>ڵ<EFBFBD>֤',2,t_op_seai1,nil,nil,nil,t_op_seai_fen1,nil,nil,nil,nil,nil,nil);
end;
procedure Tfrm_op_seai_sf.FormShow(Sender: TObject);
var
inifile1,seabandini:Tinifile;
i,j,n:integer;
sl:TStrings;
begin
frm_op_seai_sf_create:=false;
Notebook1.PageIndex:=0;
if not ASSIGNED(frm_sys_progress) then
frm_sys_progress:=tfrm_sys_progress.Create(self);
frm_sys_progress.bsSkinGauge1.ProgressText:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ⱥ򡣡<C8BA><F2A1A3A1><EFBFBD>';
frm_sys_progress.Show;
frm_sys_progress.bsSkinGauge1.MaxValue:=28;
frm_sys_progress.bsSkinGauge1.MinValue:=0;
frm_sys_progress.bsSkinGauge1.Value:=0;
frm_sys_progress.Update;
Label130.Caption:=Logininfo.seaiwtno;
Label37.Caption:=Logininfo.seaiwtno;
Label133.Caption:=Logininfo.seaedcno;
dxDBGrid1Column4.Caption:=Logininfo.seaiwtno;
/// edi_addseai:=false;
bsSkinDBCheckRadioBox6.visible:=strtobool(get_parameters_value(160,'false'));
bsSkinDBCheckRadioBox7.Visible:=strtobool(get_parameters_value(160,'false'));
bsSkinButton18.visible:=strtobool(get_parameters_value(160,'false'));
bsSkinButton19.visible:=strtobool(get_parameters_value(160,'false'));
//<2F><><EFBFBD><EFBFBD>ί<EFBFBD>б<EFBFBD><D0B1>Ź<EFBFBD><C5B9><EFBFBD>
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then begin
DBEdit8.Width:=110;
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:=90;
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:=110;
bsSkinSpeedButton1.Visible:=false;
end;
t_op_seai_fen.Close;
t_op_seai.Close;
t_op_seai.SQL.clear;
if strtobool(get_parameters_value(132,'true')) then begin
//<2F><><EFBFBD><EFBFBD>100Ʊ<30>Լ<EFBFBD><D4BC><EFBFBD>ҵ<EFBFBD><D2B5>
t_op_seai.SQL.Add('select top 100 * from t_op_seai where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and װ<>˷<EFBFBD>ʽ=''<27><><EFBFBD><EFBFBD>'' and '
+'(¼<><C2BC><EFBFBD><EFBFBD>='+''''+employee+''''+' or <20><><EFBFBD><EFBFBD>Ա='+''''+employee+''''
+' or <20>ͷ<EFBFBD>Ա='+''''+employee+''''+' or <20><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>='+''''+employee+''''
+' or <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+employee+''''+')'
+default_sort(54,'t_op_seai','','desc'));
end else begin
//<2F><><EFBFBD><EFBFBD>Ȩ<EFBFBD>޷<EFBFBD>Χ<EFBFBD>ڵ<EFBFBD>ҵ<EFBFBD><D2B5>
t_op_seai.SQL.Add('select * from t_op_seai where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and װ<>˷<EFBFBD>ʽ=''<27><><EFBFBD><EFBFBD>'' and '
+' SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7)='''+FormatDateTime('YYYY',Date)+'/'+FormatDateTime('MM',Date)+''' and '
+open_data('0002','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+default_sort(54,'t_op_seai','','desc'));
end;
t_op_seai.open;
t_op_seai_fen.open;
seaipsqlstr:='';
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
fra_op_letter_free1.op_type.Text:='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>';
fra_op_letter_free1.t_op_letter.DataSource:=t_op_seai1;
fra_op_letter_free1.t_op_letter.open;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
fra_op_letter_free1.t_op_letter_free_detail.open;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
fra_op_card1.t_op_card.DataSource:=t_op_seai1;
fra_op_card1.t_op_card.open;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
loadreggrid(dxdbgrid1,true,caption);
loadreggrid(dxdbgrid2,true,caption+'2');
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ
if if_open('295') or if_open('296') then
begin
fra_fee1.edit_type.text:='7';
// fra_fee1.edit_type.text:='2';
fra_fee1.edit_data.text:='0002';
fra_fee1.edit_report.text:='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>';
fra_fee1.t_ch_accept.DataSource:=t_op_seai1;
if strtobool(get_parameters_value(150,'false')) then
fra_fee1.bsSkinPanel3.Visible:=true;
fra_fee1.DBEdit48.DataSource:=t_op_seai1;
if if_open('295') then
begin
fra_fee1.t_ch_accept.DataSource:=t_op_seai1;
if (strtobool(get_parameters_value(153,'false'))=true) then begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('207')=false) then
begin
fra_fee1.t_ch_accept.close;
fra_fee1.t_ch_accept.SQL.Clear;
fra_fee1.t_ch_accept.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
+' and <20><><EFBFBD><EFBFBD><>1) ) and '+open_data('7000','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')
+' order by ˳<><CBB3>,CH_ID');
end else begin
fra_fee1.t_ch_accept.close;
fra_fee1.t_ch_accept.SQL.Clear;
fra_fee1.t_ch_accept.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and '
+open_data('7000','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')
+' order by ˳<><CBB3>,CH_ID');
end;
fra_fee1.t_ch_accept.open;
end else begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('207')=false) then
begin
fra_fee1.t_ch_accept.close;
fra_fee1.t_ch_accept.SQL.Clear;
fra_fee1.t_ch_accept.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
+' and <20><><EFBFBD><EFBFBD><>1) ) order by ˳<><CBB3>,CH_ID');
end;
fra_fee1.t_ch_accept.open;
end;
fra_fee1.a_shen_delete.open;
fra_fee1.a_shen_modify_old.open;
fra_fee1.a_shen_modify_new.open;
fra_fee1.Panel3.visible:=true;
end
else
fra_fee1.Panel3.visible:=false;
if if_open('296') then
begin
fra_fee1.t_ch_pay.DataSource:=t_op_seai1;
if (strtobool(get_parameters_value(153,'false'))=true) then begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('207')=false) then
begin
fra_fee1.t_ch_pay.close;
fra_fee1.t_ch_pay.SQL.Clear;
fra_fee1.t_ch_pay.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
+' and <20><><EFBFBD><EFBFBD><>1) ) and '+open_data('7000','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')
+' order by ˳<><CBB3>,CH_ID');
end else begin
fra_fee1.t_ch_pay.close;
fra_fee1.t_ch_pay.SQL.Clear;
fra_fee1.t_ch_pay.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and '
+open_data('7000','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')
+' order by ˳<><CBB3>,CH_ID');
end;
fra_fee1.t_ch_pay.open;
end else begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('207')=false) then
begin
fra_fee1.t_ch_pay.close;
fra_fee1.t_ch_pay.SQL.Clear;
fra_fee1.t_ch_pay.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
+' and <20><><EFBFBD><EFBFBD><>1) ) order by ˳<><CBB3>,CH_ID');
end;
fra_fee1.t_ch_pay.open;
end;
fra_fee1.p_shen_delete.open;
fra_fee1.p_shen_modify_old.open;
fra_fee1.p_shen_modify_new.open;
fra_fee1.Panel1.visible:=true;
end
else
fra_fee1.Panel1.visible:=false;
if fra_fee1.Panel1.visible and
fra_fee1.Panel3.visible then
begin
if if_open('227') then begin
fra_fee1.Panel8.Visible:=true;
fra_fee1.Panel8.Height:=20;
end else
fra_fee1.Panel8.Visible:=false;
fra_fee1.t_op_gain.DataSource:=t_op_seai1;
fra_fee1.t_op_gain.open;
fra_fee1.Panel9.Visible:=false;
end
else
begin
fra_fee1.Panel8.Visible:=false;
end;
end
else
begin
fra_fee1.Visible:=false;
end;
loadwwgrid(fra_fee1.wwDBGrid1,'<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
loadwwgrid(fra_fee1.wwDBGrid2,'<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if if_reg(195) then begin
fra_op_state1.edit_state.text:='7';
fra_op_state1.t_op_state.DataSource:=t_op_seai1;
fra_op_state1.t_op_state.open;
end;
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_sys_employee.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_disport.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_goods.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_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_source.requery;
bsSkinTabSheet2.TabVisible:=if_open('295') or if_open('296');
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
bsSkinPanel9.Visible:=inifile1.Readbool('other','sidisp',false);
if bsSkinPanel9.Visible then begin
bsSkinPanel9.Visible:=true;
bsSkinButton13.Top:=3+bsSkinPanel9.Height;
end else begin
bsSkinButton13.Top:=3;
end;
inifile1.free;
//ҳ<><D2B3>˳<EFBFBD>򱣴<EFBFBD>
seabandini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'bandno.ini');
sl:=TStringList.Create;
try
seabandini.ReadSection('seaimp',sl);
for j:=0 to sl.Count-1 do begin
n:=seabandini.Readinteger('seaimp',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;
//״̬<D7B4><CCAC><EFBFBD><EFBFBD>
{$IFDEF ZTGENGZONG}
if not if_reg(195) then begin
bsSkinTabSheet3.TabVisible:=false;
end;
{$ELSE}
bsSkinTabSheet3.TabVisible:=false;
{$ENDIF}
//<2F>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD>÷<EFBFBD><C3B7>÷<EFBFBD><C3B7><EFBFBD>
if strtobool(get_parameters_value(143,'false')) then begin
N54.Visible:=true;
N55.Visible:=true;
end else begin
N54.Visible:=FALSE;
N55.Visible:=FALSE;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_sys_progress.close;
frm_sys_progress:=nil;
frm_op_seai_sf_create:=true;
end;
procedure Tfrm_op_seai_sf.bsSkinButton11Click(Sender: TObject);
var
answer:TModalResult;
begin
if bsSkinButton11.Caption='<27>༭<EFBFBD>޸<EFBFBD>' then
begin
Notebook1.PageIndex:=1;
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
Exit;
end;
if bsSkinButton11.Caption='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>' then
begin
if (t_op_seai.State=dsinsert)or(t_op_seai.State=dsedit) then
BEGIN
answer:=messagedlg( '<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>޸ģ<DEB8><C4A3>Ƿ񱣴棿',mtWarning,mbYesNoCancel,0);
if answer=mrYes then
begin
t_op_seai.post;
end;
if answer=mrNo then
begin
t_op_seai.cancel;
end;
if answer=mrCancel then
begin
exit;
end;
END;
Notebook1.PageIndex:=0;
bsSkinButton11.Caption:='<27>༭<EFBFBD>޸<EFBFBD>';
end;
if bsSkinButton11.Caption='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ' then
begin
if (t_op_seai_fen.State=dsinsert)or(t_op_seai_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_seai_fen.post;
end;
if answer=mrNo then
begin
t_op_seai_fen.cancel;
end;
if answer=mrCancel then
begin
exit;
end;
END;
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
try
t_op_seai1.Enabled:=false;
t_op_seai1.DataSet:=t_op_seai;
finally
t_op_seai1.Enabled:=true;
end;
Notebook1.PageIndex:=1;
exit;
end;
end;
procedure Tfrm_op_seai_sf.bsSkinButton8Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton8.ClientToScreen(Point(0,bsSkinButton8.Height));
PopupMenu1.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_op_seai_sf.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;
bsSkinButton17.Left:=Panel2.Width-bsSkinButton13.Width-bsSkinButton17.Width-20;
end;
procedure Tfrm_op_seai_sf.bsSkinButton1Click(Sender: TObject);
begin
if (t_op_seai.State=dsinsert)or(t_op_seai.State=dsedit) then
t_op_seai.post;
if (t_op_seai_fen.State=dsinsert)or(t_op_seai_fen.State=dsedit) then
t_op_seai_fen.post;
try
frm_op_seai_add:=tfrm_op_seai_add.Create (self);
if t_op_seai1.DataSet=t_op_seai then begin
frm_op_seai_add.data1.Enabled:=false;
frm_op_seai_add.data1.DataSet:=t_op_seai;
frm_op_seai_add.data1.Enabled:=true;
frm_op_seai_add.ywlx:=7;
// frm_op_seai_add.bsSkinCheckRadioBox3.Checked:=true;
// frm_op_seai_add.bsSkinCheckRadioBox2.Enabled:=false;
// frm_op_seai_add.bsSkinCheckRadioBox4.Enabled:=false;
frm_op_seai_add_num:=7;
end
else
begin
frm_op_seai_add.data1.Enabled:=false;
frm_op_seai_add.data1.DataSet:=t_op_seai_fen;
frm_op_seai_add.data1.Enabled:=true;
frm_op_seai_add.bsSkinCheckRadioBox3.Checked:=true;
frm_op_seai_add.bsSkinCheckRadioBox2.Enabled:=false;
frm_op_seai_add.bsSkinCheckRadioBox4.Enabled:=false;
frm_op_seai_add.bsSkinCheckRadioBox1.Enabled:=false;
frm_op_seai_add.bsSkinCheckRadioBox5.Enabled:=false;
frm_op_seai_add.bsSkinCheckRadioBox6.Enabled:=false;
frm_op_seai_add_num:=2;
end;
frm_op_seai_add.ShowModal;
finally
frm_op_seai_add.Free
end;
end;
procedure Tfrm_op_seai_sf.t_op_seaiBeforeEdit(DataSet: TDataSet);
begin
op_befor_post(t_op_seai,'0002');
end;
procedure Tfrm_op_seai_sf.t_op_seaiBeforePost(DataSet: TDataSet);
begin
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44><49><EFBFBD>벻<EFBFBD><EBB2BB><EFBFBD><EFBFBD>
if not edi_addseaisf then begin
table_before_post(t_op_seai,'ί<>е<EFBFBD>λ');
table_before_post(t_op_seai,'<27><><EFBFBD><EFBFBD>Ա');
table_before_post(t_op_seai,'<27>ͷ<EFBFBD>Ա');
table_before_post(t_op_seai,'<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>');
table_before_post(t_op_seai,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_op_seai,'װ<>˷<EFBFBD>ʽ');
table_before_post(t_op_seai,'<27><><EFBFBD><EFBFBD>');
table_before_post(t_op_seai,'<27><><EFBFBD><EFBFBD>');
table_before_post(t_op_seai,'װ<><D7B0><EFBFBD><EFBFBD>');
table_before_post(t_op_seai,'ж<><D0B6><EFBFBD><EFBFBD>');
table_before_post(t_op_seai,'ҵ<><D2B5><EFBFBD><EFBFBD>Դ');
if pos('ָ<><D6B8>',t_op_seai.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString)>0 then begin
end else begin
table_before_post(t_op_seai,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_op_seai,'<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
end;
table_before_post(t_op_seai,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
//ί<>б<EFBFBD><D0B1><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_seai.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull or (trim(t_op_seai['ί<>б<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_seai['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(2,subComp,department,employee,t_op_seai['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
else
t_op_seai['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(2,subComp,department,employee,t_op_seai['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
if op_empty('t_op_seai',t_op_seai) then
abort;
//<2F><>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>
if t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').oldvalue<>t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
if (t_op_seai.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>'<27><><EFBFBD>ĵ<EFBFBD>') and (Logininfo.endday>=t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime) then begin
showmessage('<27>˽<EFBFBD><CBBD><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_seai.FieldByName('ί<>е<EFBFBD>λ').OldValue<>t_op_seai.FieldByName('ί<>е<EFBFBD>λ').asstring then
begin
if frm_data_share.t_crm_client_all.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_op_seai.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_seai.State=dsinsert then
begin
if t_op_seai.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring=''then
begin
t_op_seai['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_no(t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime,getbsno(Logininfo.SeaImpBsNo,'SI'));
t_op_seai['<27><><EFBFBD><EFBFBD>']:=get_id;
end;
t_op_seai['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
t_op_seai['<27><><EFBFBD><EFBFBD>ǰ״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
t_op_seai['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
t_op_seai['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
end
else
begin
if t_op_seai.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
begin
if (Trim(t_op_seai.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)<>'<27><><EFBFBD>ĵ<EFBFBD>') then
table_before_post(t_op_seai,'<27><>װ<EFBFBD><D7B0>');
end;
end;
if strtobool(get_parameters_value(34,'false')) then
begin
if (t_op_seai.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring='') or (Trim(t_op_seai.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>') or (t_op_seai.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ') then
begin
t_op_seai['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_seai['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=Logininfo.subcompcode+t_op_seai['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
end;
end
else
begin
t_op_seai['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
end;
if strtobool(get_parameters_value(35,'false')) then
begin
if (t_op_seai.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring='') or (Trim(t_op_seai.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_seai['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_seai['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=Logininfo.subcompcode+t_op_seai['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
end;
end
else
begin
t_op_seai['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
end;
if strtobool(get_parameters_value(36,'false')) then
begin
if (t_op_seai.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring='') or (Trim(t_op_seai.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_seai['ί<>б<EFBFBD>׼']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_seai['ί<>б<EFBFBD>׼']:=t_op_seai['ί<>б<EFBFBD><D0B1><EFBFBD>'];
end;
end
else
begin
t_op_seai['ί<>б<EFBFBD>׼']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
end;
if strtobool(get_parameters_value(60,'false')) then
begin
if (trim(t_op_seai.fieldbyname('<27><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>').asstring)='') or (Trim(t_op_seai.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_seai['<27><><EFBFBD>ر<EFBFBD>׼']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_seai['<27><><EFBFBD>ر<EFBFBD>׼']:=t_op_seai['<27><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>'];
end;
end
else
begin
t_op_seai['<27><><EFBFBD>ر<EFBFBD>׼']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
end;
if strtobool(get_parameters_value(61,'false')) then
begin
if (trim(t_op_seai.fieldbyname('<27><><EFBFBD>쵥<EFBFBD><ECB5A5>').asstring)='') or (Trim(t_op_seai.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_seai['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_seai['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼']:=t_op_seai['<27><><EFBFBD>쵥<EFBFBD><ECB5A5>'];
end;
end
else
begin
t_op_seai['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
end;
// t_op_seai['Upload']:=1;
end;
procedure Tfrm_op_seai_sf.DBEdit13Click(Sender: TObject);
begin
if t_op_seai.IsEmpty then
exit;
if (t_op_seai.State=dsinsert) or (t_op_seai.State=dsEdit)then
t_op_seai.post;
try
frm_op_ctn:=tfrm_op_ctn.Create (self);
frm_op_ctn.t_op_ctn.DataSource:=t_op_seai1;
frm_op_ctn_type:=true;
op_ctn_limited:='0003';
frm_op_ctn.ShowModal;
finally
frm_op_ctn.Free;
end;
end;
procedure Tfrm_op_seai_sf.bsSkinButton10Click(Sender: TObject);
begin
query_seai(14,'0002');
end;
procedure Tfrm_op_seai_sf.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_seai_sf.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><CBBD><EFBFBD>',ANode.Strings[dxDBGrid1Column2.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_op_seai_sf.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit2);
end;
procedure Tfrm_op_seai_sf.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit3);
end;
procedure Tfrm_op_seai_sf.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit4);
end;
procedure Tfrm_op_seai_sf.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit18);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo1KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo12);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo12KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit8);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo13KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo2);
end;
procedure Tfrm_op_seai_sf.DBEdit8KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit9);
end;
procedure Tfrm_op_seai_sf.DBEdit9KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit16);
end;
procedure Tfrm_op_seai_sf.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit82);
end;
procedure Tfrm_op_seai_sf.wwDBLookupCombo49KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit63);
end;
procedure Tfrm_op_seai_sf.DBEdit63KeyPress(Sender: TObject; var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo52);
end;
procedure Tfrm_op_seai_sf.DBEdit6KeyPress(Sender: TObject; var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo52);
end;
procedure Tfrm_op_seai_sf.wwDBLookupCombo52KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo3);
end;
procedure Tfrm_op_seai_sf.wwDBLookupCombo3KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo20);
end;
procedure Tfrm_op_seai_sf.DBEdit7KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit11);
end;
procedure Tfrm_op_seai_sf.DBEdit10KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit14);
end;
procedure Tfrm_op_seai_sf.DBEdit14KeyPress(Sender: TObject; var Key: Char);
begin
key_dbedit(Key,DBEdit12);
end;
procedure Tfrm_op_seai_sf.DBEdit11KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit15);
end;
procedure Tfrm_op_seai_sf.DBEdit12KeyPress(Sender: TObject; var Key: Char);
begin
key_DBMemo(Key,DBMemo3);
end;
procedure Tfrm_op_seai_sf.DBEdit15KeyPress(Sender: TObject; var Key: Char);
begin
key_DBMemo(Key,DBMemo8);
end;
procedure Tfrm_op_seai_sf.wwDBComboBox2KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker6);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo3Change(Sender: TObject);
begin
if (t_op_seai1.DataSet.State=dsinsert)or(t_op_seai1.DataSet.State=dsedit)then
begin
if TRxDBLookupCombo(Sender).DisplayValue<>'' then
t_op_seai1.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_seai_sf.RxDBLookupCombo4Change(Sender: TObject);
begin
if (t_op_seai1.DataSet.State=dsinsert)or(t_op_seai1.DataSet.State=dsedit)then
begin
if RxDBLookupCombo4.DisplayValue<>'' then
t_op_seai1.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_seai_sf.RxDBLookupCombo5Change(Sender: TObject);
begin
if (t_op_seai1.DataSet.State=dsinsert)or(t_op_seai1.DataSet.State=dsedit)then
begin
if RxDBLookupCombo5.DisplayValue<>'' then
t_op_seai1.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seai_sf.DBEdit18KeyPress(Sender: TObject; var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo1);
end;
procedure Tfrm_op_seai_sf.DBEdit16KeyPress(Sender: TObject; var Key: Char);
begin
key_dbedit(Key,DBEdit41);
end;
procedure Tfrm_op_seai_sf.wwDBComboBox1KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo29);
end;
procedure Tfrm_op_seai_sf.wwDBComboBox3KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBComboBox(Key,wwDBComboBox1);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo2KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit13);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo20KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker2);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo9KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo8);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo8KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo6);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo6KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo9);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo7KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo22);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo19KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo10);
end;
procedure Tfrm_op_seai_sf.DBEdit81KeyPress(Sender: TObject; var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo61);
end;
procedure Tfrm_op_seai_sf.wwDBLookupCombo61KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit5);
end;
procedure Tfrm_op_seai_sf.DBEdit82KeyPress(Sender: TObject; var Key: Char);
begin
key_dbedit(Key,DBEdit83);
end;
procedure Tfrm_op_seai_sf.DBEdit83KeyPress(Sender: TObject; var Key: Char);
begin
key_DBMemo(Key,DBMemo4);
end;
procedure Tfrm_op_seai_sf.DBEdit81Change(Sender: TObject);
begin
if (t_op_seai.state=dsedit)or(t_op_seai.state=dsinsert)then
begin
try
t_op_seai['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']
:='SAY:'+ntoc(strtoint(DBEdit81.text),true)
+wwDBLookupCombo61.text+' ONLY.';
except
;
end;
end;
end;
procedure Tfrm_op_seai_sf.DBEdit2Change(Sender: TObject);
begin
DBEdit2.Color:=dxgrid_color('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>',DBEdit2.text);
end;
procedure Tfrm_op_seai_sf.DBEdit3Change(Sender: TObject);
begin
DBEdit3.Color:=dxgrid_color_fee(DBEdit3.text);
end;
procedure Tfrm_op_seai_sf.wwDBLookupCombo2Enter(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_seai_sf.wwDBLookupCombo5Enter(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_seai_sf.wwDBLookupCombo6Enter(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_seai_sf.wwDBLookupCombo2KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo33);
end;
procedure Tfrm_op_seai_sf.wwDBLookupCombo5KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo34);
end;
procedure Tfrm_op_seai_sf.wwDBLookupCombo6KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo35);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo3KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo2);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo4KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo5);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo5KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo6);
end;
procedure Tfrm_op_seai_sf.wwDBLookupCombo2Change(Sender: TObject);
begin
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',TwwDBLookupCombo(Sender).text,[]) then
begin
t_op_seai.edit;
t_op_seai['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seai_sf.wwDBLookupCombo5Change(Sender: TObject);
begin
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',TwwDBLookupCombo(Sender).text,[]) then
begin
t_op_seai.edit;
t_op_seai['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seai_sf.wwDBLookupCombo6Change(Sender: TObject);
begin
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',TwwDBLookupCombo(Sender).text,[]) then
begin
t_op_seai.edit;
t_op_seai['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seai_sf.wwDBLookupCombo2Exit(Sender: TObject);
begin
TwwDBLookupCombo(Sender).Clear;
end;
procedure Tfrm_op_seai_sf.wwDBLookupCombo5Exit(Sender: TObject);
begin
TwwDBLookupCombo(Sender).Clear;
end;
procedure Tfrm_op_seai_sf.wwDBLookupCombo6Exit(Sender: TObject);
begin
TwwDBLookupCombo(Sender).Clear;
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo29KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo11);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo30KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit81);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo12Change(Sender: TObject);
begin
if (t_op_seai.state=dsinsert)or(t_op_seai.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_seai['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo2Change(Sender: TObject);
begin
if (t_op_seai.state=dsinsert)or(t_op_seai.state=dsedit)then
begin
if RxDBLookupCombo2.DisplayValue='' then
exit;
if frm_data_share.t_sys_employee.locate('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo2.DisplayValue,[]) then
t_op_seai['<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_seai_sf.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
CanClose:=frm_close_query(t_op_seai);
CanClose:=frm_close_query(fra_op_card1.t_op_card);
end;
procedure Tfrm_op_seai_sf.N10Click(Sender: TObject);
begin
update_grid_view_no(dxdbgrid1);
end;
procedure Tfrm_op_seai_sf.N14Click(Sender: TObject);
begin
update_grid_view_all(dxdbgrid1);
end;
procedure Tfrm_op_seai_sf.N12Click(Sender: TObject);
begin
update_grid(dxdbgrid1,351);
end;
procedure Tfrm_op_seai_sf.N16Click(Sender: TObject);
begin
grid_save_xls(dxdbgrid1);
end;
procedure Tfrm_op_seai_sf.dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort(Column,t_op_seai,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_seai_sf.bsSkinButton13Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton13.ClientToScreen(Point(0,bsSkinButton13.Height));
PopupMenu3.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_op_seai_sf.N17Click(Sender: TObject);
begin
if (not t_op_seai.IsEmpty) and (t_op_seai.sql.Text<>'') then
seaipsqlstr:=t_op_seai.sql.Text;
t_op_seai.Close;
t_op_seai.SQL.clear;
t_op_seai.SQL.Add('select * from t_op_seai where '
+open_data('0002','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='
+''''+'¼<><C2BC>״̬'+''''+') '
+default_sort(54,'t_op_seai','','desc'));
t_op_seai.open;
end;
procedure Tfrm_op_seai_sf.N34Click(Sender: TObject);
begin
if (not t_op_seai.IsEmpty) and (t_op_seai.sql.Text<>'') then
seaipsqlstr:=t_op_seai.sql.Text;
t_op_seai.Close;
t_op_seai.SQL.clear;
t_op_seai.SQL.Add('select * from t_op_seai where '
+open_data('0002','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <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(54,'t_op_seai','','desc'));
t_op_seai.open;
end;
procedure Tfrm_op_seai_sf.N36Click(Sender: TObject);
begin
if (not t_op_seai.IsEmpty) and (t_op_seai.sql.Text<>'') then
seaipsqlstr:=t_op_seai.sql.Text;
t_op_seai.Close;
t_op_seai.SQL.clear;
t_op_seai.SQL.Add('select * from t_op_seai where '
+open_data('0002','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <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(54,'t_op_seai','','desc'));
t_op_seai.open;
end;
procedure Tfrm_op_seai_sf.N37Click(Sender: TObject);
begin
if (not t_op_seai.IsEmpty) and (t_op_seai.sql.Text<>'') then
seaipsqlstr:=t_op_seai.sql.Text;
t_op_seai.Close;
t_op_seai.SQL.clear;
t_op_seai.SQL.Add('select * from t_op_seai where '
+open_data('0002','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and װ<>˷<EFBFBD>ʽ=''<27><><EFBFBD><EFBFBD>'' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_state where (<28>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><>1 or <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD> is null)) '
+default_sort(54,'t_op_seai','','desc'));
t_op_seai.open;
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo1Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo1);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo3Enter(Sender: TObject);
begin
RxLookupComboEnter(TRxDBLookupCombo(Sender));
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo4Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo4);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo5Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo5);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo9Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo9);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo6Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo6);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo19Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo19);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo10Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo10);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo7Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo7);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo8Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo8);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo1Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo1);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo3Exit(Sender: TObject);
begin
RxLookupComboExit(TRxDBLookupCombo(Sender));
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo4Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo4);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo5Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo5);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo9Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo9);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo8Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo8);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo6Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo6);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo7Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo7);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo19Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo19);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo10Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo10);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo20Enter(Sender: TObject);
begin
RxDBLookupCombo20.LookupDisplay:='<27><><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD>;<3B><><EFBFBD><EFBFBD>';
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo20Exit(Sender: TObject);
begin
RxDBLookupCombo20.LookupDisplay:='<27><><EFBFBD><EFBFBD>';
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo11Enter(Sender: TObject);
begin
RxDBLookupCombo11.LookupDisplay:='<27><><EFBFBD><EFBFBD>;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo11Exit(Sender: TObject);
begin
RxDBLookupCombo11.LookupDisplay:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end;
procedure Tfrm_op_seai_sf.N2Click(Sender: TObject);
begin
if t_op_seai.IsEmpty then
exit;
Notebook1.PageIndex:=1;
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
bsSkinTabSheet2.show;
end;
procedure Tfrm_op_seai_sf.N4Click(Sender: TObject);
begin
if t_op_seai.IsEmpty then
exit;
Notebook1.PageIndex:=1;
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
bsSkinTabSheet3.show;
end;
procedure Tfrm_op_seai_sf.Label4Click(Sender: TObject);
begin
client_view(t_op_seai.fieldbyname('ί<>е<EFBFBD>λ').asstring,frm_data_share.t_crm_client_weituo);
end;
procedure Tfrm_op_seai_sf.Label122Click(Sender: TObject);
begin
client_view(t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,frm_data_share.t_crm_client_shiper);
end;
procedure Tfrm_op_seai_sf.Label121Click(Sender: TObject);
begin
client_view(t_op_seai.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD>').asstring,frm_data_share.t_crm_client_shouhuo);
end;
procedure Tfrm_op_seai_sf.Label123Click(Sender: TObject);
begin
client_view(t_op_seai.fieldbyname('֪ͨ<CDA8><D6AA>').asstring,frm_data_share.t_crm_client_tongzhi);
end;
procedure Tfrm_op_seai_sf.Label33Click(Sender: TObject);
begin
client_view(t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,frm_data_share.t_crm_client_daili);
end;
procedure Tfrm_op_seai_sf.Label25Click(Sender: TObject);
begin
client_view(t_op_seai.fieldbyname('<27><>վ').asstring,frm_data_share.t_crm_client_changzhan);
end;
procedure Tfrm_op_seai_sf.Label24Click(Sender: TObject);
begin
client_view(t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>˾').asstring,frm_data_share.t_crm_client_ship);
end;
procedure Tfrm_op_seai_sf.Label27Click(Sender: TObject);
begin
client_view(t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').asstring,frm_data_share.t_crm_client_daili);
end;
procedure Tfrm_op_seai_sf.Label23Click(Sender: TObject);
begin
client_view(t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,frm_data_share.t_crm_client_baoguan);
end;
procedure Tfrm_op_seai_sf.Label21Click(Sender: TObject);
begin
client_view(t_op_seai.fieldbyname('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').asstring,frm_data_share.t_crm_client_truck);
end;
procedure Tfrm_op_seai_sf.wwDBLookupCombo2DblClick(Sender: TObject);
begin
open_code_edit('016');
end;
procedure Tfrm_op_seai_sf.Label125Click(Sender: TObject);
begin
open_code_edit('097');
end;
procedure Tfrm_op_seai_sf.Label16Click(Sender: TObject);
begin
open_code_edit('013');
end;
procedure Tfrm_op_seai_sf.Label10Click(Sender: TObject);
begin
open_code_edit('011');
end;
procedure Tfrm_op_seai_sf.Label73Click(Sender: TObject);
begin
open_code_edit('012');
end;
procedure Tfrm_op_seai_sf.Label164Click(Sender: TObject);
begin
open_code_edit('007');
end;
procedure Tfrm_op_seai_sf.N22Click(Sender: TObject);
var
str:widestring;
begin
if t_op_seai.IsEmpty then
exit;
if if_open('295') and if_open('296') then
begin
if (t_op_seai.State=dsinsert)or(t_op_seai.State=dsedit) then
t_op_seai.post;
try
frm_ch_piliang_seai:=tfrm_ch_piliang_seai.Create (self);
t_op_seai.DisableControls;
t_op_seai.first;
while not t_op_seai.eof do
begin
if str='' then
str:=''''+t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+''''
else
str:=str+','+''''+t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
t_op_seai.next;
end;
str:='('+str+')';
str:='select * from t_op_seai where <20><><EFBFBD><EFBFBD> in '+str+default_sort(54,'t_op_seai','','desc');
frm_ch_piliang_seai.t_op_seai.Parameters.ParamByName('SQLStr').value:=str;
frm_ch_piliang_seai.t_op_seai.open;
frm_ch_piliang_seai.ShowModal;
finally
t_op_seai.EnableControls;
frm_ch_piliang_seai.Free;
frm_ch_piliang_seai:=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_seai_sf.N9Click(Sender: TObject);
var
str:widestring;
begin
if t_op_seai.IsEmpty then
exit;
if if_open('295') and if_open('296') then
begin
if (t_op_seai.State=dsinsert)or(t_op_seai.State=dsedit) then
t_op_seai.post;
try
frm_ch_piliang_seai:=tfrm_ch_piliang_seai.Create (self);
str:='select * from t_op_seai where <20><><EFBFBD><EFBFBD>='
+''''+t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
frm_ch_piliang_seai.t_op_seai.Parameters.ParamByName('SQLStr').value:=str;
frm_ch_piliang_seai.t_op_seai.open;
frm_ch_piliang_seai.ShowModal;
finally
frm_ch_piliang_seai.Free;
frm_ch_piliang_seai:=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_seai_sf.N20Click(Sender: TObject);
var
str:widestring;
i:integer;
begin
if t_op_seai.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('295') and if_open('296') then
begin
if (t_op_seai.State=dsinsert)or(t_op_seai.State=dsedit) then
t_op_seai.post;
try
frm_ch_piliang_seai:=tfrm_ch_piliang_seai.Create (self);
t_op_seai.DisableControls;
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seai.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
if str='' then
str:=''''+t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+''''
else
str:=str+','+''''+t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
end;
str:='('+str+')';
str:='select * from t_op_seai where <20><><EFBFBD><EFBFBD> in '+str+default_sort(54,'t_op_seai','','desc');
frm_ch_piliang_seai.t_op_seai.Parameters.ParamByName('SQLStr').value:=str;
frm_ch_piliang_seai.t_op_seai.open;
frm_ch_piliang_seai.ShowModal;
finally
t_op_seai.EnableControls;
frm_ch_piliang_seai.Free;
frm_ch_piliang_seai:=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_seai_sf.RxDBLookupCombo31KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBComboBox(Key,wwDBComboBox9);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo31Enter(Sender: TObject);
begin
RxDBLookupCombo31.LookupDisplay:='<27><><EFBFBD><EFBFBD>;ҵ<><D2B5><EFBFBD><EFBFBD>Դ';
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo31Exit(Sender: TObject);
begin
RxDBLookupCombo31.LookupDisplay:='ҵ<><D2B5><EFBFBD><EFBFBD>Դ';
end;
procedure Tfrm_op_seai_sf.wwDBLookupCombo52Change(Sender: TObject);
begin
if (t_op_seai.state=dsedit)or(t_op_seai.state=dsinsert)then
begin
if frm_data_share.t_code_disport.Locate('Ӣ<><D3A2><EFBFBD><EFBFBD>',wwDBLookupCombo52.text,[]) then
begin
t_op_seai['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_code_disport['<27><><EFBFBD><EFBFBD>'];
end;
end;
end;
procedure Tfrm_op_seai_sf.N24Click(Sender: TObject);
begin
if (not t_op_seai.IsEmpty) and (t_op_seai.sql.Text<>'') then
seaipsqlstr:=t_op_seai.sql.Text;
t_op_seai.Close;
t_op_seai.SQL.clear;
t_op_seai.SQL.Add('select * from t_op_seai where '
+open_data('0002','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' 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_seai.<2E><><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
+default_sort(54,'t_op_seai','','desc'));
t_op_seai.open;
end;
procedure Tfrm_op_seai_sf.N26Click(Sender: TObject);
begin
if (not t_op_seai.IsEmpty) and (t_op_seai.sql.Text<>'') then
seaipsqlstr:=t_op_seai.sql.Text;
t_op_seai.Close;
t_op_seai.SQL.clear;
t_op_seai.SQL.Add('select * from t_op_seai where '
+open_data('0002','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' 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_seai.<2E><><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
+default_sort(54,'t_op_seai','','desc'));
t_op_seai.open;
end;
procedure Tfrm_op_seai_sf.N31Click(Sender: TObject);
begin
if t_op_seai.IsEmpty then
exit;
if not do_data('0002',t_op_seai.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').asstring
,t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring
,t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
,t_op_seai.FieldByName('<27>ͷ<EFBFBD>Ա').asstring
,t_op_seai.FieldByName('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>').asstring
,t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring) then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
abort;
end;
if t_op_seai.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_seai.State=dsinsert)or(t_op_seai.State=dsedit) then
t_op_seai.post;
try
frm_op_date_change:=tfrm_op_date_change.Create (self);
frm_op_date_change.DataSource1.DataSet:=t_op_seai;
frm_op_date_change.BSTYPE:='T_OP_SEAI';
frm_op_date_change.ShowModal;
finally
frm_op_date_change.Free;
frm_op_date_change:=nil;
end;
end;
procedure Tfrm_op_seai_sf.t_op_seaiPostError(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_seai where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼='+''''+t_op_seai['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']+'''';
double_seai(str,1);
abort;
end;
if pos('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼',UpperCase(E.Message))<>0 then
begin
str:='select * from t_op_seai where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼='+''''+t_op_seai['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']+'''';
double_seai(str,2);
abort;
end;
if pos('ί<>б<EFBFBD>׼',UpperCase(E.Message))<>0 then
begin
str:='select * from t_op_seai where ί<>б<EFBFBD>׼='+''''+t_op_seai['ί<>б<EFBFBD>׼']+'''';
double_seai(str,3);
abort;
end;
if pos('<27><><EFBFBD>ر<EFBFBD>׼',UpperCase(E.Message))<>0 then
begin
str:='select * from t_op_seai where <20><><EFBFBD>ر<EFBFBD>׼='+''''+t_op_seai['<27><><EFBFBD>ر<EFBFBD>׼']+'''';
double_seai(str,4);
abort;
end;
if pos('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼',UpperCase(E.Message))<>0 then
begin
str:='select * from t_op_seai where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼='+''''+t_op_seai['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼']+'''';
double_seai(str,5);
abort;
end;
end;
procedure Tfrm_op_seai_sf.t_op_seaiBeforeDelete(DataSet: TDataSet);
begin
op_befor_post(t_op_seai,'0002');
delete_add(2,t_op_seai);
if not t_op_seai.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
delwtno(t_op_seai['ί<>б<EFBFBD><D0B1><EFBFBD>']);
end;
procedure Tfrm_op_seai_sf.t_op_seaiBeforeCancel(DataSet: TDataSet);
begin
delete_no(t_op_seai);
if t_op_seai.State=dsinsert then
if not t_op_seai.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
delwtno(t_op_seai['ί<>б<EFBFBD><D0B1><EFBFBD>']);
end;
procedure Tfrm_op_seai_sf.N27Click(Sender: TObject);
begin
if (not t_op_seai.IsEmpty) and (t_op_seai.sql.Text<>'') then
seaipsqlstr:=t_op_seai.sql.Text;
t_op_seai.Close;
t_op_seai.SQL.clear;
t_op_seai.SQL.Add('select * from t_op_seai where '
+open_data('0002','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' 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_seai.<2E><><EFBFBD><EFBFBD>)'
+default_sort(54,'t_op_seai','','desc'));
t_op_seai.open;
end;
procedure Tfrm_op_seai_sf.N30Click(Sender: TObject);
begin
if (not t_op_seai.IsEmpty) and (t_op_seai.sql.Text<>'') then
seaipsqlstr:=t_op_seai.sql.Text;
t_op_seai.Close;
t_op_seai.SQL.clear;
t_op_seai.SQL.Add('select * from t_op_seai where '
+open_data('0002','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><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(54,'t_op_seai','','desc'));
t_op_seai.open;
end;
procedure Tfrm_op_seai_sf.dxDBGrid1Column67CustomDraw(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[dxDBGrid1Column67.Index])='<27><><EFBFBD>ĵ<EFBFBD>' then
AColor:=clred;
AFont.Color:=clblack;
end;
procedure Tfrm_op_seai_sf.bsSkinPageControl1Change(Sender: TObject);
begin
if frm_op_seai_sf_create=false then
exit;
if bsSkinPageControl1.ActivePage=bsSkinTabSheet7 then
begin
if not assigned(frm_op_seai_assistant) then
begin
frm_op_seai_assistant:=tfrm_op_seai_assistant.Create (self);
frm_op_seai_assistant.t_op_seae_assistant.DataSource:=t_op_seai1;
frm_op_seai_assistant.ManualDock(bsSkinTabSheet7,nil,alClient);
frm_op_seai_assistant.show;
end;
exit;
end;
{$IFDEF DLFENZHANG}
if bsSkinPageControl1.ActivePage=bsSkinTabSheet6 then
begin
if not assigned(frm_op_seae_fenzhang) then
begin
frm_op_seae_fenzhang:=tfrm_op_seae_fenzhang.Create (self);
end;
frm_op_seae_fenzhang.t_ch_fee_fenzhang.Close;
frm_op_seae_fenzhang.t_ch_fee.Close;
frm_op_seae_fenzhang.t_ch_fee_fenzhang.DataSource:=t_op_seai1;
frm_op_seae_fenzhang.t_ch_fee_fenzhang.open;
frm_op_seae_fenzhang.t_ch_fee_fenzhango.Close;
frm_op_seae_fenzhang.t_ch_fee_fenzhango.DataSource:=t_op_seai1;
frm_op_seae_fenzhang.t_ch_fee_fenzhango.open;
frm_op_seae_fenzhang.t_ch_fee.open;
frm_op_seae_fenzhang.t_op_fenzhang.DataSource:=t_op_seai1;
frm_op_seae_fenzhang.t_op_fenzhang.open;
frm_op_seae_fenzhang.t_op_seae_assistant.Close;
frm_op_seae_fenzhang.t_op_seae_assistant.sql.Text:='select * from t_op_seae_assistant where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> order by <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> ';
frm_op_seae_fenzhang.t_op_seae_assistant.DataSource:=t_op_seai1;
frm_op_seae_fenzhang.t_op_seae_assistant.Open;
frm_op_seae_fenzhang.t_ch_fee_pl.Close;
frm_op_seae_fenzhang.t_ch_fee_pl.DataSource:=t_op_seai1;
frm_op_seae_fenzhang.t_ch_fee_pl.open;
frm_op_seae_fenzhang.t_ch_fee_pl_detail.open;
frm_op_seae_fenzhang.t_ch_fee_pl_detailf.open;
frm_op_seae_fenzhang.t_ch_fee_cm.Close;
frm_op_seae_fenzhang.t_ch_fee_cm.DataSource:=t_op_seai1;
frm_op_seae_fenzhang.t_ch_fee_cm.open;
frm_op_seae_fenzhang.ManualDock(bsSkinTabSheet6,nil,alClient);
frm_op_seae_fenzhang.show;
exit;
end;
if bsSkinPageControl1.ActivePage<>bsSkinTabSheet6 then
begin
if assigned(frm_op_seae_fenzhang) then
begin
FreeAndNil(frm_op_seae_fenzhang);
end;
end;
{$ENDIF}
if bsSkinPageControl1.ActivePage=bsSkinTabSheet2 then
begin
fra_fee1.t_ch_accept.Refresh;
fra_fee1.t_ch_pay.Refresh;
exit;
end;
if bsSkinPageControl1.ActivePage=bsSkinTabSheet4 then
begin
if not t_op_file.Active then
t_op_file.open;
end else begin
if t_op_file.State in [dsedit,dsinsert] then t_op_file.Post;
t_op_file.close;
end;
{
if t_op_seai1.DataSet.state in [dsedit,dsinsert] then t_op_seai1.DataSet.post;
if bsSkinPageControl1.ActivePage=bsSkinTabSheet5 then
begin
if Letter_flag=0 then
begin
frm_op_letter:=tfrm_op_letter.Create (self);
frm_op_letter.bsTypeid:=0;
frm_op_letter.t_op_letter.DataSource:=t_op_seai1;
frm_op_letter.ManualDock(bsSkinTabSheet5,nil,alClient);
frm_op_letter.show;
end;
exit;
end;
}
end;
procedure Tfrm_op_seai_sf.bsSkinButton38Click(Sender: TObject);
var
book1:Tbookmark;
begin
book1:=t_op_seai1.DataSet.GetBookmark;
t_op_seai1.DataSet.Refresh;
t_op_seai1.DataSet.GotoBookmark(book1);
end;
procedure Tfrm_op_seai_sf.t_op_seai_fenAfterInsert(DataSet: TDataSet);
begin
t_op_seai_fen['<27><>վ']:=t_op_seai['<27><>վ'];
t_op_seai_fen['<27><><EFBFBD><EFBFBD>']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
t_op_seai_fen['<27><><EFBFBD><EFBFBD>']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
t_op_seai_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seai['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seai_fen['װ<><D7B0><EFBFBD><EFBFBD>']:=t_op_seai['װ<><D7B0><EFBFBD><EFBFBD>'];
t_op_seai_fen['ж<><D0B6><EFBFBD><EFBFBD>']:=t_op_seai['ж<><D0B6><EFBFBD><EFBFBD>'];
t_op_seai_fen['<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>']:=t_op_seai['<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>'];
t_op_seai_fen['<27><>ͷ']:=t_op_seai['<27><>ͷ'];
t_op_seai_fen['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>']:=t_op_seai['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>'];
t_op_seai_fen['<27><><EFBFBD><EFBFBD>']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
t_op_seai_fen['<27><><EFBFBD><EFBFBD>˾']:=t_op_seai['<27><><EFBFBD><EFBFBD>˾'];
t_op_seai_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾']:=t_op_seai['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾'];
end;
procedure Tfrm_op_seai_sf.t_op_seai_fenBeforeCancel(DataSet: TDataSet);
begin
delete_no(t_op_seai_fen);
if t_op_seai_fen.State=dsinsert then
if not t_op_seai_fen.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
delwtno(t_op_seai_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']);
end;
procedure Tfrm_op_seai_sf.t_op_seai_fenBeforeDelete(DataSet: TDataSet);
begin
op_befor_post(t_op_seai_fen,'0002');
delete_add(2,t_op_seai_fen);
if not t_op_seai_fen.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
delwtno(t_op_seai_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']);
end;
procedure Tfrm_op_seai_sf.t_op_seai_fenBeforeEdit(DataSet: TDataSet);
begin
op_befor_post(t_op_seai_fen,'0002');
end;
procedure Tfrm_op_seai_sf.t_op_seai_fenBeforePost(DataSet: TDataSet);
begin
//ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ
table_before_post(t_op_seai_fen,'ί<>е<EFBFBD>λ');
table_before_post(t_op_seai_fen,'<27><><EFBFBD><EFBFBD>Ա');
table_before_post(t_op_seai_fen,'<27>ͷ<EFBFBD>Ա');
table_before_post(t_op_seai_fen,'<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>');
table_before_post(t_op_seai_fen,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_op_seai_fen,'װ<>˷<EFBFBD>ʽ');
table_before_post(t_op_seai_fen,'<27><><EFBFBD><EFBFBD>');
table_before_post(t_op_seai_fen,'<27><><EFBFBD><EFBFBD>');
table_before_post(t_op_seai_fen,'װ<><D7B0><EFBFBD><EFBFBD>');
table_before_post(t_op_seai_fen,'ж<><D0B6><EFBFBD><EFBFBD>');
table_before_post(t_op_seai_fen,'ҵ<><D2B5><EFBFBD><EFBFBD>Դ');
if pos('ָ<><D6B8>',t_op_seai_fen.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString)>0 then begin
end else begin
table_before_post(t_op_seai_fen,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_op_seai_fen,'<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
end;
table_before_post(t_op_seai_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_seai_fen.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull or (trim(t_op_seai_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_seai_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(2,subComp,department,employee,t_op_seai_fen['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
else
t_op_seai_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(2,subComp,department,employee,t_op_seai_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
if op_empty('t_op_seai',t_op_seai_fen) then
Abort;
if t_op_seai_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').oldvalue<>t_op_seai_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
if (t_op_seai_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>'<27><><EFBFBD>ĵ<EFBFBD>') and (Logininfo.endday>=t_op_seai_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime) then begin
showmessage('<27>˽<EFBFBD><CBBD><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_seai_fen.FieldByName('ί<>е<EFBFBD>λ').OldValue<>t_op_seai_fen.FieldByName('ί<>е<EFBFBD>λ').asstring then
begin
if frm_data_share.t_crm_client_all.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_op_seai_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_seai_fen.State=dsinsert then
begin
if t_op_seai_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring=''then
begin
t_op_seai_fen['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_no(t_op_seai_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime,getbsno(Logininfo.SeaImpBsNo,'SI'));
t_op_seai_fen['<27><><EFBFBD><EFBFBD>']:=get_id;
end;
t_op_seai_fen['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
t_op_seai_fen['<27><><EFBFBD><EFBFBD>ǰ״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
t_op_seai_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
t_op_seai_fen['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
end
else
begin
if t_op_seai_fen.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
begin
table_before_post(t_op_seai_fen,'<27><>װ<EFBFBD><D7B0>');
end;
end;
if strtobool(get_parameters_value(34,'false')) then
begin
if (t_op_seai_fen.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring='') or (t_op_seai_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_seai_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seai_fen['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_seai_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=Logininfo.subcompcode+t_op_seai_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
end;
end
else
begin
t_op_seai_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seai_fen['<27><><EFBFBD><EFBFBD>'];
end;
if strtobool(get_parameters_value(35,'false')) then
begin
if (t_op_seai_fen.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring='') or (t_op_seai_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_seai_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seai_fen['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_seai_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=Logininfo.subcompcode+t_op_seai_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
end;
end
else
begin
t_op_seai_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seai_fen['<27><><EFBFBD><EFBFBD>'];
end;
if strtobool(get_parameters_value(36,'false')) then
begin
if (t_op_seai_fen.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring='') or (t_op_seai_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_seai_fen['ί<>б<EFBFBD>׼']:=t_op_seai_fen['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_seai_fen['ί<>б<EFBFBD>׼']:=t_op_seai_fen['ί<>б<EFBFBD><D0B1><EFBFBD>'];
end;
end
else
begin
t_op_seai_fen['ί<>б<EFBFBD>׼']:=t_op_seai_fen['<27><><EFBFBD><EFBFBD>'];
end;
if strtobool(get_parameters_value(60,'false')) then
begin
if (trim(t_op_seai_fen.fieldbyname('<27><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>').asstring)='') or (t_op_seai_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_seai_fen['<27><><EFBFBD>ر<EFBFBD>׼']:=t_op_seai_fen['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_seai_fen['<27><><EFBFBD>ر<EFBFBD>׼']:=t_op_seai_fen['<27><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>'];
end;
end
else
begin
t_op_seai_fen['<27><><EFBFBD>ر<EFBFBD>׼']:=t_op_seai_fen['<27><><EFBFBD><EFBFBD>'];
end;
if strtobool(get_parameters_value(61,'false')) then
begin
if (trim(t_op_seai_fen.fieldbyname('<27><><EFBFBD>쵥<EFBFBD><ECB5A5>').asstring)='') or (t_op_seai_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_seai_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼']:=t_op_seai_fen['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_seai_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼']:=t_op_seai_fen['<27><><EFBFBD>쵥<EFBFBD><ECB5A5>'];
end;
end
else
begin
t_op_seai_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼']:=t_op_seai_fen['<27><><EFBFBD><EFBFBD>'];
end;
//t_op_seai_fen['Upload']:=1;
end;
procedure Tfrm_op_seai_sf.bsSkinButton33Click(Sender: TObject);
begin
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
try
t_op_seai1.Enabled:=false;
t_op_seai1.DataSet:=t_op_seai_fen;
finally
t_op_seai1.Enabled:=true;
end;
end;
procedure Tfrm_op_seai_sf.bsSkinButton34Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton34.ClientToScreen(Point(0,bsSkinButton34.Height));
PopupMenu4.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_op_seai_sf.bsSkinButton36Click(Sender: TObject);
begin
if (t_op_seai_fen.State=dsinsert)or(t_op_seai_fen.State=dsedit) then
t_op_seai_fen.post;
end;
procedure Tfrm_op_seai_sf.MenuItem1Click(Sender: TObject);
begin
if t_op_seai_fen.IsEmpty then
exit;
t_op_seai_fen.edit;
t_op_seai_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seai_fen['<27><><EFBFBD><EFBFBD>'];
t_op_seai_fen.post;
t_op_seai_fen.Requery();
end;
procedure Tfrm_op_seai_sf.MenuItem3Click(Sender: TObject);
begin
if t_op_seai_fen.IsEmpty then
exit;
t_op_seai_fen.edit;
t_op_seai_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seai_fen['<27><><EFBFBD><EFBFBD>'];
t_op_seai_fen['װ<>˷<EFBFBD>ʽ']:='ƴ<>䵥Ʊ';
t_op_seai_fen.post;
t_op_seai_fen.Requery();
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo14KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo1);
end;
procedure Tfrm_op_seai_sf.wwDBLookupCombo1KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo5);
end;
procedure Tfrm_op_seai_sf.wwDBLookupCombo7KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo7);
end;
procedure Tfrm_op_seai_sf.wwDBLookupCombo4KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo6);
end;
procedure Tfrm_op_seai_sf.N39Click(Sender: TObject);
begin
if t_op_seai.IsEmpty then
exit;
if t_op_seai.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<>䵥Ʊ' then
exit;
if t_op_seai.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
begin
if not t_op_seai_fen.IsEmpty then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
exit;
end;
end;
t_op_seai.edit;
t_op_seai['װ<>˷<EFBFBD>ʽ']:='ƴ<>䵥Ʊ';
t_op_seai['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
t_op_seai.post;
end;
procedure Tfrm_op_seai_sf.N41Click(Sender: TObject);
begin
if t_op_seai.IsEmpty then
exit;
if t_op_seai.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
exit;
t_op_seai.edit;
t_op_seai['װ<>˷<EFBFBD>ʽ']:='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ';
t_op_seai['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
t_op_seai.post;
end;
procedure Tfrm_op_seai_sf.N43Click(Sender: TObject);
begin
if t_op_seai.IsEmpty then
exit;
if t_op_seai.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
exit;
if t_op_seai.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
begin
if not t_op_seai_fen.IsEmpty then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
exit;
end;
end;
t_op_seai.edit;
t_op_seai['װ<>˷<EFBFBD>ʽ']:='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ';
t_op_seai['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
t_op_seai.post;
end;
procedure Tfrm_op_seai_sf.N45Click(Sender: TObject);
begin
if (t_op_seai.State=dsinsert)or(t_op_seai.State=dsedit) then
t_op_seai.post;
try
frm_op_add_seai:=tfrm_op_add_seai.Create (self);
frm_op_add_seai.ShowModal;
finally
frm_op_add_seai.Free;
end;
end;
procedure Tfrm_op_seai_sf.wwDBComboBox2Change(Sender: TObject);
begin
if t_op_seai1.DataSet=nil then
exit;
if wwDBComboBox2.text='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
begin
bsSkinPageControl2.Visible:=true;
bsSkinButton16.Visible:=true;
if strtobool(get_parameters_value(131,'false')) then begin
end else begin
DBEdit16.Color:=clBtnFace;
DBEdit16.ReadOnly:=true;
END;
end
else
begin
bsSkinPageControl2.Visible:=false;
DBEdit16.Color:=clWindow;
DBEdit16.ReadOnly:=false;
bsSkinButton16.Visible:=false;
end;
end;
procedure Tfrm_op_seai_sf.bsSkinButton32Click(Sender: TObject);
begin
if (t_op_seai.State=dsinsert)or(t_op_seai.State=dsedit) then
t_op_seai.post;
if (t_op_seai.State=dsinsert)or(t_op_seai.State=dsedit) then
t_op_seai_fen.post;
try
frm_op_seai_add:=tfrm_op_seai_add.Create (self);
frm_op_seai_add.data1.Enabled:=false;
frm_op_seai_add.data1.DataSet:=t_op_seai_fen;
frm_op_seai_add.data1.Enabled:=true;
frm_op_seai_add.bsSkinCheckRadioBox3.Checked:=true;
frm_op_seai_add.bsSkinCheckRadioBox2.Enabled:=false;
frm_op_seai_add.bsSkinCheckRadioBox4.Enabled:=false;
frm_op_seai_add.bsSkinCheckRadioBox1.Enabled:=false;
frm_op_seai_add.bsSkinCheckRadioBox5.Enabled:=false;
frm_op_seai_add.bsSkinCheckRadioBox6.Enabled:=false;
frm_op_seai_add_num:=3;
frm_op_seai_add.ShowModal;
finally
frm_op_seai_add.Free
end;
end;
procedure Tfrm_op_seai_sf.N47Click(Sender: TObject);
begin
if (not t_op_seai.IsEmpty) and (t_op_seai.sql.Text<>'') then
seaipsqlstr:=t_op_seai.sql.Text;
t_op_seai.Close;
t_op_seai.SQL.clear;
t_op_seai.SQL.Add('select * from t_op_seai where '
+open_data('0002','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><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(54,'t_op_seai','','desc'));
t_op_seai.open;
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo17KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo2);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo18KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBComboBox(Key,wwDBComboBox2);
end;
procedure Tfrm_op_seai_sf.bsSkinButton44Click(Sender: TObject);
var
str:widestring;
begin
str:='';
str:=query_tiaojian(1,str,'t_op_seai.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','ģ<><C4A3>',Edit1.text);
str:=query_tiaojian(1,str,'t_op_seai.ί<>б<EFBFBD><D0B1><EFBFBD>','ģ<><C4A3>',Edit4.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>','ģ<><C4A3>',Edit2.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>','ģ<><C4A3>',Edit3.text);
if trim(str)='' then
begin
str:='where '+open_data('0002','t_op_seai.¼<><C2BC><EFBFBD><EFBFBD>',
't_op_seai.<2E><><EFBFBD><EFBFBD>Ա','t_op_seai.<2E>ͷ<EFBFBD>Ա','t_op_seai.<2E><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end
else
begin
str:=str+' and '+open_data('0002','t_op_seai.¼<><C2BC><EFBFBD><EFBFBD>',
't_op_seai.<2E><><EFBFBD><EFBFBD>Ա','t_op_seai.<2E>ͷ<EFBFBD>Ա','t_op_seai.<2E><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
// str:='select * from t_op_seai 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_seai '
str:='select * from t_op_seai 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_seai '
+str+')'+default_sort(54,'t_op_seai','','desc');
if (not t_op_seai.IsEmpty) and (t_op_seai.sql.Text<>'') then
seaipsqlstr:=t_op_seai.sql.Text;
t_op_seai.close;
t_op_seai.sql.clear;
t_op_seai.sql.add(str);
t_op_seai.Open;
if t_op_seai.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_seai_sf.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
bsSkinButton44.OnClick(Sender);
end;
procedure Tfrm_op_seai_sf.N50Click(Sender: TObject);
var
inifile1:Tinifile;
begin
bsSkinPanel9.Visible:=true;
bsSkinButton13.Top:=3+bsSkinPanel9.Height;
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
inifile1.WriteBool('other','sidisp',bsSkinPanel9.Visible);
inifile1.free;
end;
procedure Tfrm_op_seai_sf.N51Click(Sender: TObject);
var
inifile1:Tinifile;
begin
bsSkinPanel9.Visible:=false;
bsSkinButton13.Top:=3;
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
inifile1.WriteBool('other','sidisp',bsSkinPanel9.Visible);
inifile1.free;
end;
procedure Tfrm_op_seai_sf.N53Click(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('seaimp',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_seai_sf.wwDBDateTimePicker2KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker4);
end;
procedure Tfrm_op_seai_sf.wwDBDateTimePicker3KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker5);
end;
procedure Tfrm_op_seai_sf.wwDBLookupCombo21KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo1);
end;
procedure Tfrm_op_seai_sf.wwDBDateTimePicker5KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo18);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo21KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo22);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo22KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo19);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo10KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo7);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo11KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit10);
end;
procedure Tfrm_op_seai_sf.DBEdit13KeyPress(Sender: TObject; var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo30);
end;
procedure Tfrm_op_seai_sf.bsSkinButton21Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seai1,'<27><>ͷ');
end;
procedure Tfrm_op_seai_sf.bsSkinButton12Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seai1,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_seai_sf.bsSkinButton14Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seai1,'<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>');
end;
procedure Tfrm_op_seai_sf.bsSkinButton15Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seai1,'<27><>ע');
end;
procedure Tfrm_op_seai_sf.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
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ò<EFBFBD><C3B2><EFBFBD><EFBFBD><EFBFBD>ɫ
frm_data_share.t_code_empty.Filtered:=false;
frm_data_share.t_code_empty.Filter:='<27><>=''t_op_seai''';
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_seai1.DataSet.FindField('װ<>˷<EFBFBD>ʽ')<>nil then begin
if pos('<27><>Ʊ',t_op_seai1.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_seai_sf.Notebook1PageChanged(Sender: TObject);
begin
setconcolor;
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_seai_sf.RxDBLookupCombo16Change(Sender: TObject);
begin
if (t_op_seai1.DataSet.State=dsinsert)or(t_op_seai1.DataSet.State=dsedit)then
begin
if RxDBLookupCombo16.DisplayValue<>'' then
t_op_seai1.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo16Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo16);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo16Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo5);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo15Change(Sender: TObject);
begin
if (t_op_seai1.DataSet.State=dsinsert)or(t_op_seai1.DataSet.State=dsedit)then
begin
if RxDBLookupCombo15.DisplayValue<>'' then
t_op_seai1.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_seai_sf.RxDBLookupCombo15Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo15);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo15Exit(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo15);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo11Change(Sender: TObject);
begin
if t_op_seai1.DataSet=nil then
exit;
if (t_op_seai1.DataSet.state=dsinsert)or(t_op_seai1.DataSet.state=dsedit)then
begin
if RxDBLookupCombo11.DisplayValue='' then
exit;
t_op_seai1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring:=t_op_seai1.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>'];
t_op_seai1.DataSet.fieldbyname('<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>').asstring:=frm_data_share.t_code_goods['<27><>Ʒ<EFBFBD><C6B7><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_seai_sf.DBEdit16DblClick(Sender: TObject);
begin
with frm_data_share.P_GetMaxHblno do begin
close;
Parameters.ParamByName('@hblhead').value:=DBEdit16.text+'%';
open;
if (not IsEmpty) and (FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString<>'') then begin
lblhbl.Caption:=FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
bsSkinPanel10.Visible:=true;
end;
end;
end;
procedure Tfrm_op_seai_sf.DBEdit16Exit(Sender: TObject);
begin
bsSkinPanel10.Visible:=false;
end;
procedure Tfrm_op_seai_sf.t_op_seai_fenPostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
var
str:widestring;
begin
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
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_seai where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼='+''''+t_op_seai_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']+'''';
double_seai(str,1);
abort;
end;
if pos('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼',UpperCase(E.Message))<>0 then
begin
str:='select * from t_op_seai where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼='+''''+t_op_seai_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']+'''';
double_seai(str,2);
abort;
end;
if pos('ί<>б<EFBFBD>׼',UpperCase(E.Message))<>0 then
begin
str:='select * from t_op_seai where ί<>б<EFBFBD>׼='+''''+t_op_seai_fen['ί<>б<EFBFBD>׼']+'''';
double_seai(str,3);
abort;
end;
if pos('<27><><EFBFBD>ر<EFBFBD>׼',UpperCase(E.Message))<>0 then
begin
str:='select * from t_op_seai where <20><><EFBFBD>ر<EFBFBD>׼='+''''+t_op_seai_fen['<27><><EFBFBD>ر<EFBFBD>׼']+'''';
double_seai(str,4);
abort;
end;
if pos('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼',UpperCase(E.Message))<>0 then
begin
str:='select * from t_op_seai where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼='+''''+t_op_seai_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼']+'''';
double_seai(str,5);
abort;
end;
end;
procedure Tfrm_op_seai_sf.wwDBDateTimePicker4KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker3);
end;
procedure Tfrm_op_seai_sf.DBEdit8DblClick(Sender: TObject);
begin
with frm_data_share.P_GetMaxWTno do begin
close;
Parameters.ParamByName('@hblhead').value:=DBEdit8.text+'%';
open;
if (not IsEmpty) and (FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString<>'') then begin
lblwt.Caption:=FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString;
bsSkinPanel4.Visible:=true;
end;
end;
end;
procedure Tfrm_op_seai_sf.DBEdit8Exit(Sender: TObject);
begin
bsSkinPanel4.Visible:=false;
end;
procedure Tfrm_op_seai_sf.DBEdit41KeyPress(Sender: TObject; var Key: Char);
begin
if bsSkinPageControl2.Visible then
key_RxDBLookupCombo(Key,RxDBLookupCombo3)
else
key_RxDBLookupCombo(Key,RxDBLookupCombo14);
end;
procedure Tfrm_op_seai_sf.DBEdit41Exit(Sender: TObject);
begin
bsSkinPanel12.Visible:=false;
end;
procedure Tfrm_op_seai_sf.DBEdit41DblClick(Sender: TObject);
begin
with frm_data_share.P_GetMaxDCno do begin
close;
Parameters.ParamByName('@hblhead').value:=DBEdit41.text+'%';
open;
if (not IsEmpty) and (FieldByName('<27><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>').AsString<>'') then begin
lbldc.Caption:=FieldByName('<27><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>').AsString;
bsSkinPanel12.Visible:=true;
end;
end;
end;
procedure Tfrm_op_seai_sf.bsSkinSpeedButton1Click(Sender: TObject);
begin
if (t_op_seai1.DataSet.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull) or (t_op_seai1.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']='') then begin
t_op_seai1.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_seai1.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(2,subComp,department,employee,t_op_seai1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
else
t_op_seai1.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(2,subComp,department,employee,t_op_seai1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
end;
end;
procedure Tfrm_op_seai_sf.bsSkinButton16Click(Sender: TObject);
begin
if not (if_open('295') or if_open('296')) 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_seai_fen;
with frm_ch_fee_zhupiao do
begin
if if_open('295') then
begin
fra_fee_zhu1.t_ch_accept.close;
fra_fee_zhu1.t_ch_accept.Parameters[1].value:=t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
fra_fee_zhu1.t_ch_accept.open;
fra_fee_zhu1.zhupiao1.DataSet:=t_op_seai;
fra_fee_zhu1.dxDBGrid1.FullExpand;
fra_fee_zhu1.bsSkinPanel3.visible:=true;
end
else
fra_fee_zhu1.bsSkinPanel3.visible:=false;
if if_open('296') then
begin
fra_fee_zhu1.t_ch_pay.close;
fra_fee_zhu1.t_ch_pay.Parameters[1].value:=t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
fra_fee_zhu1.t_ch_pay.open;
fra_fee_zhu1.zhupiao1.DataSet:=t_op_seai;
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_seai.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_seai.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_seai_sf.wwDBComboBox9KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo2);
end;
procedure Tfrm_op_seai_sf.wwDBComboBox9DropDown(Sender: TObject);
var
aQuery:TAdoQuery;
begin
wwDBComboBox9.Items.Clear;
if t_op_seai1.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_seai1.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_seai_sf.RxDBLookupCombo31Change(Sender: TObject);
begin
t_op_seai1.DataSet.FieldByName('<27><>Դ<EFBFBD><D4B4>ϸ').AsString:='';
end;
procedure Tfrm_op_seai_sf.N55Click(Sender: TObject);
var
can_do:boolean;
gdo,xdo:smallint;
begin
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if t_op_seai1.DataSet=nil then
exit;
if t_op_seai1.DataSet.IsEmpty then
exit;
if not do_data('0002',t_op_seai1.DataSet.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').asstring
,t_op_seai1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring
,t_op_seai1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
,t_op_seai1.DataSet.FieldByName('<27>ͷ<EFBFBD>Ա').asstring
,t_op_seai1.DataSet.FieldByName('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>').asstring
,t_op_seai1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring) then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
abort;
end;
if t_op_seai1.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_seai1.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_seai1.DataSet.edit;
t_op_seai1.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
t_op_seai1.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
//<2F><><EFBFBD>Ļ<EFBFBD><C4BB><EFBFBD><EFBFBD>ڼ<EFBFBD>
if (gdo<>0) or (xdo<>0) then begin
if trim(t_op_seai1.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if t_op_seai1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
t_op_seai1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=t_op_seai1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(t_op_seai1.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then begin
if t_op_seai1.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
t_op_seai1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=t_op_seai1.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end;
end;
t_op_seai1.DataSet.post;
finally
prnlist:=false;
end;
end;
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo28KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo21);
end;
procedure Tfrm_op_seai_sf.wwDBDateTimePicker6KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker7);
end;
procedure Tfrm_op_seai_sf.wwDBDateTimePicker7KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo28);
end;
procedure Tfrm_op_seai_sf.EDI2Click(Sender: TObject);
begin
{$IFDEF EDI}
if t_op_seai.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_seai_edi_yd) then
frm_op_seai_edi_yd:=tfrm_op_seai_edi_yd.Create(application);
frm_op_seai_edi_yd.ShowModal;
finally
frm_op_seai_edi_yd.free;
frm_op_seai_edi_yd:=nil;
end;
{$ENDIF}
end;
procedure Tfrm_op_seai_sf.N58Click(Sender: TObject);
begin
if t_op_seai.IsEmpty then
exit;
if t_op_seai.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<>䵥Ʊ' then
exit;
if t_op_seai.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
begin
if not t_op_seai_fen.IsEmpty then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
exit;
end;
end;
t_op_seai.edit;
t_op_seai['װ<>˷<EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD>';
t_op_seai['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
t_op_seai.post;
end;
procedure Tfrm_op_seai_sf.N60Click(Sender: TObject);
begin
if t_op_seai.IsEmpty then
exit;
if t_op_seai.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<>䵥Ʊ' then
exit;
if t_op_seai.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
begin
if not t_op_seai_fen.IsEmpty then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
exit;
end;
end;
t_op_seai.edit;
t_op_seai['װ<>˷<EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD>';
t_op_seai['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
t_op_seai.post;
end;
procedure Tfrm_op_seai_sf.bsSkinButton45Click(Sender: TObject);
var
tempstr:widestring;
begin
if seaipsqlstr<>'' then begin
tempstr:=seaipsqlstr;
t_op_seai.close;
if t_op_seai.sql.Text<>'' then
seaipsqlstr:=t_op_seai.sql.Text;
t_op_seai.sql.clear;
t_op_seai.sql.add(tempstr);
t_op_seai.Open;
end;
end;
procedure Tfrm_op_seai_sf.N63Click(Sender: TObject);
begin
if t_op_seai.IsEmpty then
exit;
if t_op_seai.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
exit;
if t_op_seai.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
begin
if not t_op_seai_fen.IsEmpty then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
exit;
end;
end;
t_op_seai.edit;
t_op_seai['װ<>˷<EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD>';
t_op_seai['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
t_op_seai.post;
end;
procedure Tfrm_op_seai_sf.t_op_fileBeforeEdit(DataSet: TDataSet);
begin
op_befor_post(t_op_seai,'0002');
end;
procedure Tfrm_op_seai_sf.bsSkinButton48Click(Sender: TObject);
var
FileStream:TFileStream;
fsize:double;
begin
op_befor_post(t_op_seai,'0002');
if OpenDialog1.Execute then begin
FileStream:=TFileStream.Create(Opendialog1.FileName,fmopenRead); //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD>
try
fsize:=FileStream.size;
finally
freeandnil(FileStream);
end;
if fsize>500000 then begin
MessageDlg('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD>ܳ<EFBFBD><DCB3><EFBFBD>500K<30><4B><EFBFBD><EFBFBD>',mtWarning,[mbyes],0);
end else
UpLoadPro(Opendialog1.FileName);
end else exit ;
end;
procedure Tfrm_op_seai_sf.bsSkinButton49Click(Sender: TObject);
begin
if SaveDialog1.Execute then begin
DownLoadPro(Savedialog1.FileName+t_op_file.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
end else exit ;
end;
procedure Tfrm_op_seai_sf.bsSkinButton50Click(Sender: TObject);
var
arr: array[0..MAX_PATH] of Char;
num: DWORD;
tmpfile:string ;
begin
try
GetTempPath(MAX_PATH, arr);
tmpfile:=arr+t_op_file.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring ;
DownLoadPro(tmpfile) ;
ShellExecute(Handle, nil, pchar(tmpfile), nil, nil, SW_NORMAL);
except
showmessage('<27><><EFBFBD>ܴ<EFBFBD><DCB4><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӵȴ<D3B5><C8B4><EFBFBD><EFBFBD><EFBFBD>');
end ;
end;
procedure Tfrm_op_seai_sf.bsSkinButton51Click(Sender: TObject);
begin
op_befor_post(t_op_seai,'0002');
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
t_op_file.delete ;
end;
procedure Tfrm_op_seai_sf.DownLoadPro(fname: string);
const
MaxBufSize=$F000;
var
myfilename:string;//<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>·<EFBFBD><C2B7><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
myfileStream,exeBlobStream:TStream;
Count,BufSize,N: Integer;
Buffer:PChar;
begin
//<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD>
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.Update;
myfilename:=FName ;
with t_op_file do
begin
myfilename:=myfilename ; //+fieldbyname('<27><><EFBFBD><EFBFBD>').asstring ;
myfileStream :=TFileStream.Create(myfilename,fmCreate);//<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD>
try //SaveToStream(Stream);
ExeBlobStream:=CreateBlobStream(FieldByName('<27><><EFBFBD><EFBFBD>'),bmRead); //<2F><><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD>ȡ<EFBFBD>ü<EFBFBD>¼
Count:=0;
try
if Count=0 then
begin
ExeBlobStream.Position:=0;
Count:=ExeBlobStream.Size;//showmessage(inttostr(count));
end;
if Count>MaxBufSize then BufSize:=MaxBufSize else BufSize:=Count;
GetMem(Buffer,BufSize);
frm_sys_progress.bsSkinGauge1.MaxValue:=(Count div BufSize)+2;
frm_sys_progress.bsSkinGauge1.MinValue:=0;
frm_sys_progress.bsSkinGauge1.Value:=0;
try
while Count<>0 do
begin
if Count>BufSize then N:=BufSize else N:=Count;
ExeBlobStream.ReadBuffer(Buffer^,N);//<2F><><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
MyFileStream.WriteBuffer(Buffer^,N);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д<EFBFBD><D0B4><EFBFBD>ļ<EFBFBD>
Dec(Count,N);
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
end;
finally
FreeMem(Buffer,BufSize);
end;
finally
ExeBlobStream.Free;
end;
finally
myfileStream.Free;
end;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_sys_progress.close;
frm_sys_progress:=nil;
end;
procedure Tfrm_op_seai_sf.UpLoadPro(fname: string);
const
BufSize=$F000;
var
Counter, N: Integer;
Buffer: PAnsiChar;
FieldStrm: TStream;
ExeFileStream:TFileStream;
size_tmp: Double;
filename,fileExt:string ;
begin
//<2F>ϴ<EFBFBD><CFB4>ļ<EFBFBD>
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.Update;
filename:=ExtractFileName(fname) ;
fileExt:=ExtractFileExt(filename) ;
ExeFileStream:=TFileStream.Create(fname,fmopenRead); //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD>
with t_op_file do
begin
Open;
append;
try
FieldStrm := CreateBlobStream(FieldByName('<27><><EFBFBD><EFBFBD>'),bmWrite);
GetMem(Buffer,BufSize);
try
Counter := ExeFileStream.Size;
size_tmp :=ExeFileStream.Size;
frm_sys_progress.bsSkinGauge1.MaxValue:=(Counter div BufSize)+2;
frm_sys_progress.bsSkinGauge1.MinValue:=0;
frm_sys_progress.bsSkinGauge1.Value:=0;
while Counter<>0 do
begin
if Counter>BufSize then N :=BufSize else N:=Counter;
ExeFileStream.ReadBuffer(Buffer^,N);
FieldStrm.WriteBuffer(Buffer^, N);
Dec(Counter, N);
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
// Application.ProcessMessages;
end;
finally
FreeMem(Buffer,BufSize);
FieldStrm.Free;
end;
FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=filename;
FieldByName('<27><>С').AsFloat:=size_tmp;
FieldByName('<27>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD><EFBFBD>').AsDateTime:=now();
FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asstring:=employee;
FieldByName('<27><><EFBFBD><EFBFBD>').Asstring:=fileExt;
Post;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!','<27><>ʾ',MB_OK+MB_IconInformation);
finally
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_sys_progress.close;
frm_sys_progress:=nil;
ExeFileStream.Free;
end;
end;
end;
procedure Tfrm_op_seai_sf.fra_op_state1bsSkinButton11Click(Sender: TObject);
begin
fra_op_state1.bsSkinButton11Click(Sender);
end;
procedure Tfrm_op_seai_sf.fra_op_state1bsSkinButton7Click(Sender: TObject);
begin
fra_op_state1.bsSkinButton7Click(Sender);
end;
procedure Tfrm_op_seai_sf.dxDBGrid1Column77CustomDraw(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><CBBD><EFBFBD>',ANode.Strings[dxDBGrid1Column77.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_op_seai_sf.bsSkinButton17Click(Sender: TObject);
begin
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.t_op_state.DataSource:=frm_op_seai_sf.t_op_seai1;
frm_op_seae_state_up.DBEdit8.DataSource:=frm_op_seai_sf.t_op_seai1;
frm_op_seae_state_up.DBEdit9.DataSource:=frm_op_seai_sf.t_op_seai1;
frm_op_seae_state_up.show;
frm_op_seae_state_up.Left:=bsSkinButton17.left+Notebook1.left+2;
frm_op_seae_state_up.top:=70+Notebook1.top;
end;
procedure Tfrm_op_seai_sf.wwDBDateTimePicker4Change(Sender: TObject);
begin
// t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=wwDBDateTimePicker4.Date;
if not wwDBDateTimePicker4.Focused then exit;
if (strtoint(get_parameters_value(158,'0'))=1) and (Trim(t_op_seai.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><><EFBFBD>ĵ<EFBFBD>') then
wwDBDateTimePicker4.ReadOnly:=true;
end;
procedure Tfrm_op_seai_sf.bsSkinButton18Click(Sender: TObject);
var
aQuery:TADOQuery;
book1:Tbookmark;
begin
if t_op_seai=nil then
exit;
if t_op_seai.IsEmpty then
exit;
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('update t_op_seai set FEE=1 where <20><><EFBFBD><EFBFBD>='''+t_op_seai['<27><><EFBFBD><EFBFBD>']+'''');
ExecSQL;
end;
finally
FreeAndNil(aQuery);
end;
book1:=t_op_seai.GetBookmark;
t_op_seai.Requery();
t_op_seai.GotoBookmark(book1);
end;
procedure Tfrm_op_seai_sf.bsSkinButton19Click(Sender: TObject);
var
aQuery:TADOQuery;
book1:Tbookmark;
begin
if t_op_seai=nil then
exit;
if t_op_seai.IsEmpty then
exit;
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('update t_op_seai set FEE2=1 where <20><><EFBFBD><EFBFBD>='''+t_op_seai['<27><><EFBFBD><EFBFBD>']+'''');
ExecSQL;
end;
finally
FreeAndNil(aQuery);
end;
book1:=t_op_seai.GetBookmark;
t_op_seai.Requery();
t_op_seai.GotoBookmark(book1);
end;
procedure Tfrm_op_seai_sf.RxDBLookupCombo23Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo23);
end;
procedure Tfrm_op_seai_sf.FormCreate(Sender: TObject);
begin
Letter_flag:=0;
end;
procedure Tfrm_op_seai_sf.N66Click(Sender: TObject);
var
i:integer;
aAdoQuery:TAdoQuery;
begin
//<2F><><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>ӡ<EFBFBD>ʵ<EFBFBD>
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 not if_open('055') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
abort;
end;
aAdoQuery:=CreateAdoQuery;
try
with aAdoQuery do
begin
Close;Sql.Clear;
Sql.Add('Select * from t_ch_fee');
Sql.Add('Where <20><><EFBFBD><EFBFBD>=:bsno and <20><><EFBFBD><EFBFBD>״̬=''¼<><C2BC>״̬''');
end;
t_op_seai.DisableControls;
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seai.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
aAdoQuery.Close;
aAdoQuery.Parameters.ParamByName('bsno').value:=t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
aAdoQuery.Open;
fee_update_all_pl('2',t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString,t_op_seai.FieldByName('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').AsString,'<27><>',aAdoQuery);
end;
finally
t_op_seai.EnableControls;
aAdoQuery.Free;
end;
end;
procedure Tfrm_op_seai_sf.N68Click(Sender: TObject);
var
i:integer;
aAdoQuery:TAdoQuery;
begin
//<2F><><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>ӡ<EFBFBD>ʵ<EFBFBD>
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 not if_open('055') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
abort;
end;
aAdoQuery:=CreateAdoQuery;
try
with aAdoQuery do
begin
Close;Sql.Clear;
Sql.Add('Select * from t_ch_fee');
Sql.Add('Where <20><><EFBFBD><EFBFBD>=:bsno and <20><><EFBFBD><EFBFBD>״̬=''¼<><C2BC>״̬'' and <20><><EFBFBD><EFBFBD>=''<27><>''');
end;
t_op_seai.DisableControls;
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seai.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
aAdoQuery.Close;
aAdoQuery.Parameters.ParamByName('bsno').value:=t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
aAdoQuery.Open;
fee_update_all_pl('2',t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString,t_op_seai.FieldByName('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').AsString,'<27><>',aAdoQuery);
end;
finally
t_op_seai.EnableControls;
aAdoQuery.Free;
end;
end;
procedure Tfrm_op_seai_sf.N70Click(Sender: TObject);
var
i:integer;
aAdoQuery:TAdoQuery;
begin
//<2F><><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>ӡ<EFBFBD>ʵ<EFBFBD>
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 not if_open('055') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
abort;
end;
aAdoQuery:=CreateAdoQuery;
try
with aAdoQuery do
begin
Close;Sql.Clear;
Sql.Add('Select * from t_ch_fee');
Sql.Add('Where <20><><EFBFBD><EFBFBD>=:bsno and <20><><EFBFBD><EFBFBD>״̬=''¼<><C2BC>״̬'' and <20><><EFBFBD><EFBFBD>=''<27><>''');
end;
t_op_seai.DisableControls;
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seai.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
aAdoQuery.Close;
aAdoQuery.Parameters.ParamByName('bsno').value:=t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
aAdoQuery.Open;
fee_update_all_pl('2',t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString,t_op_seai.FieldByName('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').AsString,'<27><>',aAdoQuery);
end;
finally
t_op_seai.EnableControls;
aAdoQuery.Free;
end;
end;
function Tfrm_op_seai_sf.UpdateopseaeStatus(bsNO,Salas:string):Boolean;
var aAdoQuery,aAdoQueryUpdate:TAdoQuery;
begin
aAdoQuery:=CreateAdoQuery;
aAdoQueryUpdate:=CreateAdoQuery;
with aAdoQueryUpdate do
begin
Close;Sql.Clear;
SQL.Add('Update t_ch_fee set <20><><EFBFBD><EFBFBD>״̬=:feestatus,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:CheckName,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:CheckDate,<2C>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>=:AppDate');
SQL.Add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and CH_ID=:CH_ID And <20><><EFBFBD><EFBFBD>״̬=''¼<><C2BC>״̬''');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=BsNo;
Parameters.ParamByName('feestatus').Value:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
Parameters.ParamByName('CheckName').Value:=employee;
Parameters.ParamByName('CheckDate').Value:=now;
Parameters.ParamByName('AppDate').Value:=now;
end;
with aAdoQuery do
try
Close;Sql.Clear;
SQL.Add('Update t_op_seai set <20><><EFBFBD><EFBFBD>״̬=''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'',ҵ<><D2B5>״̬=''ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''');
SQL.Add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=BsNo;
ExecSQL;
if Salas='<27><>˾<EFBFBD><CBBE>111' then
begin
Close;Sql.Clear;
SQL.Add('Select * from t_ch_fee');
SQL.Add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=BsNo;
Open;First;
while not eof do
begin
aAdoQueryUpdate.Close;
aAdoQueryUpdate.Parameters.ParamByName('CH_ID').Value:=FieldByName('CH_ID').AsInteger;
aAdoQueryUpdate.ExecSQL;
Next;
end;
end;
finally
aAdoQuery.Free;
end;
end;
procedure Tfrm_op_seai_sf.bsSkinButton60Click(Sender: TObject);
var i:integer;
begin
if t_op_seai.IsEmpty then
exit;
if (t_op_seai.State=dsinsert)or(t_op_seai.State=dsedit) then
t_op_seai.post;
try
t_op_seai.DisableControls;
if (t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString='¼<><C2BC>״̬') or (t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString='¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
begin
if GetopseaeStatus(t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,Trim(t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)) then
begin
ShowMessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA>,<2C><><EFBFBD><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>');
end
else
begin
UpdateopseaeStatus(t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'<27><>˾<EFBFBD><CBBE>111');
end;
end
else
begin
ShowMessage('<27><><EFBFBD><EFBFBD>״̬Ϊ:'+t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString+',<2C><><EFBFBD><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>');
end;
finally
t_op_seai.EnableControls;
t_op_seai.Refresh;
end;
end;
procedure Tfrm_op_seai_sf.fra_op_state1bsSkinButton1Click(Sender: TObject);
begin
fra_op_state1.bsSkinButton1Click(Sender);
end;
procedure Tfrm_op_seai_sf.N72Click(Sender: TObject);
begin
if not assigned(frm_seai_sf_status) then
frm_seai_sf_status:=tfrm_seai_sf_status.Create (self);
// frm_seai_sf_status.bsno:=t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
frm_seai_sf_status.show;
end;
procedure Tfrm_op_seai_sf.N74Click(Sender: TObject);
begin
if not assigned(frm_seai_sf_xsf) then
frm_seai_sf_xsf:=tfrm_seai_sf_xsf.Create (self);
frm_seai_sf_xsf.show;
end;
procedure Tfrm_op_seai_sf.N80Click(Sender: TObject);
var k:integer;
begin
//<2F><><EFBFBD>ϲ<EFBFBD>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ⣬<DDBF>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA>Ʊҵ<C6B1><D2B5><EFBFBD>ύ<EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>ϲ<EFBFBD>ѯ<EFBFBD><D1AF>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)<>IDOK then exit;
try
if frm_op_seai_sf.dxdbgrid1.SelectedCount>0 then
begin
for k:=0 to frm_op_seai_sf.dxdbgrid1.SelectedCount-1 do
begin
try
frm_op_seai_sf.t_op_seai.GotoBookmark(pointer(frm_op_seai_sf.dxdbgrid1.selectedrows[k]));
CalcCQXSF(frm_op_seai_sf.t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,frm_op_seai_sf.t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>˾').AsString);
SubmitToWebMasterBills(frm_op_seai_sf.t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,'t_op_seai');
SubmitToWebCustomerBills(frm_op_seai_sf.t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,'t_op_seai','t_op_seae_assistant');
SubmitToWebFee(frm_op_seai_sf.t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
SubmitToWebState(frm_op_seai_sf.t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
except
on E: Exception do
begin
ShowMessage(E.Message);
end;
end;
end;
end
else
begin
CalcCQXSF(frm_op_seai_sf.t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,frm_op_seai_sf.t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>˾').AsString);
SubmitToWebMasterBills(frm_op_seai_sf.t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,'t_op_seai');
SubmitToWebCustomerBills(frm_op_seai_sf.t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,'t_op_seai','t_op_seae_assistant');
SubmitToWebFee(frm_op_seai_sf.t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
SubmitToWebState(frm_op_seai_sf.t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
end;
finally
end;
end;
procedure Tfrm_op_seai_sf.N82Click(Sender: TObject);
var aAdoQuery:TAdoQuery;
k:integer;
begin
//<2F><><EFBFBD>ϲ<EFBFBD>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ⣬ȡ<E2A3AC><C8A1><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>
//if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫȡ<D2AA><C8A1><EFBFBD><EFBFBD>Ʊҵ<C6B1><D2B5><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>ϲ<EFBFBD>ѯ<EFBFBD><D1AF>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)<>IDOK then exit;
if frm_op_seai_sf.dxdbgrid1.SelectedCount>0 then
begin
for k:=0 to frm_op_seai_sf.dxdbgrid1.SelectedCount-1 do
begin
frm_op_seai_sf.t_op_seai.GotoBookmark(pointer(frm_op_seai_sf.dxdbgrid1.selectedrows[k]));
DelWebData(frm_op_seai_sf.t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,'t_op_seai','t_op_seai_assistant');
end;
end
else
begin
DelWebData(frm_op_seai_sf.t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,'t_op_seai','t_op_seai_assistant');
end;
end;
procedure Tfrm_op_seai_sf.t_op_seaiAfterPost(DataSet: TDataSet);
begin
CalcCQXSF(frm_op_seai_sf.t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,frm_op_seai_sf.t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>˾').AsString);
end;
procedure Tfrm_op_seai_sf.fra_op_state1bsSkinButton8Click(Sender: TObject);
begin
fra_op_state1.bsSkinButton8Click(Sender);
end;
end.
Reference in New Issue View Git Blame Copy Permalink