f_main.pas

销售业绩核算系统

unit F_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, shellapi,Buttons;

type
  TForm_main = class(TForm)
    Label1: TLabel;
    SBMoney: TSpeedButton;
    SBSearch: TSpeedButton;
    SBPrint: TSpeedButton;
    SBCustmor: TSpeedButton;
    SBExit: TSpeedButton;
    Panel1: TPanel;
    username: TEdit;
    password: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    Panel2: TPanel;
    SBCompute: TSpeedButton;
    Panel3: TPanel;
    Label4: TLabel;
    curuser: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Timer1: TTimer;
    SBGroup: TSpeedButton;
    SBNotepad: TSpeedButton;
    SBInitialize: TSpeedButton;
    SBPersonal: TSpeedButton;
    SBDengji: TSpeedButton;

    procedure Image2Click(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SBMoneyClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SBExitClick(Sender: TObject);
    procedure SBCustmorClick(Sender: TObject);
    procedure SBComputeClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure SBSearchClick(Sender: TObject);
    procedure SBNotepadClick(Sender: TObject);
    procedure SBPrintClick(Sender: TObject);
    procedure SBGroupClick(Sender: TObject);
    procedure SBInitializeClick(Sender: TObject);
    procedure SBPersonalClick(Sender: TObject);
    procedure SBDengjiClick(Sender: TObject);
  private
    { Private declarations }
  public
  
    { Public declarations }
   procedure createparams(var params:Tcreateparams); override;
     procedure wmlbuttondown(var Msg: Tmessage); message WM_LBUTTONDOWN;
  end;

var
  Form_main: TForm_main;

implementation

uses F_input, F_inputdata, F_inputpoint, F_public, F_selectname, U_selname,
   F_DM, U_UserManage, U_init, U_browse, U_copy, U_yuangong,
  U_dengji;



{$R *.dfm}

procedure TForm_main.createparams(var params: Tcreateparams);
begin
  inherited;
   Params.Style:=params.Style and not WS_CAPTION;
end;

procedure TForm_main.Image2Click(Sender: TObject);
begin
self.Close;
end;

procedure TForm_main.wmlbuttondown(var msg:Tmessage);
begin
  perform(wm_nclbuttondown,htcaption,0)
end;


procedure TForm_main.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

begin
//m.Msg:=wm_lbuttondown;
//form1.Broadcast(m);
   // perform(wm_nclbuttondown,0,0) ;
   //form1.wmlbuttondown(m);
    // perform(wm_nclbuttondown,htcaption,0) ;
     perform(wm_nclbuttondown,htcaption,0);
   // postmessage(form1.Handle,wm_lbuttondown,htcaption,0);

end;

procedure TForm_main.SBMoneyClick(Sender: TObject);
begin
Form_copy:=TForm_copy.Create(self);
   Form_copy.ShowModal;
   Form_copy.Release;

end;

procedure TForm_main.FormCreate(Sender: TObject);
var
filepath:string;
begin

panel1.Left:=210;
panel1.Top:=120;

filepath:=ExtractfileDir(application.ExeName);
{
SBCustmor.Glyph.LoadFromFile(filepath+'\exeimage\Custmor.bmp');
SBMoney.Glyph.LoadFromFile(filepath+'\exeimage\Money.bmp');
SBPersonal.Glyph.LoadFromFile(filepath+'\exeimage\Personal.bmp');
SBDengji.Glyph.LoadFromFile(filepath+'\exeimage\Dengji.bmp');
SBCompute.Glyph.LoadFromFile(filepath+'\exeimage\Compute.bmp');
SBNotepad.Glyph.LoadFromFile(filepath+'\exeimage\Notepad.bmp');
SBInitialize.Glyph.LoadFromFile(filepath+'\exeimage\Initialize.bmp');
SBSearch.Glyph.LoadFromFile(filepath+'\exeimage\Search.bmp');
SBGroup.Glyph.LoadFromFile(filepath+'\exeimage\Group.bmp');
SBPrint.Glyph.LoadFromFile(filepath+'\exeimage\Print.bmp');
SBExit.Glyph.LoadFromFile(filepath+'\exeimage\Exit.bmp');
}
//  11
SBCustmor.Visible:=false;
SBMoney.Visible:=false;
SBPersonal.Visible:=false;
SBDengji.Visible:=false;
SBCompute.Visible:=false;
SBNotepad.Visible:=false;
SBInitialize.Visible:=false;
SBSearch.Visible:=false;
SBGroup.Visible:=false;
SBPrint.Visible:=false;
SBExit.Visible:=false;




end;

procedure TForm_main.BitBtn1Click(Sender: TObject);
begin
with DM do
begin
   ADOQuery.SQL.Clear;
   ADOQuery.SQL.Text:='select * from usermanage where username='''+Trim(username.Text)+''' and password='''+Trim(password.Text)+'''';
   ADOQuery.Open;
   if (ADOQuery.RecordCount=0)  then
      begin
        showmessage('对不起！ 用户名与密码不对');
        exit;
      end;

end;

curuser.caption:=username.text;
if curuser.caption='' then
  curuser.Caption:='操作员';
panel1.Visible:=false;
//  11
SBCustmor.Visible:=true;
SBMoney.Visible:=true;
SBPersonal.Visible:=true;
SBDengji.Visible:=true;
SBCompute.Visible:=true;
SBNotepad.Visible:=true;
SBInitialize.Visible:=true;
SBSearch.Visible:=true;
SBGroup.Visible:=true;
SBPrint.Visible:=true;
SBExit.Visible:=true;

end;

procedure TForm_main.SBExitClick(Sender: TObject);
begin
//dm.ADOConn.Connected:=false;
application.Terminate;
end;

procedure TForm_main.SBCustmorClick(Sender: TObject);
begin
Form_inputdata:=TForm_inputdata.Create(self);
   Form_inputdata.ShowModal;
   Form_inputdata.Release;
end;

procedure TForm_main.SBComputeClick(Sender: TObject);
begin
shellexecute(handle,'open','exe\calc.exe',nil,nil,sw_shownormal);
//shellexecute(handle,'open','http://www.sina.com.cn',nil,nil,sw_shownormal);
end;

procedure TForm_main.Timer1Timer(Sender: TObject);
begin
 //时间显示
 label7.Caption:=datetimetostr(now);
end;

procedure TForm_main.SBSearchClick(Sender: TObject);
begin
Form_browse:=TForm_browse.Create(self);
   Form_browse.ShowModal;
   Form_browse.Release
end;

procedure TForm_main.SBNotepadClick(Sender: TObject);
begin
shellexecute(handle,'open','exe\notepad.exe',nil,nil,sw_shownormal);
end;

procedure TForm_main.SBPrintClick(Sender: TObject);
begin
//打印业绩清单
//F_print:=TF_print.Create(self);
 //F_print.ShowModal;
 //F_print.Free;
  
end;

procedure TForm_main.SBGroupClick(Sender: TObject);
begin
Form_UManage:=TForm_UManage.Create(self);
   Form_UManage.showmodal;
   Form_UManage.Release;
end;

procedure TForm_main.SBInitializeClick(Sender: TObject);
begin
Form_init:=TForm_init.Create(self);
    Form_init.SpeedButton1.Caption:='  开始月度结算初始化';
    Form_init.showModal;
    Form_init.Release;
end;

procedure TForm_main.SBPersonalClick(Sender: TObject);
begin
Form_yuangong:=TForm_yuangong.Create(self);
  Form_yuangong.ShowModal;
  Form_yuangong.Release;
end;

procedure TForm_main.SBDengjiClick(Sender: TObject);
begin
Form_dengji:=TForm_dengji.Create(self);
   Form_dengji.ShowModal;
   Form_dengji.Release;
end;

end.