unit u_sys_company;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, StdCtrls, cxControls, cxContainer, cxEdit,
  cxTextEdit, cxDBEdit, BusinessSkinForm, dxExEdtr, dxCntner, dxTL,
  dxDBCtrl, dxDBGrid, dxDBTLCl, dxGrClms;

type
  Tfrm_sys_company = class(TForm)
    bsSkinPanel1: TbsSkinPanel;
    cxDBTextEdit1: TcxDBTextEdit;
    Label1: TLabel;
    cxDBTextEdit2: TcxDBTextEdit;
    Label2: TLabel;
    cxDBTextEdit5: TcxDBTextEdit;
    cxDBTextEdit6: TcxDBTextEdit;
    Label5: TLabel;
    Label6: TLabel;
    cxDBTextEdit7: TcxDBTextEdit;
    cxDBTextEdit8: TcxDBTextEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    cxDBTextEdit9: TcxDBTextEdit;
    Label10: TLabel;
    cxDBTextEdit10: TcxDBTextEdit;
    cxDBTextEdit11: TcxDBTextEdit;
    Label11: TLabel;
    cxDBTextEdit12: TcxDBTextEdit;
    Label12: TLabel;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    Label4: TLabel;
    cxDBTextEdit4: TcxDBTextEdit;
    Label13: TLabel;
    Label14: TLabel;
    cxDBTextEdit13: TcxDBTextEdit;
    cxDBTextEdit14: TcxDBTextEdit;
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_sys_company: Tfrm_sys_company;

implementation

uses u_main, u_data_share, my_sys_function;

{$R *.dfm}

procedure Tfrm_sys_company.FormShow(Sender: TObject);
begin
  with frm_data_share do
  begin
    t_sys_company.Requery();
  end;
end;

procedure Tfrm_sys_company.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  CanClose:=frm_close_query(frm_data_share.t_sys_company);
end;

procedure Tfrm_sys_company.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    Perform(WM_NEXTDLGCTL,0,0);
    key:=#0;
  end; 
end;

procedure Tfrm_sys_company.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  update_jiandu;
end;

end.