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

4432 lines
134 KiB
Plaintext
Raw Normal View History Unescape Escape

1
11 months ago
{$INCLUDE t_main.inc}
unit u_op_seai;
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,
bsSkinBoxCtrls;
type
Tfrm_op_seai = 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;
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;
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;
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;
Label64: TLabel;
DBEdit17: TDBEdit;
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;
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;
bsSkinButton20: TbsSkinButton;
dxDBGrid1Column81: TdxDBGridColumn;
dxDBGrid1Column82: TdxDBGridColumn;
wwDBLookupCombo26: TwwDBLookupCombo;
RxDBLookupCombo2: TRxDBLookupCombo;
Label213: TLabel;
RxDBLookupCombo57: TRxDBLookupCombo;
bsSkinComboBox1: TbsSkinComboBox;
Edit6: TEdit;
Edit5: TEdit;
Label183: TLabel;
wwDBDateTimePicker19: TwwDBDateTimePicker;
wwDBDateTimePicker18: TwwDBDateTimePicker;
Label210: TLabel;
wwDBDateTimePicker13: TwwDBDateTimePicker;
DBEdit27: TDBEdit;
N71: TMenuItem;
N72: 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 RxDBLookupCombo12Change(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 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 RxDBLookupCombo23Enter(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N66Click(Sender: TObject);
procedure N68Click(Sender: TObject);
procedure N70Click(Sender: TObject);
procedure bsSkinButton60Click(Sender: TObject);
procedure bsSkinButton20Click(Sender: TObject);
procedure wwDBLookupCombo26KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo2Change(Sender: TObject);
procedure RxDBLookupCombo2Enter(Sender: TObject);
procedure RxDBLookupCombo2Exit(Sender: TObject);
procedure N72Click(Sender: TObject);
private
frm_op_seai_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;
{ Private declarations }
public
seaipsqlstr:widestring;
{ Public declarations }
end;
var
frm_op_seai: Tfrm_op_seai;
edi_addseai: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_seai_edi_yd,
u_op_seae_state_up, u_op_letter;
{$R *.dfm}
procedure Tfrm_op_seai.bsSkinButton7Click(Sender: TObject);
begin
table_Prior(t_op_seai);
end;
procedure Tfrm_op_seai.bsSkinButton6Click(Sender: TObject);
begin
table_next(t_op_seai);
end;
procedure Tfrm_op_seai.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.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.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.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_seai.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.Hide;
frm_op_seai.ManualFloat(frm_op_seai.BoundsRect );
frm_main.freeTabs('frm_op_seai');
frm_op_seai_create:=false;
action:=cafree;
frm_op_seai:=nil;
end;
procedure Tfrm_op_seai.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.FormShow(Sender: TObject);
var
inifile1,seabandini:Tinifile;
i,j,n:integer;
sl:TStrings;
begin
frm_op_seai_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'));
//<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 '
+'(¼<><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 '
+' 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:='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:='2';
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;
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
{$IFDEF DLFENZHANG}
if not if_reg(194) then begin
bsSkinTabSheet6.TabVisible:=false;
end;
{$ELSE}
bsSkinTabSheet6.TabVisible:=false;
{$ENDIF}
//״̬<D7B4><CCAC><EFBFBD><EFBFBD>
{$IFDEF ZTGENGZONG}
if not if_reg(195) then begin
bsSkinTabSheet3.TabVisible:=false;
end;
{$ELSE}
bsSkinTabSheet3.TabVisible:=false;
{$ENDIF}
if if_open('304') then begin
bsSkinTabSheet6.TabVisible:=true;
end else begin
bsSkinTabSheet6.TabVisible:=false;
end;
//<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_create:=true;
end;
procedure Tfrm_op_seai.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.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.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.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.bsSkinCheckRadioBox3.Checked:=true;
// frm_op_seai_add.bsSkinCheckRadioBox2.Enabled:=false;
// frm_op_seai_add.bsSkinCheckRadioBox4.Enabled:=false;
frm_op_seai_add_num:=1;
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.t_op_seaiBeforeEdit(DataSet: TDataSet);
begin
op_befor_post(t_op_seai,'0002');
end;
procedure Tfrm_op_seai.t_op_seaiBeforePost(DataSet: TDataSet);
begin
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44><49><EFBFBD>벻<EFBFBD><EBB2BB><EFBFBD><EFBFBD>
if not edi_addseai 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.DBEdit13Click(Sender: TObject);
begin
if t_op_seai.IsEmpty then
exit;
if (t_op_seai.State=dsinsert)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:='0002';
frm_op_ctn.ShowModal;
finally
frm_op_ctn.Free;
end;
end;
procedure Tfrm_op_seai.bsSkinButton10Click(Sender: TObject);
begin
query_seai(1,'0002');
end;
procedure Tfrm_op_seai.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.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.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit2);
end;
procedure Tfrm_op_seai.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit3);
end;
procedure Tfrm_op_seai.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit4);
end;
procedure Tfrm_op_seai.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit18);
end;
procedure Tfrm_op_seai.RxDBLookupCombo1KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo12);
end;
procedure Tfrm_op_seai.RxDBLookupCombo12KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit8);
end;
procedure Tfrm_op_seai.RxDBLookupCombo13KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo2);
end;
procedure Tfrm_op_seai.DBEdit8KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit9);
end;
procedure Tfrm_op_seai.DBEdit9KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit16);
end;
procedure Tfrm_op_seai.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit82);
end;
procedure Tfrm_op_seai.wwDBLookupCombo49KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit63);
end;
procedure Tfrm_op_seai.DBEdit63KeyPress(Sender: TObject; var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo52);
end;
procedure Tfrm_op_seai.DBEdit6KeyPress(Sender: TObject; var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo52);
end;
procedure Tfrm_op_seai.wwDBLookupCombo52KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo3);
end;
procedure Tfrm_op_seai.wwDBLookupCombo3KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo20);
end;
procedure Tfrm_op_seai.DBEdit7KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit11);
end;
procedure Tfrm_op_seai.DBEdit10KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit14);
end;
procedure Tfrm_op_seai.DBEdit14KeyPress(Sender: TObject; var Key: Char);
begin
key_dbedit(Key,DBEdit12);
end;
procedure Tfrm_op_seai.DBEdit11KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit15);
end;
procedure Tfrm_op_seai.DBEdit12KeyPress(Sender: TObject; var Key: Char);
begin
key_DBMemo(Key,DBMemo3);
end;
procedure Tfrm_op_seai.DBEdit15KeyPress(Sender: TObject; var Key: Char);
begin
key_DBMemo(Key,DBMemo8);
end;
procedure Tfrm_op_seai.wwDBComboBox2KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker6);
end;
procedure Tfrm_op_seai.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.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.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.DBEdit18KeyPress(Sender: TObject; var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo1);
end;
procedure Tfrm_op_seai.DBEdit16KeyPress(Sender: TObject; var Key: Char);
begin
key_dbedit(Key,DBEdit41);
end;
procedure Tfrm_op_seai.wwDBComboBox1KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo29);
end;
procedure Tfrm_op_seai.wwDBComboBox3KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBComboBox(Key,wwDBComboBox1);
end;
procedure Tfrm_op_seai.RxDBLookupCombo2KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo2);
// key_dbedit(Key,DBEdit13);
end;
procedure Tfrm_op_seai.RxDBLookupCombo20KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker2);
end;
procedure Tfrm_op_seai.RxDBLookupCombo9KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo8);
end;
procedure Tfrm_op_seai.RxDBLookupCombo8KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo6);
end;
procedure Tfrm_op_seai.RxDBLookupCombo6KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo9);
end;
procedure Tfrm_op_seai.RxDBLookupCombo7KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo22);
end;
procedure Tfrm_op_seai.RxDBLookupCombo19KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo10);
end;
procedure Tfrm_op_seai.DBEdit81KeyPress(Sender: TObject; var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo61);
end;
procedure Tfrm_op_seai.wwDBLookupCombo61KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit5);
end;
procedure Tfrm_op_seai.DBEdit82KeyPress(Sender: TObject; var Key: Char);
begin
key_dbedit(Key,DBEdit83);
end;
procedure Tfrm_op_seai.DBEdit83KeyPress(Sender: TObject; var Key: Char);
begin
key_DBMemo(Key,DBMemo4);
end;
procedure Tfrm_op_seai.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.DBEdit2Change(Sender: TObject);
begin
DBEdit2.Color:=dxgrid_color('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>',DBEdit2.text);
end;
procedure Tfrm_op_seai.DBEdit3Change(Sender: TObject);
begin
DBEdit3.Color:=dxgrid_color_fee(DBEdit3.text);
end;
procedure Tfrm_op_seai.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.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.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.wwDBLookupCombo2KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo33);
end;
procedure Tfrm_op_seai.wwDBLookupCombo5KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo34);
end;
procedure Tfrm_op_seai.wwDBLookupCombo6KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo35);
end;
procedure Tfrm_op_seai.RxDBLookupCombo3KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo2);
end;
procedure Tfrm_op_seai.RxDBLookupCombo4KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo5);
end;
procedure Tfrm_op_seai.RxDBLookupCombo5KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo6);
end;
procedure Tfrm_op_seai.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.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.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.wwDBLookupCombo2Exit(Sender: TObject);
begin
TwwDBLookupCombo(Sender).Clear;
end;
procedure Tfrm_op_seai.wwDBLookupCombo5Exit(Sender: TObject);
begin
TwwDBLookupCombo(Sender).Clear;
end;
procedure Tfrm_op_seai.wwDBLookupCombo6Exit(Sender: TObject);
begin
TwwDBLookupCombo(Sender).Clear;
end;
procedure Tfrm_op_seai.RxDBLookupCombo29KeyPress(Sender: TObject;
var Key: Char);
begin
// key_RxDBLookupCombo(Key,RxDBLookupCombo11);
end;
procedure Tfrm_op_seai.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.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.N10Click(Sender: TObject);
begin
update_grid_view_no(dxdbgrid1);
end;
procedure Tfrm_op_seai.N14Click(Sender: TObject);
begin
update_grid_view_all(dxdbgrid1);
end;
procedure Tfrm_op_seai.N12Click(Sender: TObject);
begin
update_grid(dxdbgrid1,35);
end;
procedure Tfrm_op_seai.N16Click(Sender: TObject);
begin
grid_save_xls(dxdbgrid1);
end;
procedure Tfrm_op_seai.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.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.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.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.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.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 <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_state where <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><>1) '
+default_sort(54,'t_op_seai','','desc'));
t_op_seai.open;
end;
procedure Tfrm_op_seai.RxDBLookupCombo1Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo1);
end;
procedure Tfrm_op_seai.RxDBLookupCombo3Enter(Sender: TObject);
begin
RxLookupComboEnter(TRxDBLookupCombo(Sender));
end;
procedure Tfrm_op_seai.RxDBLookupCombo4Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo4);
end;
procedure Tfrm_op_seai.RxDBLookupCombo5Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo5);
end;
procedure Tfrm_op_seai.RxDBLookupCombo9Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo9);
end;
procedure Tfrm_op_seai.RxDBLookupCombo6Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo6);
end;
procedure Tfrm_op_seai.RxDBLookupCombo19Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo19);
end;
procedure Tfrm_op_seai.RxDBLookupCombo10Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo10);
end;
procedure Tfrm_op_seai.RxDBLookupCombo7Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo7);
end;
procedure Tfrm_op_seai.RxDBLookupCombo8Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo8);
end;
procedure Tfrm_op_seai.RxDBLookupCombo1Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo1);
end;
procedure Tfrm_op_seai.RxDBLookupCombo3Exit(Sender: TObject);
begin
RxLookupComboExit(TRxDBLookupCombo(Sender));
end;
procedure Tfrm_op_seai.RxDBLookupCombo4Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo4);
end;
procedure Tfrm_op_seai.RxDBLookupCombo5Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo5);
end;
procedure Tfrm_op_seai.RxDBLookupCombo9Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo9);
end;
procedure Tfrm_op_seai.RxDBLookupCombo8Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo8);
end;
procedure Tfrm_op_seai.RxDBLookupCombo6Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo6);
end;
procedure Tfrm_op_seai.RxDBLookupCombo7Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo7);
end;
procedure Tfrm_op_seai.RxDBLookupCombo19Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo19);
end;
procedure Tfrm_op_seai.RxDBLookupCombo10Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo10);
end;
procedure Tfrm_op_seai.RxDBLookupCombo20Enter(Sender: TObject);
begin
RxDBLookupCombo20.LookupDisplay:='<27><><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD>;<3B><><EFBFBD><EFBFBD>';
end;
procedure Tfrm_op_seai.RxDBLookupCombo20Exit(Sender: TObject);
begin
RxDBLookupCombo20.LookupDisplay:='<27><><EFBFBD><EFBFBD>';
end;
procedure Tfrm_op_seai.RxDBLookupCombo11Enter(Sender: TObject);
begin
// RxDBLookupCombo11.LookupDisplay:='<27><><EFBFBD><EFBFBD>;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end;
procedure Tfrm_op_seai.RxDBLookupCombo11Exit(Sender: TObject);
begin
// RxDBLookupCombo11.LookupDisplay:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end;
procedure Tfrm_op_seai.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.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.Label4Click(Sender: TObject);
begin
client_view(t_op_seai.fieldbyname('ί<>е<EFBFBD>λ').asstring,frm_data_share.t_crm_client_weituo);
end;
procedure Tfrm_op_seai.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.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.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.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.Label25Click(Sender: TObject);
begin
client_view(t_op_seai.fieldbyname('<27><>վ').asstring,frm_data_share.t_crm_client_changzhan);
end;
procedure Tfrm_op_seai.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.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.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.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.wwDBLookupCombo2DblClick(Sender: TObject);
begin
open_code_edit('016');
end;
procedure Tfrm_op_seai.Label125Click(Sender: TObject);
begin
open_code_edit('097');
end;
procedure Tfrm_op_seai.Label16Click(Sender: TObject);
begin
open_code_edit('013');
end;
procedure Tfrm_op_seai.Label10Click(Sender: TObject);
begin
open_code_edit('011');
end;
procedure Tfrm_op_seai.Label73Click(Sender: TObject);
begin
open_code_edit('012');
end;
procedure Tfrm_op_seai.Label164Click(Sender: TObject);
begin
open_code_edit('007');
end;
procedure Tfrm_op_seai.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.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.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.RxDBLookupCombo31KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBComboBox(Key,wwDBComboBox9);
end;
procedure Tfrm_op_seai.RxDBLookupCombo31Enter(Sender: TObject);
begin
RxDBLookupCombo31.LookupDisplay:='<27><><EFBFBD><EFBFBD>;ҵ<><D2B5><EFBFBD><EFBFBD>Դ';
end;
procedure Tfrm_op_seai.RxDBLookupCombo31Exit(Sender: TObject);
begin
RxDBLookupCombo31.LookupDisplay:='ҵ<><D2B5><EFBFBD><EFBFBD>Դ';
end;
procedure Tfrm_op_seai.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.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.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.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.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.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.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.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.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.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.bsSkinPageControl1Change(Sender: TObject);
begin
if frm_op_seai_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.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.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.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.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.t_op_seai_fenBeforeEdit(DataSet: TDataSet);
begin
op_befor_post(t_op_seai_fen,'0002');
end;
procedure Tfrm_op_seai.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.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.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.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.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.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.RxDBLookupCombo14KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo1);
end;
procedure Tfrm_op_seai.wwDBLookupCombo1KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo5);
end;
procedure Tfrm_op_seai.wwDBLookupCombo7KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo7);
end;
procedure Tfrm_op_seai.wwDBLookupCombo4KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo6);
end;
procedure Tfrm_op_seai.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.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.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.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.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.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.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.RxDBLookupCombo17KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo26);
end;
procedure Tfrm_op_seai.RxDBLookupCombo18KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBComboBox(Key,wwDBComboBox2);
end;
procedure Tfrm_op_seai.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);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>','ģ<><C4A3>',Edit5.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>',wwDBDateTimePicker18.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','С<><D0A1>',wwDBDateTimePicker19.text);
if RxDBLookupCombo57.Text<>'<<3C><>>' then
str:=query_tiaojian(1,str,'t_op_seai.ί<>е<EFBFBD>λ','<27><><EFBFBD><EFBFBD>',RxDBLookupCombo57.DisplayValues[1]);
if trim(Edit6.text)<>'' then
case bsSkinComboBox1.ItemIndex of
0,1:begin
str:=query_tiaojian(1,str,'t_op_seai.'+bsSkinComboBox1.Text,'<27><><EFBFBD><EFBFBD>',Edit6.text);
end;
2:
begin
end;
end;
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 <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.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
bsSkinButton44.OnClick(Sender);
end;
procedure Tfrm_op_seai.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.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.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.wwDBDateTimePicker2KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker4);
end;
procedure Tfrm_op_seai.wwDBDateTimePicker3KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker5);
end;
procedure Tfrm_op_seai.wwDBLookupCombo21KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo1);
end;
procedure Tfrm_op_seai.wwDBDateTimePicker5KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo18);
end;
procedure Tfrm_op_seai.RxDBLookupCombo21KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo22);
end;
procedure Tfrm_op_seai.RxDBLookupCombo22KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo19);
end;
procedure Tfrm_op_seai.RxDBLookupCombo10KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo7);
end;
procedure Tfrm_op_seai.RxDBLookupCombo11KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit10);
end;
procedure Tfrm_op_seai.DBEdit13KeyPress(Sender: TObject; var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo30);
end;
procedure Tfrm_op_seai.bsSkinButton21Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seai1,'<27><>ͷ');
end;
procedure Tfrm_op_seai.bsSkinButton12Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seai1,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_seai.bsSkinButton14Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seai1,'<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>');
end;
procedure Tfrm_op_seai.bsSkinButton15Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seai1,'<27><>ע');
end;
procedure Tfrm_op_seai.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.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.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.RxDBLookupCombo16Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo16);
end;
procedure Tfrm_op_seai.RxDBLookupCombo16Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo5);
end;
procedure Tfrm_op_seai.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.RxDBLookupCombo15Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo15);
end;
procedure Tfrm_op_seai.RxDBLookupCombo15Exit(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo15);
end;
procedure Tfrm_op_seai.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.DBEdit16Exit(Sender: TObject);
begin
bsSkinPanel10.Visible:=false;
end;
procedure Tfrm_op_seai.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.wwDBDateTimePicker4KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker3);
end;
procedure Tfrm_op_seai.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.DBEdit8Exit(Sender: TObject);
begin
bsSkinPanel4.Visible:=false;
end;
procedure Tfrm_op_seai.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.DBEdit41Exit(Sender: TObject);
begin
bsSkinPanel12.Visible:=false;
end;
procedure Tfrm_op_seai.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.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.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.wwDBComboBox9KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo26);
end;
procedure Tfrm_op_seai.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.RxDBLookupCombo31Change(Sender: TObject);
begin
t_op_seai1.DataSet.FieldByName('<27><>Դ<EFBFBD><D4B4>ϸ').AsString:='';
end;
procedure Tfrm_op_seai.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.RxDBLookupCombo28KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo21);
end;
procedure Tfrm_op_seai.wwDBDateTimePicker6KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker7);
end;
procedure Tfrm_op_seai.wwDBDateTimePicker7KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo28);
end;
procedure Tfrm_op_seai.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.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.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.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.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.t_op_fileBeforeEdit(DataSet: TDataSet);
begin
op_befor_post(t_op_seai,'0002');
end;
procedure Tfrm_op_seai.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.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.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.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.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.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.fra_op_state1bsSkinButton11Click(Sender: TObject);
begin
fra_op_state1.bsSkinButton11Click(Sender);
end;
procedure Tfrm_op_seai.fra_op_state1bsSkinButton7Click(Sender: TObject);
begin
fra_op_state1.bsSkinButton7Click(Sender);
end;
procedure Tfrm_op_seai.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.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.t_op_seai1;
frm_op_seae_state_up.DBEdit8.DataSource:=frm_op_seai.t_op_seai1;
frm_op_seae_state_up.DBEdit9.DataSource:=frm_op_seai.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.wwDBDateTimePicker4Change(Sender: TObject);
begin
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.RxDBLookupCombo23Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo23);
end;
procedure Tfrm_op_seai.FormCreate(Sender: TObject);
begin
Letter_flag:=0;
end;
procedure Tfrm_op_seai.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.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.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.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>'',<2C>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:AppDate');
SQL.Add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (<28><><EFBFBD><EFBFBD><>'''' or not <20><><EFBFBD><EFBFBD> is null ) and (<28><><EFBFBD><EFBFBD><>'''' or not <20><><EFBFBD><EFBFBD> is null)');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=BsNo;
Parameters.ParamByName('AppDate').Value:=DatabaseDateTime; //
ExecSQL;
if Salas='<27><>˾<EFBFBD><CBBE>' 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.bsSkinButton60Click(Sender: TObject);
var i:integer;
Reasons:string;
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
1
7 months ago
if GetopseaeStatus(False,t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,Trim(t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString),Trim(t_op_seai.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString),Trim(t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD>').AsString),Trim(t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD>').AsString),Trim(t_op_seai.FieldByName('<27><>վ').AsString),Trim(t_op_seai.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString),Reasons,Trim(t_op_seai.FieldByName('ί<>е<EFBFBD>λ').AsString),Trim(t_op_seai.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString)) then
1
11 months ago
begin
ShowMessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA>,<2C><><EFBFBD><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+#13#10+Reasons);
end
else
begin
UpdateopseaeStatus(t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'<27><>˾<EFBFBD><CBBE>');
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.bsSkinButton20Click(Sender: TObject);
var i:integer;
aAdoQuery:TAdoQuery;
begin
if t_op_seai1.DataSet.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='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')
then
begin
aAdoQuery:=CreateadoQuery;
with aAdoQuery do
try
Close;sql.Clear;
SQL.Add('Update t_op_seai set ҵ<><D2B5>״̬=''<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>'',<2C><><EFBFBD><EFBFBD>״̬=''¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'',<2C>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=null');
SQL.Add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_seai1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').Value;
ExecSQL;
finally
Free;
end;
end
else
begin
ShowMessage('<27><><EFBFBD><EFBFBD>״̬Ϊ:'+t_op_seai1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString+',<2C><><EFBFBD>ܳ<EFBFBD><DCB3><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>');
end;
finally
t_op_seai1.DataSet.EnableControls;
t_op_seai1.DataSet.Refresh;
end;
end;
procedure Tfrm_op_seai.wwDBLookupCombo26KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit81);
end;
procedure Tfrm_op_seai.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.RxDBLookupCombo2Enter(Sender: TObject);
begin
TRxDBLookupCombo(Sender).LookupDisplay:='<27><><EFBFBD><EFBFBD>;<3B><><EFBFBD><EFBFBD>';
end;
procedure Tfrm_op_seai.RxDBLookupCombo2Exit(Sender: TObject);
begin
TRxDBLookupCombo(Sender).LookupDisplay:='<27><><EFBFBD><EFBFBD>';
end;
procedure Tfrm_op_seai.N72Click(Sender: TObject);
var i:integer;
Reasons:string;
begin
if t_op_seai.IsEmpty then
exit;
if dxDBGrid1.SelectedCount<1 then
begin
exit;
end;
try
t_op_seai.DisableControls;
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seai.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
if (t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString='¼<><C2BC>״̬')
or (t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString='¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
or (t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') then
begin
if GetopseaeStatus(False,t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,trim(t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString),trim(t_op_seai.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString),Trim(t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD>').AsString),Trim(t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD>').AsString),Trim(t_op_seai.FieldByName('<27><>վ').AsString),Trim(t_op_seai.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString),Reasons,Trim(t_op_seai.FieldByName('ί<>е<EFBFBD>λ').AsString)) then
begin
ShowMessage(t_op_seai.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+#13#10+Reasons);
end
else
begin
frm_main.db.BeginTrans;
try
UpdateopseaeStatus(t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'<27><>˾<EFBFBD><CBBE>');
// Updateopseaehbls(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6><EFBFBD>').AsString);
frm_main.db.CommitTrans;
finally
if frm_main.db.InTransaction then
begin
MessageDlg(t_op_seai.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ر<EFBFBD><D8B1><EFBFBD><EFBFBD>ԣ<EFBFBD>',mterror,[mbok],0);
frm_main.db.RollbackTrans;
end;
end;
end;
end
else
begin
ShowMessage(t_op_seai.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString+'<27><><EFBFBD><EFBFBD>״̬Ϊ:'+t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString+',<2C><><EFBFBD><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>');
end;
end;
finally
t_op_seai.EnableControls;
t_op_seai.Refresh;
end;
end;
end.