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, bsSkinBoxCtrls;

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;
    t_cw_design: TADOQuery;
    t_cw_design1: TDataSource;
    t_pingzhengzi: TADOQuery;
    t_pingzhengzi1: TDataSource;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox4: 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;
    Label12: TLabel;
    DBEdit12: TDBEdit;
    Label13: TLabel;
    DBEdit13: TDBEdit;
    Label14: TLabel;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    Label15: TLabel;
    Label16: TLabel;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    Label17: TLabel;
    bsSkinDBRadioGroup1: TbsSkinDBRadioGroup;
    bsSkinDBRadioGroup2: TbsSkinDBRadioGroup;
    bsSkinDBRadioGroup3: TbsSkinDBRadioGroup;
    Label18: TLabel;
    Label19: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    bsSkinDBRadioGroup4: TbsSkinDBRadioGroup;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinDBEdit2: TbsSkinDBEdit;
    bsSkinDBEdit3: TbsSkinDBEdit;
    bsSkinDBEdit4: TbsSkinDBEdit;
    bsSkinDBEdit5: TbsSkinDBEdit;
    bsSkinGroupBox4: TbsSkinGroupBox;
    Label20: TLabel;
    bsSkinDBEdit6: TbsSkinDBEdit;
    bsSkinDBEdit7: TbsSkinDBEdit;
    Label21: TLabel;
    Label22: TLabel;
    bsSkinDBEdit8: TbsSkinDBEdit;
    bsSkinDBEdit9: TbsSkinDBEdit;
    Label23: TLabel;
    bsSkinGroupBox5: TbsSkinGroupBox;
    Label24: TLabel;
    bsSkinDBEdit10: TbsSkinDBEdit;
    bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
    bsSkinGroupBox6: TbsSkinGroupBox;
    bsSkinDBCheckRadioBox5: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox6: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox7: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox10: TbsSkinDBCheckRadioBox;
    DBEdit3: TDBEdit;
    Label25: TLabel;
    bsSkinDBCheckRadioBox8: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox9: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox11: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox12: TbsSkinDBCheckRadioBox;
    bsSkinGroupBox7: TbsSkinGroupBox;
    bsSkinDBCheckRadioBox13: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox14: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox15: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox16: TbsSkinDBCheckRadioBox;
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinDBCheckRadioBox13Click(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;
end;

procedure Tfrm_cw_design.bsSkinButton1Click(Sender: TObject);
begin
  t_cw_design.edit;
  t_cw_design.post;
  CLOSE;
end;

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

procedure Tfrm_cw_design.bsSkinDBCheckRadioBox13Click(Sender: TObject);
begin
{
   if bsSkinDBCheckRadioBox13.Checked  then
   begin
     ShowMessage('01');
   end
   else
   begin
     ShowMessage('02');
   end;
}
end;

end.