You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
153 lines
4.0 KiB
Plaintext
153 lines
4.0 KiB
Plaintext
11 months ago
|
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.
|