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

unit u_cw_load;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RxLookup, StdCtrls, bsSkinCtrls, BusinessSkinForm;

type
  Tfrm_cw_load = class(TForm)
    RxDBLookupCombo13: TRxDBLookupCombo;
    Label1: TLabel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_cw_load: Tfrm_cw_load;
  
implementation

uses u_cw_pingzheng, u_main;

{$R *.dfm}

procedure Tfrm_cw_load.FormShow(Sender: TObject);
begin
  case frm_cw_pingzheng.t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asinteger of
    0:
    begin

    end;
    1:
    begin
      RxDBLookupCombo13.LookupField:='FName';
      RxDBLookupCombo13.LookupDisplay:='FName';
    end;
    2:
    begin

    end;
    3:
    begin

    end;
  end;
end;

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

procedure Tfrm_cw_load.bsSkinButton1Click(Sender: TObject);
begin
{
  case frm_cw_pingzheng.t_cw_design.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asinteger of
    0:
    begin

    end;
    1:
    begin
      if frm_cw_pingzheng.t_cw_load.locate('FName',RxDBLookupCombo13.DisplayValue,[]) then
      begin
        frm_cw_load_iflog:=true;
        cw_load:=frm_cw_pingzheng.t_cw_load.fieldbyname('FUserID').asinteger;
        cw_load_group:=frm_cw_pingzheng.t_cw_load.fieldbyname('FPrimaryGroup').asinteger;
        close;
      end
      else
      begin
        showmessage('û<><C3BB><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD>ǰ<EFBFBD><C7B0>½<EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>');
        exit;
      end;
    end;
    2:
    begin

    end;
    3:
    begin

    end;
  end;
  }
end;

end.