monthsum.pas

来自「用户名：SYSTEM 密码：空 第一次运行请先恢复数据库 DATABAS」· PAS 代码 · 共 54 行

unit MonthSum;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseChildForm, StdCtrls, Buttons, ExtCtrls,DataMod,AdoDb;

type
  TfMonthSum = class(TfBaseChildForm)
    ListBox1: TListBox;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fMonthSum: TfMonthSum;

implementation

uses NewMonthSum, MonthSumA;

{$R *.dfm}

procedure TfMonthSum.FormCreate(Sender: TObject);
var
   Item:TItem;
begin
  inherited;
  Listbox1.Items.Clear ;
  With TAdoQuery.Create(self) do
  Begin
       connection:=fdatamod.AdoCon ;
       Sql.Add('Select cYear,cMonth,cDesc from MonthSum_Sum Order by cYear,cMonth');
       Open;
       While Not Eof do
       Begin
             Item:=TItem.Create ;
             Item.ItemID:=FieldbyName('cYear').asString+FieldbyName('cMonth').asString;
             Item.ItemCaption :=FieldbyName('cDesc').asString;
             Listbox1.Items.AddObject(FieldbyName('cYear').asString+'