unit sgsj_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, sjrcbase, ADODB, DB, ActnList, bsMessages, bsSkinData,
  BusinessSkinForm, bsSkinGrids, bsDBGrids, bsdbctrls, StdCtrls, Mask,
  bsSkinBoxCtrls, bsSkinCtrls, ExtCtrls;

type
  Tsgsj_frm = class(Tsjycbase_frm)
    ADOQuery1: TADOQuery;
    procedure FormCreate(Sender: TObject);

    Private
    { Private declarations }

     public
    { Public declarations }
  end;

var
  sgsj_frm: Tsgsj_frm;

implementation
uses data_un;
{$R *.dfm}

procedure Tsgsj_frm.FormCreate(Sender: TObject);
begin
hylx:='SG';
hyd:='本地收購';
hydid:='HY01';

  inherited;

end;

end.