sjxh_un.pas

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

unit sjxh_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, adobase_un, ADODB, DB, wwDialog, wwidlg, bsMessages, bsSkinData,
  BusinessSkinForm, ActnList, ExtCtrls, bsSkinCtrls, bsdbctrls, StdCtrls,
  Mask, bsSkinBoxCtrls, bsSkinGrids, bsDBGrids, RM_class, RM_e_main,
  RM_e_xls, RM_dset, RM_dbset;

type
  Tsjxh_frm = class(Tadobase_frm)
    bsSkinGroupBox4: TbsSkinGroupBox;
    bsSkinDBGrid2: TbsSkinDBGrid;
    bsSkinScrollBar3: TbsSkinScrollBar;
    bsSkinScrollBar4: TbsSkinScrollBar;
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinStdLabel7: TbsSkinStdLabel;
    bsSkinDBEdit2: TbsSkinDBEdit;
    bsSkinDBRadioGroup1: TbsSkinDBRadioGroup;
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;
    q_sjcs: TADOQuery;
    ds_sjcs: TDataSource;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinSpeedButton6: TbsSkinSpeedButton;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinDBEdit3: TbsSkinDBEdit;
    bsSkinDBEdit4: TbsSkinDBEdit;
    bsSkinDBEdit5: TbsSkinDBEdit;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    RMReport1: TRMReport;
    RMDBDataSet1: TRMDBDataSet;
    RMXLSExport1: TRMXLSExport;
    procedure FormCreate(Sender: TObject);
    procedure bsSkinSpeedButton6Click(Sender: TObject);
    procedure acNewExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sjxh_frm: Tsjxh_frm;

implementation
 uses data_un,sjcs_un;
{$R *.dfm}

procedure Tsjxh_frm.FormCreate(Sender: TObject);
begin
 inherited;
ibillidtype:='XH' ;
ibillnum:=3;
if  not q_sjcs.active  then
q_sjcs.Open;

end;

procedure Tsjxh_frm.bsSkinSpeedButton6Click(Sender: TObject);
var sjcs:Tsjcs_frm;
begin
  inherited;
//showmessage('手机厂商设置')  ;
sjcs:=Tsjcs_frm.Create(owner);
sjcs.ShowModal;
sjcs.Free;
end;

procedure Tsjxh_frm.acNewExecute(Sender: TObject);
begin
  inherited;
bsSkinDBEdit3.Text:='7';
bsSkinDBEdit4.Text:='15';
bsSkinDBEdit5.Text:='1';
end;

end.