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


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;
    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;
    DBEdit3: TDBEdit;
    Label22: TLabel;
    DBEdit4: TDBEdit;
    DateTimePicker1: TDateTimePicker;
    DBEdit5: TDBEdit;
    PrintDBGridEh1: TPrintDBGridEh;
    DBGridEh1: TDBGridEh;
    BitBtn15: TBitBtn;
    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 DBGridEh1ColumnMoved(Sender: TObject; FromIndex,
      ToIndex: Integer);
    procedure BitBtn15Click(Sender: TObject);
    procedure DBGridEh1Enter(Sender: TObject);
    procedure DBGridEh1CellClick(Column: TColumnEh);
    procedure DBEdit4Change(Sender: TObject);
    procedure DataSource2DataChange(Sender: TObject; Field: TField);
    procedure DataSource2StateChange(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure DBGridEh1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  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, UCxcCol, Uxsrbfind;

{$R *.DFM}

procedure Tfrmxsrb.DBGridEh1ColEnter(Sender: TObject);
var
    m:integer;
    i:integer;
    //f:double;
    s:string;
    n :array [1..15] of integer;
begin
    // s:=''''+''+'''';
    if dbgrideh1.readonly=true then exit;
    if (uppercase(dbgrideh1.Columns.Grid.SelectedField.FieldName)=uppercase('nGoodName')) then
    begin
          dbgrideh1.Columns.Items[dbgrideh1.Columns.Grid.SelectedIndex].AlwaysShowEditButton :=true   ;
          dbgrideh1.Columns.Items[dbgrideh1.Columns.Grid.SelectedIndex].AutoDropDown :=true    ;
          dbgrideh1.Columns.Items[dbgrideh1.Columns.Grid.SelectedIndex].ButtonStyle  :=cbsDropDown;
    end;
   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
   FrmCkcol:=TFrmCkcol.Create(nil);
   FrmCkcol.ShowModal ;
   if (FrmCkcol.ModalResult=mrok)   then
     begin
           Frmset:= TFrmset.Create(nil);
           frmset.Caption :='项目设置';
            Frmset.Tag:=1;
   readset(Frmset.LstSet,'s_qrdetail','11','location='+''''+'d'+'''' +' and  kc_cktag='+''''+Trim(FrmCkcol.dbedit1.text)+'''');
   Frmset.Label1.Caption:='销售日报项目';
   Frmset.ShowModal;
   if   (Frmset.ModalResult=mrOk) then
   begin
      reset(Frmset.LstSet,'s_qrdetail','11','location='+''''+'d'+''''+'  and   kc_cktag='+''''+Trim(FrmCkcol.dbedit1.text)+'''');
     if (Trim(FrmCkcol.dbedit1.text)=trim(dbedit4.text)) then
     Seek(DBGridEh1,'s_qrdetail', '11','Sys_Cust_view','location='+''''+'d'+'''' +' and  kc_cktag='+''''+Trim(FrmCkcol.dbedit1.text)+'''');
//      dbgrideh1.Columns.Items[0].AlwaysShowEditButton :=true   ;
//      dbgrideh1.Columns.Items[0].AutoDropDown :=true    ;
//      dbgrideh1.Columns.Items[0].ButtonStyle  :=cbsDropDown;
   end;
   Frmset.free;
    end;
   

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;

    action:=cafree;
     frmxsrb:=nil;
end;

procedure Tfrmxsrb.BitBtn4Click(Sender: TObject);
const
   w: array [0..11]of boolean=(true,true,false,false,false,true,true,true,true,false,false,true);
   var s:string;
begin
   act:=add;
   s:='';
   ButEnabled(toolbar1,w);
   with dm.adoxsrbm do
   begin
         close;
         sql.clear;
         sql.add('select * from kc_goodmaster where nbillid='''+s+'''');
         open;
    end;
   dm.Adoxsrbm.append;
   dbedit1.Text :=MyGetCode(04,false);
   dm.Adoxsrbm.Edit;
   dm.adoxsrbd.close;
   dbgrideh1.columns.clear;

   dbedit1.Text :=MyGetCode(04,false);
   dbedit5.Text :=username;
   DateTimePicker1.Date:=date;
   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 trim(dbedit4.text)='' then
     begin;
          Application.MessageBox('商场不能为空','信息提示',64);
          dm.ADOConnection.RollbackTrans ;
          exit;
     end;
     dm.adoxsrbd.append;
     dm.adoxsrbd.delete;
     if (dm.adoxsrbd.RecordCount<=0) then
     begin
          Application.MessageBox('记录不能为空！！','信息提示',64);
          dm.ADOConnection.RollbackTrans ;
          exit;
     end;
      try
        dm.adoxsrbd.edit ;
        dm.adoxsrbd.post;

       except
       end;
         dm.adoxsrbd.UpdateBatch ;
         dm.Adoxsrbm.edit;
         if act=add then 
         begin
         dm.Adoxsrbm.FieldByName('nywtype').asstring:='销售出库';
         dm.Adoxsrbm.FieldByName('nsfttype').asstring:='00030001';
         dm.Adoxsrbm.FieldByName('nywman').asstring:=dbedit5.text;
        end; 

        dm.Adoxsrbm.FieldByName('ndaterk').asstring:=FormatDateTime('yyyy-mm-dd',DateTimePicker1.DateTime);


         dm.Adoxsrbm.edit ;
         dm.Adoxsrbm.post;
       dm.ADOConnection.CommitTrans ;


     //dm.adoxsrbm.close;
      //dm.adoxsrbd.close;
     Application.MessageBox('保存成功！','信息提示',64);
     MyGetCode(04,true);
     ButEnabled(toolbar1,w);
     dbGrideh1.ReadOnly :=true;
     DateTimePicker1.Enabled :=false;
     dbedit5.enabled:=false;
     dbedit2.enabled:=false;
     DBLookupComboBox1.enabled:=false;
     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.close ;
   dm.adoxsrbd.close ;
   dbgrideh1.Columns.clear;
   dbGrideh1.ReadOnly :=true;
   DateTimePicker1.Enabled :=false;
   dbedit5.enabled:=false;
   dbedit2.enabled:=false;
   DBLookupComboBox1.enabled:=false;
end;
procedure Tfrmxsrb.DBEdit1Change(Sender: TObject);