【delphi开源代码栏目提醒】：网学会员在delphi开源代码频道为大家收集整理了csjhmx.pas提供大家参考，希望对大家有所帮助!

    unit csjhmx;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Grids, DBGrids, ComCtrls, StdCtrls, DBCtrls, ExtCtrls, DB, ADODB;
    
    type
      TForm7 = class(TForm)
        Panel1: TPanel;
        Label1: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        Label4: TLabel;
        DBNavigator1: TDBNavigator;
        ComboBox1: TComboBox;
        Button1: TButton;
        DateTimePicker1: TDateTimePicker;
        DateTimePicker2: TDateTimePicker;
        DBGrid1: TDBGrid;
        Panel2: TPanel;
        Label5: TLabel;
        Label6: TLabel;
        ADOQuery1: TADOQuery;
        DataSource1: TDataSource;
        Button2: TButton;
        procedure Button1Click(Sender: TObject);
        procedure ComboBox1Change(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure Button2Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form7: TForm7;
    
    implementation
    
    uses DM;
    
    {$R *.dfm}
    
    procedure TForm7.Button1Click(Sender: TObject);
    var
      bhstr,sqlstr:string;
    begin
      adoquery1.Close;
      adoquery1.SQL.Clear;
      adoquery1.SQL.Add('select * from shops where 名称='''
                    +combobox1.Text+'''');
      adoquery1.Open;
      bhstr:=adoquery1.FieldValues['编号'];
      adoquery1.Close;
      adoquery1.SQL.Clear;
      adoquery1.SQL.Add('select sum(价格) as 总额 from stockrecord '
              +'where 超市编号='''+bhstr+'''');
      adoquery1.Open;
      label6.Caption:=floattostr(adoquery1.FieldValues['总额']);
      sqlstr:='select * from stockrecord where 编号=:bh and 进货日期>:date1'
              +' and 进货日期<:date2';
      adoquery1.Close;
      adoquery1.SQL.Clear;
      adoquery1.SQL.Add(sqlstr);
      adoquery1.Parameters.ParamByName('date1').Value:=bhstr;
      adoquery1.Parameters.ParamByName('date1').Value:=datetimepicker1.Date;
      adoquery1.Parameters.ParamByName('date2').Value:=datetimepicker2.Date;
      adoquery1.Open;
    end;
    
    procedure TForm7.ComboBox1Change(Sender: TObject);
    begin
      label2.Caption:=combobox1.Text;
    end;
    
    procedure TForm7.FormCreate(Sender: TObject);
    var
      i:integer;
    begin
      adoquery1.Close;
      adoquery1.SQL.Clear;
      adoquery1.SQL.Add('select 名称 from shops group by 名称');
      adoquery1.Open;
      for i:=0 to adoquery1.RecordCount-1 do
      begin
        combobox1.Items.Add(adoquery1.FieldValues['名称']);
      end;
      adoquery1.Close;
      label2.Caption:='';
      label6.Caption:='';
    end;
    
    procedure TForm7.Button2Click(Sender: TObject);
    begin
      close;
    end;
    
    end.
    

上一篇：csh.pas
下一篇：企业管理论文:电力企业管理中的绩效考核工作