gl_un.pas

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

unit gl_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frmbase_un, bsSkinCtrls, bsSkinGrids, bsDBGrids, bsMessages,
  bsSkinData, BusinessSkinForm, DB, ADODB, StdCtrls, bsdbctrls, bsSkinHint;

type
  Tgl_frm = class(Tbase_frm)
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinDBGrid2: TbsSkinDBGrid;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinSpeedButton1: TbsSkinSpeedButton;
    spgtlh: TADOStoredProc;
    bsSkinSpeedButton2: TbsSkinSpeedButton;
    bsSkinMessage2: TbsSkinMessage;
    bsSkinScrollBar3: TbsSkinScrollBar;
    bsSkinScrollBar4: TbsSkinScrollBar;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinHint1: TbsSkinHint;
    bsSkinSpeedButton5: TbsSkinSpeedButton;
    bsSkinSpeedButton6: TbsSkinSpeedButton;
    bsSkinSpeedButton7: TbsSkinSpeedButton;
    bsSkinSpeedButton8: TbsSkinSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure bsSkinDBGrid2CellClick(Column: TbsColumn);
    procedure FormShow(Sender: TObject);
    procedure bsSkinSpeedButton1Click(Sender: TObject);
    procedure bsSkinSpeedButton2Click(Sender: TObject);
    procedure bsSkinSpeedButton5Click(Sender: TObject);
    procedure bsSkinSpeedButton6Click(Sender: TObject);
    procedure bsSkinSpeedButton7Click(Sender: TObject);
    procedure bsSkinSpeedButton8Click(Sender: TObject);
  private
    { Private declarations }
    procedure add();
  public
    { Public declarations }
  end;

var
  gl_frm: Tgl_frm;

implementation
uses data_un,shrxxid_un,golb;
{$R *.dfm}
procedure tgl_frm.add();
  var b:Integer ;
begin
  inherited;
       b:=bsSkinMessage2.MessageDlg('是否将手机串号为：'+#13+bsSkinStdLabel2.Caption+#13+'分配给：'+ADOQuery1.FieldValues['fname'],mtInformation, [mbYes, mbNo, mbCancel],0);
        if b=mryes then
              begin
                //ShowMessage('按YES');
                //存储过程参数：操作类型 （insert,del,edit）手机流水线号，柜台号,流水号类别GL，个数为 4；
                    try
                          with spgtlh do
                            begin
                              Parameters.ParamValues['@IDType']:='GL';
                              Parameters.ParamValues['@numb']:=4;
                              Parameters.ParamValues['@act']:=1;
                              Parameters.ParamValues['@hrxxid']:=bsSkinStdLabel2.Caption;
                              Parameters.ParamValues['@gtid']:=ADOQuery1.FieldValues['fid'];
                              ExecProc;
                             end ;
                    except
                        on E:Exception do
                             begin
                              bsSkinMessage2.MessageDlg('失败！'+#13#10+E.Message,mterror,[mbOk],0);
                              Abort;
                              end;

                    end;
               close;
            end;

          if b=mrNO then
            begin
            end;
          if b=mrCancel then
               begin
              CLOSE;
             end;
end ;

procedure Tgl_frm.FormCreate(Sender: TObject);
begin
  inherited;
ADOQuery1.Open;
end;

procedure Tgl_frm.bsSkinDBGrid2CellClick(Column: TbsColumn);
begin
  inherited;
add();
end ;


      





procedure Tgl_frm.FormShow(Sender: TObject);
begin
  inherited;
bsSkinStdLabel2.Caption:=golb.hrxxid;;

end;

procedure Tgl_frm.bsSkinSpeedButton1Click(Sender: TObject);
begin
  inherited;
close;
end;

procedure Tgl_frm.bsSkinSpeedButton2Click(Sender: TObject);
var b:Integer ;
begin
  inherited;
  add();
end;


procedure Tgl_frm.bsSkinSpeedButton5Click(Sender: TObject);
begin
  inherited;
ADOQuery1.First;
end;

procedure Tgl_frm.bsSkinSpeedButton6Click(Sender: TObject);
begin
  inherited;
ADOQuery1.Prior;
end;

procedure Tgl_frm.bsSkinSpeedButton7Click(Sender: TObject);
begin
  inherited;
ADOQuery1.Next;
end;

procedure Tgl_frm.bsSkinSpeedButton8Click(Sender: TObject);
begin
  inherited;
ADOQuery1.Last;
end;

end.