materialfm.pas

库房管理系统

unit MaterialFM;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Mask, DBCtrls, ExtCtrls,Grids,   DBGrids;
 type
  TMaterial = class(TForm)
    grp1: TGroupBox;
    grp2: TGroupBox;
    dbgrd1: TDBGrid;
    grp3: TGroupBox;
    grp4: TGroupBox;
    DBEdit2: TDBEdit;
    mtrMeasure: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    Ado_Material: TADOQuery;
    DS_Material: TDataSource;
    DBEdit8: TDBEdit;
    Label5: TLabel;
    ADO_Product: TADOTable;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    DBNavigator1: TDBNavigator;
    MtrWeight: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    Comb_product: TDBComboBox;
    comb_mtr: TDBComboBox;
    ADO_Mtr: TADOTable;
    ADO_temp: TADOQuery;
    Comb_productss: TComboBox;
    Edit1: TEdit;
    ADO_MtrMtrCode: TWideStringField;
    ADO_ProductfParentID: TWideStringField;
    dbunit: TDBComboBox;
    refUnit: TDBComboBox;
    ado_unit: TADOTable;
    ado_unitfUnitCode: TWideStringField;
    ado_unitfbaseUnits: TWideStringField;
    dbunits: TDBEdit;
    refUnits: TDBEdit;
    procedure Comb_productClick(Sender: TObject);
    procedure comb_mtrClick(Sender: TObject);
    procedure comb_mtrDragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure Comb_productDragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure Comb_productssClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Comb_productChange(Sender: TObject);
    procedure comb_mtrChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Material: TMaterial;

implementation
  uses MainFm;

{$R *.dfm}

procedure TMaterial.Comb_productClick(Sender: TObject);
var i:integer;
begin
   with ado_product do
    if ado_product.recordcount>0 then
    begin
    ado_product.First;
    for i:=0 to ado_product.RecordCount-1 do
     begin
   //  comb_product.Items.Add(ado_product.fieldbyname('fproductid').AsString);
     ado_product.Next;
     end;
     end;
end;

procedure TMaterial.comb_mtrClick(Sender: TObject);
var i:integer;
begin
  with ado_mtr do
      if ado_mtr.recordcount>0 then
     begin
    ado_mtr.First;
    for i:=0 to ado_mtr.RecordCount-1 do
     begin
  //  comb_mtr.Items.Add(ado_mtr.fieldbyname('Mtrcode').AsString);
    ado_Mtr.Next;
     end;
    end;
end;

procedure TMaterial.comb_mtrDragDrop(Sender, Source: TObject; X,
  Y: Integer);
  var i:integer;
begin
  with ado_mtr do
    if ado_mtr.RecordCount>0 then
    begin
     ado_mtr.First;
    for i:=0 to ado_mtr.RecordCount-1 do
     begin
  //  comb_mtr.Items.Add(ado_mtr.fieldbyname('Mtrcode').AsString);
    ado_Mtr.Next;
     end;
    end;
end;

procedure TMaterial.Comb_productDragDrop(Sender, Source: TObject; X,
  Y: Integer);
  var i:integer;
begin
 with ado_product do
    if ado_product.recordcount>0 then
    begin
    ado_product.first;
    for i:=0 to ado_product.RecordCount-1 do
     begin
 //    comb_product.Items.Add(ado_product.fieldbyname('fproductid').AsString);
     ado_product.Next;
     end;
    end;
end;

procedure TMaterial.Comb_productssClick(Sender: TObject);
  var i:integer;
begin
 with ado_product do
   if ado_product.RecordCount>0 then
   begin
    ado_product.first;
    for i:=0 to ado_product.RecordCount-1 do
     begin
  //   comb_product.Items.Add(ado_product.fieldbyname('fproductid').AsString);
     ado_product.Next;
     end;
   end;
end;
procedure TMaterial.FormCreate(Sender: TObject);
 var i:integer;
begin
 with ado_product do
   if ado_product.RecordCount>0 then
   begin
    ado_product.first;
    for i:=0 to ado_product.RecordCount-1 do
     begin
     comb_product.Items.Add(ado_product.fieldbyname('fParentID').AsString);
     ado_product.Next;
     end;
   end;
    with ado_mtr do
    if ado_mtr.RecordCount>0 then
    begin
     ado_mtr.First;
    for i:=0 to ado_mtr.RecordCount-1 do
     begin
    comb_mtr.Items.Add(ado_mtr.fieldbyname('Mtrcode').AsString);
    ado_Mtr.Next;
     end;
    end;
    with ado_Unit do
     if ado_unit.RecordCount>0 then
      begin
      ado_Unit.First;
      for i:=0 to ado_Unit.RecordCount-1 do
        begin
  //      dbunit.Items.Add(ado_unit.fieldbyname('fUnitCode').AsString);
    //    refUnit.Items.Add(ado_unit.fieldbyname('fbaseUnits').AsString);
        ado_Unit.Next;
        end;
      end;
end;
procedure TMaterial.Comb_productChange(Sender: TObject);
begin
   with ado_temp do
   ado_temp.Close;
   ado_temp.SQL.Clear;
   ado_temp.SQL.Add('select * from tProductCode where fParentID like '''+'%'+comb_product.Text+'%'+'''');
   ado_temp.open;
   edit1.Text:=ado_temp.SQL.text;
   dbedit2.Text:=ado_temp.fieldbyname('fParentName').AsString;
   dbunits.Text:=ado_temp.fieldbyname('fMeasureUnit').AsString;
   refUnits.Text:=ado_temp.fieldbyname('fWeightUnit').AsString;
end;

procedure TMaterial.comb_mtrChange(Sender: TObject);
begin
   with ado_temp do
   ado_temp.Close;
   ado_temp.SQL.Clear;
   ado_temp.SQL.Add('SELECT * FROM [dbo].[tMtrCode] where MtrCode like '''+'%'+comb_Mtr.Text+'%'+'''');
   ado_temp.open;
   edit1.Text:=ado_temp.SQL.text;
   dbedit7.Text:=ado_temp.fieldbyname('MtrName').AsString;
   Mtrmeasure.Text:=ado_temp.fieldbyname('fMeasureUnit').AsString;
   MtrWeight.Text:=ado_temp.fieldbyname('fWeightUnit').AsString;
end;

procedure TMaterial.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if Ado_Material.State in [dsInsert,dsEdit] then
  //  if  Ado_Material.Modified  then
      begin
       if MessageBox(Handle, PChar('数据未保存,要退出吗?'), MsgQst, Msg2YNWARN) = IDYES then
       Action:=caHide
 //     end
      else
      Action:=caNone;
     end;
end;

end.