xtcspas.pas

来自「本软件是一套功能完整成熟的固定资产管理系统,具有固定资产管理系统的相应全部功能」· PAS 代码 · 共 79 行

unit xtcspas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Mask, DBCtrls, DB, XP_RadioBox, XP_Button,
  ExtCtrls, XP_Form;

type
  Tw_xtcssz = class(TForm)
    DataSource1: TDataSource;
    XP_Form1: TXP_Form;
    mainpanel: TPanel;
    GroupBox2: TGroupBox;
    GroupBox1: TGroupBox;
    DBEdit1: TDBEdit;
    GroupBox3: TGroupBox;
    bitbtn1: TXP_Button;
    bitbtn2: TXP_Button;
    radiobutton1: TXP_RadioBox;
    radiobutton2: TXP_RadioBox;
    radiobutton3: TXP_RadioBox;
    radiobutton4: TXP_RadioBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  w_xtcssz: Tw_xtcssz;

implementation

uses datapas;

{$R *.dfm}

procedure Tw_xtcssz.BitBtn1Click(Sender: TObject);
begin
with hjzcdata.xtcsb do
        begin
        edit;
        if RadioButton1.Checked then
        fieldbyname('报表格式').value:=true else
        fieldbyname('报表格式').value:=false;
        if RadioButton3.checked then
        fieldbyname('折旧方式').value:=true else
        fieldbyname('折旧方式').value:=false;
        post;
        end;
end;

procedure Tw_xtcssz.BitBtn2Click(Sender: TObject);
begin
hjzcdata.xtcsb.cancel;
end;

procedure Tw_xtcssz.FormActivate(Sender: TObject);
begin
with hjzcdata.xtcsb do
begin
if not active then
active:=true;
if fieldbyname('报表格式').value=true then
radiobutton1.checked:=true else
radiobutton2.checked:=true;
if fieldbyname('折旧方式').value=true then
radiobutton3.checked:=true else
radiobutton4.checked:=true;
end;
end;

end.