hydzl_un.pas

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

unit hydzl_un;

interface

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

type
  Thyd_frm = class(Tinfobase_frm)
    bsSkinGroupBox6: TbsSkinGroupBox;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinStdLabel13: TbsSkinStdLabel;
    bsSkinStdLabel14: TbsSkinStdLabel;
    bsSkinStdLabel15: TbsSkinStdLabel;
    bsSkinStdLabel16: TbsSkinStdLabel;
    bsSkinStdLabel17: TbsSkinStdLabel;
    bsSkinStdLabel18: TbsSkinStdLabel;
    bsSkinStdLabel19: TbsSkinStdLabel;
    bsSkinStdLabel20: TbsSkinStdLabel;
    bsSkinStdLabel21: TbsSkinStdLabel;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinDBEdit6: TbsSkinDBEdit;
    bsSkinDBEdit7: TbsSkinDBEdit;
    bsSkinDBEdit8: TbsSkinDBEdit;
    bsSkinDBEdit9: TbsSkinDBEdit;
    bsSkinDBEdit10: TbsSkinDBEdit;
    bsSkinDBEdit11: TbsSkinDBEdit;
    bsSkinDBEdit12: TbsSkinDBEdit;
    bsSkinDBEdit13: TbsSkinDBEdit;
    bsSkinDBEdit14: TbsSkinDBEdit;
    bsSkinDBRadioGroup1: TbsSkinDBRadioGroup;
    bsSkinGroupBox7: TbsSkinGroupBox;
    bsSkinDBGrid3: TbsSkinDBGrid;
    bsSkinScrollBar1: TbsSkinScrollBar;
    bsSkinScrollBar2: TbsSkinScrollBar;
    RMDBDataSet1: TRMDBDataSet;
    RMXLSExport1: TRMXLSExport;
    procedure FormCreate(Sender: TObject);
    procedure QBaseInfoBeforePost(DataSet: TDataSet);
    procedure acNewExecute(Sender: TObject);
    procedure acModifyExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  hyd_frm: Thyd_frm;

implementation

uses data_un;

{$R *.dfm}

procedure Thyd_frm.FormCreate(Sender: TObject);
begin
  inherited;
ibillidtype:='HY' ;
ibillnum:=2;
end;

procedure Thyd_frm.QBaseInfoBeforePost(DataSet: TDataSet);
begin
  inherited;
 if qbaseinfo.state=dsinsert then
 QBaseInfo.FieldByName('fid').AsString:= Trim(spgetid.Parameters.ParamValues['@OutNumber']);
 if Not dm.ADOConnection1.InTransaction then
  dm.ADOConnection1.BeginTrans ;
end;

procedure Thyd_frm.acNewExecute(Sender: TObject);
begin
  inherited;
bsSkinDBEdit1.SetFocus;
end;

procedure Thyd_frm.acModifyExecute(Sender: TObject);
begin
  inherited;
bsSkinDBEdit1.SetFocus;
bsSkinDBEdit1.SelectAll;
end;

end.