【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-AwardNote.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit AwardNote;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TEMPLETFORM, HemisphereButton, Grids, DBGrids, ComCtrls, Menus,
ToolWin, StdCtrls, ExtCtrls, DBActns, ActnList, DB, ADODB;
type
TAwardNoteForm = class(TMyForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
DBGrid1: TDBGrid;
HemiBtn2: THemiBtn;
GroupBox2: TGroupBox;
palNewAward: TPanel;
DBGrid2: TDBGrid;
ActionList1: TActionList;
ADOTAward: TADOTable;
ADOTAwardItem: TADOTable;
ADOQMember: TADOQuery;
DSMember: TDataSource;
DataSetStartAward: TDataSetDelete;
rg: TRadioGroup;
rb3: TGroupBox;
Label7: TLabel;
Label8: TLabel;
dtpStart: TDateTimePicker;
dtpEnd: TDateTimePicker;
rb1: TGroupBox;
Edit5: TEdit;
rb2: TGroupBox;
ComboBox2: TComboBox;
Edit3: TEdit;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
Edit4: TEdit;
GroupBox1: TGroupBox;
Label3: TLabel;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
Label6: TLabel;
Label5: TLabel;
HemiBtn_Locate: THemiBtn;
HemiBtn3: THemiBtn;
HemiBtn4: THemiBtn;
ComboBox1: TComboBox;
DateTimePicker1: TDateTimePicker;
Edit1: TEdit;
Edit2: TEdit;
Memo1: TMemo;
Action_Locate: TAction;
procedure rgClick(Sender: TObject);
procedure HemiBtn4Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure DataSetStartAwardExecute(Sender: TObject);
procedure HemiBtn2Click(Sender: TObject);
procedure Action_LocateExecute(Sender: TObject);
procedure FormResize(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AwardNoteForm: TAwardNoteForm;
implementation
uses data;
{$R *.dfm}
procedure TAwardNoteForm.rgClick(Sender: TObject);
begin
inherited;
if rg.ItemIndex =3 then
rb3.Visible :=true
else begin
rb3.Visible :=false;
if rg.ItemIndex =4 then
rb2.Visible :=true
else
rb2.Visible :=false;
end;
end;
procedure TAwardNoteForm.HemiBtn4Click(Sender: TObject);
begin
inherited;
DBGrid1.Visible :=true;
end;
procedure TAwardNoteForm.FormCreate(Sender: TObject);
begin
inherited;
Statusbar1.Panels[2].Text := CopyRight;
DM.ADOQAward.Active :=true;
end;
procedure TAwardNoteForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
inherited;
Action:=caFree;
end;
procedure TAwardNoteForm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if not(Key in ['0'..'9',#8,#13]) then
begin
Key:=#0;
Beep;
end;
end;
procedure TAwardNoteForm.DataSetStartAwardExecute(Sender: TObject);
var
awardNo:integer;
begin
inherited;
if trim(DM.ADOCmdAward.CommandText)<>'' then
begin
if trim(edit2.Text)<>'' then
begin
try
DM.ADOCmdAward.Parameters.ParamByName('@usedTime').Value :=StrToInt(Edit2.Text);
DM.ADOCmdAward.Execute;
finally
DM.ADOCmdAward.CommandText :='';
with ADOTAwardItem do
begin
Active:=true;
Append;
FieldByName('AType').AsString :=Combobox1.text;
FieldByName('ADate').AsDateTime:=DateTimePicker1.Date;
FieldByName('AReason').AsString :=Edit1.Text;
FieldByName('ATime').AsInteger :=StrToInt(Edit2.Text);
FieldByName('AMemo').AsString :=Memo1.Text;
post;
awardNo:=FieldValues['awardNo'];
end;
ADOQMember.First;
ADOTAward.Active :=true;
while not ADOQMember.Eof do
begin
ADOTAward.Append;
ADOTAward.FieldValues['stuNo']:=ADOQMember.FieldValues['卡号'];
ADOTAward.FieldValues['awardNo']:=awardNo;
ADOTAward.Post;
ADOQMember.Next;
end;
ShowMessage('处理完成');
DM.ADOQAward.Active :=false;
DM.ADOQAward.Activ