ddgl_cx.~pas

商品批发管理系统 本作品采用C/S模式

unit ddgl_CX;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, XPMenu;

type
  TddglCX = class(TForm)
    DBGrid1: TDBGrid;
    RGddgl: TRadioGroup;
    Panel1: TPanel;
    EddglCX: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    XPMenu1: TXPMenu;
    procedure RGddglClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure EddglCXKeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ddglCX: TddglCX;
    fff:string;
implementation

uses newDM, main, ddglRQ_dg,  ddglRQ_dh, ddglRQ_fh;

{$R *.dfm}

procedure TddglCX.RGddglClick(Sender: TObject);
begin
EddglCX.SetFocus;
case RGddgl.ItemIndex of
  0: fff:='ddbh';
  1: fff:='khbh';
  2: fff:='gybh';
  3: ddglRQdg.ShowModal;
  4: ddglRQdh.showModal;
  5: ddglRQfh.showModal;
  6: fff:='yhsbh';
  7: fff:='yhf';
  8: fff:='hzmc';
  9: fff:='hzdz';
  10: fff:='hzcs';
  11: fff:='hzdq';
  12: fff:='hzyzbm';
  13: fff:='hzgj';
  end;
  EddglCX.SetFocus;
end;

procedure TddglCX.Button1Click(Sender: TObject);
var
  eee:string;
  nn,n:integer;
begin
 with DM do
   Begin
    eee:='select * from ddb where '+fff+'=:ccxx';
    if ADOQddgl.Active then
        ADOQddgl.Active:=false;
    ADOQddgl.SQL.Clear;
    ADOQddgl.SQL.add(eee);
    ADOQddgl.Parameters[0].Value:=EddglCX.Text;
    ADOQddgl.Active:=true;
    EddglCX.Text:='';
    EddglCX.SetFocus;
    button3.Enabled:=true;
    try
      ADOTddgl.Locate('ddbh',DM.ADOQddgl.fieldbyname('ddbh').AsString,[]);
    except
    end;



     nn:=0;
     DM.ADOTddglMX.First;
     while not DM.ADOTddglMX.Eof do
     begin
       n:=strtoint(DM.ADOTddglMX.fieldbyname('dj').AsString)*strtoint(DM.ADOTddglMX.fieldbyname('sl').AsString)*strtoint(DM.ADOTddglMX.fieldbyname('zk').AsString);
       nn:=nn+n;
       DM.ADOTddglMX.Next;
     end;
     DM.ADOTddglMX.First;
     form1.Label8.Caption:='总价钱为:'+inttostr(nn);

   end;
end;

procedure TddglCX.FormActivate(Sender: TObject);
begin
 fff:='ddbh';
 EddglCX.SetFocus;
 button3.Enabled:=false;
end;

procedure TddglCX.EddglCXKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    button1.Click;
end;

procedure TddglCX.Button2Click(Sender: TObject);
var
  eee:string;
  nn,n:integer;
begin
 with DM do
   Begin
    eee:='select * from ddb where '+fff+' like :ccxx';
    if ADOQddgl.Active then
        ADOQddgl.Active:=false;
    ADOQddgl.SQL.Clear;
    ADOQddgl.SQL.add(eee);
    ADOQddgl.Parameters[0].Value:='%'+EddglCX.Text+'%';
    ADOQddgl.Active:=true;
    EddglCX.Text:='';
    EddglCX.SetFocus;
    button3.Enabled:=true;
    try
      ADOTddgl.Locate('ddbh',DM.ADOQddgl.fieldbyname('ddbh').AsString,[]);
    except
    end;

    nn:=0;
     DM.ADOTddglMX.First;
     while not DM.ADOTddglMX.Eof do
     begin
       n:=strtoint(DM.ADOTddglMX.fieldbyname('dj').AsString)*strtoint(DM.ADOTddglMX.fieldbyname('sl').AsString)*strtoint(DM.ADOTddglMX.fieldbyname('zk').AsString);
       nn:=nn+n;
       DM.ADOTddglMX.Next;
     end;
     DM.ADOTddglMX.First;
     form1.Label8.Caption:='总价钱为:'+inttostr(nn);


   end;
end;

procedure TddglCX.Button3Click(Sender: TObject);
begin
  if messagedlg('您真的要删除定单编号为 '+DM.ADOTddgl.fieldbyname('ddbh').AsString+'的这个定单吗？它将连同详细资料一起删除！！！',mtConfirmation,[mbNo,mbYes],2)=mrYes then
     begin
      DM.ADOTddgl.Delete;
      button3.Enabled:=false;
     end;
end;

procedure TddglCX.DBGrid1CellClick(Column: TColumn);
var
nn,n:integer;
begin
with DM do
  begin
    ADOTddgl.Locate('ddbh',DM.ADOQddgl.fieldbyname('ddbh').AsString,[]);
  end;


     nn:=0;
     DM.ADOTddglMX.First;
     while not DM.ADOTddglMX.Eof do
     begin
       n:=strtoint(DM.ADOTddglMX.fieldbyname('dj').AsString)*strtoint(DM.ADOTddglMX.fieldbyname('sl').AsString)*strtoint(DM.ADOTddglMX.fieldbyname('zk').AsString);
       nn:=nn+n;
       DM.ADOTddglMX.Next;
     end;
     DM.ADOTddglMX.First;
     form1.Label8.Caption:='总价钱为:'+inttostr(nn);

end;

procedure TddglCX.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
nn,n:integer;
begin
with DM do
  begin
    ADOTddgl.Locate('ddbh',DM.ADOQddgl.fieldbyname('ddbh').AsString,[]);
  end;


     nn:=0;
     DM.ADOTddglMX.First;
     while not DM.ADOTddglMX.Eof do
     begin
       n:=strtoint(DM.ADOTddglMX.fieldbyname('dj').AsString)*strtoint(DM.ADOTddglMX.fieldbyname('sl').AsString)*strtoint(DM.ADOTddglMX.fieldbyname('zk').AsString);
       nn:=nn+n;
       DM.ADOTddglMX.Next;
     end;
     DM.ADOTddglMX.First;
     form1.Label8.Caption:='总价钱为:'+inttostr(nn);

end;

procedure TddglCX.Button4Click(Sender: TObject);
begin
  close;
end;

end.