main.~pas

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

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolWin, ComCtrls, Menus, Buttons, StdCtrls, ExtCtrls, Grids,
  DBGrids, DBCtrls, Mask, ImgList, XPMenu;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    ControlBar1: TControlBar;
    StatusBar: TStatusBar;
    jibie: TEdit;
    DBGrid1: TDBGrid;
    RGgysb: TRadioGroup;
    DBGrid2: TDBGrid;
    Panel1: TPanel;
    TabSheet2: TTabSheet;
    DBGrid3: TDBGrid;
    RGspgl: TRadioGroup;
    Panel2: TPanel;
    Button2: TButton;
    Button3: TButton;
    EspglCX: TEdit;
    DBGrid4: TDBGrid;
    TabSheet3: TTabSheet;
    DBGrid5: TDBGrid;
    Panel3: TPanel;
    Button4: TButton;
    Button5: TButton;
    EkhglCX: TEdit;
    DBGrid6: TDBGrid;
    RGkhgl: TRadioGroup;
    TabSheet4: TTabSheet;
    DBGrid7: TDBGrid;
    Panel4: TPanel;
    DBGrid9: TDBGrid;
    Panel5: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    Label3: TLabel;
    Label4: TLabel;
    TabSheet5: TTabSheet;
    DBGrid10: TDBGrid;
    RGgygl: TRadioGroup;
    Panel6: TPanel;
    DBGrid11: TDBGrid;
    EgyglCX: TEdit;
    Button6: TButton;
    Button7: TButton;
    TabSheet6: TTabSheet;
    DBGrid12: TDBGrid;
    Panel7: TPanel;
    RGyhsgl: TRadioGroup;
    DBGrid13: TDBGrid;
    EyhsglCX: TEdit;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    DBEgysbCXDW: TDBEdit;
    DBEgysbDW: TDBEdit;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    DBEspglDW: TDBEdit;
    DBEspglCXDW: TDBEdit;
    Button16: TButton;
    Button17: TButton;
    Button18: TButton;
    DBEkhglDW: TDBEdit;
    DBEkhglCXDW: TDBEdit;
    Button19: TButton;
    Button20: TButton;
    Button21: TButton;
    DBEgyglDW: TDBEdit;
    DBEgyglCXDW: TDBEdit;
    Button22: TButton;
    Button23: TButton;
    Button24: TButton;
    DBEyhsglDW: TDBEdit;
    DBEyhsglCXDW: TDBEdit;
    TabSheet7: TTabSheet;
    Panel8: TPanel;
    DBGrid14: TDBGrid;
    RGlbgl: TRadioGroup;
    DBGrid15: TDBGrid;
    GBlbgl: TGroupBox;
    Button27: TButton;
    Button28: TButton;
    Label5: TLabel;
    DBEdit1: TDBEdit;
    Label6: TLabel;
    DBEdit2: TDBEdit;
    Label7: TLabel;
    DBEdit3: TDBEdit;
    Button29: TButton;
    Button30: TButton;
    Button31: TButton;
    Button32: TButton;
    Panel9: TPanel;
    ElbglCX: TEdit;
    Button25: TButton;
    Button26: TButton;
    Button33: TButton;
    DBElbglDW: TDBEdit;
    DBElbglCXDW: TDBEdit;
    Bt1: TButton;
    EditCX: TEdit;
    Button1: TButton;
    Button34: TButton;
    Button35: TButton;
    Button36: TButton;
    Button37: TButton;
    Button38: TButton;
    Panel10: TPanel;
    DBGrid8: TDBGrid;
    Label8: TLabel;
    Button40: TButton;
    Button41: TButton;
    BitBtn1: TBitBtn;
    XPMenu1: TXPMenu;
    BitBtn2: TBitBtn;
    Panel11: TPanel;
    Label9: TLabel;
    BitBtn3: TBitBtn;
    procedure N10Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    //动态查询功能的实现
    function GetSearchField:string;
    function GetSearchName:string;
    //计算总价功能的实现

    function ddglJSLR:string;
    procedure FillsearchValues;
    procedure Bt1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RGgysbClick(Sender: TObject);
    procedure EditCXKeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure RGspglClick(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure EspglCXKeyPress(Sender: TObject; var Key: Char);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure RGkhglClick(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure EkhglCXKeyPress(Sender: TObject; var Key: Char);
    procedure RGgyglClick(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure EgyglCXKeyPress(Sender: TObject; var Key: Char);
    procedure TabSheet5Show(Sender: TObject);
    procedure RGyhsglClick(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure TabSheet6Show(Sender: TObject);
    procedure EyhsglCXKeyPress(Sender: TObject; var Key: Char);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure DBGrid2KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure DBGrid4CellClick(Column: TColumn);
    procedure DBGrid4KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button16Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure DBGrid6CellClick(Column: TColumn);
    procedure DBGrid6KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button19Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure DBGrid11CellClick(Column: TColumn);
    procedure DBGrid11KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button22Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure DBGrid13CellClick(Column: TColumn);
    procedure DBGrid13KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button25Click(Sender: TObject);
    procedure RGlbglClick(Sender: TObject);
    procedure TabSheet7Show(Sender: TObject);
    procedure Button26Click(Sender: TObject);
    procedure ElbglCXKeyPress(Sender: TObject; var Key: Char);
    procedure Button27Click(Sender: TObject);
    procedure Button29Click(Sender: TObject);
    procedure Button30Click(Sender: TObject);
    procedure Button31Click(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    procedure Button32Click(Sender: TObject);
    procedure Button33Click(Sender: TObject);
    procedure DBGrid15CellClick(Column: TColumn);
    procedure DBGrid15KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button34Click(Sender: TObject);
    procedure Button35Click(Sender: TObject);
    procedure Button36Click(Sender: TObject);
    procedure Button37Click(Sender: TObject);
    procedure Button38Click(Sender: TObject);
    procedure DBGrid7CellClick(Column: TColumn);
    procedure DBGrid7KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button40Click(Sender: TObject);
    procedure Button41Click(Sender: TObject);
    procedure TabSheet4Show(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  leve:variant;//级别变量
  bbb,ccc,ddd,eee,fff:string;

implementation

uses jinru, jinru2, newDM, gysb_TJ, gysb_XG, spgl_TJ, spgl_XG, khgl_TJ,
  kghl_XG, gygl_TJ, gygl_XG, yhsgl_TJ, yhsgl_XG, ddgl_TJ, ddgl_XX, ddgl_XG,
  ddglXX_XG, ddgl_CX,  gyglRQ_cs, gyglRQ_gy, ddglRQ_dg, ddglRQ_dh,
  ddglRQ_fh, system_TJ;

{$R *.dfm}


function Tform1.GetSearchField:string;
begin
   Result:=DM.ADOTgysb.Fields[RGgysb.itemIndex].Name;
end;


function Tform1.GetSearchName:string;
begin
   Result:=DM.ADOTgysb.Fields.Fields[RGgysb.itemIndex].DisplayLabel;
end;



function Tform1.ddglJSLR:string;
var
 mm,m,nn,n,dw,ok:string;
begin
     nn:=floattostr(0);
     mm:=floattostr(0);
     DM.ADOTddglMX.First;
     while not DM.ADOTddglMX.Eof do
     begin
       n:=floattostr(DM.ADOTddglMX.fieldbyname('dj').AsFloat*DM.ADOTddglMX.fieldbyname('sl').AsFloat*DM.ADOTddglMX.fieldbyname('zk').AsFloat);
       nn:=floattostr(strtofloat(nn)+strtofloat(n));
       DM.ADOTddglMX.Next;
     end;
     DM.ADOTddglMX.First;

     while not DM.ADOTddglMX.Eof do
     begin
       dw:=DM.ADOTspgl.Lookup('cpbh',DM.ADOTddglMX.fieldbyname('cpbh').AsString,'dj');
       m:=floattostr(DM.ADOTddglMX.fieldbyname('sl').AsFloat*strtofloat(dw));
       mm:=floattostr(strtofloat(mm)+strtofloat(m));
       DM.ADOTddglMX.Next;
     end;
     DM.ADOTddglMX.First;
     ok:=floattostr(strtofloat(nn)-strtofloat(mm));

     if strtofloat(ok)<0 then
     label9.Color:=clRed
     else
     label9.Color:=clBtnFace;

     label9.Caption:='利润为：'+ok+'元';
     Label8.Caption:='总价钱为:'+nn+'元';

end;



procedure Tform1.FillsearchValues;
begin


    while not DM.ADOTgysb.Eof do
      begin

        DM.ADOTgysb.Next;
      end;
   DM.ADOTgysb.First;
end;



procedure TForm1.N10Click(Sender: TObject);
begin
  if jibie.Text='admin' then
     denglu2.Show
  else
     showmessage('您没有这个权限');
end;




procedure TForm1.N2Click(Sender: TObject);
begin
  denglu.Show;
end;


//精华动态查询
procedure TForm1.Bt1Click(Sender: TObject);
begin
  with DM do
   Begin
    ddd:='select * from gysb where '+Getsearchfield+'=:ccxx';
    if ADOQgysb.Active then
        ADOQgysb.Active:=false;
    ADOQgysb.SQL.Clear;
    ADOQgysb.SQL.add(ddd);
    ADOQgysb.Parameters[0].Value:=EditCX.Text;
    ADOQgysb.Active:=true;
    form1.EditCX.Text:='';
    form1.EditCX.SetFocus;
    //定位游标
    try
      ADOTgysb.Locate('gysbh',DM.ADOQgysb.fieldbyname('gysbh').AsString,[]);
    except
    end; //
   end;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
  with DM do
   Begin
    ccc:='select * from gysb where '+Getsearchfield+' like :ccxx';
    if ADOQgysb.Active then
        ADOQgysb.Active:=false;
    ADOQgysb.SQL.Clear;
    ADOQgysb.SQL.add(ccc);
    ADOQgysb.Parameters[0].Value:='%'+EditCX.Text+'%';
    ADOQgysb.Active:=true;
    form1.EditCX.Text:='';
    form1.EditCX.SetFocus;
        //定位游标
    try
      ADOTgysb.Locate('gysbh',DM.ADOQgysb.fieldbyname('gysbh').AsString,[]);
    except
    end; //
   end;
end;


procedure TForm1.RGgysbClick(Sender: TObject);
begin
EditCX.SetFocus;
end;

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

procedure TForm1.Button2Click(Sender: TObject);
begin
 with DM do
   Begin
    eee:='select * from spb where '+bbb+'=:ccxx';
    if ADOQspgl.Active then
        ADOQgysb.Active:=false;
    ADOQspgl.SQL.Clear;
    ADOQspgl.SQL.add(eee);
    ADOQspgl.Parameters[0].Value:=EspglCX.Text;
    ADOQspgl.Active:=true;
    form1.EspglCX.Text:='';
    form1.EspglCX.SetFocus;
    //定位游标
    try
      ADOTspgl.Locate('cpbh',ADOQspgl.Lookup('cpbh',Form1.DBEspglCXDW.Text,'cpbh'),[]);
    except
    end; //
   end;
end;

procedure TForm1.RGspglClick(Sender: TObject);
begin
EspglCX.SetFocus;
case RGspgl.ItemIndex of
  0: bbb:='cpbh';
  1: bbb:='cpmc';
  2: bbb:='gysbh';
  3: bbb:='lbbh';
  4: bbb:='dwsl';
  5: bbb:='dj';
  6: bbb:='kcl';
  7: bbb:='dgl';
  8: bbb:='zdgl';
  9: bbb:='zz';
  end;
end;

procedure TForm1.TabSheet2Show(Sender: TObject);
begin
bbb:='cpbh';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 with DM do
   Begin
    eee:='select * from spb where '+bbb+' like :ccxx';