DONGSHENG6/信息资源/u_info_price_person_view.pas

unit u_info_price_person_view;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, DB, ADODB, StdCtrls, ComCtrls, DBCtrls, bsSkinCtrls,
  wwdblook, RxLookup, Mask, wwdbedit, Wwdotdot, Wwdbcomb, dxDBTLCl,
  dxGrClms, dxTL, dxDBCtrl, dxDBGrid, dxCntner, ExtCtrls, BusinessSkinForm,
  wwdbdatetimepicker;

type
  Tfrm_info_price_person_view = class(TForm)
    t_price_prerson: TADOQuery;
    t_price_prerson1: TDataSource;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    Panel1: TPanel;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinButton8: TbsSkinButton;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton11: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    Panel2: TPanel;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column2: TdxDBGridMaskColumn;
    dxDBGrid1Column3: TdxDBGridMaskColumn;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinPanel2: TbsSkinPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    wwDBComboBox1: TwwDBComboBox;
    RxDBLookupCombo2: TRxDBLookupCombo;
    wwDBLookupCombo52: TwwDBLookupCombo;
    bsSkinGroupBox1: TbsSkinGroupBox;
    DBRichEdit1: TDBRichEdit;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    dxDBGrid1Column4: TdxDBGridColumn;
    dxDBGrid1Column5: TdxDBGridColumn;
    dxDBGrid1Column6: TdxDBGridColumn;
    procedure t_price_prersonAfterInsert(DataSet: TDataSet);
    procedure t_price_prersonBeforePost(DataSet: TDataSet);
    procedure bsSkinButton9Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton11Click(Sender: TObject);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure t_price_prersonBeforeEdit(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_info_price_person_view: Tfrm_info_price_person_view;

implementation

uses u_main, my_sys_function;

{$R *.dfm}

procedure Tfrm_info_price_person_view.t_price_prersonAfterInsert(
  DataSet: TDataSet);
begin
  t_price_prerson['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
  t_price_prerson['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
end;

procedure Tfrm_info_price_person_view.t_price_prersonBeforePost(
  DataSet: TDataSet);
begin
  table_before_post(t_price_prerson,'<27>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>');
  table_before_post(t_price_prerson,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
  table_before_post(t_price_prerson,'<27>˼<EFBFBD>˵<EFBFBD><CBB5>');
end;

procedure Tfrm_info_price_person_view.bsSkinButton9Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_info_price_person_view.bsSkinButton2Click(Sender: TObject);
begin
  t_price_prerson.insert;
end;

procedure Tfrm_info_price_person_view.bsSkinButton11Click(Sender: TObject);
begin
  table_post(t_price_prerson);
end;

procedure Tfrm_info_price_person_view.bsSkinButton8Click(Sender: TObject);
begin
  table_cancel(t_price_prerson);
end;

procedure Tfrm_info_price_person_view.bsSkinButton4Click(Sender: TObject);
begin
  table_delete(t_price_prerson);
end;

procedure Tfrm_info_price_person_view.bsSkinButton3Click(Sender: TObject);
var
  afield : variant;
  i: Integer;
begin
  if t_price_prerson.IsEmpty then
  begin
    showmessage('û<>и<EFBFBD><D0B8><EFBFBD>ĸ<EFBFBD>壬<EFBFBD><E5A3AC><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD><EFBFBD>½<EFBFBD><C2BD><EFBFBD>');
    exit;
  end;
  afield := vararraycreate([0,t_price_prerson.fieldcount-1],varvariant);
  for i := 1 to (t_price_prerson.fieldcount-1) do
  begin
    afield[i] :=t_price_prerson.fields[i].value ;
  end;
  t_price_prerson.append;
  for i := 1 to (t_price_prerson.fieldcount-1) do
  begin
    t_price_prerson.fields[i].value := afield[i] ;
  end;
  showmessage('<27><><EFBFBD>Ƴɹ<C6B3><C9B9><EFBFBD><EFBFBD><EFBFBD>');
end;

procedure Tfrm_info_price_person_view.t_price_prersonBeforeEdit(
  DataSet: TDataSet);
begin
  if not do_data('3008',t_price_prerson.fieldbyname('¼<><C2BC><EFBFBD><EFBFBD>').asstring
                 ,'','','','','') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸<EFBFBD><DEB8><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
    abort;
  end;
end;

end.