pasmain.pas

舉例姓名管理系統

unit pasMain;

interface

uses
  Windows, shellapi,Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxBar, ExtCtrls, Grids, DBGrids, dxPageControl, DB, DBTables,
  ImgList, dxBarExtItems, jpeg, StdCtrls, OleCtrls,  XPMan,
  StdActns, ActnList,  DBCtrls, dxMasterView, Mask;

type
  TfrmMain = class(TForm)
    dxBarManager1: TdxBarManager;
    dxBarDockControl1: TdxBarDockControl;
    Panel1: TPanel;
    dxPageControl1: TdxPageControl;
    dxTabSheet1: TdxTabSheet;
    dxTabSheet2: TdxTabSheet;
    dxBarSubItemFile: TdxBarSubItem;
    dxBarSubItemEdit: TdxBarSubItem;
    dxBarSubItemView: TdxBarSubItem;
    dxBarButtonFileNew: TdxBarButton;
    DataSource1: TDataSource;
    dxBarButtonOpen: TdxBarButton;
    dxBarButtonSave: TdxBarButton;
    dxBarButtonClose: TdxBarButton;
    dxBarButtonSaveAS: TdxBarButton;
    dxBarButtonSearch: TdxBarButton;
    dxBarButtonExport: TdxBarButton;
    dxBarButtonPrint: TdxBarButton;
    dxBarSubItemSendMail: TdxBarSubItem;
    dxBarButtonProp: TdxBarButton;
    dxBarButtonExit: TdxBarButton;
    dxTabSheet3: TdxTabSheet;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Image1: TImage;
    dxBarStatic1: TdxBarStatic;
    Image2: TImage;
    Label1: TLabel;
    Image3: TImage;
    Label2: TLabel;
    dxBarButtonUndo: TdxBarButton;
    dxBarButtonCut: TdxBarButton;
    dxBarButtonCopy: TdxBarButton;
    dxBarButtonPaste: TdxBarButton;
    Image5: TImage;
    Panel3: TPanel;
    Label4: TLabel;
    dxBarButtonReceive: TdxBarButton;
    Button3: TButton;
    Button4: TButton;
    XPManifest1: TXPManifest;
    Panel4: TPanel;
    Label13: TLabel;
    dxBarSubItemFormat: TdxBarSubItem;
    dxBarSubItemDataBase: TdxBarSubItem;
    dxBarSubItemHelp: TdxBarSubItem;
    LabeledEdit6: TLabeledEdit;
    dxBarCombo1: TdxBarCombo;
    Panel2: TPanel;
    Panel6: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    dxBarStatic2: TdxBarStatic;
    Panel7: TPanel;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    LabeledEdit5: TLabeledEdit;
    LabeledEdit7: TLabeledEdit;
    ComboBox2: TComboBox;
    Label8: TLabel;
    Label11: TLabel;
    Button2: TButton;
    Button1: TButton;
    Panel8: TPanel;
    Image8: TImage;
    Image9: TImage;
    Image10: TImage;
    Image11: TImage;
    Image12: TImage;
    dxBarButtonTip: TdxBarButton;
    dxBarButtonOnline: TdxBarButton;
    dxBarSubItemOL: TdxBarSubItem;
    dxBarButtonCheck: TdxBarButton;
    dxBarButtonR: TdxBarButton;
    dxBarButtonTHX: TdxBarButton;
    dxBarButtonAbout: TdxBarButton;
    dxBarPopupMenu1: TdxBarPopupMenu;
    dxBarButtonH1: TdxBarButton;
    dxBarButtonH2: TdxBarButton;
    dxBarButtonH3: TdxBarButton;
    dxBarButtonH4: TdxBarButton;
    Table1: TTable;
    Image7: TImage;
    Label7: TLabel;
    Label9: TLabel;
    ActionList1: TActionList;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    EditSelectAll1: TEditSelectAll;
    EditUndo1: TEditUndo;
    EditDelete1: TEditDelete;
    dxBarButtonSelectAll: TdxBarButton;
    Label10: TLabel;
    Label12: TLabel;
    dxBarButton2: TdxBarButton;
    dxBarButton2k: TdxBarButton;
    dxBarButtonTS: TdxBarButton;
    dxBarButtonForum: TdxBarButton;
    Query1: TQuery;
    DataSource2: TDataSource;
    Panel9: TPanel;
    dxBarStatic3: TdxBarStatic;
    DBNavigator1: TDBNavigator;
    Panel11: TPanel;
    Panel10: TPanel;
    Label17: TLabel;
    Label18: TLabel;
    dxBarFontNameCombo: TdxBarFontNameCombo;
    dxBarSubItemFN: TdxBarSubItem;
    dxBarComboFS: TdxBarCombo;
    dxBarButtonFontBold: TdxBarButton;
    dxBarButtonItal: TdxBarButton;
    dxBarButtonUnderline: TdxBarButton;
    dxBarButtonL: TdxBarButton;
    dxBarButtonN: TdxBarButton;
    dxBarButtonFT: TdxBarButton;
    dxBarButtonLT: TdxBarButton;
    Panel5: TPanel;
    Panel13: TPanel;
    Label14: TLabel;
    Image6: TImage;
    Label15: TLabel;
    Memo1: TMemo;
    Button5: TButton;
    Label16: TLabel;
    Label3: TLabel;
    Image4: TImage;
    DBGrid2: TDBGrid;
    dxBarButtonDBRefresh: TdxBarButton;
    dxBarGroup1: TdxBarGroup;
    dxBarButtonShowHide: TdxBarButton;
    Panel12: TPanel;
    Panel14: TPanel;
    Panel15: TPanel;
    DBGrid1: TdxMasterView;
    DBGrid1Style1: TdxMasterViewStyle;
    DBGrid1Style2: TdxMasterViewStyle;
    DBGrid1Level1: TdxMasterViewLevel;
    DBGrid1Level1Column1: TdxMasterViewColumn;
    DBGrid1Level1Column2: TdxMasterViewColumn;
    DBGrid1Level1Column3: TdxMasterViewColumn;
    DBGrid1Level1Column4: TdxMasterViewColumn;
    DBGrid1Level1Column5: TdxMasterViewColumn;
    DBGrid1Level1Column6: TdxMasterViewColumn;
    DBGrid1Level1Column7: TdxMasterViewColumn;
    DBGrid1Level1Column8: TdxMasterViewColumn;
    Image13: TImage;
    Image14: TImage;
    Panel16: TPanel;
    Panel17: TPanel;
    Image17: TImage;
    Image15: TImage;
    Image16: TImage;
    dxBarButtonNT: TdxBarButton;
    dxBarButtonDot: TdxBarButton;
    dxBarButtonCust: TdxBarButton;
    dxBarColorCombo1: TdxBarColorCombo;
    Memo2: TMemo;
    DBEdit1: TDBEdit;
    Query2: TQuery;
    DataSource3: TDataSource;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    LabeledEdit3: TComboBox;
    ComboBox1: TComboBox;
    Image18: TImage;
    Label19: TLabel;
    Label20: TLabel;
    Image19: TImage;
    procedure dxBarButtonExitClick(Sender: TObject);
    procedure LabeledEdit1Click(Sender: TObject);
    procedure LabeledEdit2Click(Sender: TObject);
    procedure LabeledEdit4Click(Sender: TObject);
    procedure LabeledEdit5Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);
    procedure LabeledEdit7Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure LabeledEdit6KeyPress(Sender: TObject; var Key: Char);

    procedure Button4Click(Sender: TObject);
    procedure dxBarButtonXPClick(Sender: TObject);
    procedure Label9MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label9MouseLeave(Sender: TObject);
    procedure dxBarButtonAboutClick(Sender: TObject);
    procedure dxBarComboProChange(Sender: TObject);
    procedure dxBarButtonTHXClick(Sender: TObject);
    procedure LabeledEdit3Click(Sender: TObject);
    procedure dxTabSheet3ContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
    procedure Label9Click(Sender: TObject);
    procedure dxBarButtonH1Click(Sender: TObject);
    procedure dxBarButtonH2Click(Sender: TObject);
    procedure dxBarButtonH3Click(Sender: TObject);
    procedure dxBarButtonH4Click(Sender: TObject);
    procedure dxBarButtonSearchClick(Sender: TObject);
    procedure dxBarButtonReceiveClick(Sender: TObject);
    procedure dxBarButtonTipClick(Sender: TObject);
    procedure dxBarButton2kClick(Sender: TObject);
    procedure dxBarButton2Click(Sender: TObject);
    procedure dxBarButtonOpenClick(Sender: TObject);
    procedure dxBarButtonSaveClick(Sender: TObject);
    procedure dxBarButtonNextClick(Sender: TObject);
    procedure dxBarButtonPreClick(Sender: TObject);
    procedure dxBarButtonFirstClick(Sender: TObject);
    procedure dxBarButtonLastClick(Sender: TObject);

    procedure dxBarButtonCheckClick(Sender: TObject);
    procedure dxBarButtonTSClick(Sender: TObject);
    procedure dxBarButtonRClick(Sender: TObject);
    procedure dxBarButtonForumClick(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure dxBarButtonPropClick(Sender: TObject);
    procedure dxBarButtonOnlineClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure dxBarFontNameComboChange(Sender: TObject);
    procedure dxBarComboFSChange(Sender: TObject);
    procedure dxBarButtonFontBoldClick(Sender: TObject);
    procedure dxBarButtonItalClick(Sender: TObject);
    procedure dxBarButtonUnderlineClick(Sender: TObject);
    procedure dxBarButtonFTClick(Sender: TObject);
    procedure dxBarButtonLClick(Sender: TObject);
    procedure dxBarButtonNClick(Sender: TObject);
    procedure dxBarButtonLTClick(Sender: TObject);
    procedure dxBarButtonCloseClick(Sender: TObject);
    procedure dxBarButtonShowHideClick(Sender: TObject);
    procedure Image14Click(Sender: TObject);
    procedure Image13MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Panel15MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Panel7MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image16Click(Sender: TObject);
    procedure Image15MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Panel16MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Panel17MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image16DblClick(Sender: TObject);
    procedure dxTabSheet2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Panel5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBGrid2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure dxBarButtonCustClick(Sender: TObject);
    procedure dxBarButtonDotClick(Sender: TObject);
    procedure dxBarColorCombo1Click(Sender: TObject);
    procedure dxBarColorCombo1Change(Sender: TObject);
    procedure dxBarButtonNTClick(Sender: TObject);
    procedure DBGrid1SelectionChanged(Sender: TObject);
    procedure DBGrid1Click(Sender: TObject);
    procedure dxBarButtonDBRefreshClick(Sender: TObject);
    procedure dxBarButtonFileNewClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure Label20MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label20MouseLeave(Sender: TObject);
    procedure Label20Click(Sender: TObject);
  private
    { Private declarations }
    AmountScaled:Integer;
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;
  xnow,xnow2,xnow3 :boolean;
implementation

uses pasAbout, pasThx, frmDetail,pasSQL;
//var xnow:boolean;




{$R *.dfm}


procedure TfrmMain.dxBarButtonExitClick(Sender: TObject);
begin
close;
end;



procedure TfrmMain.LabeledEdit1Click(Sender: TObject);
begin
label5.Caption:='电影中文名称：';
Label6.Caption:='在这里输入您所购买的电影的中文名称!';
end;

procedure TfrmMain.LabeledEdit2Click(Sender: TObject);
begin
label5.Caption:='电影英文名称：';
Label6.Caption:='在这里输入您所购买的电影的英文名称，既电影的原版名称!';
end;



procedure TfrmMain.LabeledEdit4Click(Sender: TObject);
begin
label5.Caption:='电影音质：';
Label6.Caption:='在这里输入电影的音质：Dolby、Dolby 5.1、DTS 等!';
end;

procedure TfrmMain.LabeledEdit5Click(Sender: TObject);
begin
label5.Caption:='电影画质：';
Label6.Caption:='在这里输入电影的画质：比如输入 LD 版转录或画质不错!';
end;

procedure TfrmMain.ComboBox1Click(Sender: TObject);
begin
label5.Caption:='碟质：';
Label6.Caption:='在这里输入碟质，包括 LD、DVD、VCD、清晰或其他!';
end;

procedure TfrmMain.ComboBox2Click(Sender: TObject);
begin
label5.Caption:='对电影的评价：';
Label6.Caption:='对电影的评价分为五档：★★★★★、★★★★、★★★、★★、★!';
end;

procedure TfrmMain.LabeledEdit7Click(Sender: TObject);
begin
label5.Caption:='其他说明：';
Label6.Caption:='如果有其他说明上述未被包括在内，则可以这里写明，比如 “Dolby 5.1”，“画质不错” !!!';
end;

procedure TfrmMain.Button1Click(Sender: TObject);
begin
if labelededit1.Text <>'' then
with Table1 do
  begin
    Insert;
      FieldByName('中文名称').AsString :=labelededit1.Text;//中文名称
      FieldByName('英文名称').AsString :=labelededit2.Text;//英文名称
      FieldByName('影片类型').AsString :=labelededit3.Text;//影片类型
      FieldByName('碟片类型').AsString :=combobox1.Text;//碟质
      FieldByName('音质').AsString  :=labelededit4.Text;//音质
      FieldByName('画质').AsString :=labelededit5.Text;//画质
      FieldByName('评价').AsString :=combobox2.Text;//评价
      FieldByName('其他说明').AsString:=labelededit7.Text;//其他说明
      post;   //提交数据库
      refresh;
      
  end;
    LabeledEdit1.Text:='';
    LabeledEdit2.Text:='';
    LabeledEdit3.Text:='';
    LabeledEdit4.Text:='';
    LabeledEdit5.Text:='';
    LabeledEdit7.Text:='';
    combobox1.Text:='';
    combobox2.Text:='';
    LabeledEdit1.SetFocus;
    dxBarStatic2.Caption:='目前共有 ' + DBEdit1.Text + ' 条电影记录!';
end;

procedure TfrmMain.Button2Click(Sender: TObject);
begin
  if MessageBox(Handle, '您确实要删除该记录吗?'+ #13+#13 +'注意：如果阁下删除所选择的记录，则删除的记录将无法恢复!'+#13, '确认删除?',
      MB_ICONQUESTION or MB_YESNO) = ID_YES then
      With Table1   do
          try
            begin
              Delete;
              Active:=false;
              Active:=true;
            end;
          except
      end;
dxBarStatic2.Caption:='目前共有 ' + DBEdit1.Text + ' 条电影记录!';
end;

procedure TfrmMain.Button3Click(Sender: TObject);
begin
with Table1 do
  begin
    IndexFieldNames:='中文名称';

        FindNearest([LabeledEdit6.Text]);
        DBgrid1.SetFocus;

        dxBarStatic1.Caption:='找到 '+ LabeledEdit6.Text +' 记录';
        label12.Caption :='找到'+ LabeledEdit6.Text +' 记录';
  end;
end;

procedure TfrmMain.LabeledEdit6KeyPress(Sender: TObject; var Key: Char);
begin
if key<>#13 then
else
    with Table1 do
  begin
    IndexFieldNames:='中文名称';

        FindNearest([LabeledEdit6.Text]);
        DBgrid1.SetFocus;
        //DBgrid1.SelectedIndex ;
        dxBarStatic1.Caption:='找到 '+ LabeledEdit6.Text +' 记录';
        label12.Caption:='找到 '+ LabeledEdit6.Text + ' 记录';
  end;
end;



procedure TfrmMain.Button4Click(Sender: TObject);
begin
with table1 do
begin
  IndexFieldNames:='中文名称';
  if FindKey([LabeledEdit6.Text ])then
        //dbgrid1.SetFocus;
        //dbGrid1.SelectedIndex;
        begin
        dxBarStatic1.Caption :='找到 '+ LabeledEdit6.Text +' 记录';
        label12.Caption:='找到 '+ LabeledEdit6.Text + ' 记录';
        end
    else messageDlg('抱歉，数据库中尚无阁下输入的精确记录! 可以试着模糊查询以便查找!',mtWarning, [mbok],0);
end;
end;

procedure TfrmMain.dxBarButtonXPClick(Sender: TObject);
begin
{if dxbarButtonXP.Down then
  dxBarManager1.Style:=bmsFlat
else
  dxBarManager1.Style:=bmsEnhanced;}

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

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

procedure TfrmMain.dxBarButtonAboutClick(Sender: TObject);
begin
frmabout.ShowModal;//显示About!
end;

procedure TfrmMain.dxBarComboProChange(Sender: TObject);
//var i:integer;
begin
    AmountScaled := 90;
    DBGrid1.ScaleBy (100,AmountScaled);
    //ScaleBy (100, AmountScaled);
end;

procedure TfrmMain.dxBarButtonTHXClick(Sender: TObject);
begin
frmThx.showModal;
end;

procedure TfrmMain.LabeledEdit3Click(Sender: TObject);
begin
label5.Caption:='影片类型：';
Label6.Caption:='在这里输入电影的影片类型，比如常见的类型有：动作、恐怖、警匪、科幻、喜剧、神话、悬疑、军事、战争等...';
end;

procedure TfrmMain.dxTabSheet3ContextPopup(Sender: TObject;
  MousePos: TPoint; var Handled: Boolean);
begin