product_check.pas

随着计算机的日益普及

unit Product_check;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, ComCtrls, Buttons, ExtCtrls, DBGrids;

type
  TProduct_checkFrm = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    Edit1: TEdit;
    Product_QualitycheckSG: TStringGrid;
    BB_Confirm: TBitBtn;
    BB_Cancel: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure BB_ConfirmClick(Sender: TObject);
    procedure DateTimePicker1CloseUp(Sender: TObject);
    procedure BB_CancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Product_checkFrm: TProduct_checkFrm;
  time:string;
implementation
  uses DataModule,Product_Quality;
{$R *.dfm}

procedure TProduct_checkFrm.FormCreate(Sender: TObject);
begin
with  Product_QualitycheckSG do
    begin
      Product_QualitycheckSG.ColCount:=9;
      cells[0,0]:='工单号码';
      cells[1,0]:='产品编号';
      cells[2,0]:='产品名称';
      cells[3,0]:='批号';
      cells[4,0]:='单位';
      cells[5,0]:='正品数量';
      cells[6,0]:='次品数量';
      cells[7,0]:='废品数量';
      cells[8,0]:='备注';
    end;
   with DM.AQ_Product_check do
     begin
       close;
       SQL.Clear;
       SQL.Add('Select * from Product_check_Bill where State='+''''+'否'+'''');
       open;
     end;
end;
procedure TProduct_checkFrm.DBGrid1CellClick(Column: TColumn);
var
  i,j:integer;
begin
  inherited;
  with Product_QualitycheckSG do       //对表 Product_QualitycheckSG进行清零
  for i:=0 to 7 do
   for j:=1 to Product_QualitycheckSG.RowCount do
     cells[i,j]:='';

  SQLS:=DM.AQ_Product_check['Quality_check_No'];
  with DM.ADOQuery1 do
   begin
     close;
     SQL.Clear;
     SQL.Add('Select * from Product_check where Quality_check_No='+''''+SQLS+'''');
     open;
     first;
     Product_QualitycheckSG.RowCount:=DM.ADOQuery1.RecordCount+1;
     if  DM.ADOQuery1.RecordCount<>0 then
     with Product_QualitycheckSG do
     for i:=1 to DM.ADOQuery1.RecordCount do
      begin
       cells[0,i]:=fieldbyname('Produce_No').AsString;
       cells[1,i]:=fieldbyname('Product_ID').AsString;
       cells[2,i]:=fieldbyname('Product_Name').AsString;
       cells[3,i]:=fieldbyname('Product_BatchNo').AsString;
       cells[4,i]:=fieldbyname('Product_Unit').AsString;
       cells[5,i]:=fieldbyname('Quality_goods').AsString;
       cells[6,i]:=fieldbyname('Inferior').AsString;
       cells[7,i]:=fieldbyname('Waster').AsString;
       cells[8,i]:=fieldbyname('Memo').AsString;
       next;
      end;
   end;
end;

procedure TProduct_checkFrm.BB_ConfirmClick(Sender: TObject);
var
  i:integer;
begin
  inherited;
     DM.AQ_Product_check.Locate('Quality_check_No',SQLS,[]);
     DM.AQ_Product_check.Edit;
     DM.AQ_Product_check['Quality_check_Time']:=time;
     DM.AQ_Product_check['Auditing']:=Edit1.Text;
     DM.AQ_Product_check['State']:='是';
     DM.AQ_Product_check.Post;

     with DM.ADOQuery1 do
      begin
        close;
        SQL.Clear;
        SQL.Add('Select * from Product_check where Quality_check_No='+''''+SQLS+'''');
        open;
        first;
        with  Product_QualitycheckSG  do
        for i:=1 to DM.ADOQuery1.RecordCount do
         begin
          DM.ADOQuery1.Edit;
          DM.ADOQuery1['Quality_check_Time']:=time;
          DM.ADOQuery1['Auditing']:=Edit1.Text;
          DM.ADOQuery1['State']:='是';
          DM.ADOQuery1['Produce_No']:=cells[0,i];
          DM.ADOQuery1['Product_ID']:=cells[1,i];
          DM.ADOQuery1['Product_Name']:=cells[2,i];
          DM.ADOQuery1['Product_BatchNo']:=cells[3,i];
          DM.ADOQuery1['Product_Unit']:=cells[4,i];
          DM.ADOQuery1['Quality_goods']:=cells[5,i];
          DM.ADOQuery1['Inferior']:=cells[6,i];
          DM.ADOQuery1['Waster']:=cells[7,i];
          DM.ADOQuery1['Memo']:=cells[8,i];
          DM.ADOQuery1.Post;
          Next;
         end;
       end;
    Application.MessageBox('审核完成！','提示对话框',MB_OK);
end;
procedure TProduct_checkFrm.DateTimePicker1CloseUp(Sender: TObject);
begin
   time:=formatDatetime('yyyy-m-d',DateTimePicker1.Date);
end;

procedure TProduct_checkFrm.BB_CancelClick(Sender: TObject);
begin
   Product_checkFrm.Close;
end;

end.