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

486 lines
15 KiB
Plaintext
Raw Permalink Normal View History Unescape Escape

1
11 months ago
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,inifiles;
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;
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;
bsSkinComboBox1: TbsSkinComboBox;
bsSkinPanel2: TbsSkinPanel;
t_op_railway: TADOQuery;
Label28: TLabel;
DBText10: TDBText;
t_op_railway1: TDataSource;
Label31: TLabel;
DBText11: TDBText;
Label42: TLabel;
DBText12: TDBText;
Label45: TLabel;
DBText13: TDBText;
DBText14: TDBText;
Label46: TLabel;
Label49: TLabel;
DBText15: TDBText;
Label50: TLabel;
DBText16: TDBText;
Label51: TLabel;
DBText17: TDBText;
Label52: TLabel;
DBText18: TDBText;
Label53: TLabel;
DBText19: TDBText;
Label54: TLabel;
DBText20: TDBText;
Label55: TLabel;
DBText21: TDBText;
Label56: TLabel;
DBText22: TDBText;
DBEdit6: TDBEdit;
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);
procedure bsSkinComboBox1Change(Sender: TObject);
procedure Panel2Resize(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure v_op_bscardAfterOpen(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_ch_fee_view: Tfrm_ch_fee_view;
implementation
uses my_sys_function, u_main, u_data_share;
{$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);
var
inifile1:Tinifile;
begin
if frm_data_share.t_load_employee.FieldByName('<27><><EFBFBD><EFBFBD>').asboolean then Panel2.Visible:=true else Panel2.Visible:=false;
if frm_data_share.t_load_employee.FieldByName('Ӧ<><D3A6>').asboolean then wwDBGrid1.Visible:=true else wwDBGrid1.Visible:=false;
if frm_data_share.t_load_employee.FieldByName('Ӧ<><D3A6>').asboolean then wwDBGrid2.Visible:=true else wwDBGrid2.Visible:=false;
{
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;
}
loadwwgrid(wwDBGrid1,'<27>鿴Ӧ<E9BFB4><D3A6>');
loadwwgrid(wwDBGrid2,'<27>鿴Ӧ<E9BFB4><D3A6>');
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
if strtoint(get_parameters_value(197,'0'))<>0 then
bsSkinComboBox1.ItemIndex:=strtoint(get_parameters_value(197,'0'))-1
else bsSkinComboBox1.ItemIndex:=inifile1.ReadInteger('FEE','FEEVAT',0);
inifile1.free;
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;
procedure Tfrm_ch_fee_view.bsSkinComboBox1Change(Sender: TObject);
var
inifile1:Tinifile;
begin
case bsSkinComboBox1.ItemIndex of
0:
begin
bsSkinDBEdit6.DataField:='<27><><EFBFBD><EFBFBD>USD';
bsSkinDBEdit6.Text:=bsSkinDBEdit6.DataSource.DataSet.FieldByName(bsSkinDBEdit6.DataField).AsString;
bsSkinDBEdit4.DataField:='Ӧ<><D3A6>USD';
bsSkinDBEdit4.Text:=bsSkinDBEdit4.DataSource.DataSet.FieldByName(bsSkinDBEdit4.DataField).AsString;
bsSkinDBEdit1.DataField:='Ӧ<><D3A6>USD';
bsSkinDBEdit1.Text:=bsSkinDBEdit1.DataSource.DataSet.FieldByName(bsSkinDBEdit1.DataField).AsString;
bsSkinDBEdit3.DataField:='<27><><EFBFBD><EFBFBD>RMB';
bsSkinDBEdit3.Text:=bsSkinDBEdit3.DataSource.DataSet.FieldByName(bsSkinDBEdit3.DataField).AsString;
bsSkinDBEdit5.DataField:='Ӧ<><D3A6>RMB';
bsSkinDBEdit5.Text:=bsSkinDBEdit5.DataSource.DataSet.FieldByName(bsSkinDBEdit5.DataField).AsString;
bsSkinDBEdit2.DataField:='Ӧ<><D3A6>RMB';
bsSkinDBEdit2.Text:=bsSkinDBEdit2.DataSource.DataSet.FieldByName(bsSkinDBEdit2.DataField).AsString;
bsSkinDBEdit8.DataField:='ë<><C3AB><EFBFBD><EFBFBD>';
bsSkinDBEdit8.Text:=bsSkinDBEdit8.DataSource.DataSet.FieldByName(bsSkinDBEdit8.DataField).AsString;
bsSkinDBEdit7.DataField:='<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>';
bsSkinDBEdit7.Text:=bsSkinDBEdit7.DataSource.DataSet.FieldByName(bsSkinDBEdit7.DataField).AsString;
bsSkinDBEdit9.DataField:='<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>';
bsSkinDBEdit9.Text:=bsSkinDBEdit9.DataSource.DataSet.FieldByName(bsSkinDBEdit9.DataField).AsString;
bsSkinDBEdit10.DataField:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
bsSkinDBEdit10.Text:=bsSkinDBEdit10.DataSource.DataSet.FieldByName(bsSkinDBEdit10.DataField).AsString;
end;
1:
begin
bsSkinDBEdit6.DataField:='<27><><EFBFBD>񲻺<EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>USD';
bsSkinDBEdit6.Text:=bsSkinDBEdit6.DataSource.DataSet.FieldByName(bsSkinDBEdit6.DataField).AsString;
bsSkinDBEdit4.DataField:='<27><><EFBFBD>񲻺<EFBFBD>˰Ӧ<CBB0><D3A6>USD';
bsSkinDBEdit4.Text:=bsSkinDBEdit4.DataSource.DataSet.FieldByName(bsSkinDBEdit4.DataField).AsString;
bsSkinDBEdit1.DataField:='<27><><EFBFBD>񲻺<EFBFBD>˰Ӧ<CBB0><D3A6>USD';
bsSkinDBEdit1.Text:=bsSkinDBEdit1.DataSource.DataSet.FieldByName(bsSkinDBEdit1.DataField).AsString;
bsSkinDBEdit3.DataField:='<27><><EFBFBD>񲻺<EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>RMB';
bsSkinDBEdit3.Text:=bsSkinDBEdit3.DataSource.DataSet.FieldByName(bsSkinDBEdit3.DataField).AsString;
bsSkinDBEdit5.DataField:='<27><><EFBFBD>񲻺<EFBFBD>˰Ӧ<CBB0><D3A6>RMB';
bsSkinDBEdit5.Text:=bsSkinDBEdit5.DataSource.DataSet.FieldByName(bsSkinDBEdit5.DataField).AsString;
bsSkinDBEdit2.DataField:='<27><><EFBFBD>񲻺<EFBFBD>˰Ӧ<CBB0><D3A6>RMB';
bsSkinDBEdit2.Text:=bsSkinDBEdit2.DataSource.DataSet.FieldByName(bsSkinDBEdit2.DataField).AsString;
bsSkinDBEdit8.DataField:='<27><><EFBFBD>񲻺<EFBFBD>˰ë<CBB0><C3AB><EFBFBD><EFBFBD>';
bsSkinDBEdit8.Text:=bsSkinDBEdit8.DataSource.DataSet.FieldByName(bsSkinDBEdit8.DataField).AsString;
bsSkinDBEdit7.DataField:='<27><><EFBFBD>񲻺<EFBFBD>˰<EFBFBD>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>';
bsSkinDBEdit7.Text:=bsSkinDBEdit7.DataSource.DataSet.FieldByName(bsSkinDBEdit7.DataField).AsString;
bsSkinDBEdit9.DataField:='<27><><EFBFBD>񲻺<EFBFBD>˰<EFBFBD>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>';
bsSkinDBEdit9.Text:=bsSkinDBEdit9.DataSource.DataSet.FieldByName(bsSkinDBEdit9.DataField).AsString;
bsSkinDBEdit10.DataField:='<27><><EFBFBD>񲻺<EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
bsSkinDBEdit10.Text:=bsSkinDBEdit10.DataSource.DataSet.FieldByName(bsSkinDBEdit10.DataField).AsString;
end
else
begin
bsSkinDBEdit6.DataField:='<27><><EFBFBD><EFBFBD>USD';
bsSkinDBEdit6.Text:=bsSkinDBEdit6.DataSource.DataSet.FieldByName(bsSkinDBEdit6.DataField).AsString;
bsSkinDBEdit4.DataField:='Ӧ<><D3A6>USD';
bsSkinDBEdit4.Text:=bsSkinDBEdit4.DataSource.DataSet.FieldByName(bsSkinDBEdit4.DataField).AsString;
bsSkinDBEdit1.DataField:='Ӧ<><D3A6>USD';
bsSkinDBEdit1.Text:=bsSkinDBEdit1.DataSource.DataSet.FieldByName(bsSkinDBEdit1.DataField).AsString;
bsSkinDBEdit3.DataField:='<27><><EFBFBD><EFBFBD>RMB';
bsSkinDBEdit3.Text:=bsSkinDBEdit3.DataSource.DataSet.FieldByName(bsSkinDBEdit3.DataField).AsString;
bsSkinDBEdit5.DataField:='Ӧ<><D3A6>RMB';
bsSkinDBEdit5.Text:=bsSkinDBEdit5.DataSource.DataSet.FieldByName(bsSkinDBEdit5.DataField).AsString;
bsSkinDBEdit2.DataField:='Ӧ<><D3A6>RMB';
bsSkinDBEdit2.Text:=bsSkinDBEdit2.DataSource.DataSet.FieldByName(bsSkinDBEdit2.DataField).AsString;
bsSkinDBEdit8.DataField:='ë<><C3AB><EFBFBD><EFBFBD>';
bsSkinDBEdit8.Text:=bsSkinDBEdit8.DataSource.DataSet.FieldByName(bsSkinDBEdit8.DataField).AsString;
bsSkinDBEdit7.DataField:='<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>';
bsSkinDBEdit7.Text:=bsSkinDBEdit7.DataSource.DataSet.FieldByName(bsSkinDBEdit7.DataField).AsString;
bsSkinDBEdit9.DataField:='<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>';
bsSkinDBEdit9.Text:=bsSkinDBEdit9.DataSource.DataSet.FieldByName(bsSkinDBEdit9.DataField).AsString;
bsSkinDBEdit10.DataField:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
bsSkinDBEdit10.Text:=bsSkinDBEdit10.DataSource.DataSet.FieldByName(bsSkinDBEdit10.DataField).AsString;
end;
end;
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
inifile1.WriteInteger('FEE','FEEVAT',bsSkinComboBox1.ItemIndex);
inifile1.free;
end;
procedure Tfrm_ch_fee_view.Panel2Resize(Sender: TObject);
var
i:integer;
begin
i:=round((Panel2.Width-196)/11);
bsSkinDBEdit1.Width:=i;
bsSkinDBEdit2.Width:=i;
bsSkinDBEdit3.Width:=i;
bsSkinDBEdit4.Width:=i;
bsSkinDBEdit5.Width:=i;
bsSkinDBEdit6.Width:=i;
bsSkinDBEdit7.Width:=i;
bsSkinDBEdit8.Width:=i;
bsSkinDBEdit9.Width:=i;
bsSkinDBEdit10.Width:=i;
end;
procedure Tfrm_ch_fee_view.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
savewwgrid(wwDBGrid1,'<27>鿴Ӧ<E9BFB4><D3A6>');
savewwgrid(wwDBGrid2,'<27>鿴Ӧ<E9BFB4><D3A6>');
end;
procedure Tfrm_ch_fee_view.v_op_bscardAfterOpen(DataSet: TDataSet);
begin
if v_op_bscard.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString='<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD>' then
begin
t_op_railway.close;
t_op_railway.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=v_op_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
t_op_railway.Open;
bsSkinPanel2.Visible:=true;
end else begin
bsSkinPanel2.Visible:=False;
end;
end;
end.