chaxun.pas

用VC和SQL Server开发的固定资产管理系统

unit chaxun;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ComCtrls, StdCtrls, ExtCtrls, DBCtrls, DB, ADODB,
  DBTables;

type
  TForm3cha = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    ADOConnection1: TADOConnection;
    ADOCommand1: TADOCommand;
    ADODataSet1: TADODataSet;
    DataSource1danwei: TDataSource;
    DBNavigator1: TDBNavigator;
    DBNavigator2: TDBNavigator;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    DBNavigator3: TDBNavigator;
    Label2: TLabel;
    Label3: TLabel;
    ListBox1: TListBox;
    ComboBox1: TComboBox;
    Label4: TLabel;
    Button2: TButton;
    Label5: TLabel;
    Memo1: TMemo;
    DateTimePicker1: TDateTimePicker;
    Edit2: TEdit;
    ComboBox2: TComboBox;
    Label6: TLabel;
    Button3: TButton;
    ADOQuery1: TADOQuery;
    DataSource2time: TDataSource;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3cha: TForm3cha;

implementation

{$R *.dfm}

procedure TForm3cha.Button1Click(Sender: TObject);
   var str1,str2:string;
begin
   str1:=trim(edit1.text);
   str2:=copy(str1,0,6);
   ADOCommand1.CommandText:=str1;
   if str2='select' then
        begin
         ADODataset1.Recordset:=ADOCommand1.Execute;
         ADODataset1.Open;
        end
        else
        begin
         ADODataset1.Close;
         ADOCommand1.Execute;
         ADODataset1.CommandText:='select * from 单位';
         ADODataset1.Open;
        end;

end;
procedure TForm3cha.Button2Click(Sender: TObject);
var s:string;
begin
 memo1.Lines[0]:=edit2.Text;
  if
 listbox1.ItemIndex>=0 then
 memo1.Lines[1]:=listbox1.Items[listbox1.Itemindex]
 else
 memo1.Lines[1]:='month has not selected';
 memo1.Lines[2]:=combobox1.Text;
 s:=quotedstr(memo1.Lines[0]+memo1.Lines[1]+memo1.Lines[2]);
 showmessage(s);
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from 基本数据表 where 购置日期='+s);
adoquery1.Open;
end;

end.