gtzl_un.pas

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

unit gtzl_un;

interface

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

type
  Tgtzl_frm = class(Tinfobase_frm)
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinScrollBar6: TbsSkinScrollBar;
    bsSkinScrollBar5: TbsSkinScrollBar;
    bsSkinDBGrid1: TbsSkinDBGrid;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinDBRadioGroup1: TbsSkinDBRadioGroup;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinDBEdit2: TbsSkinDBEdit;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinDBEdit3: TbsSkinDBEdit;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinDBEdit4: TbsSkinDBEdit;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinDBEdit5: TbsSkinDBEdit;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinDBEdit6: TbsSkinDBEdit;
    RMXLSExport1: TRMXLSExport;
    RMDBDataSet1: TRMDBDataSet;
    RMReport1: TRMReport;
    procedure FormCreate(Sender: TObject);
    procedure QBaseInfoBeforePost(DataSet: TDataSet);
    procedure bsSkinDBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure acNewExecute(Sender: TObject);
    procedure acModifyExecute(Sender: TObject);
    procedure acPrintExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  gtzl_frm: Tgtzl_frm;

implementation

uses data_un;

{$R *.dfm}

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

procedure Tgtzl_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 Tgtzl_frm.bsSkinDBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
if key=#13 then
       acSaveExecute(self);
end;

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

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

procedure Tgtzl_frm.acPrintExecute(Sender: TObject);
begin
RMReport1.ShowReport;

end;

end.