frm_txl.pas

一个背单词程序。是我闲着没事做的。 给大家看看

unit FRM_TXL;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, DBCtrls, Mask, ComCtrls, Buttons,
  Menus, ExtCtrls, ExtDlgs, jpeg;

type
  TMAIN = class(TForm)
    ADOCon: TADOConnection;
    ADO_TXL: TADOQuery;
    Data_TXL: TDataSource;
    DBGrid1: TDBGrid;
    DB_photo: TDBImage;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    StatusBar1: TStatusBar;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Popup_photo: TPopupMenu;
    N1: TMenuItem;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    OpenPictureDialog1: TOpenPictureDialog;
    quest: TButton;
    quit: TButton;
    procedure N1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure questClick(Sender: TObject);
    procedure quitClick(Sender: TObject);
  private
    { Private declarations }
  public
    function getCurPath:string;
    function getDateStr: string;
    procedure BT_Edit_Yes;
    procedure BT_Edit_No;
    { Public declarations }
  end;

var
  MAIN: TMAIN;

implementation

uses MainForm;

{$R *.dfm}
procedure TMAIN.BT_Edit_Yes;

Begin

  Popup_photo.AutoPopup:=True;
  BitBtn1.Enabled:=False;
  BitBtn2.Enabled:=False;
  BitBtn3.Enabled:=False;
  BitBtn4.Enabled:=True;
  BitBtn5.Enabled:=true;
  DBEdit1.Enabled:=True;
  DBEdit2.Enabled:=True;
  DBEdit3.Enabled:=True;
  DBEdit4.Enabled:=True;
  DBEdit5.Enabled:=True;
  DBEdit6.Enabled:=True;
  DBEdit7.Enabled:=True;
  DBEdit8.Enabled:=True;
  DBEdit9.Enabled:=True;
  DBEdit10.Enabled:=True;
  DBEdit11.Enabled:=True;
  DBEdit12.Enabled:=True;
  DBEdit13.Enabled:=True;
  DBEdit14.Enabled:=True;
  DBEdit15.Enabled:=True;
  DBEdit16.Enabled:=True;
  DBEdit17.Enabled:=True;
  DBEdit18.Enabled:=True;
  DBEdit19.Enabled:=True;
  DBEdit20.Enabled:=True;
End;

procedure TMAIN.BT_Edit_No;
Begin

  Popup_photo.AutoPopup:=False;
  BitBtn1.Enabled:=True;
  if ADO_TXL.RecordCount<>0 then
    Begin
      BitBtn2.Enabled:=True;
      BitBtn3.Enabled:=True;
    End
  Else
    Begin
      BitBtn2.Enabled:=False;
      BitBtn3.Enabled:=False;
    End;
  BitBtn4.Enabled:=False;
  BitBtn5.Enabled:=False;
  DBEdit1.Enabled:=False;
  DBEdit2.Enabled:=False;
  DBEdit3.Enabled:=False;
  DBEdit4.Enabled:=False;
  DBEdit5.Enabled:=False;
  DBEdit6.Enabled:=False;
  DBEdit7.Enabled:=False;
  DBEdit8.Enabled:=False;
  DBEdit9.Enabled:=False;
  DBEdit10.Enabled:=False;
  DBEdit11.Enabled:=False;
  DBEdit12.Enabled:=False;
  DBEdit13.Enabled:=False;
  DBEdit14.Enabled:=False;
  DBEdit15.Enabled:=False;
  DBEdit16.Enabled:=False;
  DBEdit17.Enabled:=False;
  DBEdit18.Enabled:=False;
  DBEdit19.Enabled:=False;
  DBEdit20.Enabled:=False;
End;

procedure TMAIN.BitBtn1Click(Sender: TObject);
begin
  BT_Edit_Yes;
  ADO_TXL.Append;
  DBEdit1.SetFocus;
end;

procedure TMAIN.BitBtn2Click(Sender: TObject);
begin
  BT_Edit_Yes;
  ADO_TXL.Edit;
  DBEdit1.SetFocus;
end;

procedure TMAIN.BitBtn3Click(Sender: TObject);
begin
  ADO_TXL.Delete;
  BT_Edit_No;
end;

procedure TMAIN.BitBtn4Click(Sender: TObject);
begin
  ADO_TXL.post;
  BT_Edit_No;
end;

procedure TMAIN.BitBtn5Click(Sender: TObject);
begin
  BT_Edit_No;
  ADO_TXL.Close;
  ADO_TXL.Sql.Clear;
  ADO_TXL.Sql.Add('Select * From Txl');
  ADO_TXL.open;
  Data_TXL.DataSet:=ADO_TXL;
end;

procedure TMAIN.FormShow(Sender: TObject);
begin
  try
    ADOCon.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+getCurPath+'Delphi.dat;Persist Security Info=False;Jet OLEDB:Database Password="JHGS7305"';
    ADOCon.Open;
  except
    Application.MessageBox('连接数据库错误！  ', '系统提示信息', MB_OK + MB_ICONWARNING + MB_DEFBUTTON3 + MB_TOPMOST);
  end;
  ADO_TXL.Close;
  ADO_TXL.Sql.Clear;
  ADO_TXL.Sql.Add('Select * From Txl');
  ADO_TXL.open;
  Data_TXL.DataSet:=ADO_TXL;
  BT_Edit_No;
end;

function TMain.getCurPath: string;
begin
  Result := ExtractFilePath(Application.ExeName);
end;

function TMain.getDateStr: string;
Var
  TempStr:String;
begin
  TempStr:= DatetoStr(date)+TimetoStr(now);
  TempStr:= StringReplace(TempStr,'-','',[rfReplaceAll]);
  TempStr:= StringReplace(TempStr,'/','',[rfReplaceAll]);
  Result:=StringReplace(TempStr,':','',[rfReplaceAll]);
end;

procedure TMAIN.N1Click(Sender: TObject);
var
  Bitmap : TBitmap;
  Zoom : Integer;
  MyJPEG:TJPEGImage;
begin
  if OPenPictureDialog1.Execute then
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
  Bitmap := TBitmap.Create;
  try
    Image3.Width:=600;
    Image3.Height:=800;
    with Image3 do begin
      Bitmap.Assign(Image1.Picture.Graphic);
      Picture := nil;
      if (Bitmap.Width div Width)>=(Bitmap.Height div Height) then
        Zoom := (Bitmap.Width div Width)+1
      Else
        Zoom := (Bitmap.Height div Height)+1;
      Width := Bitmap.Width div Zoom;
      Height := Bitmap.Height div Zoom;
      Canvas.StretchDraw(Rect(0,0,Width,Height),Bitmap);
    end;
    Bitmap.Assign(Image3.Picture.Graphic);
    MyJPEG:=TJPEGImage.Create;
    MyJPEG.Assign(Bitmap);
    MyJPEG.CompressionQuality:=30;
    MyJPEG.Compress;
    if directoryExists(getCurPath+'相片') then
      MyJPEG.SaveToFile(getCurPath+'相片\'+getDateStr+'.JPG')
    Else
      Begin
        Mkdir(getCurPath+'相片');
        MyJPEG.SaveToFile(getCurPath+'相片\'+getDateStr+'.JPG')
      End;
    MyJPEG.Free;
    Image2.Width:=105;
    Image2.Height:=140;
    with Image2 do begin
      Bitmap.Assign(Image1.Picture.Graphic);
      Picture := nil;
      if (Bitmap.Width div Width)>=(Bitmap.Height div Height) then
        Zoom := (Bitmap.Width div Width)
      Else
        Zoom := (Bitmap.Height div Height);
      Width := Bitmap.Width div Zoom;
      Height := Bitmap.Height div Zoom;
      Canvas.StretchDraw(Rect(0,0,Width,Height),Bitmap);
    end;
  finally
    Bitmap.Free;
  end;
  DB_photo.Picture.Bitmap.Assign(Image2.Picture.Graphic);
end;

procedure TMAIN.questClick(Sender: TObject);
begin

seach_main.show;
 
end;

procedure TMAIN.quitClick(Sender: TObject);
begin
 main.Close;
 ADOCon.close;
 ADO_TXL.Close;
end;

end.