mainform.~pas

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

procedure TFrmMain.N66Click(Sender: TObject);
var pattr : PChar;
    i : integer;
    s,Unit_ID : string;
begin
  i:=g_user.UnitID;
  s := '特种储备';
  pattr := PChar(s);
  if not TestRptDataisNull(i,pattr) then exit;
  US_CreateReport2(i,pattr);
  US_FreeReport2;
end;

procedure TFrmMain.N67Click(Sender: TObject);
var pattr : PChar;
    i : integer;
    s,Unit_ID : string;
begin
        i:=g_user.UnitID;
        s := '地方周转';
        pattr := PChar(s);
        if not TestRptDataisNull(i,pattr) then exit;
        US_CreateReport2(i,pattr);
        US_FreeReport2;
end;

procedure TFrmMain.N68Click(Sender: TObject);
var pattr : PChar;
    i : integer;
    s,Unit_ID : string;
begin
        i:=g_user.UnitID;
        //i := 10000+StrToInt(Unit_ID);
        s := '省代储';
        pattr := PChar(s);
        if not TestRptDataisNull(i,pattr) then exit;
        US_CreateReport2(i,pattr);
        US_FreeReport2;
end;


procedure TFrmMain.Timer1Timer(Sender: TObject);
begin
  StatusBar1.Panels[7].Text:=datetimetostr(now);
end;

procedure TFrmMain.FormShow(Sender: TObject);
begin
  StatusBar1.Panels[3].text:=Global.g_user.UnitName;
  StatusBar1.Panels[5].Text:=Global.g_user.UserName;
end;

procedure TFrmMain.N4Click(Sender: TObject);
begin

  FUnitbase := TFUnitbase.Create(self);
  FUnitbase.ShowModal ;
end;

procedure TFrmMain.N69Click(Sender: TObject);
begin
  fmakesale :=Tfmakesale.Create(self);
  fmakesale.Show;
end;

procedure TFrmMain.N5Click(Sender: TObject);
begin
  fmakenotice :=Tfmakenotice.Create(self);
   fmakenotice.ShowModal ;
end;

procedure TFrmMain.NServerClick(Sender: TObject);
begin
//  ghmserverForm.Show;
//  setwindowpos(ghmserverForm.Handle,HWND_TOPMOST,ghmserverForm.Left,ghmserverForm.Top,ghmserverForm.Width,ghmserverForm.Height,0);
end;

procedure TFrmMain.NClientClick(Sender: TObject);
begin
//  ghmclientForm.Show;
//setwindowpos(ghmclientForm.Handle,HWND_TOPMOST,ghmclientForm.Left,ghmclientForm.Top,ghmclientForm.Width,ghmclientForm.Height,0);
end;

procedure TFrmMain.N70Click(Sender: TObject);
begin
   fmakesale :=Tfmakesale.Create(self);
   fmakesale.ShowModal ;
end;

procedure TFrmMain.N27Click(Sender: TObject);
begin
   fsalequery :=Tfsalequery.Create(self);
   fsalequery.ShowModal ;
end;

procedure TFrmMain.N14Click(Sender: TObject);
begin
   fstockquery :=Tfstockquery.Create(self);
   fstockquery.ShowModal ;
end;

procedure TFrmMain.N71Click(Sender: TObject);
var p : PChar;
    s : string;
begin
  s:='代储';
  p:= PChar(s);
  if not TestRpt1Dataisnull(p) then exit;
  CreateReport_1(p);
  FreeReport_1;
end;

procedure TFrmMain.N72Click(Sender: TObject);
var p : PChar;
    s : string;
begin
  s:='地方周转';
  p:= PChar(s);
  CreateReport_1(p);
  FreeReport_1;
end;

procedure TFrmMain.N73Click(Sender: TObject);
var p : PChar;
    s : string;
begin
  s:='定购粮';
  p:= PChar(s);
  if not TestRpt1Dataisnull(p) then exit;
  CreateReport_1(p);
  FreeReport_1;
end;

procedure TFrmMain.N74Click(Sender: TObject);
var p : PChar;
    s : string;
begin
  s:='国家储备';
  p:= PChar(s);
  if not TestRpt1Dataisnull(p) then exit;
  CreateReport_1(p);
  FreeReport_1;
end;

procedure TFrmMain.N75Click(Sender: TObject);
var p : PChar;
    s : string;
begin
  s:='省代储';
  p:= PChar(s);
  if not TestRpt1Dataisnull(p) then exit;
  CreateReport_1(p);
  FreeReport_1;
end;

procedure TFrmMain.N76Click(Sender: TObject);
var p : PChar;
    s : string;
begin
  s:='市级储备';
  p:= PChar(s);
  if not TestRpt1Dataisnull(p) then exit;
  CreateReport_1(p);
  FreeReport_1;
end;
procedure TFrmMain.N77Click(Sender: TObject);
var p : PChar;
    s : string;
begin
  s:='特种储备';
  p:= PChar(s);
  if not TestRpt1Dataisnull(p) then exit;
  CreateReport_1(p);
  FreeReport_1;
end;

procedure TFrmMain.N18Click(Sender: TObject);
begin
   Fnoticequery :=TFnoticequery.Create(self);
   Fnoticequery.ShowModal ;
end;

procedure TFrmMain.N15Click(Sender: TObject);
begin
   fpackagequery :=Tfpackagequery.Create(self);
   fpackagequery.ShowModal ;
end;

procedure TFrmMain.N17Click(Sender: TObject);
begin
   fqualityquery :=Tfqualityquery.Create(self);
   fqualityquery.ShowModal ;
end;

procedure TFrmMain.N82Click(Sender: TObject);
begin
  FUser := TFuser.Create(self);
  Fuser.Show;
end;

procedure TFrmMain.N20Click(Sender: TObject);
begin
 fbaseunit:= Tfbaseunit.Create(self);
 fbaseunit.ShowModal ;
end;

procedure TFrmMain.N28Click(Sender: TObject);
begin
 fbasefood:= Tfbasefood.Create(self);
 fbasefood.ShowModal ;
end;

procedure TFrmMain.N22Click(Sender: TObject);
begin
 fuser:= Tfuser.Create(self);
 fuser.ShowModal ;
end;

procedure TFrmMain.N83Click(Sender: TObject);
begin
 frmsetup:= Tfrmsetup.Create(self);
 frmsetup.ShowModal ;
end;

procedure TFrmMain.N79Click(Sender: TObject);
begin
  frmRpt2_Unitsel:=TfrmRpt2_Unitsel.Create(nil);
  frmRpt2_Unitsel.ShowModal;
  frmRpt2_Unitsel.Free;
end;

procedure TFrmMain.N80Click(Sender: TObject);
begin
  FrmAdjustAttr := TFrmAdjustAttr.Create(Application);
  FrmAdjustAttr.Show;
end;

procedure TFrmMain.N8Click(Sender: TObject);
begin
  FrmAdjustAttrDispose := TFrmAdjustAttrDispose.Create(Application);
  FrmAdjustAttrDispose.Show;
end;

procedure TFrmMain.DoEnterAsTab(var Msg:TMsg; var Handled:Boolean);
begin
  if Msg.message=WM_KEYDOWN then
  begin
    if Msg.wParam=VK_RETURN then
      Keybd_event(VK_TAB,0,0,0);
  end;
end;


procedure TFrmMain.N23Click(Sender: TObject);
begin
  FrmStack := TFrmStack.Create(Application);
  FrmStack.Show;
end;

procedure TFrmMain.N34Click(Sender: TObject);
begin
  frmRptMonth:=TfrmRptMonth.Create(nil);
  frmRptMonth.ShowModal;
  frmRptMonth.Free;
end;

procedure TFrmMain.N31Click(Sender: TObject);
begin
  FrmFlag:='入库移库单窗口';
  FrmTransferStore := TFrmTransferStore.Create(Application);
  FrmTransferStore.Show;
end;

procedure TFrmMain.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  //重新指定窗口类名
  Params.WinClassName := myappname;

end;

procedure TFrmMain.RestoreRequest(var message: TMessage);
begin
  if IsIconic(Application.Handle) = TRUE then
    Application.Restore
  else
   Application.BringToFront;
end;

function TFrmMain.TestRpt1Dataisnull(const pAttr: PChar): boolean;
var
  us_qry  : TQuery;
  sUID,sAttr:string;
begin
  us_qry := TQuery.Create(nil);
  us_qry.DatabaseName := 'LYDB';
  sAttr := pAttr;
  s:=' SELECT id=t1.Unit_iD,t2.UNIT_NAME,IN_FOOD, price=isnull(price,0) ,Total=isnull(SUM(storage),0) '+
     ' FROM ENT_INSTACK t1,ENT_UNIT_INFO t2  WHERE     t1.UNIT_ID=t2.UNIT_ID '+
     ' AND ATTRIBUTE='''+sAttr+''''+
     ' GROUP BY t1.Unit_iD,t2.UNIT_NAME,IN_FOOD,price ';
  us_qry.SQL.Clear;
  us_qry.SQL.Add(s);
  us_qry.Open;
  if Us_qry.IsEmpty  then
  begin
    application.MessageBox('没有生成该报表的数据！','报表',MB_OK+MB_ICONEXCLAMATION);
    result:=false;
  end
  else
    result:=true; 
end;

function TFrmMain.TestRptDataisNull(iUID: integer;
  const pAttr: PChar): boolean;
var
  us_qry  : TQuery;
  sUID,sAttr:string;
begin
  us_qry := TQuery.Create(nil);
  us_qry.DatabaseName := 'LYDB';
  sUID:=inttostr(iUID);
  sAttr := pAttr;
  s:=' select t1.in_food,IY=year(IN_TIME) ,FS=sum(STORAGE) '+
          '  from ENT_INSTACK t1,ENT_DEPOT_INFO t2  '+
          '  where t1.Unit_ID='+sUID+'  and t1.Unit_ID=t2.Unit_ID and t1.Site_ID=t2.Site_ID and t1.Depot_ID=t2.Depot_ID '+
          '  and t1.ATTRIBUTE='''+sAttr+''' '+
          '  group by t1.in_food,year(IN_TIME) '+
          '  order by t1.in_food  ';
  us_qry.SQL.Clear;
  us_qry.SQL.Add(s);
  us_qry.Open;
  if Us_qry.IsEmpty  then
  begin
    application.MessageBox('没有生成该报表的数据！','报表',MB_OK+MB_ICONEXCLAMATION);
    result:=false;
  end
  else
    result:=true;


end;

end.