lyprc.pas

来自「感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡」· PAS 代码 · 共 123 行

unit LypRc;

interface

uses LypRcE,
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, Db, Mask, DBCtrls,
  Provider, DBClient, ObeyTable, jpeg, MyGrid, FormStore, TimeIntField,
  ComCtrls, AdoCodeEd, MacroQuery, AdoMacroQry, StoreForm, ADODB, ADOQry;

type
  TfrmLypRc = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TMyGrid;
    Panel1: TPanel;
    cmdPrint: TBitBtn;
    cmdExit: TBitBtn;
    Label1: TLabel;
    Image1: TImage;
    qryDelete: TADOQry;
    StoreForm1: TStoreForm;
    Label2: TLabel;
    dpDate0: TDateTimePicker;
    dpDate1: TDateTimePicker;
    cmdQuery: TBitBtn;
    cmdEdit: TBitBtn;
    cmdDel: TBitBtn;
    Label4: TLabel;
    cedLypCode: TAdoCodeEd;
    qryLypFl: TADOQry;
    qryBrowse: TAdoMacroQry;
    qryBrowseID: TIntegerField;
    qryBrowseLypCode: TStringField;
    qryBrowseNote: TStringField;
    qryBrowseName: TStringField;
    qryBrowseUnit: TStringField;
    qryBrowseQty: TFloatField;
    qryLypFlCode: TStringField;
    qryLypFlName: TStringField;
    cmdAdd: TBitBtn;
    qryBrowseFDate: TDateTimeField;
    qryBrowsePrice: TBCDField;
    qryBrowseCost: TBCDField;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure cmdEditClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdQueryClick(Sender: TObject);
    procedure cmdDelClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure cedLypCodeGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cmdAddClick(Sender: TObject);
  private
    { Private declarations }
    dlgLypRcE :TfrmLypRcE;
  public
    { Public declarations }
  end;

var
  frmLypRc: TfrmLypRc;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

procedure TfrmLypRc.cmdExitClick(Sender: TObject);
begin
	Close;
end;

procedure TfrmLypRc.cmdPrintClick(Sender: TObject);
begin
	frmRptExcel.PrintRpt(Self.Caption, qryBrowse
    	,['癬﹍ら戳', dpDate0.Date
         ,'沧ゎら戳', dpDate1.Date]);
end;

procedure TfrmLypRc.cmdEditClick(Sender: TObject);
begin
	if qryBrowse.IsEmpty then MessageBeep(0)
	else if dlgLypRcE.Edit(qryBrowseID.Value)
    	then RefreshQuery(qryBrowse);
end;

procedure TfrmLypRc.FormCreate(Sender: TObject);
begin
	Image1.Picture.Assign(frmMain.imgTitle.Picture);

	dlgLypRcE :=TfrmLypRcE.Create(Self);

    dpDate0.Date :=Date() -10;
    dpDate1.Date :=Date() +1;
    cmdQuery.OnClick(nil);
end;

procedure TfrmLypRc.cmdQueryClick(Sender: TObject);
var tsWhere :string;
begin
	tsWhere :=Format('(Q.FDate BETWEEN ''%s'' AND ''%s'')',
    	[DateToStr(dpDate0.Date) ,DateToStr(dpDate1.Date)
        ,DateToStr(dpDate0.Date)]);
    if cedLypCode.CodeText <>'' then tsWhere :=tsWhere +' AND '
    	+Format('Q.LypCode LIKE ''%s%%''', [cedLypCode.CodeText]);
	with qryBrowse do
    begin
    	Close;
        Parameters[0].Value :=tsWhere;
        Open;
    end;
end;

procedure TfrmLypRc.cmdDelClick(Sender: TObject);
begin
	if qryBrowse.IsEmpty then
    begin
    	MessageBeep(0);
        Exit;
    end;
	if not MsgBoxSel('琌