DS6JIEFENG/代码字典/u_code_fee.pas

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;
    t_code_feeDSDesigner: TBCDField;
    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.