📄 uorder.~pas

📁 相关的销售服务管理行业的一个软件
💻 ~PAS
📖 第 1 页 / 共 2 页
字号:
12 下一页
unit Uorder;

interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, DBCtrls, StdCtrls, Buttons, Mask, Grids, DBGrids,
  ComCtrls, AppEvnts, ExtDlgs,jpeg,db, ADODB, Menus, EHGrids,QRCTRLS, DBGridEh;

type
  Tfrmorder = class(TForm)
    Panel1: TPanel;      Panel2: TPanel;    Label14: TLabel;    Label15: TLabel;
    Label16: TLabel;   Label19: TLabel;    Label20: TLabel;
    Label21: TLabel;     DBEdit2_2: TDBEdit;    DBEdit2_8: TDBEdit;    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;      BitBtn6: TBitBtn;      DBNavigator1: TDBNavigator;
    BitBtn11: TBitBtn;   Panel3: TPanel;        GroupBox1: TGroupBox;
    Label1: TLabel;      Label2: TLabel;    Label3: TLabel;
    BitBtn10: TBitBtn;  BitBtn12: TBitBtn;  BitBtn13: TBitBtn;
    DBEdit3_2: TDBEdit;  DBEdit3_3: TDBEdit; Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    DBEdit1_1: TDBEdit;
    DBEdit1_2: TDBEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DTP1: TDateTimePicker;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DTP2: TDateTimePicker;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    OpenPictureDialog1: TOpenPictureDialog;
    Label11: TLabel;
    Label12: TLabel;
    DBImage2: TDBImage;
    OpenPictureDialog2: TOpenPictureDialog;
    myAdo: TADOQuery;
    DBEdit2: TDBEdit;
    DataSource1: TDataSource;
    Label22: TLabel;
    BitBtn14: TBitBtn;
    DataSourceDD4: TDataSource;
    Panel5: TPanel;
    DBImage1: TDBImage;
    DSDD2: TDataSource;
    ADOQueryNDD2: TADOQuery;
    ADOQueryNDD3: TADOQuery;
    DataSourceDD3: TDataSource;
    DataSourceDD1: TDataSource;
    ImageSql: TADOQuery;
    ADOQueryNDD1: TADOQuery;
    DBEdit2_7: TDBEdit;
    Label18: TLabel;
    BitBtn9: TBitBtn;
    BitBtn7: TBitBtn;
    DBLookupComboBox1: TDBLookupComboBox;
    DSkh: TDataSource;
    ADOSPdelorder: TADOStoredProc;
    DSks: TDataSource;
    DSxx: TDataSource;
    DBLCBks: TDBLookupComboBox;
    DBLCB2: TDBLookupComboBox;
    DBLCBcolor: TDBLookupComboBox;
    DScolor: TDataSource;
    ADOQkh: TADOQuery;
    ADOQxx: TADOQuery;
    ADOcolor: TADOQuery;
    ADOQks: TADOQuery;
    BitBtn15: TBitBtn;
    ADOQuery1: TADOQuery;
    DSorder4: TDataSource;
    ADOQorder4: TADOQuery;
    DBEdit1: TDBEdit;
    BitBtn16: TBitBtn;
    ADOSPcal: TADOStoredProc;
    DBGridEh1: TDBGridEh;
    DBGridEh4: TDBGridEh;
    BitBtn8: TBitBtn;
    ADOQuerydy: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);    
    procedure BitBtn14Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure DBImage2DblClick(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure DBEdit3_3KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn15Click(Sender: TObject);
    procedure DSDD2DataChange(Sender: TObject; Field: TField);
    procedure DataSourceDD3DataChange(Sender: TObject; Field: TField);
    procedure BitBtn16Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
  private
     Flag:Boolean;
    { Private declarations }
  public
    procedure opendata(id1: string);
    { Public declarations }
  end;

var
  bl:string;
  frmorder: Tfrmorder;
  ks:string;
  FlagDD,flagpop1:boolean;
  RecNodd4: Integer;
  FlagSJ, strxy:string;
implementation
uses umain,U_DM, U_MXD, Udata, U_BZHFF, Uselorder, XS_PDingDan, js_cailiao;
{$R *.DFM}

procedure Tfrmorder.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DM.ADOQueryDD2.Active:=false;
  DM.ADOQueryDD3.Active:=false;
  ADOQkh.Close;
  ADOQks.Close;
  ADOQxx.Close;
  ADOcolor.close;

  Frmmain.Outlook1.Visible :=true;
  frmmain.Panel1.Visible:=true;
  Frmmain.Panel2.Visible:=True;
  frmmain.LTitle.Caption:='';
  frmorder:=nil;
  action:=cafree;
end;

procedure Tfrmorder.BitBtn1Click(Sender: TObject);
begin
  if DBEdit1_1.text='' then exit;
  if not ADOQueryNDD1.Active then exit;
  if ADOQueryNDD1.RecordCount <=0 then exit;
  try
    ADOQueryNDD1.Edit;
    ADOQueryNDD1.Append;
    DTP1.Date:=now;
    DBEdit1_1.SetFocus ;

    ADOQueryNDD2.close;
    ADOQueryNDD2.Parameters[0].Value :='';
    ADOQueryNDD2.Open;
   except
     Application.MessageBox('增加记录错误！','错误',16);
   end;
end;

procedure Tfrmorder.FormShow(Sender: TObject);
begin
  DBImage1.Picture :=nil;
  DBImage2.Picture :=nil;
  ADOQkh.Close;  ADOQkh.Open;
  ADOQks.Close;  ADOQks.Open;
  ADOQxx.Close;  ADOQxx.Open;
  ADOcolor.close; ADOcolor.open;

  opendata('');
  DBEdit2_8.text:=Username;

  DTP1.Date:=date;
  DTP2.Date:=date;
  frmmain.LTitle.Caption:='订单管理';
  frmmain.Outlook1.Visible:=False;
  frmmain.Panel1.Visible:=true;
  frmmain.Panel2.Visible:=false;
end;

procedure Tfrmorder.BitBtn3Click(Sender: TObject);
var i:integer;
begin
  if Trim(DBEdit1_1.text) = '' then
  begin
    Application.MessageBox('请输入订单编号！','提示',64);
    DBEdit1_1.SetFocus;
    exit;
  end;

  if DBLookupComboBox1.text = '' then
  begin
    Application.MessageBox('请输入订单公司！','提示',64);
    DBLookupComboBox1.SetFocus ;
    exit;
  end;
  With ADOQueryNDD1 do
    try
      edit;
      FieldByname('OrderDate').AsDateTime:=DTP1.DateTime ;
      post;
      Application.MessageBox('保存数据成功！','提示',MB_OK+MB_ICONQUESTION);
    except
      Application.MessageBox('保存数据失败！','错误',0+16);
      //Cancel;
    end;
end;

procedure Tfrmorder.BitBtn4Click(Sender: TObject);
begin
  if DBEdit1_1.text='' then exit;
  if DBLCBks.text='' then exit;
  if not ADOQueryNDD2.Active then exit;
  if ADOQueryNDD2.RecordCount <=0 then exit;
  try
    ADOQueryNDD2.Edit;
    ADOQueryNDD2.Post;
    ADOQueryNDD2.Append;
    DBEdit2_8.text:=Username;
  except
    Application.MessageBox('增加纪录错误！','错误',16);
  end;
end;

procedure Tfrmorder.BitBtn2Click(Sender: TObject);
begin
  If DBEdit1_1.text='' then  exit;
  if Application.MessageBox('确定删除该订单全部资料吗？','确认',MB_YESNO+MB_ICONQUESTION) = IDYES then
    begin
      ADOSPdelorder.Close;
      ADOSPdelorder.Parameters[1].Value:=DBEdit1_1.text;
      ADOSPdelorder.ExecProc;
      ADOQueryNDD1.Delete;
      ADOQueryNDD2.Requery;
    end;
end;

procedure Tfrmorder.BitBtn6Click(Sender: TObject);
begin
   if (DBEdit1_1.Text ='') then
     begin
       Application.MessageBox('请输入定单号！','提示',64);
       exit;
     end; 
   if DBLCBks.text ='' then
     begin
       Application.MessageBox('请输入款式！','提示',64);
       exit;
     end;

     begin
         with ADOQueryNDD2 do
           begin
             try
               edit;
               FieldByName('OrderNo').asstring := DBEdit1_1.Text;
               FieldByName('overdate').AsDateTime :=DTP2.Datetime;
               post;
               Application.MessageBox('保存数据成功！','提示',MB_OK+MB_ICONQUESTION);
             except
               Application.MessageBox('保存数据失败！','错误',16);
               //Cancel;
             end;
           end;
      end;
  end;

procedure Tfrmorder.BitBtn5Click(Sender: TObject);
begin
  if ADOQueryNDD2.RecordCount<=0 then Exit;
  If Application.MessageBox('确定删除该款式资料吗？','确认',MB_YESNO + MB_ICONQUESTION) = IDYES then
  begin
    with DM.ADOQueryDDCX4 do
      begin
        Close;
        SQL.clear;
        SQL.Add('delete from xs_order4 where orderno=:orderno and R_name=:R_name');
        Parameters.ParamByName('orderno').value := DBEdit1_1.text;
        Parameters.ParamByName('R_name').value := DBLCBks.text;
        ExecSQL;
      end;

    with DM.ADOQueryDDCX4 do
        begin
           close;
           sql.clear;
           sql.Add('delete from xs_order5');
           sql.Add('where orderno='''+DBEdit1_1.text+''' and R_name='''+ DBLCBks.Text +'''');
           ExecSQL;
         end;

    with ADOQueryNDD3 do
    begin
      close;
      sql.Clear;
      sql.Add('delete from xs_order3');
      sql.Add('where orderno='''+ DBEdit1_1.Text +''' and R_name='''+ DBLCBks.Text +'''');
      ExecSQL;
    end;

    ADOQueryNDD2.Delete;
end;
end;

procedure Tfrmorder.BitBtn12Click(Sender: TObject);
begin
  if not ADOQueryNDD3.Active then exit;
  if ADOQueryNDD3.RecordCount <=0 then exit;
  try
    ADOQueryNDD3.Edit;
    ADOQueryNDD3.FieldByName('OrderNo').asstring := DBEdit1_1.Text;
    ADOQueryNDD3.FieldbyName('R_name').asstring:=DBLCBks.Text;
    ADOQueryNDD3.Post;
    ADOQueryNDD3.Append;
  except
    Application.MessageBox('增加记录错误！','错误',16);
  end;
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -