yg_un.pas

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

unit yg_un;

interface

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

type
  Tyg_frm = class(Tadobase_frm)
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinStdLabel7: TbsSkinStdLabel;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinStdLabel9: TbsSkinStdLabel;
    bsSkinStdLabel10: TbsSkinStdLabel;
    bsSkinStdLabel11: TbsSkinStdLabel;
    bsSkinStdLabel12: TbsSkinStdLabel;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinDBEdit2: TbsSkinDBEdit;
    bsSkinDBEdit3: TbsSkinDBEdit;
    bsSkinDBEdit4: TbsSkinDBEdit;
    bsSkinDBEdit5: TbsSkinDBEdit;
    bsSkinDBDateEdit1: TbsSkinDBDateEdit;
    bsSkinDBDateEdit2: TbsSkinDBDateEdit;
    bsSkinDBRadioGroup1: TbsSkinDBRadioGroup;
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinGroupBox4: TbsSkinGroupBox;
    bsSkinDBGrid2: TbsSkinDBGrid;
    bsSkinScrollBar3: TbsSkinScrollBar;
    bsSkinScrollBar4: TbsSkinScrollBar;
    ado_sex: TADOQuery;
    ds_sex: TDataSource;
    RMDBDataSet1: TRMDBDataSet;
    RMReport1: TRMReport;
    RMReport2: TRMReport;
    RMXLSExport1: TRMXLSExport;
    procedure acNewExecute(Sender: TObject);
    procedure acModifyExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure acPrintExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  yg_frm: Tyg_frm;

implementation
uses data_un;
{$R *.dfm}

procedure Tyg_frm.acNewExecute(Sender: TObject);
begin
  inherited;
bsSkinDBEdit2.SetFocus;
end;

procedure Tyg_frm.acModifyExecute(Sender: TObject);
begin
  inherited;
bsSkinDBEdit2.SetFocus;
bsSkinDBEdit2.SelectAll;
end;

procedure Tyg_frm.FormCreate(Sender: TObject);
begin
  inherited;
   ado_sex.open;
   ado_sex.First;
   ibillidtype:='YG' ;
ibillnum:=2;
end;

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

end;

end.