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 'master'
${ noResults }
DS6JIEFENG/代码字典/u_code_fee.~pas

188 lines
5.9 KiB
Plaintext
Raw Permalink Normal View History Unescape Escape

1
11 months ago
unit u_code_fee;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxExEdtr, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxDBGrid,
dxCntner, BusinessSkinForm, bsSkinCtrls, Grids, Wwdbigrd, Wwdbgrid,
StdCtrls, wwdblook, ExtCtrls, Mask, wwdbedit, Wwdotdot, Wwdbcomb, DB,
ADODB, RxLookup;
type
Tfrm_code_fee = class(TForm)
bsBusinessSkinForm1: TbsBusinessSkinForm;
wwDBGrid1: TwwDBGrid;
wwDBLookupCombo1: TwwDBLookupCombo;
Panel1: TPanel;
bsSkinButton1: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
wwDBLookupCombo2: TwwDBLookupCombo;
wwDBComboBox1: TwwDBComboBox;
wwDBComboBox2: TwwDBComboBox;
wwDBComboBox3: TwwDBComboBox;
bsSkinPanel1: TbsSkinPanel;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
bsSkinButton44: TbsSkinButton;
t_code_fee1: TDataSource;
t_code_fee: TADOQuery;
RxDBLookupCombo15: TRxDBLookupCombo;
strngfld_code_feeDSDesigner: TStringField;
strngfld_code_feeDSDesigner2: TStringField;
strngfld_code_feeDSDesigner3: TStringField;
strngfld_code_feeDSDesigner4: TStringField;
blnfld_code_feeDSDesigner5: TBooleanField;
blnfld_code_feeDSDesigner6: TBooleanField;
strngfld_code_feeDSDesigner7: TStringField;
strngfld_code_feeDSDesigner8: TStringField;
strngfld_code_feeDSDesigner9: TStringField;
strngfld_code_feeDSDesigner10: TStringField;
procedure FormShow(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure bsSkinButton5Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bsSkinButton44Click(Sender: TObject);
procedure t_code_feeBeforePost(DataSet: TDataSet);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure t_code_feeBeforeDelete(DataSet: TDataSet);
procedure bsSkinButton4Click(Sender: TObject);
procedure strngfld_code_feeDSDesigner2Change(Sender: TField);
procedure t_code_feeBeforeEdit(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_code_fee: Tfrm_code_fee;
implementation
uses u_data_share, my_sys_function, u_main;
{$R *.dfm}
procedure Tfrm_code_fee.FormShow(Sender: TObject);
begin
frm_data_share.t_code_currency.requery;
frm_data_share.t_code_fee_type.requery;
t_code_fee.open;
end;
procedure Tfrm_code_fee.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
frm_data_share.t_code_fee.Requery;
CanClose:=frm_close_query(t_code_fee);
end;
procedure Tfrm_code_fee.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_code_fee.bsSkinButton3Click(Sender: TObject);
begin
table_cancel(t_code_fee);
end;
procedure Tfrm_code_fee.bsSkinButton2Click(Sender: TObject);
begin
table_post(t_code_fee);
end;
procedure Tfrm_code_fee.bsSkinButton1Click(Sender: TObject);
begin
t_code_fee.Insert;
end;
procedure Tfrm_code_fee.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
//SendMsg_gonggao('56','');
end;
procedure Tfrm_code_fee.bsSkinButton44Click(Sender: TObject);
begin
with t_code_fee do begin
close;sql.Clear;
sql.Add('select * from t_code_fee where 1=1 ');
if edit1.text<>'' then
sql.Add(' and <20><><EFBFBD><EFBFBD> like ''%'+edit1.Text+'%''');
if edit2.text<>'' then
sql.Add(' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like ''%'+edit2.Text+'%''');
if RxDBLookupCombo15.DisplayValues[0]<>'' then
sql.Add(' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ='''+RxDBLookupCombo15.DisplayValues[0]+'''');
open;
end;
end;
procedure Tfrm_code_fee.t_code_feeBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_fee,'<27><><EFBFBD><EFBFBD>');
table_before_post(t_code_fee,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_code_fee,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
if DataSet.State=dsEdit then
if t_code_fee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_code_fee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value
then
begin
if table_before_Edit_Delete(TAdoquery(DataSet),'t_ch_project_fee','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',t_code_fee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue,'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
or table_before_Edit_Delete(TAdoquery(DataSet),'t_ch_fee','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',t_code_fee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
t_code_fee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=t_code_fee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue;
end;
end;
procedure Tfrm_code_fee.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
bsSkinButton44.OnClick(sender);
end;
procedure Tfrm_code_fee.t_code_feeBeforeDelete(DataSet: TDataSet);
begin
if table_before_Edit_Delete(TAdoquery(DataSet),'t_ch_project_fee','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',t_code_fee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString,'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
or table_before_Edit_Delete(TAdoquery(DataSet),'t_ch_fee','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',t_code_fee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
abort;
end;
procedure Tfrm_code_fee.bsSkinButton4Click(Sender: TObject);
begin
table_delete(t_code_fee);
end;
procedure Tfrm_code_fee.strngfld_code_feeDSDesigner2Change(Sender: TField);
begin
{
if t_code_fee.State=dsEdit then
if (t_code_fee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_code_fee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)
and t_code_fee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>'' then
if table_before_Edit_Delete(TAdoquery(Sender.DataSet),'t_ch_project_fee','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',t_code_fee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue,'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
or table_before_Edit_Delete(TAdoquery(Sender.DataSet),'t_ch_fee','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',t_code_fee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
Sender.DataSet.Cancel;
}
end;
procedure Tfrm_code_fee.t_code_feeBeforeEdit(DataSet: TDataSet);
begin
{
if table_before_Edit_Delete(TAdoquery(DataSet),'t_ch_project_fee','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',t_code_fee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue,'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
or table_before_Edit_Delete(TAdoquery(DataSet),'t_ch_fee','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',t_code_fee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
abort;
}
end;
end.