cjtjwh.pas

仓库管理信息系统

unit cjtjwh;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Grids, DBGridEh, DBCtrls, ExtCtrls,
  DBCtrlsEh, Mask, Buttons, FR_DSet, FR_DBSet, FR_Class;

type
  Tcjtzwhfrm = class(TForm)
    GroupBox1: TGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    dtp1: TDateTimePicker;
    dtp2: TDateTimePicker;
    Button1: TButton;
    Edit1: TEdit;
    GroupBox2: TGroupBox;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label7: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBDateTimeEditEh1: TDBDateTimeEditEh;
    Panel3: TPanel;
    DBNavigator1: TDBNavigator;
    BitBtn1: TBitBtn;
    DBEdit3: TDBEdit;
    GroupBox3: TGroupBox;
    Panel2: TPanel;
    DBNavigator2: TDBNavigator;
    DBGridEh1: TDBGridEh;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label10: TLabel;
    Label6: TLabel;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    frDBDataSet2: TfrDBDataSet;
    DBGridEh3: TDBGridEh;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGridEh1ColExit(Sender: TObject);
    procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure DBGridEh1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGridEh3DblClick(Sender: TObject);
    procedure DBDateTimeEditEh1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cjtzwhfrm: Tcjtzwhfrm;

implementation
  uses data, main;
{$R *.dfm}

procedure Tcjtzwhfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm.whcjtzads.Close;
dm.whtzmxads.Close;
dm.whclbmads.Filtered:=false;
action:=cafree;
cjtzwhfrm:=nil;
end;

procedure Tcjtzwhfrm.FormCreate(Sender: TObject);
var year,month,day:Word;
begin
decodedate(now,year,month,day);
if day>26 then
begin
  dtp1.Date:=EncodeDate(Year,Month,26);
  dtp2.Date:=incmonth(EncodeDate(Year,Month,25),1);
end
else
begin
  if month=1 then
  begin
    dtp1.Date:=EncodeDate(Year-1,12,26);
    dtp2.Date:=EncodeDate(Year,1,25);
  end
  else
  begin
    dtp1.Date:=EncodeDate(Year,Month-1,26);
    dtp2.Date:=EncodeDate(Year,Month,25);
  end;
end;
dm.whclbmads.Close;
dm.whclbmads.CommandText:='select * from CLDMB where 仓库ID='+''''+mainfrm.CKid+'''';
dm.whclbmads.Open;
dm.whcjtzads.Close;
dm.whcjtzads.CommandText:='select * from CJTZB where 仓库ID='+''''+mainfrm.CKid+'''';
dm.whcjtzads.Open;
DM.whtzmxads.Open;
dm.whclbmads.Filtered:=true;
dm.whcjtzads.Filter:='调整日期>='+FormatDateTime('yy-mm-dd',DTP1.Date)+
  ' and 调整日期<='+FormatDateTime('yy-mm-dd',DTP2.Date);
label11.Caption:='共有记录：'+inttostr(dm.whcjtzads.RecordCount)+'  ,第'+
   inttostr(dm.whcjtzads.RecNo)+'条记录';
dm.whcjtzads.Filtered:=true;
end;

procedure Tcjtzwhfrm.Button1Click(Sender: TObject);
var jcfilter,jctj:string;
begin
if (dm.whcjtzads.Modified) then
begin
   showmessage('请先保存记录,再执行查询');
   abort;
end;
jcfilter:='';
jctj:='';
dm.whcjtzads.Filter:='调整日期>='+FormatDateTime('yy-mm-dd',DTP1.Date)+
  ' and 调整日期<='+FormatDateTime('yy-mm-dd',DTP2.Date);
if trim(edit1.Text)<>'' then
   jcfilter:=jcfilter+' and 调整单号 = '+''''+
     trim(edit1.Text)+'''';
label11.Caption:='共有记录：'+inttostr(dm.whcjtzads.RecordCount)+'  ,第'+
   inttostr(dm.whcjtzads.RecNo)+'条记录';
end;

procedure Tcjtzwhfrm.BitBtn1Click(Sender: TObject);
begin
if dm.whcjtzads.Modified then
   dm.whcjtzads.Post;
if dm.whtzmxads.Modified then
   dm.whtzmxads.Post;
frreport1.LoadFromFile('cjtzdygs.frf');
frreport1.ShowReport;
end;

procedure Tcjtzwhfrm.DBGridEh1ColExit(Sender: TObject);
begin
if (dbgrideh1.SelectedField.FieldName='材料编码') then
begin
  dbgrideh3.Hide;
  if dm.whccmxads.Modified then
  begin
  if (dm.whtzmxads.FieldByName('材料编码').Value<>'') and
    (not dm.whtzmxads.FieldByName('材料编码').IsNull) then
  dm.whtzmxads.FieldByName('材料编码').Value:=
    uppercase(dm.whtzmxads.FieldByName('材料编码').Value);
  DM.whclbmads.Filter:='材料编码='+''''+
    dm.whtzmxads.FieldByName('材料编码').Value+'''';
  end;
end;

end;

procedure Tcjtzwhfrm.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
if (gdfocused in state) then
begin
   if (dbgrideh1.SelectedField.FieldName='材料编码') then
    begin
      dbgrideh3.SetBounds(rect.Left + dbgrideh1.Left + 1,rect.Top +dbgrideh1.Top +(rect.Bottom -rect.Top),
         rect.Right - rect.Left ,rect.Bottom -rect.Top+120);
    end;
end;
end;

procedure Tcjtzwhfrm.DBGridEh1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var str_cpxh:string;
begin
if (dbgrideh1.SelectedField.FieldName='材料编码') then
begin
if Key<>VK_ESCAPE then
begin
  str_cpxh:=uppercase(TRIM(dbgrideh1.InplaceEditor.EditText));
  if str_cpxh<>'' then
    DM.whclbmads.Filter:='材料编码 like %'+
    str_cpxh+'%'
  else
    DM.whclbmads.Filter:='';
  dbgrideh3.Show
end
else
   dbgrideh3.hide
end;
end;

procedure Tcjtzwhfrm.DBGridEh3DblClick(Sender: TObject);
begin
if dm.whclbmads.RecordCount>0 then
if dm.whtzmxads.Modified then
begin
  dm.whtzmxads.FieldByName('材料编码').Value:=
    dm.whclbmads.FieldByName('材料编码').Value;
  DM.whclbmads.Filter:='材料编码='+''''+
    dm.whtzmxads.FieldByName('材料编码').Value+'''';
end;
end;

procedure Tcjtzwhfrm.DBDateTimeEditEh1Change(Sender: TObject);
begin
if (DBDateTimeEditEh1.Value<dtp1.Date) or
   (DBDateTimeEditEh1.Value>dtp2.Date) then
   begin
   abort;
   end;
end;

end.