mrcprk.pas

生产管理系统：系统具有数据备份及数据还原功能。能够保证系统数据的安全性方便的全方位的数据查询。在相应的权限下

unit MRCPRK;

interface

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

type
  TFRM_CPRK = class(TForm)
    GroupBox1: TGroupBox;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    DateTimePicker1: TDateTimePicker;
    Datalb: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DBGrid1: TDBGrid;
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_CPRK: TFRM_CPRK;

implementation
  uses MR_DATA;
{$R *.dfm}

procedure TFRM_CPRK.FormShow(Sender: TObject);
var
  yn : string;
begin
  yn := '是';
  combobox1.Clear;
  DateTimePicker1.Date := now();
  with data.ADOb do
  begin
    close;
    sql.Clear;
    sql.Add('select distinct scddh from tb_ll where (yn='+''''+yn+''''+') and (pd<>1)  order by scddh');
    open;
  end;
  if data.ADOb.RecordCount>0 then
  begin
    while not data.ADOb.Eof do
    begin
      combobox1.Items.Add(data.ADOb.fieldbyname('scddh').AsString);
      data.ADOb.Next;
    end;
  end;
  with data.ADOa do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_cprk');
    open;
  end;
  datalb.DataSet := data.ADOa;

end;

procedure TFRM_CPRK.BitBtn3Click(Sender: TObject);
begin
  close;
end;

procedure TFRM_CPRK.BitBtn2Click(Sender: TObject);
var
  sc,h : string;
begin
  h := data.ADOa.FieldByName('scddh').AsString;
  sc := data.ADOa.FieldByName('cpmc').AsString;
  if data.ADOa.FieldByName('scddh').AsString = '' then
  begin
    showmessage('入库信息表为空，无法删除。');
  end
  else
  begin
    if application.MessageBox(pchar('真的要删除产品名为：'+''''+sc+''''+' 的入库信息吗？'),'提示',mb_yesno) = idyes then
    begin
      data.ADOa.Delete;
      self.OnShow(sender);
      with data.ADOb do
      begin
        close;
        sql.Clear;
        sql.Add('select * from tb_ll where scddh='+''''+h+'''');
        open;
      end;
      data.ADOb.Edit;
      data.ADOb.FieldByName('pd').AsString := '0';
      data.ADOb.Post;
      self.OnShow(sender);
    end;
  end;

end;

procedure TFRM_CPRK.BitBtn1Click(Sender: TObject);
var
   s,p : string;
   i : integer;
begin
  i := 1;
  with data.ADOb do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_scdd where scddh='+''''+combobox1.Text+'''');
    open;
  end;
  with data.ADOc do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_ll where scddh='+''''+combobox1.Text+'''');
    open;
  end;
  with data.ADOa do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_cprk');
    open;
  end;
  s := 'RK'+formatdatetime('yyyymm',now());
  if data.ADOa.RecordCount<1 then
  begin
    p := s+'00000'+inttostr(i);
  end
  else
  begin
    data.ADOa.Last;
    i := strtoint(copy(data.ADOa.fieldbyname('rkid').AsString,9,6));
    p := s+formatfloat('000000',i+1);
  end;
  data.ADOa.Append;
  data.ADOa.FieldByName('rkid').AsString := p;
  data.ADOa.FieldByName('scddh').AsString := data.ADOb.fieldbyname('scddh').AsString;
  data.ADOa.FieldByName('hh').AsString := data.ADOb.fieldbyname('hh').AsString;
  data.ADOa.FieldByName('cpbh').AsString := data.ADOb.fieldbyname('cphh').AsString;
  data.ADOa.FieldByName('cpmc').AsString := data.ADOb.FieldByName('cpmc').AsString;
  data.ADOa.fieldbyname('sl').AsFloat := data.ADOb.fieldbyname('sl').AsFloat;
  data.ADOa.fieldbyname('ktime').AsDateTime := data.ADOb.fieldbyname('ktime').AsDateTime;
  data.ADOa.fieldbyname('wtime').AsDateTime := data.ADOb.fieldbyname('wtime').AsDateTime;
  data.ADOa.fieldbyname('rtime').AsDateTime := DateTimePicker1.Date;
  data.ADOa.fieldbyname('yn').AsString := data.ADOb.fieldbyname('yn').AsString;
  data.ADOa.Post;
  while not data.ADOc.Eof do
  begin
    data.ADOc.Edit;
    data.ADOc.FieldByName('pd').AsString := '1';
    data.ADOc.Post;
    data.ADOc.Next;
  end;
  self.OnShow(sender);
end;

end.