【delphi开源代码栏目提醒】:网学会员为需要delphi开源代码的朋友们搜集整理了FormAdmin.pas相关资料,希望对各位网友有所帮助!
unit FormAdmin;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, DBCtrls;
type
TAdmin = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ADOQuery1: TADOQuery;
ComboBox1: TComboBox;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
ADOQuery2: TADOQuery;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ComboBox1Change(Sender: TObject);
procedure DBGrid1ColExit(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Admin: TAdmin;
number:integer;
implementation
uses FormManage;
{$R *.dfm}
procedure TAdmin.FormCreate(Sender: TObject);
begin
Edit1.Clear;
ComboBox1.ItemIndex:=0;
DBGrid1.Columns.Items[2].Font.Color:=clRed;
DBGrid1.Columns.Items[3].Font.Color:=clRed;
for number:=0 to 6 do
begin
DBGrid1.Fields[number].DisplayWidth:=10;
DBGrid1.Columns.Items[number].Alignment:=taLeftJustify;
end
end;
procedure TAdmin.Button1Click(Sender: TObject);
begin
if ComboBox1.ItemIndex<> 5 then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from 药品信息 where '+ComboBox1.Items[ComboBox1.ItemIndex]+' = '''+edit1.Text+'''');
adoquery1.Open;
end
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from 药品信息');
adoquery1.Open;
end
end;
procedure TAdmin.Button2Click(Sender: TObject);
var SellSum,StockSum:double;
begin
//DBText1.DataField:='Summary';
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select sum(销售金额) as summation from 销售情况');
adoquery2.Open;
SellSum:=AdoQuery2.FieldValues['summation'];
// ShowMessage(FloatToStr(SellSum));
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select sum(药品信息.进货单价*销售情况.销售数量) as StockSum from (销售情况 left outer join 药品信息 on 销售情况.药品代码=药品信息.药品代码);');
adoquery2.Open;
StockSum:=AdoQuery2.fieldValues['StockSum'];
// MessageBox('This should be on top.','Look', mb_OK)
//windows.messagebox(0,'标题','警告错误',MB_ICONSTOP);
// if messagedlg('确定要退出吗?',mtwarnint,[mbyes,mbno],0)=mryes then close;
ShowMessage('你当前的销售总金额为'+FloatToStr(SellSum)+'!当前您盈利为:'+FloatToStr(SellSum-StockSum)+'!');
end;
procedure TAdmin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
manage.Show;
end;
procedure TAdmin.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.ItemIndex=5 then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from 药品信息');
adoquery1.Open;
end
end;
procedure TAdmin.DBGrid1ColExit(Sender: TObject);
begin
//AdoQuery1.Post;
end;
end.