kc.pas

delphi 生产管理系统 sql2000位后台数据库

//*****************初始化按钮*************
  btnadd3.Enabled:=false;
  btnsave3.Enabled:=true;
  btncancel3.Enabled:=true;
  btnmod3.Enabled:=false;
  btndelete3.Enabled:=false;
  bsskinedit4.Clear;
  Nedit4.Text:='0';
  share.btn_bs:=0;
end;

procedure TFrm_KC.btnmod1Click(Sender: TObject);
begin
//*****************初始化按钮*************
  if banchengpin.IsEmpty then exit;
  btnadd1.Enabled:=false;
  btnsave1.Enabled:=true;
  btncancel1.Enabled:=true;
  btnmod1.Enabled:=false;
  btndelete1.Enabled:=false;

  bsskinedit2.Text:=banchengpin.FieldValues['name'];
  GG1.Itemindex:=GG1.items.IndexOf(banchengpin.FieldValues['gg']);
  XH1.Itemindex:=XH1.items.IndexOf(banchengpin.FieldValues['xh']);
  Nedit2.Text:=inttostr(banchengpin.FieldValues['sl']);
  memo2.Text:=banchengpin.FieldValues['bz'];
  share.btn_BS:=1;
//  QMKLR.Edit;
end;

procedure TFrm_KC.btnmod2Click(Sender: TObject);
begin
//*****************初始化按钮*************
  if chengpin.IsEmpty then exit;
  btnadd2.Enabled:=false;
  btnsave2.Enabled:=true;
  btncancel2.Enabled:=true;
  btnmod2.Enabled:=false;
  btndelete2.Enabled:=false;

  bsskinedit3.Text:=chengpin.FieldValues['name'];
  GG2.Itemindex:=GG2.items.IndexOf(chengpin.FieldValues['gg']);
  XH2.Itemindex:=XH2.items.IndexOf(chengpin.FieldValues['xh']);
  Nedit3.text:=inttostr(chengpin.FieldValues['sl']);
  edit_fhsl.text:=inttostr(chengpin.FieldValues['fhsl']);
  memo3.Text:=chengpin.FieldValues['bz'];
  share.btn_BS:=1;
//  QMKLR.Edit;
end;

procedure TFrm_KC.btnmod3Click(Sender: TObject);
begin
//*****************初始化按钮*************
  if Fujian.IsEmpty then exit;
  btnadd3.Enabled:=false;
  btnsave3.Enabled:=true;
  btncancel3.Enabled:=true;
  btnmod3.Enabled:=false;
  btndelete3.Enabled:=false;

  bsskinedit4.Text:=fujian.FieldValues['name'];
  XH3.Itemindex:=XH3.items.IndexOf(fujian.FieldValues['xh']);
  Nedit4.Text:=inttostr(fujian.FieldValues['sl']);
  memo4.Text:=fujian.FieldValues['bz'];
  share.btn_BS:=1;
//  QMKLR.Edit;
end;

procedure TFrm_KC.btndelete1Click(Sender: TObject);
begin
  if banchengpin.IsEmpty then exit;
  if messagebox(handle,pchar('确定要删除该记录么？'),'提示',65)=IDok then
  banchengpin.Delete;
end;

procedure TFrm_KC.btndelete2Click(Sender: TObject);
begin
  if chengpin.IsEmpty then exit;
  if messagebox(handle,pchar('确定要删除该记录么？'),'提示',65)=IDok then
  chengpin.Delete;
end;

procedure TFrm_KC.btndelete3Click(Sender: TObject);
begin
  if fujian.IsEmpty then exit;
  if messagebox(handle,pchar('确定要删除该记录么？'),'提示',65)=IDok then
  fujian.Delete;
end;

procedure TFrm_KC.btncancel1Click(Sender: TObject);
begin
  btnadd1.Enabled:=true;
  btnsave1.Enabled:=false;
  btncancel1.Enabled:=false;
  btnmod1.Enabled:=true;
  btndelete1.Enabled:=true;
  bsskinedit2.Clear;
  Nedit2.Text:='0';
// qmklr.Cancel;
end;

procedure TFrm_KC.btncancel2Click(Sender: TObject);
begin
  btnadd2.Enabled:=true;
  btnsave2.Enabled:=false;
  btncancel2.Enabled:=false;
  btnmod2.Enabled:=true;
  btndelete2.Enabled:=true;
  bsskinedit3.Clear;
  Nedit3.text:='0';
  edit_fhsl.text:='0';
end;

procedure TFrm_KC.btncancel3Click(Sender: TObject);
begin
  btnadd3.Enabled:=true;
  btnsave3.Enabled:=false;
  btncancel3.Enabled:=false;
  btnmod3.Enabled:=true;
  btndelete3.Enabled:=true;
  bsskinedit4.Clear;
  Nedit4.Text:='0';
end;

procedure TFrm_KC.btnsave1Click(Sender: TObject);
begin
 if share.btn_BS=0 then
   begin
   banchengpin.First;
   if banchengpin.Locate('name;gg;xh',vararrayof([trim(bsskinEdit2.Text),GG1.text,XH1.Text]),[]) then
     begin
       messagebox(handle,pchar('新增产品[名称],[规格],[型号]库中已经存在,不可重复!'),'提示',64);
       exit;
     end;
   with banchengpin do
     begin
       append;
       FieldValues['name']:=bsskinedit2.Text;
       FieldValues['gg']:=GG1.Text;
       FieldValues['xh']:=XH1.Text;
       FieldValues['sl']:=strtoint(Nedit2.Text);
       FieldValues['bz']:=memo2.Text;
       Post;
     end;    // with
   end;

   if share.btn_BS=1 then
     begin
       with banchengpin do
         begin
           edit;
           FieldValues['name']:=bsskinedit2.Text;
           FieldValues['gg']:=GG1.Text;
           FieldValues['xh']:=XH1.Text;
           FieldValues['sl']:=strtoint(Nedit2.Text);
           FieldValues['bz']:=memo2.Text;
          Post;
         end;    // with
     end;
     btnadd1.Enabled:=true;
     btnsave1.Enabled:=false;
     btncancel1.Enabled:=false;
     btnmod1.Enabled:=true;
     btndelete1.Enabled:=true;
     bsskinedit2.Clear;
     Nedit2.Text:='0';
     messagebox(handle,pchar('保存成功!'),'提示',64);
end;

procedure TFrm_KC.btnsave2Click(Sender: TObject);
begin
 if share.btn_BS=0 then
 begin
   chengpin.First;
   if chengpin.Locate('name;gg;xh',vararrayof([trim(bsskinEdit3.Text),GG2.text,XH2.Text]),[]) then
     begin
       messagebox(handle,pchar('新增产品[名称],[规格],[型号]库中已经存在,不可重复!'),'提示',64);
       exit;
     end;
   with chengpin do
     begin
       append;
       FieldValues['name']:=bsskinedit3.Text;
       FieldValues['gg']:=GG2.Text;
       FieldValues['xh']:=XH2.Text;
       FieldValues['sl']:=strtoint(Nedit3.text);
       FieldValues['fhsl']:=strtoint(edit_fhsl.text);
       FieldValues['bz']:=memo3.Text;
       Post;
     end;    // with
   end;

   if share.btn_BS=1 then
     begin
       with chengpin do
         begin
           edit;
           FieldValues['name']:=bsskinedit3.Text;
           FieldValues['gg']:=GG2.Text;
           FieldValues['xh']:=XH2.Text;
           FieldValues['sl']:=strtoint(Nedit3.text);
           FieldValues['fhsl']:=strtoint(edit_fhsl.text);
           FieldValues['bz']:=memo3.Text;
          Post;
         end;    // with
     end;
     btnadd2.Enabled:=true;
     btnsave2.Enabled:=false;
     btncancel2.Enabled:=false;
     btnmod2.Enabled:=true;
     btndelete2.Enabled:=true;
     bsskinedit3.Clear;
     Nedit3.text:='0';
     edit_fhsl.text:='0';
     messagebox(handle,pchar('保存成功!'),'提示',64);
end;

procedure TFrm_KC.btnsave3Click(Sender: TObject);
begin
 if share.btn_BS=0 then
 begin
   fujian.First;
   if fujian.Locate('name;xh',vararrayof([trim(bsskinEdit4.Text),XH3.Text]),[]) then
     begin
       messagebox(handle,pchar('新增产品[名称],[型号]库中已经存在,不可重复!'),'提示',64);
       exit;
     end;
   with fujian do
     begin
       append;
       FieldValues['name']:=bsskinedit4.Text;
       FieldValues['xh']:=XH3.Text;
       FieldValues['sl']:=strtoint(Nedit4.Text);
       FieldValues['bz']:=memo4.Text;
       Post;
     end;    // with
   end;

   if share.btn_BS=1 then
     begin
       with fujian do
         begin
           edit;
           FieldValues['name']:=bsskinedit4.Text;
           FieldValues['xh']:=XH3.Text;
           FieldValues['sl']:=strtoint(Nedit3.text);
           FieldValues['bz']:=memo4.Text;
          Post;
         end;    // with
     end;
     btnadd3.Enabled:=true;
     btnsave3.Enabled:=false;
     btncancel3.Enabled:=false;
     btnmod3.Enabled:=true;
     btndelete3.Enabled:=true;
     bsskinedit4.Clear;
     Nedit4.Text:='0';
     messagebox(handle,pchar('保存成功!'),'提示',64);
end;

procedure TFrm_KC.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Frm_KC:=nil;//先
  Action:=cafree;//后
  frm_main.rzfieldStatus2.Caption :='主界面';
end;

procedure TFrm_KC.Nedit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8]) then
  key:=#0;
end;

procedure TFrm_KC.bsSkinDBGrid2TitleBtnClick(Sender: TObject;
  ACol: Integer; Column: TColumnEh);
begin
  if MoKuai.IsEmpty  then exit;
  case Column.Title.SortMarker of
    smDownEh: MoKuai.Sort := Column.FieldName + ' DESC'; //升序
    smUpEh: MoKuai.Sort := Column.FieldName + ' ASC'; //降序
  end;
end;

procedure TFrm_KC.NEdit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8]) then
  key:=#0;
end;

procedure TFrm_KC.NEdit3KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8]) then
  key:=#0;
end;

procedure TFrm_KC.edit_fhslKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8]) then
  key:=#0;
end;

procedure TFrm_KC.DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;
  Column: TColumnEh);
begin
  if banchengpin.IsEmpty  then exit;
  case Column.Title.SortMarker of
    smDownEh: banchengpin.Sort := Column.FieldName + ' DESC'; //升序
    smUpEh: banchengpin.Sort := Column.FieldName + ' ASC'; //降序
  end;
end;

procedure TFrm_KC.btnreturn2Click(Sender: TObject);
begin
close;
end;

procedure TFrm_KC.DBGridEh2TitleBtnClick(Sender: TObject; ACol: Integer;
  Column: TColumnEh);
begin
  if chengpin.IsEmpty  then exit;
  case Column.Title.SortMarker of
    smDownEh: chengpin.Sort := Column.FieldName + ' DESC'; //升序
    smUpEh: chengpin.Sort := Column.FieldName + ' ASC'; //降序
  end;
end;

procedure TFrm_KC.NEdit4KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8]) then
  key:=#0;
end;

procedure TFrm_KC.btnreturn3Click(Sender: TObject);
begin
close;
end;

procedure TFrm_KC.DBGridEh3TitleBtnClick(Sender: TObject; ACol: Integer;
  Column: TColumnEh);
begin
  if FUJian.IsEmpty  then exit;
  case Column.Title.SortMarker of
    smDownEh: FUJian.Sort := Column.FieldName + ' DESC'; //升序
    smUpEh: FUJian.Sort := Column.FieldName + ' ASC'; //降序
  end;
end;

procedure TFrm_KC.DBGridEh4TitleBtnClick(Sender: TObject; ACol: Integer;
  Column: TColumnEh);
begin
  if xinghao.IsEmpty  then exit;
  case Column.Title.SortMarker of
    smDownEh: xinghao.Sort := Column.FieldName + ' DESC'; //升序
    smUpEh: xinghao.Sort := Column.FieldName + ' ASC'; //降序
  end;
end;

procedure TFrm_KC.DBGridEh5TitleBtnClick(Sender: TObject; ACol: Integer;
  Column: TColumnEh);
begin
  if guige.IsEmpty  then exit;
  case Column.Title.SortMarker of
    smDownEh: guige.Sort := Column.FieldName + ' DESC'; //升序
    smUpEh: guige.Sort := Column.FieldName + ' ASC'; //降序
  end;
end;

procedure TFrm_KC.DBGridEh6TitleBtnClick(Sender: TObject; ACol: Integer;
  Column: TColumnEh);
begin
  if didian.IsEmpty  then exit;
  case Column.Title.SortMarker of
    smDownEh: didian.Sort := Column.FieldName + ' DESC'; //升序
    smUpEh: didian.Sort := Column.FieldName + ' ASC'; //降序
  end;
end;

end.