pasmain.pas

舉例姓名管理系統

//webbrowser11.Navigate('http://namelysweet.myetang.com'); 
end;

procedure TfrmMain.Label9Click(Sender: TObject);
begin
shellexecute(handle,nil,pchar('http://namelysweet.myetang.com'),nil,nil,sw_shownormal);
end;

procedure TfrmMain.dxBarButtonH1Click(Sender: TObject);
begin
shellexecute(handle,nil,pchar('http://namelysweet.myetang.com'),nil,nil,sw_shownormal);
end;

procedure TfrmMain.dxBarButtonH2Click(Sender: TObject);
begin
shellexecute(handle,nil,pchar('http://namelysweet.myetang.com'),nil,nil,sw_shownormal);
end;

procedure TfrmMain.dxBarButtonH3Click(Sender: TObject);
begin
shellexecute(handle,nil,pchar('http://namelysweet.myetang.com'),nil,nil,sw_shownormal);
end;

procedure TfrmMain.dxBarButtonH4Click(Sender: TObject);
begin
shellexecute(handle,nil,pchar('http://namelysweet.myetang.com'),nil,nil,sw_shownormal);
end;

procedure TfrmMain.dxBarButtonSearchClick(Sender: TObject);
begin
dxpagecontrol1.Tabs[1].Show;
end;

procedure TfrmMain.dxBarButtonReceiveClick(Sender: TObject);
begin
shellexecute(handle,nil,pchar('mailto:[e-mail]'),nil,nil,sw_shownormal);
end;

procedure TfrmMain.dxBarButtonTipClick(Sender: TObject);
begin
shellexecute(handle,nil,pchar('http://namelysweet.myetang.com'),nil,nil,sw_shownormal);
end;

procedure TfrmMain.dxBarButton2kClick(Sender: TObject);
begin
dxBarManager1.Style:= bmsEnhanced;
dxBarButton2k.ButtonStyle :=bsChecked;
dxBarButton2.ButtonStyle :=bsDefault;
dxBarButton2k.Down:=true;
dxBarButton2.Down:=false;
end;

procedure TfrmMain.dxBarButton2Click(Sender: TObject);
begin
dxBarManager1.Style:= bmsFlat;
dxBarButton2.ButtonStyle :=bsChecked;
dxBarButton2k.ButtonStyle :=bsDefault;
dxBarButton2.Down:=true;
dxBarButton2k.Down:=false;
end;

procedure TfrmMain.dxBarButtonOpenClick(Sender: TObject);
begin
Table1.Close;
if OpenDialog1.Execute then
Table1.TableName:=OpenDialog1.FileName ;
Table1.Open;

end;

procedure TfrmMain.dxBarButtonSaveClick(Sender: TObject);
begin
if savedialog1.Execute then

end;

procedure TfrmMain.dxBarButtonNextClick(Sender: TObject);
begin
with Table1 do
if not table1.Eof  then
begin
table1.Next ;
DBgrid1.SetFocus;
//DBgrid1.SelectedIndex;
end
else
end;

procedure TfrmMain.dxBarButtonPreClick(Sender: TObject);
begin
with Table1 do
if not table1.Bof then
begin
table1.Prior;
DBgrid1.SetFocus;
//DBgrid1.SelectedIndex;
end
else
end;

procedure TfrmMain.dxBarButtonFirstClick(Sender: TObject);
begin
with table1 do
table1.First;
DBgrid1.SetFocus;
//DBgrid1.SelectedIndex ;
end;

procedure TfrmMain.dxBarButtonLastClick(Sender: TObject);
begin
with table1 do
table1.Last;
DBgrid1.SetFocus;
//DBgrid1.SelectedIndex;
end;


procedure TfrmMain.dxBarButtonCheckClick(Sender: TObject);
begin
shellexecute(handle,nil,pchar('http://namelysweet.myetang.com/download/index.htm'),nil,nil,sw_shownormal);
end;

procedure TfrmMain.dxBarButtonTSClick(Sender: TObject);
begin
shellexecute(handle,nil,pchar('mailto:[e-mail]'),nil,nil,sw_shownormal);
end;

procedure TfrmMain.dxBarButtonRClick(Sender: TObject);
begin
shellexecute(handle,nil,pchar('http://namelysweet.myetang.com/customer/index.htm'),nil,nil,sw_shownormal);
end;

procedure TfrmMain.dxBarButtonForumClick(Sender: TObject);
begin
shellexecute(handle,nil,pchar('http://www.aozuo.com.cn/bbs/index.asp'),nil,nil,sw_shownormal);
end;

procedure TfrmMain.Button5Click(Sender: TObject);
begin
Query1.Close;
try
  Query1.SQL:=Memo1.Lines;
  Query1.Open;
  Memo1.SetFocus;
//  DBGrid3.Levels.DataSet.Active:=true;
except
  showmessage('无效的查询! 请检查SQL语法是否存在错误!!!');
    Memo1.SetFocus;
end;
end;

procedure TfrmMain.dxBarButtonPropClick(Sender: TObject);
begin
frmabout.ShowModal;
end;

procedure TfrmMain.dxBarButtonOnlineClick(Sender: TObject);
begin
shellexecute(handle,nil,pchar('http://namelysweet.myetang.com'),nil,nil,sw_shownormal);
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  dxBarFontNameCombo.Text:=frmMain.Font.Name;
  Query2.Close;
  try
    Query2.SQL:=Memo2.Lines;
    Query2.Open;
    DBEdit1.DataField:='count(*)';
    dxBarStatic2.Caption:='目前共有 ' + DBEdit1.Text + ' 条电影记录!';
  except
end;

end;

procedure TfrmMain.dxBarFontNameComboChange(Sender: TObject);
begin
    DBGrid1.Font.Name := dxBarFontNameCombo.Text;
end;

procedure TfrmMain.dxBarComboFSChange(Sender: TObject);
begin
DBGrid1.Font.Size:= StrToInt(dxBarComboFS.Text);
end;

procedure TfrmMain.dxBarButtonFontBoldClick(Sender: TObject);
begin
if dxBarButtonFontBold.Down then
DBGrid1.Font.Style:=DBGrid1.Font.Style  + [fsBold]
else
 DBGrid1.Font.Style:=DBGrid1.Font.Style  - [fsBold];
end;

procedure TfrmMain.dxBarButtonItalClick(Sender: TObject);
begin
if dxBarButtonItal.Down then
DBGrid1.Font.Style:=DBGrid1.Font.Style  + [fsItalic]
else
DBGrid1.Font.Style:=DBGrid1.Font.Style  - [fsItalic];
end;

procedure TfrmMain.dxBarButtonUnderlineClick(Sender: TObject);
begin
if dxBarButtonUnderline.Down then
DBGrid1.Font.Style:=DBGrid1.Font.Style  + [fsUnderline]
else
DBGrid1.Font.Style:=DBGrid1.Font.Style  - [fsUnderline];
end;


procedure TfrmMain.dxBarButtonFTClick(Sender: TObject);
begin
with table1 do
table1.First;
DBgrid1.SetFocus;
dxBarStatic1.Caption:='当前选择为：'+DBEdit2.Text + '(中文名称)，'  + DBEdit3.Text+' (英文名称)';
end;

procedure TfrmMain.dxBarButtonLClick(Sender: TObject);
begin
with Table1 do
if not table1.Bof then
begin
table1.Prior;
DBgrid1.SetFocus;
dxBarStatic1.Caption:='当前选择为：'+DBEdit2.Text + '(中文名称)，'  + DBEdit3.Text+' (英文名称)';
end
else
end;

procedure TfrmMain.dxBarButtonNClick(Sender: TObject);
begin
with Table1 do
if not table1.Eof  then
begin
table1.Next ;
DBgrid1.SetFocus;
dxBarStatic1.Caption:='当前选择为：'+DBEdit2.Text + '(中文名称)，'  + DBEdit3.Text+' (英文名称)';
end
else

end;

procedure TfrmMain.dxBarButtonLTClick(Sender: TObject);
begin
with table1 do
table1.Last;
DBgrid1.SetFocus;
dxBarStatic1.Caption:='当前选择为：'+DBEdit2.Text + '(中文名称)，'  + DBEdit3.Text+' (英文名称)';
end;



procedure TfrmMain.dxBarButtonCloseClick(Sender: TObject);
begin
table1.Close;
end;

procedure TfrmMain.dxBarButtonShowHideClick(Sender: TObject);

begin
if xnow =false then
  begin
    panel1.Visible:=false;
    image17.Visible:=false;
  end
else
  begin
    panel1.Visible:=true;
    image17.Visible:=true;
  end;
xnow :=not xnow;
end;



procedure TfrmMain.Image14Click(Sender: TObject);
begin
if xnow =false then
  begin
    panel1.Visible:=false;
    image17.Visible:=false;
    dxBarButtonShowHide.Down:=false;
  end
else
  begin
    panel1.Visible:=true;
    image17.Visible:=true;
        dxBarButtonShowHide.Down:=true;
  end;
xnow :=not xnow;
end;

procedure TfrmMain.Image13MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image14.Visible:=true;
image13.Visible:=false;
end;



procedure TfrmMain.Panel15MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image13.Visible:=true;
image14.Visible:=false;
end;

procedure TfrmMain.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image13.Visible:=true;
image14.Visible:=false;
image16.Visible:=false;
image15.Visible:=true;
end;

procedure TfrmMain.Panel7MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image13.Visible:=true;
image14.Visible:=false;
end;

procedure TfrmMain.Image16Click(Sender: TObject);
begin
if xnow2 = true then
panel16.Visible:=false
else
panel16.Visible:=true;
xnow2:=not xnow2;
end;

procedure TfrmMain.Image15MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image16.Visible:=true;
image15.Visible:=false;
end;

procedure TfrmMain.Panel16MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image16.Visible:=false;
image15.Visible:=true;
end;

procedure TfrmMain.Panel17MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image16.Visible:=false;
image15.Visible:=true;
end;



procedure TfrmMain.Image16DblClick(Sender: TObject);
begin
if xnow2 then
panel16.Visible:=false
else
panel16.Visible:=true;
xnow2:=not xnow2;
end;

procedure TfrmMain.dxTabSheet2MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
image13.Visible:=true;
image14.Visible:=false;
end;

procedure TfrmMain.Panel5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image13.Visible:=true;
image14.Visible:=false;
end;

procedure TfrmMain.DBGrid2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image13.Visible:=true;
image14.Visible:=false;
end;

procedure TfrmMain.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
    dxBarPopupMenu1.PopupFromCursorPos;
end;

procedure TfrmMain.dxBarButtonCustClick(Sender: TObject);
begin
DBGrid1.Customizing:=not DBGrid1.Customizing;
end;

procedure TfrmMain.dxBarButtonDotClick(Sender: TObject);
begin
if xnow3 = false then
DBGrid1Level1.GridLinesColor:=clWhite
else
DBGrid1Level1.GridLinesColor:=clBtnFace;
xnow3:=not xnow3;
end;

procedure TfrmMain.dxBarColorCombo1Click(Sender: TObject);
begin
DBGrid1Level1.GridLinesColor:=dxBarColorCombo1.Color;
end;

procedure TfrmMain.dxBarColorCombo1Change(Sender: TObject);
begin
DBGrid1Level1.GridLinesColor:=dxBarColorCombo1.Color;
end;



procedure TfrmMain.dxBarButtonNTClick(Sender: TObject);
begin
with Table1 do
if not table1.Eof  then
begin
table1.Next ;
DBgrid1.SetFocus;
end
else
end;

procedure TfrmMain.DBGrid1SelectionChanged(Sender: TObject);
begin
dxBarStatic1.Caption:=DBEdit2.Text;
end;

procedure TfrmMain.DBGrid1Click(Sender: TObject);
begin
dxBarStatic1.Caption:='当前选择为：'+DBEdit2.Text + '(中文名称)，'  + DBEdit3.Text+' (英文名称)';
end;



procedure TfrmMain.dxBarButtonDBRefreshClick(Sender: TObject);
begin
with table1 do
  begin
  Active:=False;
  Active:=True;
  end;
end;

procedure TfrmMain.dxBarButtonFileNewClick(Sender: TObject);
begin
      LabeledEdit1.SetFocus;
   LabeledEdit1.Text:='';
    LabeledEdit2.Text:='';
    LabeledEdit3.Text:='';
    LabeledEdit4.Text:='';
    LabeledEdit5.Text:='';
    LabeledEdit7.Text:='';
    combobox1.Text:='';
    combobox2.Text:='';

end;

procedure TfrmMain.DBGrid1DblClick(Sender: TObject);
begin
Form1.Caption:= DBEdit2.Text +' 的属性';
Form1.Refresh;
Form1.ShowModal;

end;

procedure TfrmMain.Label20MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label20.Font.Style:=[];
end;

procedure TfrmMain.Label20MouseLeave(Sender: TObject);
begin
Label20.Font.Style:=[fsUnderline];
end;

procedure TfrmMain.Label20Click(Sender: TObject);
begin
frmSQL.Label1.Caption:=LabeledEdit6.Text;
frmSQL.DBEdit1.Text:=LabeledEdit6.Text ;
frmMain.Refresh;
frmSQL.ShowModal;
end;
end.