C++人事管理系统源代码及设计 第4页
void __fastcall TFmain::Button3Click(TObject *Sender)
{
//数据删除操作
AnsiString printstr="确定删除编号为"+DataModule3->ADOQuery1->FieldByName("编号")->AsString+"的数据吗？";
if(MessageDlg(printstr,mtWarning,TMsgDlgButtons() << mbOK << mbCancel, 0)==1)
{
DataModule3->ADOQuery1->Delete() ;
StatusBar1->Panels->Items[0]->Text="数据已经删除";
}
}
void __fastcall TFmain::N3Click(TObject *Sender)
{
//更改显示字体
if(FontDialog1->Execute())Fmain->Font=FontDialog1->Font;
}
void __fastcall TFmain::N12Click(TObject *Sender)
{
//更改窗体颜色
if(ColorDialog1->Execute())
{
Fmain->Color=ColorDialog1->Color;//主窗体
Fadd->Color=ColorDialog1->Color; //添加、修改窗体
}
}
void __fastcall TFmain::N13Click(TObject *Sender)
{
//更改数据域颜色
if(ColorDialog1->Execute())
DBGrid1->Color=ColorDialog1->Color;
}
void __fastcall TFmain::N11Click(TObject *Sender)
{
Fshow->QuickRep1->Preview();//打印数据
}
void __fastcall TFmain::Button5Click(TObject *Sender)
{
Fadd->Caption="修改数据";
Fadd->ShowModal() ; //修改数据
}
void __fastcall TFmain::FormShow(TObject *Sender)
{
if(onshow==false)
{
Fwelcome->ShowModal() ;
onshow=true;
return;
}
}
//--------------------------------------------------------------------------
//------------系统封面------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit2.h"
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TFwelcome *Fwelcome;
int logintime=15; //进入系统等待时间X秒
__fastcall TFwelcome::TFwelcome(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TFwelcome::Timer1Timer(TObject *Sender)
{
if(logintime==0){
Timer1->Enabled=false;
Close();
}
logintime--;
SpeedButton1->Caption ="进入("+IntToStr(logintime)+")";
}
void __fastcall TFwelcome::SpeedButton2Click(TObject *Sender)
{
Application->Terminate() ;
}
void __fastcall TFwelcome::SpeedButton1Click(TObject *Sender)
{
logintime=15;
Timer1->Enabled=false;
Close();
}
//--------------------------------------------------------------------------
//---------------------数据修改窗体-----------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit4.h"
#include "Unit3.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TFadd *Fadd;
__fastcall TFadd::TFadd(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TFadd::Button1Click(TObject *Sender)
{
if(DBEdit1->Text =="")return;
DataModule3->ADOQuery1->Refresh() ;
Close();
}
www.751com.cn
DataModule3->ADOQuery1->Cancel() ;
Close();
}
void __fastcall TFadd::FormClose(TObject *Sender, TCloseAction &Action)
{
DataModule3->ADOQuery1->Cancel() ;