DONGSHENG6/复件 财务管理/u_cw_design.pas

unit u_cw_design;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, bsSkinCtrls, StdCtrls, ExtCtrls, ComCtrls,
  bsSkinTabs, RxLookup, bsdbctrls, DB, ADODB, Mask, DBCtrls;

type
  Tfrm_cw_design = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    Panel1: TPanel;
    bsSkinGroupBox1: TbsSkinGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Panel2: TPanel;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinGroupBox4: TbsSkinGroupBox;
    bsSkinCheckRadioBox13: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox14: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox15: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox16: TbsSkinCheckRadioBox;
    bsSkinGroupBox5: TbsSkinGroupBox;
    bsSkinCheckRadioBox17: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox18: TbsSkinCheckRadioBox;
    t_cw_design: TADOQuery;
    t_cw_design1: TDataSource;
    t_pingzhengzi: TADOQuery;
    t_pingzhengzi1: TDataSource;
    DBEdit11: TDBEdit;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox4: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox5: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox6: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox7: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox8: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox9: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox10: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox11: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox12: TbsSkinDBCheckRadioBox;
    bsSkinGroupBox3: TbsSkinGroupBox;
    Label6: TLabel;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit7: TDBEdit;
    Label9: TLabel;
    DBEdit8: TDBEdit;
    Label10: TLabel;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    Label11: TLabel;
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_cw_design: Tfrm_cw_design;

implementation

uses u_main;

{$R *.dfm}

procedure Tfrm_cw_design.FormShow(Sender: TObject);
begin
  t_cw_design.open;
  case t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asinteger of
    0:
    begin
      bsSkinCheckRadioBox15.Checked:=true;
    end;
    1:
    begin
      bsSkinCheckRadioBox13.Checked:=true;
    end;
    2:
    begin
      bsSkinCheckRadioBox14.Checked:=true;
    end;
    3:
    begin
      bsSkinCheckRadioBox16.Checked:=true;
    end;
  end;
  case t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>취').asinteger of
    1:
    begin
      bsSkinCheckRadioBox17.Checked:=true;
    end;
    2:
    begin
      bsSkinCheckRadioBox18.Checked:=true;
    end;
  end;
end;

procedure Tfrm_cw_design.bsSkinButton1Click(Sender: TObject);
begin
  t_cw_design.edit;
  if bsSkinCheckRadioBox13.Checked then
  begin
    t_cw_design['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=1;
  end;
  if bsSkinCheckRadioBox14.Checked then
  begin
    t_cw_design['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=2;
  end;
  if bsSkinCheckRadioBox16.Checked then
  begin
    t_cw_design['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=3;
  end;
  if bsSkinCheckRadioBox15.Checked then
  begin
    t_cw_design['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
  end;
  if bsSkinCheckRadioBox17.Checked then
  begin
    t_cw_design['<27><><EFBFBD><EFBFBD><EFBFBD>취']:=1;
  end;
  if bsSkinCheckRadioBox18.Checked then
  begin
    t_cw_design['<27><><EFBFBD><EFBFBD><EFBFBD>취']:=2;
  end;
  t_cw_design.post;
  
  CLOSE;
end;

procedure Tfrm_cw_design.bsSkinButton2Click(Sender: TObject);
begin
  close;
end;

end.