u_bzhff.pas

相关的销售服务管理行业的一个软件

unit U_BZHFF;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, Grids, DBGrids, ExtCtrls, Buttons, Db, ADODB;

type
  TFrmBZHFF = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn6: TBitBtn;
    ADOQueryBZFF: TADOQuery;
    DataSourceBZFF: TDataSource;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    ADOQueryBZHCX: TADOQuery;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label4: TLabel;
    Label6: TLabel;
    Bevel1: TBevel;
    DBLookupComboBox1: TDBLookupComboBox;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmBZHFF: TFrmBZHFF;
  FlagBZH:string;
implementation

uses
  U_DM,Uorder;
{$R *.DFM}

procedure TFrmBZHFF.BitBtn6Click(Sender: TObject);
begin
  close;
end;

procedure TFrmBZHFF.BitBtn1Click(Sender: TObject);
begin
  try
    ADOQueryBZFF.edit;
    ADOQueryBZFF.post;
    ADOQueryBZFF.Append;
  except
    Application.MessageBox('增加纪录错误！','错误',16);  
  end;


//------------------------------------------------------------------------------
{if BZHF then
  begin
  if f_ddcx.DDBE.Text='' then
    begin
    Application.MessageBox('请先输入订单编号！','提示',0+64);
    f_ddcx.DDBE.SetFocus;
    Exit;
    end;
  end
  else
  if Frmorder.DBEdit1_1.Text='' then
    begin
    Application.MessageBox('请先输入订单编号！','提示',0+64);
    Frmorder.DBEdit1_1.SetFocus;
    Exit;
    end;
  DBEdit1.ReadOnly:=False;
  DBEdit2.ReadOnly:=False;
  DBEdit5.ReadOnly:=false;
  //DBGrid1.ReadOnly:=false;
  BitBtn2.Enabled:=true;
  ADOQueryBZFF.Close;
  ADOQueryBZFF.Open;
  ADOQueryBZFF.Append;
  //DBComboBox1.SetFocus; }
end;

procedure TFrmBZHFF.BitBtn2Click(Sender: TObject);
var
  BZHFlag:boolean;
  i:integer;
begin
  if DBLookupComboBox1.Text='' then
  begin
    Application.MessageBox('鞋子编码不能为空！','提示',64);
    DBLookupComboBox1.SetFocus;
    Exit;
  end;
  If DBEdit5.Text='' then
    begin
    Application.MessageBox('包装方法不能为空！','提示',64);
    DBEdit5.SetFocus;
    Exit;
  end;

  if copy(DBEdit1.text,0,1)='0' then
    begin
      Application.MessageBox('箱数不能为零！','提示',64);
      exit;
    end;
  try
    ADOQueryBZFF.Edit;
    ADOQueryBZFF.FieldByName('OrderNo').asstring := frmorder.DBEdit1_1.Text;
    ADOQueryBZFF.FieldbyName('R_name').asstring:=frmorder.DBLCBks.Text;
    ADOQueryBZFF.Post;
    Application.MessageBox('数据保存成功！','提示',64);
  except
    Application.MessageBox('数据保存失败！','提示',64);
  end;


//------------------------------------------------------------------------------
 {  BZHFlag:=false;
   for i:=0 to DBComboBox2.Items.Count-1 do
   if  DBComboBox2.Text =DBComboBox2.Items[i] then
     begin
       BZHFlag:=true;
       break;
     end;
   if not BZHFlag then
     begin
       Application.MessageBox('此款式不存在，请重新输入！','提示',0+64);
       DBComboBox2.Text:='';
       DBComboBox2.SetFocus;
       exit;
     end;
  //
  try
  if BZHF then
  begin
    DBEdit3.Text:=f_ddcx.DDBE.Text;
    DBEdit4.Text:=f_ddcx.DBEdit8.Text;
  end
  else
  begin
  DBEdit3.Text:=Frmorder.DBEdit1_1.Text;
  DBEdit4.Text:=Frmorder.DBLCBks.Text;
  end;
  ADOQueryBZFF.Edit;
  ADOQueryBZFF.FieldByName('BaoZhuangFa').asstring:=trim(DBEdit5.Text);
  ADOQueryBZFF.Post;
  Application.MessageBox('数据保存成功！','提示',0+64);
  FlagBZH:=DBComboBox2.Text;
  BitBtn2.Enabled:=false;
  DBEdit1.ReadOnly:=true;
  DBEdit2.ReadOnly:=true;
  DBEdit5.ReadOnly:=true;
  BitBtn1.SetFocus;
  //DBGrid1.ReadOnly:=false;
  except
  end; }
end;

procedure TFrmBZHFF.BitBtn3Click(Sender: TObject);
begin
  if ADOQueryBZFF.RecordCount<=0 then exit;
  if Application.MessageBox('确实要删除此记录？','包装方法',4+32)=IDYES then
  begin
    ADOQueryBZFF.Delete;
  end;
end;

procedure TFrmBZHFF.FormShow(Sender: TObject);
begin
  with ADOQueryBZFF do
    begin
      close;
      Parameters[0].Value :=frmorder.DBEdit1_1.text;
      Parameters[1].Value :=frmorder.DBLCBks.text;
      open;
    end;

  with ADOQuery1 do
    begin
      close;
      Parameters[0].Value :=frmorder.DBLCBks.text;
      open;
    end;

//------------------------------------------------------------------------------
  {if BZHF then
    begin //3
      with DM.ADOQuerySGOODS do
      begin//2
        Close;
        SQL.Clear;
        SQL.Add('select Shoesno from xs_order3 where Orderno='''+ f_ddcx.DDBE.Text +''' and R_name='''+ f_ddcx.DBEdit8.Text +''' order by Shoesno');//
        open;
        DBComboBox2.Items.Clear;
        while not DM.ADOQuerySGOODS.Eof do begin //1
        DBComboBox2.Items.Add(DM.ADOQuerySGOODS.FieldByName('ShoesNo').asString);
        Next;
        end;//1
      end;//2
      DM.ADOQuerySGOODS.Active:=False;
    end //3
    else
    begin
    with DM.ADOQueryDDCX4 do
    begin
    Close;
    SQL.Clear;
    SQL.Add('select Shoesno from xs_order3 where Orderno='''+ frmorder.DBEdit1_1.Text +''' and R_name='''+ frmorder.DBLCBks.Text +''' order by Shoesno');//
    open;
    DBComboBox2.Items.Clear;
    while not DM.ADOQueryDDCX4.Eof do begin
    DBComboBox2.Items.Add(DM.ADOQueryDDCX4.FieldByName('ShoesNo').asString);
    Next;
    end;
    end;
  DM.ADOQueryDDCX4.Active:=False;
  end;}
end;

procedure TFrmBZHFF.FormActivate(Sender: TObject);
begin
 { ADOQueryBZFF.Close;
  ADOQueryBZFF.SQL.Clear;
  if BZHF then
    ADOQueryBZFF.SQL.Add('Select * from xs_order5 where Orderno='''+ f_ddcx.DDBE.Text +''' and R_name='''+ f_ddcx.DBEdit8.Text +''' order by Shoesno')
  else
    ADOQueryBZFF.SQL.Add('Select * from xs_order5 where orderno='''+ frmorder.DBEdit1_1.Text +''' and R_name='''+ frmorder.DBLCBks.Text +''' order by Shoesno');
  ADOQueryBZFF.Open;}

end;

procedure TFrmBZHFF.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ADOQueryBZFF.Close;
  ADOQueryBZHCX.Close;
end;

end.