umaterial_info.pas

工廠採購管理系統

unit umaterial_info;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBCtrls, RzButton, ComCtrls,
  ExtCtrls, RzPanel, RzSplit, ADODB, Grids, DBGrids, RzDBCmbo, StdCtrls,
  Mask, Buttons, FR_DSet, FR_DBSet, FR_Class, Menus;

type
  Tfrmmaterial_info = class(TForm)
    RzSizePanel1: TRzSizePanel;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    TreeView1: TTreeView;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    RzBitBtn4: TRzBitBtn;
    RzBitBtn5: TRzBitBtn;
    RzBitBtn6: TRzBitBtn;
    DBNavigator1: TDBNavigator;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBMemo1: TDBMemo;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    RzDBLookupComboBox3: TRzDBLookupComboBox;
    RzBitBtn7: TRzBitBtn;
    RzBitBtn8: TRzBitBtn;
    ADOQuery3: TADOQuery;
    Label17: TLabel;
    Label18: TLabel;
    DBEdit12: TDBEdit;
    Label12: TLabel;
    DBEdit14: TDBEdit;
    CheckBox1: TCheckBox;
    Label19: TLabel;
    DBEdit13: TDBEdit;
    Label13: TLabel;
    ADOQuery4: TADOQuery;
    DataSource2: TDataSource;
    ADOTable1: TADOTable;
    DBEdit9: TDBEdit;
    Label20: TLabel;
    RzMenuToolbarButton2: TRzMenuToolbarButton;
    DBEdit15: TDBEdit;
    ADOStoredProc1: TADOStoredProc;
    RzMenuToolbarButton1: TRzToolbarButton;
    GroupBox2: TGroupBox;
    Edit1: TEdit;
    PopupMenu1: TPopupMenu;
    reach: TMenuItem;
    N1: TMenuItem;
    DAYIN: TMenuItem;
    find: TMenuItem;
    add: TMenuItem;
    Label21: TLabel;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    RzToolbarButton1: TRzToolbarButton;
    RzToolbarButton2: TRzToolbarButton;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    procedure FormCreate(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure RzBitBtn7Click(Sender: TObject);
    procedure RzBitBtn6Click(Sender: TObject);
    procedure RzBitBtn8Click(Sender: TObject);
    procedure RzBitBtn4Click(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure RzBitBtn5Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure RzMenuToolbarButton1Click(Sender: TObject);
    procedure RzMenuToolbarButton2Click(Sender: TObject);
    procedure DBLookupComboBox1Enter(Sender: TObject);
    procedure DBLookupComboBox1Exit(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure reachClick(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure RzToolbarButton2Click(Sender: TObject);
    procedure RzToolbarButton1Click(Sender: TObject);
    procedure DBEdit4DblClick(Sender: TObject);
    procedure DBEdit15DblClick(Sender: TObject);
  private
    { Private declarations }
    strsql:string;
    addedit:boolean;
    isedit:boolean;
    cwlmc:string;
    cgysmc:string;
    lbmc:string;
    id:string;
  public
    { Public declarations }

  end;

var
  frmmaterial_info: Tfrmmaterial_info;

implementation
uses uconst,unit_treepublic,udm1, ucx,ufunction,Ufrmwllbxz,ugyslb,unit3,uwlsmallclass;
{$R *.dfm}


procedure Tfrmmaterial_info.FormCreate(Sender: TObject);
begin
adostoredproc1.Connection:=dm1.ADOConnection1;
adoquery2.Connection:=dm1.ADOConnection1;
maketree(adoquery2,'wllb',treeview1,'物料类别列表');
      strsql:='select wldm as 物料代码,bigclass as 大类,smallclass as 小类,'+
      'wlmc as 名称,dw as 单位,wlsh as 色号,wlys as 颜色,sjkc as 实际库存,'+
      'sykc as 剩余库存,dj as 单价,aqkc as 安全库存,ylbm as 部门,djr as 操作,gysdm as 供应商,'+
      'pym as 拼音码,cgdw as 采购单位,cgbl as 采购比率,yfpkc as 已分配库存,srrq as 日期,'+
      'node as 备注,kuwei as 库位 from wldmk order by pym asc';
adoexect(adoquery1,strsql);
addedit:=false;
if qxjc1(userid,'qxsz') then
   begin
         dbedit2.Enabled:=true;
         dbedit6.Enabled:=true;
         dbedit7.Enabled:=true;
         dbedit12.Enabled:=true;
   end;
end;

procedure Tfrmmaterial_info.RzBitBtn3Click(Sender: TObject);
var
a:integer;
begin
if not qxjc(userid,'jbzl_del') then exit;
ADOStoredProc1.close;
adostoredproc1.Parameters.Clear;
adostoredproc1.ProcedureName:='p_check_wldm';
adostoredproc1.Parameters.CreateParameter('@wldm',ftstring,pdInput,10,1);
ADOStoredProc1.Parameters.ParamByName('@wldm').Value:=trim(adoquery1.fieldbyname('物料代码').AsString);
adostoredproc1.Parameters.CreateParameter('@isok',ftinteger,pdoutput,1,1);
ADOStoredProc1.prepared:=true;
ADOStoredProc1.ExecProc;
a:=ADOStoredProc1.Parameters.ParamValues['@isok'];
if a=1 then
   begin
   showmessage('对不起！该物料已经使用了，不能删除');
   exit;
   end;
if messagebox(handle,'是否真的要删除该条记录？','询问',mb_yesno+mb_iconquestion)=idno then exit;
if (adoquery1.Recordset.EOF) and (adoquery1.Recordset.BOF) then begin
messagebox(handle,'没有选择要删除的记录！','警告',mb_ok+mb_iconwarning);
exit;
end;
adoquery1.delete;
adoquery1.requery();
end;

procedure Tfrmmaterial_info.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tfrmmaterial_info.RzBitBtn1Click(Sender: TObject);

begin
if not qxjc(userid,'jbzl_add') then exit;
addedit:=true;
isedit:=false;
PageControl1.ActivePageIndex:=1;
RzBitBtn7.Enabled:=true;
adoquery1.Append;
dbedit10.Text:=userid;
dbedit11.Text:=datetostr(date);
dbedit2.Text:='0';
dbedit7.Text:='0';
dbedit8.Text:='0';
dbedit6.Text:='0';
dbedit12.Text:='0';
dbedit14.Text:='1';
id:='';
RzBitBtn1.Enabled:=false;
RzBitBtn2.Enabled:=false;
DBNavigator1.Enabled:=false;
treeview1.Enabled:=false;
dbedit2.Enabled:=false;
dbedit6.Enabled:=false;
dbedit7.Enabled:=false;
dbedit12.Enabled:=false;
dbedit13.SetFocus;
end;

procedure Tfrmmaterial_info.RzBitBtn2Click(Sender: TObject);
begin
if not qxjc(userid,'jbzl_edit') then exit;
if (adoquery1.Recordset.EOF) and (adoquery1.Recordset.BOF) then begin
messagebox(handle,'没有选择要修改的记录！','警告',mb_ok+mb_iconwarning);
exit;
end;
id:=trim(dbedit13.Text);
addedit:=true;
isedit:=true;
adoquery1.Edit;
dbedit10.Text:=userid;
dbedit11.Text:=datetostr(date);
PageControl1.ActivePageIndex:=1;
RzBitBtn7.Enabled:=true;
RzBitBtn1.Enabled:=false;
RzBitBtn2.Enabled:=false;
DBNavigator1.Enabled:=false;
treeview1.Enabled:=false;

end;
procedure Tfrmmaterial_info.TreeView1Change(Sender: TObject;
  Node: TTreeNode);
begin
lbmc:=trim(treeview1.Selected.Text);
case node.Level of
      1:
       strsql:='select wldm as 物料代码,bigclass as 大类,smallclass as 小类,'+
      'wlmc as 名称,dw as 单位,wlsh as 色号,wlys as 颜色,sjkc as 实际库存,'+
      'sykc as 剩余库存,dj as 单价,aqkc as 安全库存,ylbm as 部门,djr as 操作,gysdm as 供应商,'+
      'pym as 拼音码,cgdw as 采购单位,cgbl as 采购比率,yfpkc as 已分配库存,srrq as 日期,'+
      'node as 备注,kuwei as 库位 from wldmk where bigclass=' + ''''+  lbmc + '''' +'order by pym asc';
      0:
      strsql:='select wldm as 物料代码,bigclass as 大类,smallclass as 小类,'+
      'wlmc as 名称,dw as 单位,wlsh as 色号,wlys as 颜色,sjkc as 实际库存,'+
      'sykc as 剩余库存,dj as 单价,aqkc as 安全库存,ylbm as 部门,djr as 操作,gysdm as 供应商,'+