lists.pas

PosEasy收银系统源码,Pos机前后台管理代码

unit lists;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, DBTables, Grids, DBGrids, ExtCtrls, DBCtrls, Buttons,
  ComCtrls;

type
  Tlistfm = class(TForm)
    PrintDialog1: TPrintDialog;
    Panel2: TPanel;
    Database1: TDatabase;
    DBGrid2: TDBGrid;
    GDSStdPanel: TPanel;
    ImageBevel: TBevel;
    GDSSloganLabel2: TLabel;
    GDSLabel2: TLabel;
    GDSStdImage: TImage;
    GDSLabel: TLabel;
    GDSSloganLabel: TLabel;
    StdCtrlPanel: TPanel;
    GroupBox1: TGroupBox;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    DateTimePicker1: TDateTimePicker;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    GroupBox2: TGroupBox;
    Edit2: TEdit;
    Query1: TQuery;
    DataSource2: TDataSource;
    SpeedButton1: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Query1ijCode: TIntegerField;
    Query1Msum: TFloatField;
    Query1Mcashsum: TFloatField;
    Query1Mbillsum: TFloatField;
    Query1Mcardsum: TFloatField;
    Query1Mothsum: TFloatField;
    Query1Ibillnum: TSmallintField;
    Query1Icardnum: TSmallintField;
    Query1Iothnum: TSmallintField;
    Query1Ipart: TSmallintField;
    Query1Cpname: TStringField;
    Query1Dptime: TDateTimeField;
    Query1Crname: TStringField;
    Query1Drtime: TDateTimeField;
    Query1Cmemo: TStringField;
    procedure Button1Click(Sender: TObject);
    //procedure DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;
     // DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBGrid2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DateTimePicker1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  
  end;

var
  listfm: Tlistfm;

implementation
 uses details;
{$R *.DFM}

procedure Tlistfm.Button1Click(Sender: TObject);
begin
  Application.CreateForm(Tdetailfm, detailfm);
  detailfm.showmodal ;
end;

procedure Tlistfm.SpeedButton1Click(Sender: TObject);
begin
 Application.CreateForm(Tdetailfm, detailfm);
 detailfm.showmodal ;
end;


procedure Tlistfm.DBGrid2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

 if key=vk_return then
  detailfm.showmodal;
  if key=vk_escape then
 begin
   listfm.close;
   listfm.Release;
 end;
end;

procedure Tlistfm.SpeedButton3Click(Sender: TObject);
begin
 Query1.Close;
 Query1.Sql.Clear ;
 Query1.Sql.Add('select * from jkdtab ');
 query1.prepare;
 Query1.Open;
end;

procedure Tlistfm.Button2Click(Sender: TObject);
begin
 listfm.close;
 listfm.Release ;
end;

procedure Tlistfm.RadioButton1Click(Sender: TObject);
var
  ADateAndTime: TDateTime;
begin
     ADateAndTime := datetimepicker1.datetime ;
     Query1.Close;
     Query1.Sql.Clear ;
     Query1.Sql.Add('select * from jkdtab ');
     Query1.Sql.Add('where dptime<:pDateTime');

     query1.parambyname('pDateTime').AsDatetime := ADateAndTime;
     query1.prepare;
     Query1.Open;
     dbgrid2.SetFocus ;
end;

procedure Tlistfm.RadioButton2Click(Sender: TObject);
var
  ADateAndTime: TDateTime;
begin
     ADateAndTime := datetimepicker1.datetime ;
     Query1.Close;
     Query1.Sql.Clear ;
     Query1.Sql.Add('select * from jkdtab ');
     Query1.Sql.Add('where dptime>:pDateTime');

     Query1.ParamByName('pDateTime').AsDatetime := ADateAndTime;
     query1.prepare;
     Query1.Open;
     dbgrid2.SetFocus ;
end;

procedure Tlistfm.SpeedButton5Click(Sender: TObject);
begin
 listfm.close;
 listfm.Release ;
end;

procedure Tlistfm.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=vk_return then
 begin
  query1.close;
  if (edit2.text<>'')then
  begin
   query1.sql.Clear ;
   query1.sql.Add('select * from jkdtab ');
   query1.sql.add('where cpname like :pname');
   Query1.ParamByName('pname').Asstring := edit2.text;
  end
  else
   showmessage('请输入交款人姓名!') ;
  try
 query1.open;
 except
  on edatabaseerror do
    showmessage('error!');
  end;
  dbgrid2.setfocus;
  end;
   if key=vk_escape then
 begin
  listfm.close;
  listfm.release;
 end;
end;

procedure Tlistfm.DateTimePicker1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=vk_escape then
 begin
  listfm.close;
  listfm.release;
 end;
end;

end.