D6HECHUAN/财务管理/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;
    bsSkinGroupBox3: TbsSkinGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    Panel1: TPanel;
    bsSkinGroupBox1: TbsSkinGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Panel2: TPanel;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinGroupBox4: TbsSkinGroupBox;
    bsSkinCheckRadioBox13: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox14: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox15: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox16: TbsSkinCheckRadioBox;
    bsSkinGroupBox5: TbsSkinGroupBox;
    bsSkinCheckRadioBox17: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox18: TbsSkinCheckRadioBox;
    bsSkinGroupBox6: TbsSkinGroupBox;
    bsSkinCheckRadioBox19: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox21: TbsSkinCheckRadioBox;
    RxDBLookupCombo2: TRxDBLookupCombo;
    RxDBLookupCombo1: TRxDBLookupCombo;
    RxDBLookupCombo3: TRxDBLookupCombo;
    RxDBLookupCombo4: TRxDBLookupCombo;
    RxDBLookupCombo5: TRxDBLookupCombo;
    bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox4: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox5: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox6: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox7: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox8: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox9: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox10: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox11: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox12: TbsSkinDBCheckRadioBox;
    t_cw_design: TADOQuery;
    t_cw_design1: TDataSource;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    t_pingzhengzi: TADOQuery;
    t_pingzhengzi1: TDataSource;
    db_cw: TADOConnection;
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton3Click(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;
  case t_cw_design.fieldbyname('<27><><EFBFBD>ɰ취').asinteger of
    1:
    begin
      bsSkinCheckRadioBox21.Checked:=true;
    end;
    2:
    begin
      bsSkinCheckRadioBox19.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;
  if bsSkinCheckRadioBox21.Checked then
  begin
    t_cw_design['<27><><EFBFBD>ɰ취']:=1;
  end;
  if bsSkinCheckRadioBox19.Checked then
  begin
    t_cw_design['<27><><EFBFBD>ɰ취']:=2;
  end;
  t_cw_design.post;
  CLOSE;
end;

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

procedure Tfrm_cw_design.bsSkinButton3Click(Sender: TObject);
var
  str:widestring;
begin
  try
    str:='Provider=SQLOLEDB.1;';
    str:=str+'Password='+DBEdit3.text+';';
    str:=str+'Persist Security Info=False;';
    str:=str+'User ID='+DBEdit2.text+';';
    str:=str+'Initial Catalog='+DBEdit4.text+';';
    str:=str+'Data Source='+DBEdit1.text;
    t_pingzhengzi.close;
    db_cw.Connected:=false;
    db_cw.ConnectionString:=str;
    if bsSkinCheckRadioBox13.Checked then
    begin
      t_pingzhengzi.close;
      t_pingzhengzi.sql.clear;
      t_pingzhengzi.sql.add('select * from T_VOUCHERGROUP order by FName');
      t_pingzhengzi.open;
      RxDBLookupCombo1.LookupField:='FGroupID';
      RxDBLookupCombo1.LookupDisplay:='FName';
      RxDBLookupCombo2.LookupField:='FGroupID';
      RxDBLookupCombo2.LookupDisplay:='FName';
      RxDBLookupCombo3.LookupField:='FGroupID';
      RxDBLookupCombo3.LookupDisplay:='FName';
      RxDBLookupCombo4.LookupField:='FGroupID';
      RxDBLookupCombo4.LookupDisplay:='FName';
      RxDBLookupCombo5.LookupField:='FGroupID';
      RxDBLookupCombo5.LookupDisplay:='FName';
    end;
    showmessage('<27><><EFBFBD>Ӳ<EFBFBD><D3B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>');
    bsSkinGroupBox1.Enabled:=true;
  except
    showmessage('<27><><EFBFBD>Ӳ<EFBFBD><D3B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
  end;
end;

end.