ubunit.~pas

是分布式粮库程序,是采用Delphi实现的

unit ubunit;

interface

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

type
  Tfbaseunit = class(TForm)
    unitDataSource: TDataSource;
    siteDataSource: TDataSource;
    depotDataSource: TDataSource;
    fdpositionDataSource: TDataSource;
    siteQuery: TQuery;
    DataSource1: TDataSource;
    unitQuery: TQuery;
    depotQuery: TQuery;
    DataSource2: TDataSource;
    sitenewQuery: TQuery;
    depotnewQuery: TQuery;
    fdpnewQuery: TQuery;
    sitedelQuery: TQuery;
    depotdelQuery: TQuery;
    fdpdelQuery: TQuery;
    depotmodQuery: TQuery;
    fdpmodQuery: TQuery;
    Query1: TQuery;
    Query2: TQuery;
    Query3: TQuery;
    Query4: TQuery;
    depottypeQuery: TQuery;
    depottypeDataSource: TDataSource;
    Query5: TQuery;
    Query6: TQuery;
    sitemodquery: TQuery;
    qryunit: TQuery;
    qrysite: TQuery;
    qrydepot: TQuery;
    qryfdposition: TQuery;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label31: TLabel;
    unitDBGrid: TDBGrid;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    TabSheet2: TTabSheet;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    GroupBox2: TGroupBox;
    siteaddBitBtn: TBitBtn;
    sitesavBitBtn: TBitBtn;
    sitedelBitBtn: TBitBtn;
    sitecanBitBtn: TBitBtn;
    sitemodBitBtn: TBitBtn;
    siteexiBitBtn: TBitBtn;
    siteDBGrid: TDBGrid;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Memo1: TMemo;
    TabSheet3: TTabSheet;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    depotDBGrid: TDBGrid;
    GroupBox3: TGroupBox;
    depotaddBitBtn: TBitBtn;
    depotsavBitBtn: TBitBtn;
    depotdelBitBtn: TBitBtn;
    depotcanBitBtn: TBitBtn;
    depotmodBitBtn: TBitBtn;
    depotexiBitBtn: TBitBtn;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    DBLookupComboBox3: TDBLookupComboBox;
    Memo2: TMemo;
    TabSheet4: TTabSheet;
    Label21: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label22: TLabel;
    Label30: TLabel;
    GroupBox4: TGroupBox;
    fdpaddBitBtn: TBitBtn;
    fdpsavBitBtn: TBitBtn;
    fdpdelBitBtn: TBitBtn;
    fdpcanBitBtn: TBitBtn;
    fdpmodBitBtn: TBitBtn;
    fdpexiBitBtn: TBitBtn;
    fdpositionDBGrid: TDBGrid;
    StaticText5: TStaticText;
    StaticText6: TStaticText;
    DBLookupComboBox4: TDBLookupComboBox;
    DBLookupComboBox5: TDBLookupComboBox;
    DBLookupComboBox6: TDBLookupComboBox;
    DBLookupComboBox7: TDBLookupComboBox;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Memo3: TMemo;
    Query7: TQuery;
    Query8: TQuery;
    GroupBox1: TGroupBox;
    DBLookupComboBox8: TDBLookupComboBox;
    Query9: TQuery;
    DataSource3: TDataSource;
    Label32: TLabel;
    GroupBox5: TGroupBox;
    Label33: TLabel;
    Label34: TLabel;
    DBLookupComboBox9: TDBLookupComboBox;
    DBLookupComboBox10: TDBLookupComboBox;
    Query11: TQuery;
    DataSource5: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure siteaddBitBtnClick(Sender: TObject);
    procedure sitedelBitBtnClick(Sender: TObject);
    procedure sitemodBitBtnClick(Sender: TObject);
    procedure sitesavBitBtnClick(Sender: TObject);
    procedure sitecanBitBtnClick(Sender: TObject);
    procedure siteexiBitBtnClick(Sender: TObject);
    procedure qrysiteAfterScroll(DataSet: TDataSet);
    procedure depotaddBitBtnClick(Sender: TObject);
    procedure depotdelBitBtnClick(Sender: TObject);
    procedure depotmodBitBtnClick(Sender: TObject);
    procedure depotsavBitBtnClick(Sender: TObject);
    procedure depotcanBitBtnClick(Sender: TObject);
    procedure depotexiBitBtnClick(Sender: TObject);
    procedure qrydepotAfterScroll(DataSet: TDataSet);
    procedure fdpaddBitBtnClick(Sender: TObject);
    procedure siteQueryAfterScroll(DataSet: TDataSet);
    procedure fdpdelBitBtnClick(Sender: TObject);
    procedure fdpmodBitBtnClick(Sender: TObject);
    procedure fdpsavBitBtnClick(Sender: TObject);
    procedure fdpcanBitBtnClick(Sender: TObject);
    procedure fdpexiBitBtnClick(Sender: TObject);
    procedure qryfdpositionAfterScroll(DataSet: TDataSet);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit9KeyPress(Sender: TObject; var Key: Char);
    procedure DBLookupComboBox1CloseUp(Sender: TObject);
    procedure DBLookupComboBox2CloseUp(Sender: TObject);
    procedure DBLookupComboBox4CloseUp(Sender: TObject);
    procedure DBLookupComboBox5CloseUp(Sender: TObject);
    procedure DBLookupComboBox6CloseUp(Sender: TObject);
    procedure DBLookupComboBox7CloseUp(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure DBLookupComboBox8CloseUp(Sender: TObject);
    procedure DBLookupComboBox9CloseUp(Sender: TObject);
    procedure DBLookupComboBox10CloseUp(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure TabSheet4Show(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fbaseunit: Tfbaseunit;
  sitenewormod: string;   //库点信息输入或修改
  depotnewormod: string;  //仓库信息输入或修改
  fdpnewormod: string;    //货位信息输入或修改
  siteid: integer;

  dsiteid: integer;
  depotid: integer;

  fsiteid: integer;
  fdepotid: integer;
  fdpositionid: integer;
  unitid: integer;     //放入全局变量unit_id

  qrydepotsql:string;  //qrydepot的sql语句
  qryfdsql:string ;    //qryfdposition的sql语句
implementation

uses UnitDataModul,global;

{$R *.dfm}

procedure Tfbaseunit.FormCreate(Sender: TObject);
begin
  unitid:=global.g_user.UnitID;

  qryunit.Close;
  qryunit.Open;

  qrysite.ParamByName('unitid').AsInteger :=unitid;
  qrysite.Close;
  qrysite.Open;

  qrydepot.ParamByName('unitid').AsInteger :=unitid;
  qrydepot.Close;
  qrydepot.Open;

  qryfdposition.ParamByName('unitid').AsInteger :=unitid;
  qryfdposition.Close;
  qryfdposition.Open;


  edit1.Enabled :=false;
  edit2.Enabled :=false;
  edit3.Enabled :=false;
  memo1.Enabled :=false;
  unitquery.ParamByName('unit_id').AsInteger :=unitid;
  unitquery.Close;
  unitquery.Open;
  statictext1.Caption :=inttostr(unitid);
  statictext2.Caption :=unitquery.fieldbyname('unit_name').AsString ;

  dblookupcombobox1.Enabled :=false;
  dblookupcombobox2.Enabled :=false;
  edit4.Enabled :=false;
  edit5.Enabled :=false;
  edit6.Enabled :=false;
  dblookupcombobox3.Enabled :=false;
  memo2.Enabled :=false;
  statictext4.Caption :=inttostr(unitid);
  statictext3.Caption :=unitquery.fieldbyname('unit_name').AsString ;

  depottypequery.Open;
  dblookupcombobox4.Enabled :=false;
  dblookupcombobox5.Enabled :=false;
  dblookupcombobox6.Enabled :=false;
  dblookupcombobox7.Enabled :=false;
  edit7.Enabled :=false;
  edit8.Enabled :=false;
  edit9.Enabled :=false;
  memo3.Enabled :=false;
  statictext6.Caption :=inttostr(unitid);
  statictext5.Caption :=unitquery.fieldbyname('unit_name').AsString ;

  sitequery.ParamByName('unit_id').AsInteger :=unitid;
  sitequery.Close;
  sitequery.Open;

  query9.ParamByName('unit_id').AsInteger :=unitid;
  query9.Close;
  query9.Open;

  qrydepotsql:=qrydepot.SQL.Text ;
  qryfdsql:=qryfdposition.SQL.Text ;
end;


procedure Tfbaseunit.siteaddBitBtnClick(Sender: TObject);
begin
   sitenewormod:='insert' ;
   edit1.Enabled :=true;
   edit2.Enabled :=true;
   edit3.Enabled :=true;
   memo1.Enabled :=true;
   edit1.Text :='';
   edit2.Text :='';
   edit3.Text :='';
   memo1.Text :='';
   sitedelbitbtn.Enabled :=false;
   sitemodbitbtn.Enabled :=false;
end;

procedure Tfbaseunit.sitedelBitBtnClick(Sender: TObject);
begin
   if qrysite.IsEmpty then
    begin
    application.MessageBox('没有库点信息可供删除!','删除库点信息时出错',MB_OK+MB_ICONEXCLAMATION);
    Exit;
    end;

   query7.ParamByName('unit_id').AsInteger :=unitid;
   query7.ParamByName('site_id').AsInteger :=siteid;
   query7.Close;
   query7.Open;
   if not query7.IsEmpty then
    begin
    application.MessageBox('请先在仓库信息中删除该库点中的仓库!','不能删除',MB_OK+MB_ICONEXCLAMATION);
    exit;
    end;

    if MessageDlg('确实要删除这条库点信息?',mtInformation,[mbYes,mbNo],0)=mrYes then
      begin
      dtmdl.Database1.StartTransaction;
      siteDelQuery.ParamByName('unit_id').AsInteger :=unitid;
      sitedelquery.ParamByName('site_id').AsInteger :=siteid;

      try
      siteDelQuery.ExecSQL;
      except
      dtmdl.Database1.Rollback;
      Application.MessageBox('删除库点信息出错!','系统错误',MB_OK+MB_ICONERROR);
      Exit;
      end;
      dtmdl.Database1.Commit;
      qrysite.Close;
      qrysite.Open;
   end;
end;

procedure Tfbaseunit.sitemodBitBtnClick(Sender: TObject);
begin
   sitenewormod:='modify';
//   edit1.Enabled :=true;
   edit2.Enabled :=true;
   edit3.Enabled :=true;
   memo1.Enabled :=true;
   sitedelbitbtn.Enabled :=false;
   siteaddbitbtn.Enabled :=false;
end;

procedure Tfbaseunit.sitesavBitBtnClick(Sender: TObject);
begin
     if edit1.Text ='' then
     begin
     showmessage('必须输入库点编号!');
     edit1.SetFocus ;
     exit;
     end;