|
|
unit u_op_fee;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, bsSkinCtrls, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, DB,
|
|
|
ADODB, dxDBTLCl, dxGrClms, ExtCtrls, RxLookup, StdCtrls,
|
|
|
wwdbdatetimepicker, Mask, wwdbedit, Wwdotdot, Wwdbcomb, DBCtrls;
|
|
|
|
|
|
type
|
|
|
Tfrm_op_fee = class(TForm)
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
t_op_fee: TADOQuery;
|
|
|
t_op_fee1: TDataSource;
|
|
|
dxDBGrid1Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column3: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column4: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column5: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column7: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column8: TdxDBGridDateColumn;
|
|
|
Panel1: TPanel;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
bsSkinButton2: TbsSkinButton;
|
|
|
bsSkinButton4: TbsSkinButton;
|
|
|
bsSkinButton3: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
Label9: TLabel;
|
|
|
RxDBLookupCombo2: TRxDBLookupCombo;
|
|
|
Label23: TLabel;
|
|
|
RxDBLookupCombo7: TRxDBLookupCombo;
|
|
|
Label1: TLabel;
|
|
|
Label2: TLabel;
|
|
|
wwDBDateTimePicker1: TwwDBDateTimePicker;
|
|
|
wwDBComboBox1: TwwDBComboBox;
|
|
|
Label3: TLabel;
|
|
|
wwDBComboBox2: TwwDBComboBox;
|
|
|
Label4: TLabel;
|
|
|
DBEdit1: TDBEdit;
|
|
|
DBMemo1: TDBMemo;
|
|
|
Label5: TLabel;
|
|
|
dxDBGrid1Column6: TdxDBGridColumn;
|
|
|
procedure t_op_feeAfterInsert(DataSet: TDataSet);
|
|
|
procedure bsSkinButton1Click(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 t_op_feeBeforePost(DataSet: TDataSet);
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_op_fee: Tfrm_op_fee;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main, u_data_share, my_sys_function;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure Tfrm_op_fee.t_op_feeAfterInsert(DataSet: TDataSet);
|
|
|
begin
|
|
|
t_op_fee['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=DATE;
|
|
|
t_op_fee['<27>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD><EFBFBD>';
|
|
|
t_op_fee['<27><><EFBFBD><EFBFBD>']:=0;
|
|
|
t_op_fee['<27>ұ<EFBFBD>']:='RMB';
|
|
|
t_op_fee['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
|
|
|
t_op_fee['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_fee.bsSkinButton1Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_fee.insert;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_fee.bsSkinButton2Click(Sender: TObject);
|
|
|
begin
|
|
|
table_post(t_op_fee);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_fee.bsSkinButton4Click(Sender: TObject);
|
|
|
begin
|
|
|
table_delete(t_op_fee);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_fee.bsSkinButton3Click(Sender: TObject);
|
|
|
begin
|
|
|
table_cancel(t_op_fee);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_fee.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_fee.FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
begin
|
|
|
frm_op_fee.Hide;
|
|
|
frm_op_fee.ManualFloat(frm_op_fee.BoundsRect );
|
|
|
frm_main.freeTabs('frm_op_fee');
|
|
|
action:=cafree;
|
|
|
frm_op_fee:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_fee.t_op_feeBeforePost(DataSet: TDataSet);
|
|
|
begin
|
|
|
table_before_post(t_op_fee,'<27><><EFBFBD>ؿͻ<D8BF>');
|
|
|
table_before_post(t_op_fee,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա');
|
|
|
table_before_post(t_op_fee,'<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>');
|
|
|
table_before_post(t_op_fee,'<27>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_op_fee,'<27><><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_op_fee,'<27>ұ<EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_fee.FormShow(Sender: TObject);
|
|
|
begin
|
|
|
t_op_fee.close;
|
|
|
t_op_fee.sql.clear;
|
|
|
t_op_fee.sql.add('select * from t_op_fee where ¼<><C2BC><EFBFBD><EFBFBD>='+''''+employee+''''+' order by of_id');
|
|
|
t_op_fee.open;
|
|
|
end;
|
|
|
|
|
|
end.
|