delphi 7 初学-CSDN博客

unit UnitMain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DB, MemDS, DBAccess, Ora, ComCtrls,
ExtCtrls, DBCtrls, OraSmart, Buttons;

type
TForm1 = class(TForm)
    btnTest: TButton;
    pgcMain: TPageControl;
    tsDB: TTabSheet;
    tsNotepad: TTabSheet;
    orasMain: TOraSession;
    oraqTemp: TOraQuery;
    dsTest: TDataSource;
    dbgrdTest: TDBGrid;
    dbnvgrTest: TDBNavigator;
    spl1: TSplitter;
    oratTest: TOraTable;
    btn1: TButton;
    btn2: TButton;
    lbl1: TLabel;
    lvList: TListView;
    lbl2: TLabel;
    edtID: TEdit;
    lbl3: TLabel;
    edtName: TEdit;
    lbl4: TLabel;
    edtAge: TEdit;
    udUp: TUpDown;
    lblBirthday: TLabel;
    dtpBirthday: TDateTimePicker;
    btnInsert: TBitBtn;
    btnDelete: TBitBtn;
    btnUpdate: TBitBtn;
    btnQuery: TBitBtn;
    btnClear: TBitBtn;
    tsInfo: TTabSheet;
    edtInfo: TEdit;
    btnShowInfo: TButton;
    procedure btnTestClick(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btnQueryClick(Sender: TObject);
    procedure lvListClick(Sender: TObject);
    procedure btnClearClick(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
    procedure btnShowInfoClick(Sender: TObject);
    procedure btnInsertClick(Sender: TObject);
    procedure btnUpdateClick(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnTestClick(Sender: TObject);
var
I : Integer;
strTemp : string;
begin
strTemp := 'hello delphi7!';
for I := 1 to 10 do
begin
    if I mod 2 = 0 then
    begin
      ShowMessage(IntToStr(I) + 'is aos!');
    end
    else
    begin
      ShowMessage(IntToStr(I) + 'is not bibb!');
    end;

end;
//ShowMessage(strTemp);
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
oraqTemp.Active := False;
dbgrdTest.DataSource.DataSet := oraqTemp;
dbnvgrTest.DataSource.DataSet := oraqTemp;
oraqTemp.Active := True;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
oratTest.Active := False;
dbgrdTest.DataSource.DataSet := oratTest;
dbnvgrTest.DataSource.DataSet := oratTest;
oratTest.Active := True;
end;

procedure TForm1.btnQueryClick(Sender: TObject);
var
StrSQL : string;
AItem : TListItem;
begin
StrSQL := 'select * from srv_test where name like ''%' +
Trim(edtName.Text) + '%''';
// ShowMessage(StrSQL);
oraqTemp.Close;
oraqTemp.SQL.Clear;
oraqTemp.SQL.Add(StrSQL);
oraqTemp.Open;

lvList.Items.Clear;

while not oraqTemp.Eof do
begin
    AItem := lvList.Items.Add;
    AItem.Caption := oraqTemp.FieldByName('id').AsString;
    AItem.SubItems.Add(oraqTemp.FieldByName('name').AsString);
    AItem.SubItems.Add(oraqTemp.FieldByName('age').AsString);
    AItem.SubItems.Add(oraqTemp.FieldByName('birthday').AsString);

oraqTemp.Next;
end;
end;

procedure TForm1.lvListClick(Sender: TObject);
begin
edtID.Text := lvList.Selected.Caption;
edtName.Text:= lvList.Selected.subitems[0];
edtAge.Text:=lvList.Selected.subitems[1];
end;

procedure TForm1.btnClearClick(Sender: TObject);
begin
lvList.Items.Clear;
edtID.Text:='';
edtName.Text:='';
edtAge.Text:='';
dtpBirthday.Date := Now;
end;

procedure TForm1.btnDeleteClick(Sender: TObject);
var
StrSQL : string;
//AItem : TListItem;
begin
StrSQL := 'delete from srv_test where id = ''' + edtID.Text + '''';
oraqTemp.Close;
oraqTemp.SQL.Clear;
// oraqTemp.SQLDelete('edtID.Text');
oraqTemp.SQL.Add(StrSQL);
oraqTemp.ExecSQL;
lvList.Items.Clear;
btnQueryClick(Sender);

end;
procedure TForm1.btnShowInfoClick(Sender: TObject);
var
s : string;
begin
s := '''123''' + ' aaaaa' + '''';

ShowMessage(s);
end;

procedure TForm1.btnInsertClick(Sender: TObject);
var
StrSQL : string;
begin
StrSQL := 'insert into srv_test values (''' + edtID.Text + ''',''' +
            edtName.Text + ''',''' + edtAge.Text +
            ''', to_date(''' +
            FormatDateTime('yyyy-mm-dd', dtpBirthday.Date) + ''', ''yyyy-mm-dd''))';
ShowMessage(StrSQL);
oraqTemp.Close;
oraqTemp.SQL.Clear;
oraqTemp.SQL.Add(StrSQL);
oraqTemp.ExecSQL;
lvList.Items.Clear;
btnQueryClick(Sender);
end;

procedure TForm1.btnUpdateClick(Sender: TObject);
var
StrSQL : string;
begin
StrSQL := 'update srv_test set NAME='''+edtName.Text+''',AGE='''+edtAge.Text+
''',BIRTHDAY=to_date('''+FormatDateTime('yyyy-mm-dd', dtpBirthday.Date)+
''', ''yyyy-mm-dd'')where ID=''' + edtID.Text + '''';

ShowMessage(StrSQL);
oraqTemp.Close;
oraqTemp.SQL.Clear;
oraqTemp.SQL.Add(StrSQL);
oraqTemp.ExecSQL;
lvList.Items.Clear;
btnQueryClick(Sender);
end;

end.

转载于:https://www.cnblogs.com/hainansunyu/archive/2011/12/06/2277708.html