umakenotice.~pas

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

unit umakenotice;

interface

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

type
  Tfmakenotice = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    notelistDBGrid: TDBGrid;
    Label2: TLabel;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit2: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label9: TLabel;
    Memo1: TMemo;
    Panel2: TPanel;
    Label10: TLabel;
    Label11: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    okBitBtn: TBitBtn;
    cancelBitBtn: TBitBtn;
    exitBitBtn: TBitBtn;
    GroupBox2: TGroupBox;
    Label12: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    DBGrid2: TDBGrid;
    Panel3: TPanel;
    additemBitBtn: TBitBtn;
    deleteitemBitBtn: TBitBtn;
    modifyitemBitBtn: TBitBtn;
    cancelitemBitBtn: TBitBtn;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Edit8: TEdit;
    Edit9: TEdit;
    PopupMenu1: TPopupMenu;
    new: TMenuItem;
    modifynoty: TMenuItem;
    delnoty: TMenuItem;
    newruku: TMenuItem;
    newyiku: TMenuItem;
    notelistquery: TQuery;
    notelistDataSource: TDataSource;
    unittable: TTable;
    unitDataSource: TDataSource;
    unitDBLookupComboBox: TDBLookupComboBox;
    kudianDBLookupComboBox: TDBLookupComboBox;
    changhaoDBLookupComboBox: TDBLookupComboBox;
    huowuDBLookupComboBox: TDBLookupComboBox;
    fukuanDBLookupComboBox: TDBLookupComboBox;
    chubeiDBLookupComboBox: TDBLookupComboBox;
    guishuDBLookupComboBox: TDBLookupComboBox;
    huowuTable: TTable;
    fukuanTable: TTable;
    chubeiTable: TTable;
    guishuTable: TTable;
    kudianDataSource: TDataSource;
    changhaoDataSource: TDataSource;
    huowuDataSource: TDataSource;
    fukuanDataSource: TDataSource;
    chubeiDataSource: TDataSource;
    guishuDataSource: TDataSource;
    Label27: TLabel;
    yewuDBLookupComboBox: TDBLookupComboBox;
    yewuTable: TTable;
    yewuDataSource: TDataSource;
    maxnotquery: TQuery;
    newQuery: TQuery;
    updateQuery: TQuery;
    newwenhaoQuery: TQuery;
    updatewenhaoQuery: TQuery;
    NoticeQuery: TQuery;
    Edit10: TEdit;
    deletequery: TQuery;
    DeleteNotItemQuery: TQuery;
    newnotyitemquery: TQuery;
    deleteoneitemQuery: TQuery;
    notyitemQuery: TQuery;
    Label28: TLabel;
    Edit11: TEdit;
    notyitemlistQuery: TQuery;
    notyitemlistDataSource: TDataSource;
    updateitemQuery: TQuery;
    memo2: TMemo;
    planquery: TQuery;
    SpeedButton2: TSpeedButton;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    kudianQuery: TQuery;
    changkuQuery: TQuery;
    notelistqueryNOTY_ID: TIntegerField;
    notelistqueryNOTY_NO: TStringField;
    notelistqueryaaa: TStringField;
    ComboBox1: TComboBox;
    huoweiDBLookupComboBox: TDBLookupComboBox;
    Label13: TLabel;
    Label14: TLabel;
    Label32: TLabel;
    huoweiQuery: TQuery;
    huoweiDataSource: TDataSource;
    notelistquerybbb: TStringField;
    BitBtnall: TBitBtn;
    BitBtnnone: TBitBtn;
    BitBtndone: TBitBtn;
    BitBtnfew: TBitBtn;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure newrukuClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure okBitBtnClick(Sender: TObject);
    procedure newyikuClick(Sender: TObject);
    procedure cancelBitBtnClick(Sender: TObject);
    procedure modifynotyClick(Sender: TObject);
    procedure notelistqueryAfterScroll(DataSet: TDataSet);
    procedure delnotyClick(Sender: TObject);
    procedure additemBitBtnClick(Sender: TObject);
    procedure exitBitBtnClick(Sender: TObject);
    procedure deleteitemBitBtnClick(Sender: TObject);
    procedure notyitemlistQueryAfterScroll(DataSet: TDataSet);
    procedure modifyitemBitBtnClick(Sender: TObject);
    procedure cancelitemBitBtnClick(Sender: TObject);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure unitDBLookupComboBoxCloseUp(Sender: TObject);
    procedure kudianDBLookupComboBoxCloseUp(Sender: TObject);
    procedure changhaoDBLookupComboBoxCloseUp(Sender: TObject);
    procedure BitBtnallClick(Sender: TObject);
    procedure BitBtnnoneClick(Sender: TObject);
    procedure BitBtnfewClick(Sender: TObject);
    procedure BitBtndoneClick(Sender: TObject);
//    function checkstatus;
  private
    { Private declarations }
  public
   menupoint:Tpoint;
   QianFaDate:TDatetime;
   FrmPoint:TPoint;
   ExitQianFaDate:Boolean;
   NewItem:integer;
   UnitId:String;
   JiaGe:currency;
   ItemDepotId:string;
   ItemActualSum:single;
   ItemMoney:currency;
   ItemFee:currency;
  end;


var
  fmakenotice: Tfmakenotice;
  Newnotice:integer;
  MaxNotId:integer;
//  MaxItemId:integer;
  NotListId:integer;
  ItemListId:string;
  additemflag:integer;     //0第一次按插入键 ，1第二次按插入键
  notyid:integer;          //操作细目时的总目编号
  notelistquerystr:string; //notelistquery的原始query值
implementation
uses unitdatamodul, planid;

{$R *.dfm}

procedure Tfmakenotice.SpeedButton1Click(Sender: TObject);
begin
    PopupMenu1.Popup(ClientToScreen(fMakeNotice.MenuPoint).x,ClientToScreen(fMakeNotice.MenuPoint).y);
end;

procedure Tfmakenotice.FormActivate(Sender: TObject);
var unitnamec:string;
begin
  MenuPoint.x:=SpeedButton1.left+SpeedButton1.Width;
  MenuPoint.y:=SpeedButton1.Top;

  NoteListQuery.Close;
  NoteListQuery.Open;
  unittable.Open;
  huowutable.Open;
  fukuantable.Open;
  chubeitable.Open;
  guishutable.Open;
  yewutable.Open;

  unittable.First ;
  while not unittable.Eof do
  begin
  unitnamec:=unittable.fieldbyname('unit_name').AsString ;
  combobox1.Items.Add(unitnamec);
  unittable.Next ;
  end;
end;

procedure Tfmakenotice.newrukuClick(Sender: TObject);
 var s:string;
begin
    Edit10.Enabled:=true;
    speedbutton2.Enabled :=true;
    Edit2.Enabled:=true;
    unitdblookupcombobox.Enabled:=true;
    combobox1.Enabled :=true;
    DateTimePicker2.Enabled:=true;
    DateTimePicker1.Enabled:=true;
    memo1.Enabled:=true;
    edit3.Enabled:=true;
    edit4.Enabled:=true;
    OkBitBtn.Enabled:=true;
    CancelBitBtn.Enabled:=true;
 //   exitBitBtn.Enabled:=true;
    edit8.Enabled:=true;
    edit9.Enabled:=true;
    Edit8.SetFocus;

    edit11.Enabled:=true;
//    kudianDBlookupCombobox.Enabled:=true;
//    changhaoDBlookupCombobox.Enabled:=true;
//    huoweidblookupcombobox.Enabled :=true;
    huowuDBlookupCombobox.Enabled:=true;
    fukuanDBlookupCombobox.Enabled:=true;
    chubeiDBlookupCombobox.Enabled:=true;
    guishuDBlookupCombobox.Enabled:=true;
    yewuDBlookupCombobox.Enabled:=true;
    edit5.Enabled:=true;
    edit6.Enabled:=true;
//    edit7.Enabled:=true;
    memo2.Enabled:=true;
    additembitbtn.Enabled:=false;
    deleteitembitbtn.Enabled:=false;
    modifyitembitbtn.Enabled:=false;
    cancelitembitbtn.Enabled:=false;

   Label2.Caption:='粮  油  入  库  通  知  单';
   Label4.Caption:='入库单位：';
   Label5.Caption:='供货单位：';
   Label7.Caption:='入库起讫时间：';

   NewNotice:=1; //新建入库通知;

   s:='select ID=MAX(NOTY_ID) from ENT_NOTY';
   MaxNotQuery.SQL.Clear;
   MaxNotQuery.SQL.Add(s);
   maxnotquery.Close;
   MaxNotQuery.Open;
   if MaxNotQuery.FieldByName('ID').AsInteger=0 then
       MaxNotId:=1
   else
    MaxNotId:=MaxNotQuery.FieldByName('ID').AsInteger+1;

    notyid:=maxnotid;

    Edit10.text:='';
    Edit2.text:='';
    unitdblookupcombobox.keyvalue:=null;
    combobox1.text:='';
    DateTimePicker2.DateTime:=date;
    DateTimePicker1.DateTime:=date;
    memo1.Text:='';
    edit3.text:='';
    edit4.text:='';
    edit8.text:='';
    edit9.text:='';

   edit11.Text:='';
   kudianDBLookupComboBox.keyvalue:=null;
   changhaoDBLookupComboBox.keyvalue:=null;
   huowuDBLookupComboBox.keyvalue:=null;
   fukuanDBLookupComboBox.keyvalue:=null;
   chubeiDBLookupComboBox.keyvalue:=null;
   guishuDBLookupComboBox.keyvalue:=null;
   yewuDBLookupComboBox.keyvalue:=null;
   edit5.text:='';
   edit6.text:='0';
   edit7.text:='';
   memo2.text:='';

   notyitemlistquery.Close;
end;

procedure Tfmakenotice.FormCreate(Sender: TObject);
begin
    notelistquerystr:='select NOTY_ID,NOTY_NO,case NOTY_TYPE when 1 then ''入库单'' when 2 then ''移库单'' end as aaa, case status when 0 then ''未处理'' when 1 then ''部分处理'' when 2 then ''已处理'' end as bbb from  ENT_NOTY ' ;
    Edit10.Enabled:=false;
    speedbutton2.Enabled :=false;
    Edit2.Enabled:=false;
    unitdblookupcombobox.Enabled :=false;
    combobox1.Enabled :=false;
    DateTimePicker2.Enabled:=false;
    DateTimePicker1.Enabled:=false;
    memo1.Enabled:=false;
    edit3.Enabled:=false;
    edit4.Enabled:=false;
    OkBitBtn.Enabled:=false;
    CancelBitBtn.Enabled:=false;
  //  exitBitBtn.Enabled:=false;
    edit8.Enabled:=false;
    edit9.Enabled:=false;

    edit11.Enabled:=false;
    kudianDBlookupCombobox.Enabled:=false;
    changhaoDBlookupCombobox.Enabled:=false;
    huoweidblookupcombobox.Enabled :=false;
    
    huowuDBlookupCombobox.Enabled:=false;
    fukuanDBlookupCombobox.Enabled:=false;
    chubeiDBlookupCombobox.Enabled:=false;
    guishuDBlookupCombobox.Enabled:=false;
    yewuDBlookupCombobox.Enabled:=false;

    edit5.Enabled:=false;
    edit6.Enabled:=false;
    edit7.Enabled:=false;
    memo2.Enabled:=false;


//    kudiandblookupcombobox.Enabled :=false;