glch_un.pas

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

unit glch_un;

interface

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

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

var
  glch_frm: Tglch_frm;

implementation
       uses golb,data_un;
{$R *.dfm}


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

procedure Tglch_frm.FormShow(Sender: TObject);
begin
  inherited;
bsSkinStdLabel2.Caption:=golb.hrxxid;
ADOQuery1.open;
end;

procedure Tglch_frm.bsSkinDBGrid2CellClick(Column: TbsColumn);
var b:integer;
begin
  inherited;
  b:=bsSkinMessage1.MessageDlg('是否将此手机另外分配给：'+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']:=2;
                              Parameters.ParamValues['@gtlhid']:=golb.hrxxid;
                              
                              Parameters.ParamValues['@gtid']:=ADOQuery1.FieldValues['fid'];
                              ExecProc;

                             end ;
                    except
                        on E:Exception do
                             begin
                              bsSkinMessage1.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 Tglch_frm.bsSkinSpeedButton2Click(Sender: TObject);
var b:integer;
begin
  inherited;
    b:=bsSkinMessage1.MessageDlg('是否将此手机停止分配',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']:=3;
                              Parameters.ParamValues['@gtlhid']:=golb.hrxxid;
                             // Parameters.ParamValues['@gtid']:=ADOQuery1.FieldValues['fid'];
                              ExecProc;
                             end ;
                    except
                        on E:Exception do
                             begin
                              bsSkinMessage1.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 Tglch_frm.bsSkinSpeedButton3Click(Sender: TObject);
var b:integer;
begin
  inherited;
  b:=bsSkinMessage1.MessageDlg('是否将此手机另外分配给：'+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']:=2;
                              Parameters.ParamValues['@gtlhid']:=golb.hrxxid;
                              
                              Parameters.ParamValues['@gtid']:=ADOQuery1.FieldValues['fid'];
                              ExecProc;

                             end ;
                    except
                        on E:Exception do
                             begin
                              bsSkinMessage1.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 Tglch_frm.bsSkinSpeedButton5Click(Sender: TObject);
begin
  inherited;
ADOQuery1.First;
end;

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

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

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

end.