sgsj_un.pas

手机进销存系统Delphi源码,管理手机的进货还有销售方面的功能

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.