|
|
unit u_ch_fee_view;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, DB, ADODB, StdCtrls, Mask, bsSkinBoxCtrls, bsdbctrls,
|
|
|
bsSkinCtrls, ExtCtrls, Grids, Wwdbigrd, Wwdbgrid, BusinessSkinForm, Menus,
|
|
|
DBCtrls, ComCtrls, bsSkinTabs, dxExEdtr, DBCtrlsEh, RxLookup, wwdbedit,
|
|
|
Wwdotdot, Wwdbcomb, wwdbdatetimepicker, wwdblook, dxDBGrid, dxTL,
|
|
|
dxDBCtrl, dxCntner;
|
|
|
|
|
|
type
|
|
|
Tfrm_ch_fee_view = class(TForm)
|
|
|
t_op_gain: TADOQuery;
|
|
|
t_op_gain1: TDataSource;
|
|
|
t_ch_accept: TADOQuery;
|
|
|
t_ch_accept1: TDataSource;
|
|
|
t_ch_pay: TADOQuery;
|
|
|
t_ch_pay1: TDataSource;
|
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
bsSkinButton9: TbsSkinButton;
|
|
|
PopupMenu1: TPopupMenu;
|
|
|
N1: TMenuItem;
|
|
|
N2: TMenuItem;
|
|
|
N3: TMenuItem;
|
|
|
N4: TMenuItem;
|
|
|
N20: TMenuItem;
|
|
|
v_op_bscard: TADOQuery;
|
|
|
v_op_bscard1: TDataSource;
|
|
|
Label1: TLabel;
|
|
|
DBText1: TDBText;
|
|
|
Label2: TLabel;
|
|
|
DBText2: TDBText;
|
|
|
Label3: TLabel;
|
|
|
DBText3: TDBText;
|
|
|
Label4: TLabel;
|
|
|
DBText4: TDBText;
|
|
|
Label5: TLabel;
|
|
|
DBText5: TDBText;
|
|
|
Label6: TLabel;
|
|
|
DBText6: TDBText;
|
|
|
Label7: TLabel;
|
|
|
DBText7: TDBText;
|
|
|
Label8: TLabel;
|
|
|
DBText8: TDBText;
|
|
|
bsSkinPageControl1: TbsSkinPageControl;
|
|
|
bsSkinTabSheet1: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet2: TbsSkinTabSheet;
|
|
|
Panel2: TPanel;
|
|
|
bsSkinStdLabel4: TbsSkinStdLabel;
|
|
|
bsSkinStdLabel2: TbsSkinStdLabel;
|
|
|
bsSkinStdLabel3: TbsSkinStdLabel;
|
|
|
bsSkinStdLabel1: TbsSkinStdLabel;
|
|
|
bsSkinStdLabel5: TbsSkinStdLabel;
|
|
|
bsSkinStdLabel6: TbsSkinStdLabel;
|
|
|
bsSkinStdLabel7: TbsSkinStdLabel;
|
|
|
bsSkinStdLabel8: TbsSkinStdLabel;
|
|
|
bsSkinStdLabel9: TbsSkinStdLabel;
|
|
|
bsSkinStdLabel10: TbsSkinStdLabel;
|
|
|
bsSkinDBEdit6: TbsSkinDBEdit;
|
|
|
bsSkinDBEdit4: TbsSkinDBEdit;
|
|
|
bsSkinDBEdit1: TbsSkinDBEdit;
|
|
|
bsSkinDBEdit3: TbsSkinDBEdit;
|
|
|
bsSkinDBEdit5: TbsSkinDBEdit;
|
|
|
bsSkinDBEdit2: TbsSkinDBEdit;
|
|
|
bsSkinDBEdit8: TbsSkinDBEdit;
|
|
|
bsSkinDBEdit7: TbsSkinDBEdit;
|
|
|
bsSkinDBEdit9: TbsSkinDBEdit;
|
|
|
bsSkinDBEdit10: TbsSkinDBEdit;
|
|
|
wwDBGrid1: TwwDBGrid;
|
|
|
wwDBGrid2: TwwDBGrid;
|
|
|
Label125: TLabel;
|
|
|
Label15: TLabel;
|
|
|
Label9: TLabel;
|
|
|
Label124: TLabel;
|
|
|
Label146: TLabel;
|
|
|
Label145: TLabel;
|
|
|
Label32: TLabel;
|
|
|
Label21: TLabel;
|
|
|
Label27: TLabel;
|
|
|
Label30: TLabel;
|
|
|
Label12: TLabel;
|
|
|
Label11: TLabel;
|
|
|
Label13: TLabel;
|
|
|
Label126: TLabel;
|
|
|
Label25: TLabel;
|
|
|
Label34: TLabel;
|
|
|
Label39: TLabel;
|
|
|
Label18: TLabel;
|
|
|
Label73: TLabel;
|
|
|
Label22: TLabel;
|
|
|
Label35: TLabel;
|
|
|
Label26: TLabel;
|
|
|
Label10: TLabel;
|
|
|
Label14: TLabel;
|
|
|
Label16: TLabel;
|
|
|
Label17: TLabel;
|
|
|
Label23: TLabel;
|
|
|
Label24: TLabel;
|
|
|
Label29: TLabel;
|
|
|
Label33: TLabel;
|
|
|
Label164: TLabel;
|
|
|
Label19: TLabel;
|
|
|
Label20: TLabel;
|
|
|
Label36: TLabel;
|
|
|
Label40: TLabel;
|
|
|
bsSkinPanel5: TbsSkinPanel;
|
|
|
Label37: TLabel;
|
|
|
Label38: TLabel;
|
|
|
Label41: TLabel;
|
|
|
Label43: TLabel;
|
|
|
Label44: TLabel;
|
|
|
Label47: TLabel;
|
|
|
Label48: TLabel;
|
|
|
DBEdit1: TDBEdit;
|
|
|
DBEdit2: TDBEdit;
|
|
|
DBEdit3: TDBEdit;
|
|
|
DBEdit7: TDBEdit;
|
|
|
DBEdit4: TDBEdit;
|
|
|
DBEdit46: TDBEdit;
|
|
|
DBEdit47: TDBEdit;
|
|
|
DBEdit5: TDBEdit;
|
|
|
DBMemo3: TDBMemo;
|
|
|
DBMemo4: TDBMemo;
|
|
|
DBMemo5: TDBMemo;
|
|
|
DBMemo6: TDBMemo;
|
|
|
DBEdit81: TDBEdit;
|
|
|
DBEdit82: TDBEdit;
|
|
|
DBEdit83: TDBEdit;
|
|
|
DBEdit55: TDBEdit;
|
|
|
DBEdit56: TDBEdit;
|
|
|
DBEdit53: TDBEdit;
|
|
|
DBEdit54: TDBEdit;
|
|
|
DBEdit10: TDBEdit;
|
|
|
DBEdit17: TDBEdit;
|
|
|
DBEdit57: TDBEdit;
|
|
|
DBEdit58: TDBEdit;
|
|
|
DBEdit25: TDBEdit;
|
|
|
DBEdit59: TDBEdit;
|
|
|
DBEdit60: TDBEdit;
|
|
|
DBEdit61: TDBEdit;
|
|
|
DBEdit70: TDBEdit;
|
|
|
DBEdit71: TDBEdit;
|
|
|
DBEdit72: TDBEdit;
|
|
|
DBEdit73: TDBEdit;
|
|
|
DBEdit74: TDBEdit;
|
|
|
DBEdit66: TDBEdit;
|
|
|
DBEdit67: TDBEdit;
|
|
|
DBEdit68: TDBEdit;
|
|
|
DBEdit69: TDBEdit;
|
|
|
DBEdit64: TDBEdit;
|
|
|
DBEdit65: TDBEdit;
|
|
|
DBEdit62: TDBEdit;
|
|
|
DBEdit63: TDBEdit;
|
|
|
DBEdit11: TDBEdit;
|
|
|
DBEdit13: TDBEdit;
|
|
|
PopupMenu4: TPopupMenu;
|
|
|
N82: TMenuItem;
|
|
|
N83: TMenuItem;
|
|
|
N84: TMenuItem;
|
|
|
N85: TMenuItem;
|
|
|
N86: TMenuItem;
|
|
|
N87: TMenuItem;
|
|
|
N123: TMenuItem;
|
|
|
PopupMenu5: TPopupMenu;
|
|
|
MenuItem5: TMenuItem;
|
|
|
MenuItem6: TMenuItem;
|
|
|
MenuItem10: TMenuItem;
|
|
|
MenuItem11: TMenuItem;
|
|
|
MenuItem12: TMenuItem;
|
|
|
N124: TMenuItem;
|
|
|
N125: TMenuItem;
|
|
|
DBText9: TDBText;
|
|
|
Label28: TLabel;
|
|
|
DBMemo1: TDBMemo;
|
|
|
bsSkinTabSheet3: TbsSkinTabSheet;
|
|
|
t_op_seae_assistant: TADOQuery;
|
|
|
t_op_seae_assistant1: TDataSource;
|
|
|
t_op_seae_assistant_online: TADOQuery;
|
|
|
t_pt_fendan: TADOQuery;
|
|
|
t_op_ctn_fendan: TADOQuery;
|
|
|
t_op_ctn_fendanDSDesigner: TStringField;
|
|
|
t_op_ctn_fendanDSDesigner2: TStringField;
|
|
|
t_op_ctn_fendanDSDesigner3: TStringField;
|
|
|
t_op_ctn_fendanDSDesigner4: TIntegerField;
|
|
|
t_op_ctn_fendanTEU: TIntegerField;
|
|
|
t_op_ctn_fendanDSDesigner6: TStringField;
|
|
|
t_op_ctn_fendanDSDesigner7: TStringField;
|
|
|
t_op_ctn_fendanDSDesigner8: TIntegerField;
|
|
|
t_op_ctn_fendanDSDesigner9: TStringField;
|
|
|
t_op_ctn_fendanDSDesigner10: TBCDField;
|
|
|
t_op_ctn_fendanDSDesigner11: TBCDField;
|
|
|
t_op_ctn_fendanDSDesigner12: TStringField;
|
|
|
t_op_ctn_fendanDSDesigner13: TStringField;
|
|
|
t_op_ctn_fendanDSDesigner14: TStringField;
|
|
|
t_op_ctn_fendanDSDesigner5: TStringField;
|
|
|
t_op_ctn_fendanctn_id: TAutoIncField;
|
|
|
t_op_ctn_fendanAS_ID: TIntegerField;
|
|
|
t_op_ctn_fendanDSDesigner15: TStringField;
|
|
|
t_op_ctn_fendan1: TDataSource;
|
|
|
t_pt_fendan1: TDataSource;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
dxDBGrid1Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column3: TdxDBGridColumn;
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
Label122: TLabel;
|
|
|
Label121: TLabel;
|
|
|
Label123: TLabel;
|
|
|
Label31: TLabel;
|
|
|
Label42: TLabel;
|
|
|
Label45: TLabel;
|
|
|
Label46: TLabel;
|
|
|
Label49: TLabel;
|
|
|
Label50: TLabel;
|
|
|
Label51: TLabel;
|
|
|
Label52: TLabel;
|
|
|
Label53: TLabel;
|
|
|
Label54: TLabel;
|
|
|
Label55: TLabel;
|
|
|
Label56: TLabel;
|
|
|
Label57: TLabel;
|
|
|
Label58: TLabel;
|
|
|
Label59: TLabel;
|
|
|
Label60: TLabel;
|
|
|
Label61: TLabel;
|
|
|
Label163: TLabel;
|
|
|
Label158: TLabel;
|
|
|
Label165: TLabel;
|
|
|
Label166: TLabel;
|
|
|
Label167: TLabel;
|
|
|
Label168: TLabel;
|
|
|
Label169: TLabel;
|
|
|
Label170: TLabel;
|
|
|
Label62: TLabel;
|
|
|
Label63: TLabel;
|
|
|
Label64: TLabel;
|
|
|
Label65: TLabel;
|
|
|
Label66: TLabel;
|
|
|
Label67: TLabel;
|
|
|
DBMemo33: TDBMemo;
|
|
|
DBMemo34: TDBMemo;
|
|
|
DBMemo35: TDBMemo;
|
|
|
DBEdit9: TDBEdit;
|
|
|
DBEdit6: TDBEdit;
|
|
|
wwDBLookupCombo49: TwwDBLookupCombo;
|
|
|
DBEdit8: TDBEdit;
|
|
|
wwDBDateTimePicker2: TwwDBDateTimePicker;
|
|
|
wwDBLookupCombo3: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo52: TwwDBLookupCombo;
|
|
|
DBEdit12: TDBEdit;
|
|
|
DBEdit14: TDBEdit;
|
|
|
wwDBLookupCombo21: TwwDBLookupCombo;
|
|
|
wwDBComboBox1: TwwDBComboBox;
|
|
|
wwDBDateTimePicker4: TwwDBDateTimePicker;
|
|
|
DBEdit15: TDBEdit;
|
|
|
RxDBLookupCombo15: TRxDBLookupCombo;
|
|
|
DBEdit26: TDBEdit;
|
|
|
DBEdit27: TDBEdit;
|
|
|
DBEdit16: TDBEdit;
|
|
|
DBMemo38: TDBMemo;
|
|
|
DBMemo37: TDBMemo;
|
|
|
DBMemo39: TDBMemo;
|
|
|
DBMemo40: TDBMemo;
|
|
|
DBMemo41: TDBMemo;
|
|
|
DBMemo42: TDBMemo;
|
|
|
DBEdit80: TDBEdit;
|
|
|
DBEdit18: TDBEdit;
|
|
|
wwDBLookupCombo61: TwwDBLookupCombo;
|
|
|
DBEdit19: TDBEdit;
|
|
|
DBEdit20: TDBEdit;
|
|
|
DBMemo2: TDBMemo;
|
|
|
bsSkinButton21: TbsSkinButton;
|
|
|
bsSkinButton6: TbsSkinButton;
|
|
|
bsSkinButton7: TbsSkinButton;
|
|
|
bsSkinButton10: TbsSkinButton;
|
|
|
bsSkinButton11: TbsSkinButton;
|
|
|
bsSkinButton15: TbsSkinButton;
|
|
|
DBEdit21: TDBEdit;
|
|
|
DBEditEh1: TDBEditEh;
|
|
|
RxDBLookupCombo28: TRxDBLookupCombo;
|
|
|
wwDBLookupCombo4: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo7: TwwDBLookupCombo;
|
|
|
DBMemo7: TDBMemo;
|
|
|
bsSkinButton16: TbsSkinButton;
|
|
|
wwDBGrid3: TwwDBGrid;
|
|
|
lbl1: TLabel;
|
|
|
dbmmo1: TDBMemo;
|
|
|
procedure wwDBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
|
|
|
Field: TField; State: TGridDrawState);
|
|
|
procedure wwDBGrid2DrawDataCell(Sender: TObject; const Rect: TRect;
|
|
|
Field: TField; State: TGridDrawState);
|
|
|
procedure N1Click(Sender: TObject);
|
|
|
procedure N3Click(Sender: TObject);
|
|
|
procedure N20Click(Sender: TObject);
|
|
|
procedure bsSkinButton9Click(Sender: TObject);
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure N82Click(Sender: TObject);
|
|
|
procedure MenuItem5Click(Sender: TObject);
|
|
|
procedure N84Click(Sender: TObject);
|
|
|
procedure MenuItem10Click(Sender: TObject);
|
|
|
procedure N86Click(Sender: TObject);
|
|
|
procedure MenuItem12Click(Sender: TObject);
|
|
|
procedure N123Click(Sender: TObject);
|
|
|
procedure N125Click(Sender: TObject);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_ch_fee_view: Tfrm_ch_fee_view;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses my_sys_function, u_main ;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure Tfrm_ch_fee_view.wwDBGrid1DrawDataCell(Sender: TObject;
|
|
|
const Rect: TRect; Field: TField; State: TGridDrawState);
|
|
|
begin
|
|
|
fee_color(t_ch_accept,wwDBGrid1,Rect,Field);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_view.wwDBGrid2DrawDataCell(Sender: TObject;
|
|
|
const Rect: TRect; Field: TField; State: TGridDrawState);
|
|
|
begin
|
|
|
fee_color(t_ch_pay,wwDBGrid2,Rect,Field);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_view.N1Click(Sender: TObject);
|
|
|
begin
|
|
|
sys_print('<27><><EFBFBD>㵥<EFBFBD><E3B5A5>ӡ',1,v_op_bscard1,nil,nil,nil,
|
|
|
t_ch_accept1,t_ch_pay1,t_op_gain1,nil,nil,nil,nil);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_view.N3Click(Sender: TObject);
|
|
|
begin
|
|
|
sys_print('<27><><EFBFBD>㵥<EFBFBD><E3B5A5>ӡ',3,v_op_bscard1,nil,nil,nil,
|
|
|
t_ch_accept1,t_ch_pay1,t_op_gain1,nil,nil,nil,nil);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_view.N20Click(Sender: TObject);
|
|
|
begin
|
|
|
sys_print('<27><><EFBFBD>㵥<EFBFBD><E3B5A5>ӡ',2,v_op_bscard1,nil,nil,nil,
|
|
|
t_ch_accept1,t_ch_pay1,t_op_gain1,nil,nil,nil,nil);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_view.bsSkinButton9Click(Sender: TObject);
|
|
|
begin
|
|
|
PopupMenu1.Popup(mouse.CursorPos.X,mouse.CursorPos.Y);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_view.FormShow(Sender: TObject);
|
|
|
begin
|
|
|
{
|
|
|
v_op_bscard.Close;
|
|
|
v_op_bscard.sql.Clear;
|
|
|
v_op_bscard.sql.Add('select * from v_op_bscard_detail where <20><><EFBFBD><EFBFBD>='''+t_op_gain.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
v_op_bscard.Open;
|
|
|
}
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_view.N82Click(Sender: TObject);
|
|
|
begin
|
|
|
fee_balance_view(t_ch_accept);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_view.MenuItem5Click(Sender: TObject);
|
|
|
begin
|
|
|
fee_balance_view(t_ch_pay);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_view.N84Click(Sender: TObject);
|
|
|
begin
|
|
|
fee_invoice_view(t_ch_accept);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_view.MenuItem10Click(Sender: TObject);
|
|
|
begin
|
|
|
fee_check_view(t_ch_pay);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_view.N86Click(Sender: TObject);
|
|
|
begin
|
|
|
fee_modify_view(t_ch_accept);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_view.MenuItem12Click(Sender: TObject);
|
|
|
begin
|
|
|
fee_modify_view(t_ch_pay);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_view.N123Click(Sender: TObject);
|
|
|
begin
|
|
|
fee_dui_view(t_ch_accept);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_view.N125Click(Sender: TObject);
|
|
|
begin
|
|
|
fee_dui_view(t_ch_pay);
|
|
|
end;
|
|
|
|
|
|
end.
|