uxsrb.pas

相关的销售服务管理行业的一个软件

unit Uxsrb;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, DBCtrls, StdCtrls, Mask, ExtCtrls, Buttons, ToolWin, Grids,
  DBGridEh, Db,adodb, ImgList, EHGrids;


type
  www=(add,updat,delt);
  Tfrmxsrb = class(TForm)
    Panel4: TPanel;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ILMain: TImageList;
    ToolBar1: TToolBar;
    BtnAdd: TToolButton;
    BtnChange: TToolButton;
    BtnCancel: TToolButton;
    BtnSave: TToolButton;
    BtnAuditing: TToolButton;
    btnDelete: TToolButton;
    BtnSet: TToolButton;
    Separator1: TToolButton;
    BtnFirst: TToolButton;
    BtnPrevious: TToolButton;
    BtnNext: TToolButton;
    BtnLast: TToolButton;
    Separator2: TToolButton;
    BitPrint: TToolButton;
    BtnPreview: TToolButton;
    Separator3: TToolButton;
    BtnFiltrate: TToolButton;
    BtnExit: TToolButton;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label26: TLabel;
    Label29: TLabel;
    Label9: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Label10: TLabel;
    SpeedButton5: TSpeedButton;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit11: TDBEdit;
    DBRichEdit1: TDBRichEdit;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    DBCheckBox1: TDBCheckBox;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBEdit12: TDBEdit;
    Edit5: TEdit;
    Button1999: TButton;
    RepOrder: TStaticText;
    ProcCanChange: TADOStoredProc;
    Proc_NewBill: TADOStoredProc;
    ADOProc3: TADOStoredProc;
    ADOProc2: TADOStoredProc;
    ADOProc1: TADOStoredProc;
    QryLookUp: TADOQuery;
    QryLookUpName: TWideStringField;
    QryLookUpnGdUnit: TWideStringField;
    QryLookUpnGdGg: TWideStringField;
    QryLookUpnColor: TWideStringField;
    QryLookUpbGdBatch: TBooleanField;
    QryLookUpCode: TWideStringField;
    QryLookUpnGdAddCode: TWideStringField;
    DataSource3: TDataSource;
    QryDetail: TADOQuery;
    QryDetailnId: TAutoIncField;
    QryDetailnBillID: TWideStringField;
    QryDetailnGoodCode: TWideStringField;
    QryDetailnfsprice: TBCDField;
    QryDetailnFsCount: TBCDField;
    QryDetailnFsJine: TBCDField;
    QryDetailnPosition: TWideStringField;
    QryDetailnCus1: TWideStringField;
    QryDetailnCus2: TWideStringField;
    QryDetailnMemo: TWideStringField;
    QryDetailnbatch: TWideStringField;
    QryDetailbBatch: TBooleanField;
    QryDetailnGoodName: TStringField;
    QryDetailnUnit: TStringField;
    QryDetailnGDGg: TStringField;
    QryDetailnColor: TStringField;
    QryDetailnGdAddCode: TStringField;
    QryLoadField: TADOQuery;
    QryMaster: TADOQuery;
    DataSource4: TDataSource;
    ADOQSFtype: TADOQuery;
    Panel1: TPanel;
    Label7: TLabel;
    Label11: TLabel;
    Label22: TLabel;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    DBEdit8: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit9: TDBEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    DBGridEh1: TDBGridEh;
    procedure DBGridEh1ColEnter(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure DBEdit1Change(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGridEh1EditButtonClick(Sender: TObject);
    procedure BtnFindClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
     TmpBillID:String;
   
    procedure GetTmpBillID();
   // procedure LoadPosition();
  //  procedure LdCusColumn();
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmxsrb: Tfrmxsrb;
    act:www;
implementation

uses Uset, Ufunction, SYS_DataModal, U_DM, UJhMaterialName, URBFind,
  import1, Umain, UDataVar;

{$R *.DFM}
procedure Tfrmxsrb.GetTmpBillID;                               //
begin
  ADOProc3.Close;

  ADOProc3.Parameters.ParamByName('@Type').Value:='销售出库';
  ADOProc3.Parameters.ParamByName('@nDate').Value:=sdate;
  ADOProc3.Parameters.ParamByName('@Code').Value:='aa';

  ADOProc3.ExecProc;

  TmpBillID:=trim(ADOProc3.Parameters.ParamByName('@Code').Value);

end;

procedure Tfrmxsrb.DBGridEh1ColEnter(Sender: TObject);
var
    m:integer;
    //f:double;
    n :array [1..15] of integer;
begin
   dm.adoxsrbd.edit;
   n[1]:= dm.adoxsrbd.FieldByName('ndd1').Asinteger;
   n[2]:= dm.adoxsrbd.FieldByName('ndd2').Asinteger;
   n[3]:= dm.adoxsrbd.FieldByName('ndd3').Asinteger;
   n[4]:= dm.adoxsrbd.FieldByName('ndd4').Asinteger;
   n[5]:= dm.adoxsrbd.FieldByName('ndd5').Asinteger;
   n[6]:= dm.adoxsrbd.FieldByName('ndd6').Asinteger;
   n[7]:= dm.adoxsrbd.FieldByName('ndd7').Asinteger;
   n[8]:= dm.adoxsrbd.FieldByName('ndd8').Asinteger;
   n[9]:= dm.adoxsrbd.FieldByName('ndd9').Asinteger;
   n[10]:= dm.adoxsrbd.FieldByName('ndd10').Asinteger;
   n[11]:= dm.adoxsrbd.FieldByName('ndd11').Asinteger;
   n[12]:= dm.adoxsrbd.FieldByName('ndd12').Asinteger;
   n[13]:= dm.adoxsrbd.FieldByName('ndd13').Asinteger;
   n[14]:= dm.adoxsrbd.FieldByName('ndd14').Asinteger;
   n[15]:= dm.adoxsrbd.FieldByName('ndd15').Asinteger;
   m:=n[1]+n[2]+n[3]+n[4]+n[5]+n[6]+n[7]+n[8]+n[9]+n[10]+n[11]+n[12]+n[13];

   dm.adoxsrbd.FieldByName('ntotal').Asfloat:=m*dm.adoxsrbd.FieldByName('nprice').Asfloat;
   dm.adoxsrbd.fieldbyname('amount').asinteger:=m;
end;

procedure Tfrmxsrb.BitBtn11Click(Sender: TObject);
begin
   Frmset:= TFrmset.Create(nil);
   frmset.Caption :='项目设置';
   Frmset.Tag:=1;
   readset(Frmset.LstSet,'s_qrdetail','600','location='+''''+'d'+'''');
   Frmset.Label1.Caption:='销售日报项目';
   Frmset.ShowModal;
   if   (Frmset.ModalResult=mrOk) then
   begin
      reset(Frmset.LstSet,'s_qrdetail','600',' 1=1 ');
      Seek(DBGridEh1,'s_qrdetail', '600','Sys_Cust_view','location='+''''+'d'+'''');
      dbgrideh1.Columns.Items[0].AlwaysShowEditButton :=true   ;
      dbgrideh1.Columns.Items[0].AutoDropDown :=true    ;
      dbgrideh1.Columns.Items[0].ButtonStyle  :=cbsDropDown;
   end;
   Frmset.free;
end;

procedure Tfrmxsrb.BitBtn5Click(Sender: TObject);
begin
   close;
   
end;

procedure Tfrmxsrb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Frmmain.Outlook1.Visible :=true;
   frmmain.Panel1.Visible:=true;
   Frmmain.Panel2.Visible:=True;
    frmxsrb:=nil;
    action:=cafree;
end;

procedure Tfrmxsrb.BitBtn4Click(Sender: TObject);
const
   w: array [0..11]of boolean=(false,false,false,false,false,true,true,true,true,false,true,true);
begin
   act:=add;
   ButEnabled(toolbar1,w);
   dm.adoxsrbm.open;
   dm.Adoxsrbm.append;
   dm.Adoxsrbm.Edit;
   dbedit1.Text :=MyGetCode(50,false);
   dbGrideh1.ReadOnly :=false;
end;

procedure Tfrmxsrb.BitBtn7Click(Sender: TObject);
begin
     dm.adoxsrbd.Append;
end;

procedure Tfrmxsrb.BitBtn9Click(Sender: TObject);
begin
     dm.adoxsrbd.Delete;
end;

procedure Tfrmxsrb.BitBtn2Click(Sender: TObject);
const
   w: array [0..11]of boolean=(true,true,true,true,true,false,false,false,false,true,true,true);
begin
   {  dm.ADOConnection.BeginTrans ;
     try
     if (act=add) then
     begin
          {addquery:=TADOquery.Create(nil);
          addquery.Connection := DataCggl.ADOcgjh ;
          with addquery do
          begin
              close;
              sql.clear;
              sql.add('insert into CG_jhdanz (Jhnumber) values ('+''''+trim(edit1.text)+''''+')');
              execsql;
          end;
          addquery.free;  }
          //showmessage(Datetostr(DateTimePicker1.date));
          //dm.Adoxsrbm.FieldByName('drbdate').asstring:=Datetostr(DateTimePicker1.date);
   {       dm.Adoxsrbm.FieldByName('drbdate').asstring:=Datetostr(DateTimePicker1.date);
     end;
     dm.adoxsrbm.UpdateBatch ;
     dm.adoxsrbd.UpdateBatch ;
     if (dm.adoxsrbd.RecordCount<=0) then
     begin
          Application.MessageBox('记录不能为空！！','信息提示',64);
          dm.ADOConnection.RollbackTrans ;
          exit;
     end;
     dm.ADOConnection.CommitTrans ;
     Application.MessageBox('保存成功！','信息提示',64);
     MyGetCode(50,true);
     ButEnabled(toolbar1,w);
     dbGrideh1.ReadOnly :=true;
     except
       dm.ADOConnection.RollbackTrans ;
       Application.MessageBox('保存失败！必填项不能为空','错误提示',0+16);
     end;  }
end;

procedure Tfrmxsrb.BitBtn8Click(Sender: TObject);
const
   w: array [0..11]of boolean=(true,true,true,true,true,false,false,false,false,true,true,true);
begin
   ButEnabled(toolbar1,w);
   dm.Adoxsrbm.CancelUpdates ;
   dm.Adoxsrbd.CancelUpdates ;
   dbGrideh1.ReadOnly :=true;
end;
procedure Tfrmxsrb.DBEdit1Change(Sender: TObject);
begin
  edit1.text:=dbedit1.text;
   with dm.adoxsrbd do
   begin
      close;
      sql.Clear ;
      sql.Add('select * from xs_rbd where id='+''''+trim(dbEdit1.text)+'''');
      open;
   end;

end;

procedure Tfrmxsrb.BitBtn6Click(Sender: TObject);
const
   w: array [0..11]of boolean=(false,false,false,false,false,true,true,true,true,false,true,true);
var
   kcquery:TADOQuery;
   dquery:TADOQuery;
begin
   if Application.MessageBox('是否删除？','信息提示',Mb_okcancel+64) = IdOk then
   begin
     dm.adoconnection.BeginTrans ;
     kcquery:=TADOQuery.Create(nil);
     kcquery.Connection :=dm.adoconnection;
     with kcquery do
     begin
       close;
       sql.Clear ;
       sql.Add('delete from xs_rbm where sxsrbno='+''''+Trim(dbEdit1.text)+'''');
     end;
     dquery:=TADOQuery.Create(nil);
     dquery.Connection :=dm.adoconnection;
     with dquery do
     begin
       close;
       sql.Clear ;
       sql.Add('delete from xs_rbd where id='+''''+Trim(dbEdit1.text)+'''');
     end;

     try
       dquery.ExecSQL ;
       kcquery.ExecSQL ;
       dm.adoconnection.CommitTrans ;
       Application.MessageBox('删除成功！','信息提示',64);
       kcquery.Free;
       dquery.free;
       dm.Adoxsrbm.close;
       dm.adoxsrbd.close;
     except
       Application.MessageBox('删除失败！','错误提示',0+16);
       dquery.free;
       kcquery.free;
       dm.adoconnection.RollbackTrans ;
     end;
   end;
end;

procedure Tfrmxsrb.BitBtn3Click(Sender: TObject);
const
   w: array [0..11]of boolean=(false,false,false,false,false,true,true,true,true,false,true,true);
begin
   if (Trim(dbEdit1.Text)<>'') then
   begin
       dbgrideh1.ReadOnly :=false;
       dm.adoxsrbd.edit;
       ButEnabled(toolbar1,w);
       act:=updat
   end;
end;
procedure Tfrmxsrb.FormCreate(Sender: TObject);
begin
  //  Seek(DBGridEh1,'s_qrdetail', '600','xs_rbd','location='+''''+'d'+'''');
    dbgrideh1.Columns.Items[0].AlwaysShowEditButton :=true   ;
    dbgrideh1.Columns.Items[0].AutoDropDown :=true    ;
    dbgrideh1.Columns.Items[0].ButtonStyle  :=cbsDropDown;
end;

procedure Tfrmxsrb.DBGridEh1EditButtonClick(Sender: TObject);
var
  Mn:string;
  Cn,dw,spec,cgUnit:String;
  kcl: real;
begin
  if (DbgridEh1.ReadOnly =true) then exit;
  if (DbGridEh1.Columns.Grid.col = 1)  then
  begin
      FrmJhMaterialName:=TFrmJhMaterialName.Create(nil);
      FrmJhMaterialName.Tag:=1;
      FrmJhMaterialName.Drop(FrmJhMaterialName,dbgrideh1.InplaceEditor );
      FrmJhMaterialName.ShowModal;
      if (FrmJhMaterialName.ModalResult =2)  then
      begin
          dm.Adoxsrbd.edit;
          dm.adoxsrbd.fieldbyname('sgoodNo').AsString:=FrmJhMaterialName.ADOQuery1.FieldByName('nGdCode').AsString;
        //  JhQueryMaterialNoSetText(jhquery.fieldbyname('MaterialNo'),jhquery.fieldbyname('MaterialNo').AsString);
      end;
      FrmJhMaterialName.Free;
  end;
end;
procedure Tfrmxsrb.BtnFindClick(Sender: TObject);
begin
   FrmRbFind:= TFrmRBFind.Create(Application);
   FrmRBFind.ShowModal;
   if FrmRbFind.ModalResult=2 then
   begin
    if   dm.adoxsrbm.Active =false then
     dm.adoxsrbm.Open;
    if not (dm.adoxsrbm.Locate('sxsrbno',FrmRbFind.srecord,[loCaseInsensitive])) then
     begin
      Application.MessageBox(pchar('日报编号为：'+FrmRbFind.srecord+'的记录不存在！'),'错误',16);
      //Rb1.Close;
      //ADOQuery2.Close;
     end;
   end;
   frmrbfind.Free;
end;




procedure Tfrmxsrb.BitBtn1Click(Sender: TObject);
begin
       CreateReport(Application.Handle,DM.ADOConnection.ConnectionString,'600','0',
    TAdoQuery(DataSource1.DataSet),TAdoQuery(DataSource2.DataSet),true)      ;
end;

procedure Tfrmxsrb.BitBtn10Click(Sender: TObject);
begin
       CreateReport(Application.Handle,DM.ADOConnection.ConnectionString,'600','0' ,
    TAdoQuery(DataSource1.DataSet),TAdoQuery(DataSource2.DataSet),false)      ;
end;

procedure Tfrmxsrb.FormActivate(Sender: TObject);
begin
  frmmain.Outlook1.Visible:=False;
  frmmain.Panel1.Visible:=true;
  frmmain.Panel2.Visible:=false;
end;

end.