【delphi开源代码栏目提醒】:网学会员,鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“FixList.pas”一文,供大家参考学习!
unit FixList;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ADODB, Db, Grids, DBGrids, ExtCtrls, ComCtrls, StdCtrls, Buttons,
DBCtrls, Spin, TeEngine, Series, TeeProcs, Chart, DBChart, Mask;
type
TFixListForm = class(TForm)
AQList: TADOQuery;
DSList: TDataSource;
AQListSum: TADOQuery;
DSListSum: TDataSource;
Panel2: TPanel;
DBGrid1: TDBGrid;
Panel3: TPanel;
Label6: TLabel;
DBEdit2: TDBEdit;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
YearEdit: TSpinEdit;
MonthEdit: TSpinEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FixListForm: TFixListForm;
implementation
uses
Main, DataModule;
{$R *.DFM}
procedure TFixListForm.BitBtn1Click(Sender: TObject);
var
SqlStr, SqlStrSum: String;
begin
SqlStr := 'select * from Fixedlist,Fixed Where Fixed.FixedID = FixedList.FixID ';
SqlStrSum := 'select sum(Fixed.cost) as Scost from FixedList,Fixed Where FixedList.FixID = Fixed.FixedID ';
if YearEdit.Value <> 0 then
begin
SqlStr := SqlStr + 'and year(Fixedlist.date)=' + IntToStr(YearEdit.Value);
SqlStrSum := SqlStrSum + 'and year(FixedList.date)=' + IntToStr(YearEdit.Value);
if MonthEdit.Value <> 0 then
begin
SqlStr := SqlStr + ' and month(Fixedlist.date)=' + IntToStr(MonthEdit.Value);
SqlStrSum := SqlStrSum + ' and month(Fixedlist.date)=' + IntToStr(MonthEdit.Value);
end;
end;
AQList.Close;
AQList.SQL.Text := SqlStr;
AQList.Open;
AQListSum.Close;
AQListSum.SQL.Text := SqlStrSum;
AQListSum.Open;
end;
procedure TFixListForm.FormCreate(Sender: TObject);
begin
Main.MainForm.OpenForm;
Main.ActiveForm := 22;
Self.Left := Main.MainForm.Left;
Self.Top := Main.MainForm.Top+60;
end;
procedure TFixListForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Main.MainForm.CloseForm;
end;
end.