unit Unitcx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, ComCtrls, StdCtrls, Grids, DBGrids;

type
  TFormcx = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Panel2: TPanel;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label2: TLabel;
    DateTimePicker2: TDateTimePicker;
    Button1: TButton;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    Button2: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
   // procedure Button3Click(Sender: TObject);
  //  procedure formcreate(Sender:TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formcx: TFormcx;
  SQL:string;
implementation
uses unitmodule,unitls;
{$R *.dfm}
Function GetRAM:Char;
var
  Ch : Char;
  S  : string;
begin
  for Ch := 'D' to 'Z' do
  begin
    s := Ch + ':\';
    if GetDriveType(PChar(s)) = DRIVE_REMOVABLE then
    Begin
      Result:=Ch;
      Break;
    End;
  end;
End;
{procedure TFormcx.formcreate(Sender:TObject);
var  s,lu,k,a,z:string;
    TFileName: string;
begin
    lu:='xazx.txt';
    if GetRAM<>''
    then
        Tfilename:=GetRAM+':\xazx.txt';
        if FileExists(TFileName) then
        begin
            FileStream := TFileStream.Create(TFileName, fmOpenRead);
            FileStream.Read(Filehead, SizeOf(Filehead));
            k:=filehead.code;
            with datamodule2.ADOQuery7 do
            begin
                close;
                SQL.Clear;
                SQL.Add('select * from 員工編號表 where 工號=:a');
                Parameters.ParamByName('a').Value:=Trim(k);
                open;
               // dbgrid2.Refresh;
                if  DataModule2.ADOQuery7.FieldByName('姓名').Value<>null then
                begin
                z:=DataModule2.ADOQuery7.FieldByName('姓名').Value;
                edit2.Text:=z;
                end
                else z:='員工編號有錯誤';
            end;
        end
        else showmessage('沒有插入優(yōu)盤');
end;  }
procedure TFormcx.Button1Click(Sender: TObject);
var
c,d:string;
begin
    c:=formatdatetime('yymmdd',DateTimePicker1.date); //formatdatetime這個功能函數(shù)直接就轉(zhuǎn)化 源數(shù)據(jù)格式 為 string格式
    d:=formatdatetime('yymmdd',DateTimePicker2.date);
    edit1.Text:=c;
    with datamodule2.ADOQuery1 do
     begin
        close;
        SQL.Clear;
        SQL.Add('select * from 表1 where 發(fā)碼時間>=:a and 發(fā)碼時間<=:b');  //在SQL語句的使用中 發(fā)現(xiàn)模糊查詢的％并不有效  原因還不知道  所以換了一個查詢語句
        Parameters.ParamByName('a').Value:=Trim(c);
        Parameters.ParamByName('b').Value:=Trim(d);
        open;
        dbgrid1.datasource.dataset.close;
        dbgrid1.datasource.dataset.open;
        dbgrid1.datasource.dataset.disableControls;
        dbgrid1.datasource.dataset.close;
        dbgrid1.datasource.dataset.open;
        dbgrid1.datasource.dataset.enableControls;
        dbgrid1.Refresh;
     end;
end;

procedure TFormcx.Button2Click(Sender: TObject);
begin
    inherited;
    close();
end;

{procedure TFormcx.Button3Click(Sender: TObject);
var
    k,z,a:string;
    Found:integer;
    SearchRec: TSearchRec;
    filetofind:string;
begin
    inherited;
    if GetRAM='' then
    showmessage('請插入U盤')
    else
    begin
            if opendialog1.Execute then
            begin
                edit2.text:=opendialog1.FileName;
                Found := FindFirst(GetRAM + ':\*.txt',01, SearchRec);
                if Found =0 then
                begin
                    filename:=edit2.Text;
                    CreateFile(filename);
                    FileStream.Read(Filehead, SizeOf(Filehead));
                    k:=filehead.code;
                    filestream.Free;
                    with datamodule2.ADOQuery6 do
                    begin
                        close;
                        SQL.Clear;
                        SQL.Add('select * from 員工編號表 where 編號=:a');
                        Parameters.ParamByName('a').Value:=Trim(k);
                        open;
                        dbgrid2.Refresh;
                        if  DataModule2.ADOQuery6.FieldByName('姓名').Value<>null then
                            z:=DataModule2.ADOQuery6.FieldByName('姓名').Value
                            else z:='有錯誤';
                    end;
                end
                else showmessage('沒有文件');
            end;
    end;
end;   }

procedure TFormcx.DBGrid1TitleClick(Column: TColumn);
var
STR:string;
begin
    SQL:='select * from 表1 order by ';
    STR:=SQL+column.FieldName;
    datamodule2.ADOQuery1.Close;
    datamodule2.ADOQuery1.SQL.Clear;
    datamodule2.ADOQuery1.SQL.Add(STR);
    datamodule2.ADOQuery1.Open;
    dbgrid1.Refresh;
end;

end.
//注：在DBGRIDcolumns[0]-[7]中，columns[0]竟然不能顯示，當(dāng)設(shè)置為[0]-[8]時可以正常顯示，此時刪除column[0],發(fā)現(xiàn)沒有影響，還是可以正常顯示。問題很奇怪。
//注；DBGRIDcolumns[0]-[7]已經(jīng)是按次序依次輸入，若不按次序輸入則不能顯示的column更多。
procedure TFormls.Button5Click(Sender: TObject);
var
    k:string;
    Found:integer;
    SearchRec: TSearchRec;
    filetofind:string;
begin
     //fileattrs:=fareadonly;
     Found := FindFirst(GetRAM + ':\*.txt',01, SearchRec);
     if Found =0 then
     begin
        filename:=edit5.Text;
        CreateFile(filename);
        FileStream.Read(Filehead, SizeOf(Filehead));
        k:=filehead.code;
        edit6.Text:=k;

     end
     else showmessage('沒有文件')
end;