ygzl_un.pas

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

unit ygzl_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, infobase_un, ADODB, wwDialog, wwidlg, DB, ActnList, bsMessages,
  bsSkinData, BusinessSkinForm, ExtCtrls, bsSkinCtrls, bsSkinGrids,
  bsDBGrids, bsdbctrls, bsSkinBoxCtrls, StdCtrls, Mask, wwdblook, Grids,
  Wwdbigrd, Wwdbgrid;

type
  Tygzl_frm = class(Tinfobase_frm)
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinStdLabel7: TbsSkinStdLabel;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinStdLabel9: TbsSkinStdLabel;
    bsSkinStdLabel10: TbsSkinStdLabel;
    bsSkinStdLabel11: TbsSkinStdLabel;
    bsSkinStdLabel12: TbsSkinStdLabel;
    bsSkinDBEdit2: TbsSkinDBEdit;
    bsSkinDBEdit3: TbsSkinDBEdit;
    bsSkinDBEdit4: TbsSkinDBEdit;
    bsSkinDBEdit5: TbsSkinDBEdit;
    bsSkinDBDateEdit1: TbsSkinDBDateEdit;
    bsSkinDBDateEdit2: TbsSkinDBDateEdit;
    bsSkinDBRadioGroup1: TbsSkinDBRadioGroup;
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;
    bsSkinGroupBox4: TbsSkinGroupBox;
    bsSkinScrollBar3: TbsSkinScrollBar;
    bsSkinScrollBar4: TbsSkinScrollBar;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinDBGrid2: TbsSkinDBGrid;
    DataSource2: TDataSource;
    ADOTable1: TADOTable;
    ADOTable2: TADOTable;
    DataSource1: TDataSource;
    procedure QBaseInfoBeforePost(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure acNewExecute(Sender: TObject);
    procedure acSaveExecute(Sender: TObject);
    procedure ADOTable1BeforePost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ygzl_frm: Tygzl_frm;

implementation

uses data_un;

{$R *.dfm}

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

procedure Tygzl_frm.FormShow(Sender: TObject);
begin
  inherited;
qtemp.Open;
ADOTable2.Open;
ADOTable1.Open;
bsSkinSpeedButton31.Visible:=false;
end;

procedure Tygzl_frm.FormCreate(Sender: TObject);
begin
  //inherited;
if not QBaseInfo.Active then
       QBaseInfo.Open
//ibillidtype:='YG' ;
//ibillnum:=2;
end;

procedure Tygzl_frm.acNewExecute(Sender: TObject);
begin
 // inherited;
 ADOTable1.Append;
 ACSAVE.Enabled:=TRUE;
end;

procedure Tygzl_frm.acSaveExecute(Sender: TObject);
begin
//  inherited;
 if ADOTable1.State=dsinsert then
      if bsSkinMessage1.MessageDlg('是否真的插入本记录', mtInformation, [mbYes, mbNo], 0)=mryes then
       ADOTable1.Post
       else
       ADOTable1.Cancel;
  if ADOTable1.State=dsEdit then
      if bsSkinMessage1.MessageDlg('是否真的修改本记录', mtInformation, [mbYes, mbNo], 0)=mryes then
       ADOTable1.Post
       else
       ADOTable1.Cancel;


if dm.ADOConnection1.InTransaction then
 dm.ADOConnection1.CommitTrans ;

end;

procedure Tygzl_frm.ADOTable1BeforePost(DataSet: TDataSet);
begin

if ADOTable1.State=dsinsert then
begin
//取流水号
    try
         with spgetid do
             begin
                   parameters.ParamValues['@IDType']:='YG';
                    parameters.ParamValues['@numb']:=2;
                    Execproc;
             end;
     except
    on E:Exception do
      begin
      bsSkinMessage1.MessageDlg('取工艺流程流水号失败！'+#13#10+E.Message,mterror,[mbOk],0);
      Abort;
      end;
    end;
   
 if ADOTable1.state=dsinsert then
 ADOTable1.FieldByName('fid').AsString:= Trim(spgetid.Parameters.ParamValues['@OutNumber']);
 if Not dm.ADOConnection1.InTransaction then
  dm.ADOConnection1.BeginTrans ;
end;


end;

end.