unit dltj_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, sjinfobase_un, ADODB, DB, ActnList, bsMessages, bsSkinData,
  BusinessSkinForm, bsSkinCtrls, bsdbctrls, bsSkinGrids, bsDBGrids,
  ExtCtrls, StdCtrls, Mask, bsSkinBoxCtrls;

type
  Tdltj_frm = class(Tsjinfobase_frm)
    bsSkinStdLabel15: TbsSkinStdLabel;
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;
    ds_gt: TDataSource;
    tbl_gt: TADOTable;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsdb_1: TbsSkinEdit;
    bsSkinStdLabel16: TbsSkinStdLabel;
    bsSkinStdLabel17: TbsSkinStdLabel;
    bsSkinStdLabel18: TbsSkinStdLabel;
    bssl_1: TbsSkinDBText;
    procedure bsSkinDBLookupComboBox4Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinDBLookupComboBox1Change(Sender: TObject);
    procedure bsSkinDBLookupComboBox3Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure acModifyExecute(Sender: TObject);
    procedure acSaveExecute(Sender: TObject);
    procedure acNewExecute(Sender: TObject);
    procedure acDeleteExecute(Sender: TObject);
  private
    { Private declarations }
    hrxx:string;
  public
    { Public declarations }
  end;

var
  dltj_frm: Tdltj_frm;

implementation

{$R *.dfm}

procedure Tdltj_frm.bsSkinDBLookupComboBox4Change(Sender: TObject);
begin
  inherited;
sp_view.Parameters.ParamValues['@gtid']:=tbl_gt.FieldValues['fid'] ;
end;

procedure Tdltj_frm.FormShow(Sender: TObject);
begin

sp_view.Parameters.ParamValues['@act']:=3;
sp_view.Parameters.ParamValues['@gtid']:=tbl_gt.FieldValues['fid'];
spdisp.Parameters.ParamValues['@act']:=2;
  inherited;

end;

procedure Tdltj_frm.bsSkinDBLookupComboBox1Change(Sender: TObject);
begin

sp_view.close;
sp_view.Parameters.ParamValues['@act']:=3;
sp_view.Parameters.ParamValues['@gtid']:=tbl_gt.FieldValues['fid'];
sp_view.ExecProc;
sp_view.Open;
  inherited;

end;

procedure Tdltj_frm.bsSkinDBLookupComboBox3Change(Sender: TObject);
begin
sp_view.Parameters.ParamValues['@gtid']:=tbl_gt.FieldValues['fid'] ;
  inherited;

end;

procedure Tdltj_frm.FormCreate(Sender: TObject);
begin
bsSkinStdLabel18.Caption:='';
tbl_gt.Open;
tbl_gt.First;
sp_view.Parameters.ParamValues['@act']:=3;
sp_view.Parameters.ParamValues['@gtid']:=tbl_gt.FieldValues['fid'];
//sp_view.Parameters.ParamValues['@val']:=tbl_sjxh.FieldValues['fid'];

sp_view.ExecProc;
sp_view.Open;
spdisp.Parameters.ParamValues['@act']:=1  ;
spdisp.ExecProc;
  inherited;

end;

procedure Tdltj_frm.acModifyExecute(Sender: TObject);
begin
bsdb_1.Text:=bsSkinDBEdit1.Text;
bsSkinStdLabel18.Caption:=bssl_1.Caption;
  inherited;

end;

procedure Tdltj_frm.acSaveExecute(Sender: TObject);
begin
with spsave.Parameters do
begin
ParamValues['@lx']:=2;
ParamValues['@act']:=act;
ParamValues['@date']:=Date();
ParamValues['@hrxx']:=bsSkinStdLabel18.Caption;
ParamValues['@sjxh']:=bsSkinDBText7.Caption;
ParamValues['@pz']:=bsSkinDBText9.Caption;
ParamValues['@color']:=bsSkinDBText2.Caption;
ParamValues['@glid']:=sp_view.FieldValues['fglid'];
ParamValues['@memo']:=bsdb_1.Text;
ParamValues['@no']:=bsSkinDBText8.Caption;





end;
  inherited;
sp_view.close;
sp_view.open;
end;

procedure Tdltj_frm.acNewExecute(Sender: TObject);
begin
bsSkinStdLabel18.Caption:=sp_view.FieldValues['fid'];
  inherited;

end;

procedure Tdltj_frm.acDeleteExecute(Sender: TObject);
begin

with spsave.Parameters do
begin
ParamValues['@lx']:=2;
ParamValues['@act']:=3;
end;
  inherited;

end;

end.