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,
  DBGridEh;

type
  TFrmBZHFF = class(TForm)
    Panel1: TPanel;
    Label3: TLabel;
    ADOQueryBZFF: TADOQuery;
    DataSourceBZFF: TDataSource;
    ADOQueryBZHCX: TADOQuery;
    Label4: TLabel;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Panel2: TPanel;
    BitBtn2: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn1: TBitBtn;
    DBGridEh1: TDBGridEh;
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(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);
var
    i:Integer;
begin
  try
   // ADOQueryBZFF.edit;
    ADOQueryBZFF.first;
    for i:=0 to ADOQueryBZFF.recordcount-1 do
    begin
        ADOQueryBZFF.delete;
        ADOQueryBZFF.next;

    end;
    for i:=0 to frmorder.ADOQorder4.RecordCount-1 do
    begin
      ADOQueryBZFF.Append;
      ADOQueryBZFF.FieldByName('shoesno').AsString:=frmorder.ADOQorder4.fieldbyname('shoesno').AsString;
      ADOQueryBZFF.FieldByName('orderno').AsString:=Trim(frmorder.DBEdit1_1.text);
      ADOQueryBZFF.FieldByName('R_name').AsString:=frmorder.ADOQorder4.fieldbyname('r_name').AsString;
      frmorder.ADOQorder4.Next;
      ADOQueryBZFF.post;

    end;
   // ADOQueryBZFF.refresh;

  except
    Application.MessageBox('增加纪录错误！','错误',16);
  end;
end;

procedure TFrmBZHFF.BitBtn2Click(Sender: TObject);
var
  BZHFlag:boolean;
  i:integer;
begin
   try
    ADOQueryBZFF.UpdateBatch ;
    Application.MessageBox('保存成功！','错误',0);
   except
    Application.MessageBox('保存失败！','错误',0);
   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;
      open;
    end;

end;

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

end.