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, EHGrids;


type
  www=(add,updat,delt);
  Tfrmxsrb = class(TForm)
    ToolBar1: TToolBar;
    BitBtn10: TBitBtn;
    BitBtn1: TBitBtn;
    ToolButton4: TToolButton;
    ToolButton3: TToolButton;
    BitBtn4: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn8: TBitBtn;
    ToolButton1: TToolButton;
    BtnFind: TBitBtn;
    ToolButton2: TToolButton;
    BitBtn11: TBitBtn;
    BitBtn5: TBitBtn;
    Panel4: TPanel;
    Label2: TLabel;
    Label6: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DBLookupComboBox1: TDBLookupComboBox;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    DBEdit3: TDBEdit;
    Label22: TLabel;
    DBEdit4: TDBEdit;
    QrDetail: TADOQuery;
    DBGridEh1: TDBGridEh;
    DateTimePicker1: TDateTimePicker;
    DBEdit5: TDBEdit;
    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 BitBtn1Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure DBEdit4Change(Sender: TObject);
    procedure DBGridEh1ColumnMoved(Sender: TObject; FromIndex,
      ToIndex: Integer);
    procedure BitBtn14Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure BitBtn15Click(Sender: TObject);
    procedure BtnFindClick(Sender: TObject);
    procedure DBGridEh1Enter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmxsrb: Tfrmxsrb;
    act:www;
implementation

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

{$R *.DFM}

procedure Tfrmxsrb.DBGridEh1ColEnter(Sender: TObject);
var
    m:integer;
    i:integer;
    //f:double;
    s:string;
    n :array [1..15] of integer;
begin
    // s:=''''+''+'''';

  
   dm.adoxsrbd.edit;
   try
    n[1]:= dm.adoxsrbd.FieldByName('ncus1').Asinteger;
   except
     dm.adoxsrbd.FieldByName('ncus1').Asinteger:=0;
     n[1]:= dm.adoxsrbd.FieldByName('ncus1').Asinteger;
   end;
   try
    n[2]:= dm.adoxsrbd.FieldByName('ncus2').Asinteger;
   except
    dm.adoxsrbd.FieldByName('ncus2').Asinteger:=0;
    n[2]:= dm.adoxsrbd.FieldByName('ncus2').Asinteger;
   end;
   try
     n[3]:= dm.adoxsrbd.FieldByName('ncus3').Asinteger;
   except
     dm.adoxsrbd.FieldByName('ncus3').Asinteger:=0;
     n[3]:= dm.adoxsrbd.FieldByName('ncus3').Asinteger;
   end;
   try
     n[4]:= dm.adoxsrbd.FieldByName('ncus4').Asinteger;
   except
     dm.adoxsrbd.FieldByName('ncus4').Asinteger:=0;
     n[4]:= dm.adoxsrbd.FieldByName('ncus4').Asinteger;
   end;
   try
     n[5]:= dm.adoxsrbd.FieldByName('ncus5').Asinteger;
   except
    dm.adoxsrbd.FieldByName('ncus5').Asinteger:=0;
    n[5]:= dm.adoxsrbd.FieldByName('ncus5').Asinteger;
   end;
   try
    n[6]:= dm.adoxsrbd.FieldByName('ncus6').Asinteger;
   except
    dm.adoxsrbd.FieldByName('ncus6').Asinteger:=0;
    n[6]:= dm.adoxsrbd.FieldByName('ncus6').Asinteger;
   end;
   try
     n[7]:= dm.adoxsrbd.FieldByName('ncus7').Asinteger;
   except
     dm.adoxsrbd.FieldByName('ncus7').Asinteger:=0;;
     n[7]:= dm.adoxsrbd.FieldByName('ncus7').Asinteger;
   end;
   try
    n[8]:= dm.adoxsrbd.FieldByName('ncus8').Asinteger;
   except
     dm.adoxsrbd.FieldByName('ncus8').Asinteger:=0;
    n[8]:= dm.adoxsrbd.FieldByName('ncus8').Asinteger;
   end;
   try
     n[9]:= dm.adoxsrbd.FieldByName('ncus9').Asinteger;
   except
     dm.adoxsrbd.FieldByName('ncus9').Asinteger:=0;
     n[9]:= dm.adoxsrbd.FieldByName('ncus9').Asinteger;
   end;
   try
    n[10]:= dm.adoxsrbd.FieldByName('ncus10').Asinteger;
   except
    dm.adoxsrbd.FieldByName('ncus10').Asinteger:=0;
    n[10]:= dm.adoxsrbd.FieldByName('ncus10').Asinteger;
   end;
   try
    n[11]:= dm.adoxsrbd.FieldByName('ncus11').Asinteger;
   except
    dm.adoxsrbd.FieldByName('ncus11').Asinteger:=0;
    n[11]:= dm.adoxsrbd.FieldByName('ncus11').Asinteger;
   end;
   try
      n[12]:= dm.adoxsrbd.FieldByName('ncus12').Asinteger;
   except
dm.adoxsrbd.FieldByName('ncus12').Asinteger:=0;
      n[12]:= dm.adoxsrbd.FieldByName('ncus12').Asinteger;
   end;
   try
   n[13]:= dm.adoxsrbd.FieldByName('ncus13').Asinteger;
   except
dm.adoxsrbd.FieldByName('ncus13').Asinteger:=0;
         n[13]:= dm.adoxsrbd.FieldByName('ncus13').Asinteger;
   end;
   try
   n[14]:= dm.adoxsrbd.FieldByName('ncus14').Asinteger;
   except
dm.adoxsrbd.FieldByName('ncus14').Asinteger:=0;
   n[14]:= dm.adoxsrbd.FieldByName('ncus14').Asinteger;
   end;
   try
   n[15]:= dm.adoxsrbd.FieldByName('ncus15').Asinteger;
   except
   dm.adoxsrbd.FieldByName('ncus15').Asinteger:=0;
   n[15]:= dm.adoxsrbd.FieldByName('ncus15').Asinteger;
   end;
   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('nfsjine').Asfloat:=m*dm.adoxsrbd.FieldByName('nfsprice').Asfloat;
   dm.adoxsrbd.fieldbyname('nfscount').asinteger:=m;
end;

procedure Tfrmxsrb.BitBtn11Click(Sender: TObject);
begin
   Frmset:= TFrmset.Create(nil);
   frmset.Caption :='项目设置';
   Frmset.Tag:=1;
   readset(Frmset.LstSet,'s_qrdetail','11','location='+''''+'d'+'''' +' and  kc_cktag='+''''+Trim(dbedit4.text)+'''');
   Frmset.Label1.Caption:='销售日报项目';
   Frmset.ShowModal;
   if   (Frmset.ModalResult=mrOk) then
   begin
      reset(Frmset.LstSet,'s_qrdetail','11','   kc_cktag='+''''+Trim(dbedit4.text)+''''); 
      Seek(DBGridEh1,'s_qrdetail', '11','Sys_Cust_view','location='+''''+'d'+'''' +' and  kc_cktag='+''''+Trim(dbedit4.text)+'''');
      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.append;
   dm.Adoxsrbm.Edit;
   dbedit1.Text :=MyGetCode(04,false);
   dbedit5.Text :=username;
   DateTimePicker1.Enabled :=true;
   dbedit5.enabled:=true;
   dbedit2.enabled:=true;
   DBLookupComboBox1.enabled:=true;
   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
        dm.Adoxsrbm.FieldByName('nywtype').asstring:='销售出库';
        dm.Adoxsrbm.FieldByName('nsfttype').asstring:='00030001';
        dm.Adoxsrbm.FieldByName('nywman').asstring:=dbedit5.text;
        dm.Adoxsrbm.FieldByName('ndaterk').asstring:=datetostr(DateTimePicker1.date);
     end;
     dm.adoxsrbd.UpdateBatch ;
     dm.adoxsrbm.UpdateBatch ;
     if (dm.adoxsrbd.RecordCount<=0) then