glfj_un.pas

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

unit glfj_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, fjxcbase_un, ADODB, DB, ActnList, bsMessages, bsSkinData,
  BusinessSkinForm, bsSkinCtrls, bsSkinGrids, bsDBGrids, ExtCtrls,
  StdCtrls, bsdbctrls, Mask, bsSkinBoxCtrls;

type
  Tglfj_frm = class(Tfjxcbase_frm)
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsdb_1: TbsSkinEdit;
    bsSkinDBLookupComboBox3: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox4: TbsSkinDBLookupComboBox;
    ds_gt: TDataSource;
    tbl_gt: TADOTable;
    ds_yz: TDataSource;
    tbl_yg: TADOTable;
    bssl_1: TbsSkinDBText;
    bsSkinStdLabel17: TbsSkinStdLabel;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinDBEdit2: TbsSkinDBEdit;
    bsSkinStdLabel7: TbsSkinStdLabel;
    bsSkinDBDateEdit1: TbsSkinDBDateEdit;
    bsSkinDateEdit1: TbsSkinDateEdit;
    bsSkinStdLabel9: TbsSkinStdLabel;
    procedure acSaveExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure acModifyExecute(Sender: TObject);
    procedure acNewExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  glfj_frm: Tglfj_frm;

implementation
 uses data_un;
{$R *.dfm}

procedure Tglfj_frm.acSaveExecute(Sender: TObject);
begin
with spsave.Parameters do
begin
ParamValues['@IDType']:='FL';
ParamValues['@act']:=act;
ParamValues['@pjzl']:=bsSkinStdLabel4.Caption;
ParamValues['@gt']:=tbl_gt.FieldValues['fid'];
ParamValues['@num']:=bsdb_1.Text;
ParamValues['@date']:=bsSkinDateEdit1.Date;
ParamValues['@glfjid']:=bsSkinStdLabel17.Caption;
ParamValues['@mon']:=bsSkinEdit2.Text;
end;
  inherited;


end;

procedure Tglfj_frm.FormCreate(Sender: TObject);
begin
  inherited;
   tbl_gt.Open;
   tbl_yg.Open;
   bsSkinStdLabel17.Caption:='';
end;

procedure Tglfj_frm.acModifyExecute(Sender: TObject);
begin
  inherited;
bsdb_1.Text:=bsSkinDBEdit1.Text;
bsSkinDBLookupComboBox4.KeyValue:=bsSkinDBLookupComboBox3.KeyValue;
bsSkinDateEdit1.Date:=bsSkinDBDateEdit1.Date;
bsSkinStdLabel17.Caption:=bssl_1.Caption;
bsSkinEdit2.Text:=bsSkinDBEdit2.Text;
end;

procedure Tglfj_frm.acNewExecute(Sender: TObject);
begin
  inherited;
bsSkinStdLabel17.Caption:='';
bsSkinDateEdit1.Date:=Date();
end;

end.